Hallo,
I have a problem with my DHCPSniffer.
Following is my script:
<script>
#!/usr/bin/perl -w
use strict;
use Net::PcapUtils;
use Net::DHCP::Packet;
use NetPacket::Ethernet;
use NetPacket::IP;
sub process_pkt {
my($user, $hdr, $pkt) = @_;
my $p = NetPacket::IP::strip(NetPacket::Ethernet::strip($pkt));
my $packet = Net::DHCP::Packet->new($p);
print STDERR $packet->toString();
}
Net::PcapUtils::loop(\&process_pkt, SNAPLEN => 1500, FILTER => 'udp port 67
or 68');
</script>
It should sniff on the wire and do a formatted output of all dhcp packets.
What it does:
1.It sniffs
2.It displays something ;-(
May someone can point me in the right direction ?
With regards
Holgi
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
