look what i made!

['lesleyb']

On Mon, Nov 28, 2011 at 04:15:23PM +0000, alex knowles wrote:
> Sorry to spam - I've made another obfuscation.  It's been a long time.  I'm
> quite pleased with it.
> 
> 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
> 
> for a bit more info.
> 
> alex

Very pretty :) ... and a shameless plug for XP ?

;)
Lesley