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

Encoding wonders

by srawls (Friar)
on Jun 12, 2001 at 01:25 UTC ( #87656=obfuscated: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    die unless print keys %j and open uc sqrt hex chr lstat;
    @_[0..100]=grep{!/[qyixd;%]/}split//,~~<0>;$\=$/;print substr join(
    $&,map{$$_[$[]}sort{z($$a[1])<=>z($$b[1])}map{[$_[$_],$_]}0..46),23;
    sub z {@h[18,28,6,12,13,20,3,23,33,35,0,10,1,9,5,32,4,8,39,45,29,14,15
    +,40]=
    (1+\\///\\\//..$=);$h[pop];} 
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://87656]
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: (6)
As of 2014-12-29 07:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (185 votes), past polls