Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Quick JAPH

by FouRPlaY (Monk)
on Jun 01, 2001 at 22:07 UTC ( #85014=obfuscated: print w/replies, xml ) Need Help??

Here's my first Obfuscated Code, just quick and simple, something to throw in a .sig or something.

#!/usr/bin/perl -w use strict; $_="P74117115116E32H65110111116104101114R32P80101114108L32H72P97X99107 +101114"; for(m{(.{3})}g){y$0-9$$cd;print chr($_);}print chr(((2+3)*(32-12)/4)-( +3*4+3));




FouRPlaY
Learning Perl or Going To die() Trying

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://85014]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2022-11-30 21:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?