Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Just another JAPH

by thelenm (Vicar)
on Sep 19, 2002 at 17:54 UTC ( [id://199238]=obfuscated: print w/replies, xml ) Need Help??

This is my first obfuscation that I even consider halfway decent, and it happens to be a JAPH:
print@={ sort%==q=qr!J& $s[l?P^h%t:r] @e(afk)nOrbadc/oge; } #u0t4h8ex,==~m"\C|0xaf3d!until$a+=$b; # secret key: "g}#Z~"
Update: Made a tiny change so now it even runs with  use strict.

-- Mike

--
just,my${.02}

Replies are listed 'Best First'.
Re: Just another JAPH
by kelan (Deacon) on Sep 19, 2002 at 20:39 UTC
    Wow, this was a good one. I stared at it blankly for 10 minutes before deciding to whip out the ol' -MO=Deparse. thelenm++

    Spoiler below...

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://199238]
Approved by Mr. Muskrat
Front-paged by hiseldl
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2025-07-11 20:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.