#!/usr/bin/perl
#####################################################
# udp flood.
#
# gr33ts: meth, etech, skrilla, datawar, fr3aky, etc.
#
# --/odix
######################################################

use Socket;

print "This scrips has been removed due to misuse.\n";
exit(0);

$ARGC=@ARGV;

if ($ARGC !=3) {
 printf "$0 <ip> <port> <time>\n";
 printf "if arg1/2 =0, randports/continous packets.\n";
 exit(1);
}

my ($ip,$port,$size,$time);
 $ip=$ARGV[0];
 $port=$ARGV[1]; 
 $time=$ARGV[2];

printf "udp flood - odix\n";

if ($ARGV[1] ==0 && $ARGV[2] ==0) {
}
if ($ARGV[1] !=0 && $ARGV[2] !=0) {
}
if ($ARGV[1] !=0 && $ARGV[2] ==0) {
}
if ($ARGV[1] ==0 && $ARGV[2] !=0) {
}