Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Just another JAPH

by perlaintdead (Scribe)
on Aug 24, 2013 at 01:52 UTC ( #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;

Comment on Just another JAPH
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (7)
As of 2015-11-30 06:25 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (759 votes), past polls