Fw: ANNOUNCE: Net::Packet 2.00 released

[jerome.athias at free.fr (Jerome ATHIAS)]

I hope it could interest someone here :)

----- Original Message ----- 
From: "GomoR" <sfml at gomor.org>
To: <vuln-dev at securityfocus.com>; <pen-test at securityfocus.com>
Sent: Friday, January 28, 2005 8:24 AM
Subject: ANNOUNCE: Net::Packet 2.00 released


> Changes since 1.28:
>
>   - major release, backward compatibility broken
>   - full documentation
>   - a battery of tests
>   - new layers:
>     o Layer2/SLL
>     o Layer2/RAW
>     o Layer2/NULL
>     o Layer3/IPv6
>   - sending frames at DescL4 now fully works
>   - huge speed improvements
>   - some memory usage improvements
>   - many many bugfixes
>
>
> README:
>
> Net::Packet version 2.00
> ====================
>
> This module is a unified framework to craft, send and receive packets
> at layers 2, 3, 4 and 7.
>
> Basically, you forge each layer of a frame (Net::Packet::IPv4 for
> layer 3, Net::Packet::TCP for layer 4 ; for example), and pack all
> of this into a Net::Packet::Frame object. Then, you can send the
> frame to the network, and receive it easily, since the response is
> automatically searched for and matched against the request.
>
> If you want some layer 2, 3 or 4 protocol encoding/decoding to be
> added, just ask, and give a corresponding .pcap file ;)
>
>
> EXAMPLE:
>
>          # Load main module, it also initializes a Net::Packet::Env object
>          use Net::Packet qw($Env);
>
>          # Build IPv4 header
>          use Net::Packet::IPv4;
>          my $ip = Net::Packet::IPv4->new(dst => '192.168.0.1');
>
>          # Build TCP header
>          use Net::Packet::TCP;
>          my $tcp = Net::Packet::TCP->new(dst => 22);
>
>          # Assemble frame
>          # It will also open a Net::Packet::DescL3 descriptor
>          # and a Net::Packet::Dump object
>          use Net::Packet::Frame;
>          my $frame = Net::Packet::Frame->new(l3 => $ip, l4 => $tcp);
>
>          $frame->send;
>
>          # Print the reply just when it has been received
>          until ($Env->dump->timeout) {
>             if ($frame->recv) {
>                print $frame->reply->l3, "\n";
>                print $frame->reply->l4, "\n";
>                last;
>             }
>          }
>
> -- 
>  ^  ___  ___    FreeBSD Network - http://www.GomoR.org/ <-+
>  | / __ |__/     Security Engineer, searching for work    |
>  | \__/ |  \     ---[ zsh$ alias psed='perl -pe ' ]---    |
>  +-->  Net::Packet <=> http://search.cpan.org/~gomor/  <--+