Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Quick JAPH

by FouRPlaY (Monk)
on Jun 01, 2001 at 22:07 UTC ( [id://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));

[download]




FouRPlaY
Learning Perl or Going To die() Trying

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
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? • Last hour • Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2024-04-26 01:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found