binary parsing

My very humble first attempt at obfuscation.... Hope this can be an initiator for me into deeper unbeaten paths...

print
        join(' ',map{unpack("A", pack("B8",$_)),''}
        qw(
                        01010000
                        01100101
                01110010
                01101100
                        00001010
                        01001101
                01101111
                01101110
                        01101011
                        01110011
                00001010
                01010010
                        01101111
                        01100011
                01101011
                01110011
                        00001010
        ));
[download]

Excellence is an Endeavor of Persistence. A Year-Old Monk :D .

Comment on binary parsing Select or Download Code

Replies are listed 'Best First'.
Re: binary parsing by ikegami (Patriarch) on Jan 29, 2011 at 21:16 UTC
This is surprising `$ perl -le'print length unpack "A", "\n";' 0` [download] But documented.	[reply] [d/l]
Re^2: binary parsing by ambrus (Abbot) on Jan 30, 2011 at 13:30 UTC
It's also useful in obfuscations.	[reply]
Re^2: binary parsing by biohisham (Priest) on Jan 30, 2011 at 03:43 UTC
It seems that the output is different on an Win32 XP system... `perl -le"print length unpack "A", "\n";" 1` [download] Could you please direct me in which side of the documentation neighborhood that this is reported ? Excellence is an Endeavor of Persistence. A Year-Old Monk :D .	[reply] [d/l] [select]
Re^3: binary parsing by ikegami (Patriarch) on Jan 30, 2011 at 04:44 UTC
Your quoting is broken. You are doing `>perl -le"print length unpack 'A', \'n';" 1` [download] which is the same as `>perl -le"print length unpack 'A', 'S';" 1` [download] If you fix the quoting, you get the correct result. `>perl -le"print length unpack 'A', qq{\n};" 0` [download] pack says "When unpacking, «`A`» strips trailing whitespace and nulls".	[reply] [d/l] [select]
Re: binary parsing by sblanton (Sexton) on Apr 14, 2011 at 12:50 UTC
I like this for its aesthetic beauty. You could have written everything on one line, but you have a nicely formatted pattern to mesmerize and contemplate.	[reply]