Thursday, June 15, 2006

Obfuscated Perl

$S=int(rand(time))*9;while($S>=10){$t=0;$t+=$_ foreach split//,$S;$S=$t}
@s=(296,1837,2403,2798,3343,3458,4021,4586,5242,5548,5573,5850,6042,6240
,6860,6967,7754,8439,8984,9239,9249,9310,10385,10655,10661,10817);srand$S
;$s=shift@s;while($s){$_=rand$S**3;push@n,chr($_)and$s=shift(@s)if++$count
==$s}map{print}@n


Who doesn't love obfuscated Perl code? This is one I wrote, and it's very simple.

No comments: