» About     » Archive     » Submit     » Authors     » Search     » Random     » Specials     » Statistics     » Forum     » Facebook     » RSS Feed     Updates Daily

No. 522: Garfield plus obfuscated perl code

First | Previous | 2010-10-23 | Next | Latest

Garfield plus obfuscated perl code

First | Previous | 2010-10-23 | Next | Latest

Strip by: Bill Gilliland

#! /usr/bin/perl
for(split q,,,q,44444444x445C=@44x447B;?44x447C7@<4x467BCB84x4A6<BB64x47,.
q,5;<964x4CA<C=54x456548=4x468646=6x4C<847=8x554<465;x6>54464@x665447=Cx,.
q,7864469@x686446>:x98844866x998448>5x>9944<87x>89456<;x>7@4664Cx>664@84,.
q,;xA67C4847x@?@44@46x88<47<4Bx;4:4C<7@x7<5CC<7@x5>47C47<x554?B774x5C4;@,.
q,;@4x55<45C84x64444464xx,){if($i=4,/x/x){print"\n"}else{$x=-52+ord;while(
$i--){if(1<<$i<=$x){print'#';$x-=2**$i}else{print' '}}}}

The author writes:

The easiest way to see the output of this script is to use codepad.org.

Or you can also paste it into a text file and run it from a Unix terminal. I also attached a little screen capture of the output (zoomed out so the effect shows up better).

Garfield plus obfuscated perl code output

I could give you a detailed spoiler of why it works, but then it wouldn't be obfuscated, would it? ;)