Obfuscated Perl

14th Jun
« My GPG Key
Dbackup »
PLAIN TEXT
PERL:
  1. $S=int(rand(time))*9;while($S>=10){$t=0;$t+=$_ foreach split//,$S;$S=$t}
  2. @s=(296,1837,2403,2798,3343,3458,4021,4586,5242,5548,5573,5850,6042,6240
  3. ,6860,6967,7754,8439,8984,9239,9249,9310,10385,10655,10661,10817);srand$S
  4. ;$s=shift@s;while($s){$_=rand$S**3;push@n,chr($_)and$s=shift(@s)if++$count
  5. ==$s}map{print}@n

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

This entry was posted on Wednesday, June 14th, 2006 at 1:10 am and is filed under code. You can follow any responses to this entry through the RSS 2.0 feed. Responses are currently closed, but you can trackback from your own site.

Comments are closed.

-->