http://www.perlmonks.org?node_id=70723

# Tested only with perl 5.6.0
# Not very pro. indeed.
perl -e 'undef$0;$_=q,;"A\ERFH YERc ERUGBAN GFHw" GAVEC;,;s@.@;$"=$&;$
+"=~y;A-Za-z;n-za-mN-ZA-M;;$0.=$"@esg;eval reverse$0;'

[download]

Back to Obfuscated Code