[Net::DHCP::Packets]: Sub option_82 (ra_remote_id)

Bonjour,

J'aimerais créer un sniffer DHCP en perl (Net::DHCP::Packets et Net::DHCP::Constants) pour récupérer les sub option comme l'option_82 comme le "RA_REMOTE_ID".

J'ai essayé en utilisant la sub "getSubOptionRaw" sans succès. J'ai trouvé aucune documentation dessus qui m'aiderait à utiliser cette sub.

Voici le script:

#!/usr/bin/perl
use IO::Socket::INET;
use Net::DHCP::Packet;
#use Net::DHCP::Constants qw(:DEFAULT %REV_DHCP_MESSAGE);
use Net::DHCP::Constants qw(:DEFAULT %RELAYAGENT_CODES %REV_DHCP_MESSAGE);
#use Data::Dumper;

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

while ($sock->recv($newmsg, 4096)) {
$packet = Net::DHCP::Packet->new($newmsg);
$agent = $packet->getSubOptionRaw(DHO_DHCP_AGENT_OPTIONS(), RA_REMOTE_ID);
print STDERR $packet->toString();
print "\n\n";
print STDERR $agent;
print "\n\n";
}

Result:

Can't use string ("çâÖVPRN6221fcc3a0"...) as a HASH ref while "strict refs" in use at /usr/local/lib/perl5/site_perl/5.16/Net/DHCP/Packet.pm line 555.

Line 555: /usr/local/lib/perl5/site_perl/5.16/Net/DHCP/Packet.pm
sub getSubOptionRaw {
my ( $self, $key, $subkey ) = @_;
return $self->{options}->{$key}->{$subkey}
if exists( $self->{options}->{$key}->{$subkey} );
return;
}

paquet DHCP reçu :

Exemple:

op = BOOTREQUEST
htype = HTYPE_ETHER
hlen = 6
hops = 0
xid = 7a0b90b
secs = 0
flags = 0
ciaddr = 0.0.0.0
yiaddr = 0.0.0.0
siaddr = 0.0.0.0
giaddr = x.x.x.x
chaddr = xxxxxxxx
sname =
file =
Options :
DHO_DHCP_MESSAGE_TYPE(53) = DHCPDISCOVER
DHO_DHCP_PARAMETER_REQUEST_LIST(55) = 121 1 3 6 12 15 28
DHO_DHCP_AGENT_OPTIONS(82) = \x01\x04\x00\x00\x00\x15\x02\x06\x00\x10\xE7\xE2\xD6\xC4\x97\x08\x00VDD001\x061fcc3a0a07241e58493f3c335e9fc1eb3@xxxxxxxxxx
padding [1] = 00