File: dhcp_sniffer.pl

package info (click to toggle)
libnet-dhcp-perl 0.696%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, stretch
  • size: 328 kB
  • ctags: 63
  • sloc: perl: 1,964; sh: 51; makefile: 8
file content (11 lines) | stat: -rwxr-xr-x 295 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use IO::Socket::INET;
use Net::DHCP::Packet;

$sock = IO::Socket::INET->new(LocalPort => 67, Proto => "udp", Broadcast => 1)
        or die "socket: $@";

while ($sock->recv($newmsg, 1024)) {
    $packet = Net::DHCP::Packet->new($newmsg);
    print STDERR $packet->toString();
}