Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Just another JAPH

by perlaintdead (Scribe)
on Aug 24, 2013 at 01:52 UTC ( [id://1050750]=obfuscated: print w/replies, xml ) Need Help??

My internet has been down for the past few days so i did this. difficulty: 6/10

$|=1;b:my@j=(q(37b), q(b58), q(b57), q(58b), q(16b), q(b48), q(55b), q(b55), q(58b), q(52b), q(b50), q(57b), q(16b), q(40b), q(b34), q(41b), q(38b), q(16b), q(52b), q(b48), q(b49), q(b53), q(b50), q(57b), q(23b));-x\@j;sub vv{return 0x3}sub G{return!NULL}sub q{-e b_ +;} my$b=not-9674;sub B{return map{b_}split NULL,shift,oct 2}sub w{return +\0x2,} foreach$bb(@j){unless($bb!=m-^b-){BEGIN{use MIME::Base64;*b_=\&pop and + *db=\&decode_base64} sub U1RET1VU{caller undef,-w,&q;}$b=vv- w;vv-W;$bb=substr$bb,$|;}$bb=$ +bb/(q(.). 0b0101); $bb=$bb+_+print m!!xg if!! B$b;syswrite db q; U1RET1VU; ,chr$bb;$b=G;}eof;

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2024-03-19 11:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found