Help for this page

Select Code to Download

Select or download this

sub mac2long {
  my @mac = unpack("A4"x3,shift);
...
print "$inmac converted to long: $long\n";
my $outmac = long2mac($long);
print "$long converted to mac: $outmac\n";

Select or download this

001095123456 converted to long: 2500998230
2500998230 converted to mac: 0000.9512.3456