[9120] in bugtraq
ANNOUNCE: Net::RawIP 0.03 released
daemon@ATHENA.MIT.EDU (Sergey V. Kolychev)
Tue Jan 19 18:10:43 1999
Date: Tue, 19 Jan 1999 18:44:51 +0200
Reply-To: "Sergey V. Kolychev" <ksv@GW.AL.LG.UA>
From: "Sergey V. Kolychev" <ksv@GW.AL.LG.UA>
To: BUGTRAQ@NETSPACE.ORG
Good day.
The perl module Net::RawIP 0.03 just released.I have announce in this list
0.02b version.
Thanks all for interest and suggestions.
If you don't remember or don't knew about Net::RawIP before:
Net::RawIP is a perl module can to manipulate raw IP packets,
with an optional feature for manipulating Ethernet headers.
Net::RawIP can be used for easy writing low level programms
which can manipulate raw IP packets directly from Perl.
Changes from 0.02b to 0.03:
- port to Linux with libc5
- port to Alpha Linux
- port to Solaris
- port to FreeBSD
- fix memory leaks
- fix problems with gcc 2.7.2.1
- implemented manipulate IP and TCP options
Homepage of Net::RawIP: http://quake.skif.net/RawIP/
Just one small example.
ipopt_traceroute.pl
-----------------------
#!/usr/bin/perl
# This script use IP option called "record route" for emulate traceroute.
# Unfortunately max size of ip options is only 40 bytes and we can see
# just 9 hops, other hops will be ignored ;(
use Net::RawIP;
require 'getopts.pl';
Getopts('i:s:d:');
die "Usage $0 -i <interface> -d <dest host> -s <your host>"
unless ($opt_d && $opt_d && $opt_s);
$a = new Net::RawIP ({icmp =>{}});
$a->set({ip => {saddr => $opt_s,
daddr => $opt_d},
icmp => {type => 8, id => $$}
});
$data = "\5".("\0" x 37);
$a->optset(ip => {type => [(7)],data =>[($data)] });
$device = $opt_i;
$filt = "ip proto \\icmp and dst host $opt_s";
$size = 1500;
$tout = 30;
$pcap = $a->pcapinit($device,$filt,$size,$tout);
$i =0;
if(fork){
loop $pcap,1,\&dmp,\@a;
}
else{
sleep 1;
$a->set({icmp => {sequence => $i,data => timem()}});
$a->send(1,1);
}
sub dmp{
$a->bset(substr($_[2],14));
$opt = ($a->optget(ip => {type => [(7)] } ))[2];
$opt = substr($opt,2);
@route = unpack("N9",$opt);
$j = 0;
for $site (@route){
last unless $site;
printf(" -> ") if $j;
printf("\n") if $j == 4;
printf("%u.%u.%u.%u",unpack("C4",pack("N",$site)));
$j++;
}
printf("\n");
}
--------------------
I'll be glad if you find my work interesting.
----------------------Alchevsk Linux User Group-----------------------
UNIX is user friendly. It's just selective who the friends are.
Linux is like wigwam - no windows, no gates, apache inside.
http://www.ic.al.lg.ua/~ksv | e-mail: ksv@gw.al.lg.ua
PGP key & Geekcode: finger ksv@gw.al.lg.ua
