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

Encoding wonders

by srawls (Friar)
on Jun 12, 2001 at 01:25 UTC ( [id://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
Domain Nodelet?
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?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (3)
As of 2024-03-29 06:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found