satinder.dhunjar@gmail.com satinder.dhunjar at gmail.com
Mon Nov 28 17:03:46 GMT 2011

```Now that is very cool!
-----Original Message-----
From: alex knowles
Sent:  28/11/2011, 16:15
To:

Sorry to spam - I've made another obfuscation.  It's been a long time.  I'm

http://www.alixandalex.com/rose.png

\$_='my(\$w,\$h,\$x,\$y,\$z,\$b,\$v,\$q, at s, at u, at a, at d)=(200,350,1,0,1,32000,chr(39),65521,"
25825008616615210920823710811215312518118633015403619325825020208007710624914813
61821331252301671241681611442411590901261541801971771881641291122261651041421741
54198177148164147134247155078128171163208158090162176154194187180214147111233224
172120142189","17349417000016320421841032002200810617649417400016320422541031202
20111032134111760800511051473033102160471602133900601341620672783291621141621443
14299186120117125290317150090151162303281168132147127290317294126034097");map{@d
=map\$_-144,/.{3}/g;while(my(\$a,\$b,\$c,\$d,\$e,\$f)=splice at d,0,6){for(my\$t=0;\$t<=1;\$t
+=.005){\$u[\$b+\$t*(\$f*\$t+\$d)][\$a+\$t*(\$e*\$t+\$c)]=\$z}}\$z++}@s;sub{while(my\$n=pop){\$
u[\$n/\$w][\$n%\$w]&&next;\$u[\$n/\$w][\$n%\$w]=\$z;push at _,\$n+1,\$n-1,\$n-\$w,\$n<\$w*\$h?\$n+\$w:
\$n}\$z<5&&\$z++}->(10*\$_)for(1228,550,4005,2816,6943);\$h+=10;for(1..\$h){@d=(1,@{\$u
[\$_]||[]});push at a,map{\$y=(\$y+(\$x=(\$x+(\$z=(\$d[\$_]||1)-1))%\$q))%\$q;\$z}0.\$w}@u=@a;
\$h=pack"N2C5",\$w,\$h,8,3;\$w="x\1";while(\$z=@d=splice at u,0,\$b){\$w.=pack"CSSC*",!!(\$
b-\$z),\$z,~\$z, at d};\$w.=pack"N",\$x+(\$y<<16);for\$b(0..255){\$b=((\$b&1)*0xEDB88320)^(\$
b>>1)for 0..7;push at u,\$b}open(F,">rose.png");binmode F;print F pack("H*","89504e4
70d0a1a0a");print F pack("N",-4+length).\$_.pack"N",sub{\$w=\$h=0xFFFFFFFF;\$w=\$u[(\$
w^\$_)&0xff]^(\$w>>8)for unpack"C*";\$w^\$h}->()for"IHDR\$h",pack("H38","504c54450000
00003000b200006f0000004"),"tEXtComment\0".join(\$/,unpack("(a32)*","\\$_=\$v\$_\$v;")
,"s#\\$/##g;eval"),"IDAT\$w","IEND"';s#\$/##g;eval

(outputs "rose.png")

you can see here:
http://perlmonks.org/?node_id=940286