|
|
|
| "be consistent" | |
| PerlMonks |
Re: System Independant Rand-JAPHby starbolin (Hermit) |
| on Mar 18, 2005 at 00:25 UTC ( [id://440600]=note: print w/replies, xml ) | Need Help?? |
|
Works under Perl 5.8.5, 64 bit int, FreeBSD 5.3. Otherwise, pretty twisted, I'm still trying to /obfu. Though it's not really an overload of rand() as it modifies global $_. Thought you'd get me there, did you?
s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s
|-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,,
$|=1,select$,,$,,$,,1e-1;print;redo}
In Section
Obfuscated Code
|
|
||||||||||||||||||||||