in reply to System Independant Rand-JAPH
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