Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

My First JAPH

by neosamuri (Friar)
on Apr 25, 2003 at 20:55 UTC ( [id://253253]=obfuscated: print w/replies, xml ) Need Help??

Well Here it is. comments welcome. Ah, and you need to using perl 5 in order for this to work. HINT. 
@y=split qq,\x20,,q;Another Hacker Perl Just;;
$y[$]-4]=$y[$]/5]^$y[$%];$y[$%]=$y[$%]^$y[3];
$y[3]=$y[$%*5/3]^$y[3];$y[$%]=$y[$%]^$y[3];$y[
3]=$y[$]*1/5]^$y[3];$y[$]/5]=$y[$]/5]^$y[3];
print join qq:$":, @y;

[download]

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://253253]
Approved by sschneid
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others studying the Monastery: (3)
As of 2024-04-26 05:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found