Advertisement
kwasinski

hbd.pl

Apr 15th, 2014
197
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.44 KB | None | 0 0
  1. map {print chr(unpack("N", pack("B32", substr("0" x 32 . $_, -32))))} qw{
  2.     01000110          01100101  01101100                    01101001          01111010          00100000          
  3.     01100001 01101110 01101001  01110110 01100101 01110010  01110011          01100002          01110010          
  4.     01101001 01101111 00101100  00100000 01110011 01100101  01110101 00100000 01110000 01110101 01110100  
  5.  
  6.     01101111 00100001
  7. };
  8.  
  9. __END__
  10.  
  11. "VLW"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement