Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

*Yawn*, more late night obfu.

by lindex (Friar)
on May 31, 2001 at 11:59 UTC ( #84490=obfuscated: print w/ replies, xml ) Need Help??

die($_=sub{open($_,$0);read($_,$_,40);@_=split('');47; @_=map{chr(ord(shift(@_))+$_)} qw( -35 3 7 -8 85 16 56 -1 -85 13 -25 -9 5 14 -11 57 80 10 67 74 -16 56 55 -13 -69 1 1 68 75 15 59 -4 21 67 -20 69 74 -27 -31 -85);join('',@_);}->("Just another Perl Hacker"));

Brought to you by that crazy but lovable guy... lindex

Edit: chipmunk 2001-06-01

Comment on *Yawn*, more late night obfu.
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (11)
As of 2014-07-25 13:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (172 votes), past polls