Entry 5450

Packing

Submitted by anonymous on July 29, 2010 at 7:42 p.m.
Language: Perl. Code size: 212 bytes.

#my $binary = '11101010101010101010101010101010';
my $binary = $ARGV[0]; 
print "$ARGV[0] \n";
my $int = unpack("N", pack("B32", substr("0" x 32 . $binary, -32)));
my $hex = sprintf("%x", $int );
print $hex;

This snippet took 0.01 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).