Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

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?
Username:
Password:

What's my password?
Create A New User
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? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2014-08-23 13:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (173 votes), past polls