66cd81a610
"NetPacket" provides a base class for a cluster of modules related to decoding and encoding of network protocols. Each "NetPacket" descendent module knows how to encode and decode packets for the network protocol it implements. Consult the documentation for the module in question for protocol-specific implementation.
91 lines
2.5 KiB
Plaintext
91 lines
2.5 KiB
Plaintext
$OpenBSD: patch-NetPacket_ICMP_pm,v 1.1.1.1 2005/05/24 06:16:53 msf Exp $
|
|
--- NetPacket/ICMP.pm.orig Wed Jan 29 13:25:03 2003
|
|
+++ NetPacket/ICMP.pm Thu Apr 14 10:10:49 2005
|
|
@@ -62,7 +62,7 @@ BEGIN {
|
|
ICMP_REDIRECT ICMP_ECHO ICMP_ROUTERADVERT
|
|
ICMP_ROUTERSOLICIT ICMP_TIMXCEED ICMP_PARAMPROB
|
|
ICMP_TSTAMP ICMP_TSTAMPREPLY ICMP_IREQ ICMP_IREQREPLY
|
|
- ICMP_MASREQ ICMP_MASKREPLY
|
|
+ ICMP_MASKREQ ICMP_MASKREPLY
|
|
);
|
|
|
|
# Tags:
|
|
@@ -73,7 +73,7 @@ BEGIN {
|
|
ICMP_REDIRECT ICMP_ECHO ICMP_ROUTERADVERT
|
|
ICMP_ROUTERSOLICIT ICMP_TIMXCEED ICMP_PARAMPROB
|
|
ICMP_TSTAMP ICMP_TSTAMPREPLY ICMP_IREQ ICMP_IREQREPLY
|
|
- ICMP_MASREQ ICMP_MASKREPLY)],
|
|
+ ICMP_MASKREQ ICMP_MASKREPLY)],
|
|
strip => [qw(icmp_strip)],
|
|
);
|
|
|
|
@@ -266,12 +266,12 @@ none
|
|
|
|
=item exportable
|
|
|
|
-Icmp message types:
|
|
+ICMP message types:
|
|
ICMP_ECHOREPLY ICMP_UNREACH ICMP_SOURCEQUENCH
|
|
ICMP_REDIRECT ICMP_ECHO ICMP_ROUTERADVERT
|
|
ICMP_ROUTERSOLICIT ICMP_TIMXCEED ICMP_PARAMPROB
|
|
- ICMP_TSTAMP ICMP_TSTAMPREPLY ICMP_IREQ ICMP_IREQREPLY
|
|
- ICMP_MASREQ ICMP_MASKREPLY
|
|
+ ICMP_TSTAMP ICMP_TSTAMPREPLY ICMP_IREQ
|
|
+ ICMP_IREQREPLY ICMP_MASKREQ ICMP_MASKREPLY
|
|
|
|
|
|
=item tags
|
|
@@ -280,6 +280,14 @@ The following tags group together relate
|
|
|
|
=over
|
|
|
|
+=item C<:types>
|
|
+
|
|
+ ICMP_ECHOREPLY ICMP_UNREACH ICMP_SOURCEQUENCH
|
|
+ ICMP_REDIRECT ICMP_ECHO ICMP_ROUTERADVERT
|
|
+ ICMP_ROUTERSOLICIT ICMP_TIMXCEED ICMP_PARAMPROB
|
|
+ ICMP_TSTAMP ICMP_TSTAMPREPLY ICMP_IREQ
|
|
+ ICMP_IREQREPLY ICMP_MASKREQ ICMP_MASKREPLY
|
|
+
|
|
=item C<:strip>
|
|
|
|
Import the strip function C<icmp_strip>.
|
|
@@ -294,13 +302,35 @@ All the above exportable items.
|
|
|
|
=head1 EXAMPLE
|
|
|
|
+The following example prints the ICMP type, code, and checksum
|
|
+fields.
|
|
+
|
|
+ #!/usr/bin/perl -w
|
|
+
|
|
+ use strict;
|
|
+ use Net::PcapUtils;
|
|
+ use NetPacket::Ethernet qw(:strip);
|
|
+ use NetPacket::IP qw(:strip);
|
|
+ use NetPacket::ICMP;
|
|
+
|
|
+ sub process_pkt {
|
|
+ my ($user, $hdr, $pkt) = @_;
|
|
+
|
|
+ my $ip_obj = NetPacket::IP->decode(eth_strip($pkt));
|
|
+ my $icmp_obj = NetPacket::ICMP->decode(ip_strip($ip_obj));
|
|
+
|
|
+ print("Type: $icmp_obj->{type}\n");
|
|
+ print("Code: $icmp_obj->{code}\n");
|
|
+ print("Checksum: $icmp_obj->{cksum}\n\n");
|
|
+ }
|
|
+
|
|
+ Net::PcapUtils::loop(\&process_pkt, FILTER => 'icmp');
|
|
+
|
|
=head1 TODO
|
|
|
|
=over
|
|
|
|
=item Create constants
|
|
-
|
|
-=item Write example
|
|
|
|
=back
|
|
|