Thanks to all who sent pointers!
Here is my code before I put it up as a web page tool (and clean it up
and comment it <g>).
comments/suggestions anyone?
#!perl -w
use strict;
use diagnostics;
my $debug = "yes";
my (@mac);
my $mac = "0123 6789 cdef";
$mac =~ s/\s//g;
my $i = 0;
while($mac =~ /(.{2})/g){
$mac[$i++] = $1;
my $str = unpack("B8", pack("H2", $1));
print $1 . " - " . "$str\n" if $debug;
my $revstring = reverse($str);
my $hex2 = unpack("H2", pack("B8", $revstring));
print " $revstring - $hex2\n\n" if $debug;
}
--
[EMAIL PROTECTED]
MUA = TB! v1.53d (www.RitLabs.com/The_Bat)
Windows NT 5.0.2195 (Service Pack 2)
A life? . . Cool! Where can I download one of those?!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
