This one may not (will definately not?) run on all perl installations. I'm running mine on stock debian installs and it works, but YMMV. But it is fun anyway. If anyone likes I can provide the code I used to generate this, and then it can be re-created for any platform.
I would just like to add that the obfu's I do tend to be based on some concept or algorithm which is the heart of the thing... so I invite discussion on that or improvements on the snippet as a whole!
$"='314747"7"84561"12"277057"10"53708"12"2466"25"' ;sub _{$;.=chr(rand(24)+64)}while($"){srand$";$"=~ s/.*?"//;rand(24)for(1.."$\"");$"=~s/.*?"//;_()for (1..5)}$;=~y/BV/ ./;$;=~s/\w+/\u\L$&/g;print$;.$/
In reply to JAPH randomness by awwaiid
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |