Re: Bit reversal of MAC Address bytes...

[Tim Musson]

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]