#! / USR / бен / Perl

использовать IO :: Socket; использовать IO :: Выбрать;
использовать Digest :: SHA, $ | = 1;

$ = IO BTC :: Socket :: INET->новый (PeerAddr =>"локальный", PeerPort =>'8333', Proto =>«TCP») или умереть "Разъем";
$ Сель = IO :: Select->новый (); $ sel->добавить ($ BTC);

$ Р ="\ X2c \ x7E \ x00 \ x00"; # Version
$ Р. ="\ X01 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00"; # Сервисы
$ H = Sprintf ( '% х', время ()), в то время (длина ($ ч)<16) {$ H ="0". $ Ч;}
$ Ч = назад ($ ч); $ р = упаковка ( 'ч *', $ ч). # Unix Timestamp
$ Р. ="\ X01 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ XFF \ XFF"; # Для IP
$ Р. ="\ X7f \ x00 \ x00 \ x01 \ x20 \ x8d"; # 127.0.0.1 - порт 8333
$ Р. ="\ X01 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ x00 \ XFF \ XFF"; # От IP
$ Р. ="\ X00 \ x00 \ x00 \ x00 \ x20 \ x8d"; # 0.0.0.0 - Порт 8333
@chars = ( 'а' .. 'е', 0..9); $ RR = присоединиться к '', отображение {$ [Rand символы @chars]} 1..16;
. $ Р = упаковка ( 'Н *', $ р-р); # Случайные Уникальный ID
$ Р. ="\ X00 \ x00 \ x00 \ x00 \ x00"; нет # Нет UA / Блоки

sendpacket ( 'версия', $ р);
в то время как ($ gotver == 0) {
  ($ С, $ р) = readpacket ();
  если ($ C экв 'версия') {$ gotver = 1;}
сон (1);}
sendpacket ( 'verack', '');

в то время как (1) {
  ($ С, $ р) = readpacket ();
  если ($ с эк «и») {
    sendpacket ( 'GetData', $ р);
  }
  если ($ C экв 'блок') {
    $ BLK = распаковка ( 'Н *', $ р); печать $ BLK."\ п";
  }
сон (1);}
близко ($ BTC);

к югу sendpacket {мой $ с = сдвиг (@_) мой $ р = сдвиг (@_);
  мой $ о ="\ Xf9 \ XBE \ XB4 \ xd9"; # Магия для основной сети
  в то время как (длина ($ с)<12) {$ гр. ="\ x00";.} $ О = $ с; #Command
  мой $ ч = Sprintf ( '% х', длина ($ р)), в то время (длина ($ ч)<8) {$ H ="0". $ Ч;}
  $ Ч = назад ($ ч); $ O = упаковка ( 'ч *', $ ч). # Payload длина
  $ Ч = Дайджест :: ША :: sha256 (дайджест :: ША :: sha256 ($ р));
  $ H = распаковка ( 'Н *', $ ч);. $ O = упаковка ( 'Н *', зиЬзЬг ($ ч, 0,8)); # Контрольная сумма
  . $ А = $ р; # Payload
  печать $ $ о BTC; печать STDERR "Направлено $ с (".length ($ р)." байт полезной нагрузки) \ П";
}
к югу readpacket {
  если (! $ sel->can_read (1)) {возвращают 0;}
  мой @x мой $ х, в то время как (1) {чтение ($ $ БТД х, 1); $ х = распаковывать ( 'H *', $ х);
    нажимные (@ х, $ х), если ($ # х>3) {сдвиг (@x);}
    если (Join ( '', @ х) эк "f9.be.b4.d9") {
      мои $ ЦМД мой $ LEN;
      чтения ($ $, BTC CMD, 12); чтение ($ BTC, $ Len, 4); чтение ($ BTC, $ х, 4);
      $ Х = распаковка ( 'ч *', $ LEN); $ х = обратный ($ х); $ Len = гекс ($ х);
      $ Х = измельчить ($ CMD), в то время ($ х экв "\ x00") {$ Х = измельчить ($ CMD);}. $ CMD = $ х;
      печать STDERR "Читать $ CMD ($ Len байт полезной нагрузки) \ п";
      если ($ Len>0) {чтение ($ BTC, $ х, $ LEN); возвращение ($ CMD, $ х);}
      еще {возвращение ($ CMD, '');}
    }
  }
}