Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

my first JAPH

by acid06 (Friar)
on Oct 05, 2000 at 07:16 UTC ( #35368=obfuscated: print w/ replies, xml ) Need Help??

Well... this is it, my first JAPH:
use AutoLoader;;;;sub AUTOLOAD{return q;} $another = $hacker = $_;;;;s/$==$=/$\;;;; if(\\)}\}\}\//;;;;{live}};;;;@_=japh();;; $_=sprintf"%s",@_;s;[^\w ]|[_]+;;g;;h;@j= split;$a=sub{ord$_;};;undef$_;for(10..12) {$b.=chr(($a->('_')+$a->('$'))-($a->(' ') )/2+$_)};$b.=chr(10**2+sqrt($a->('$'))+6) ;;;push@j,reverse(substr(lc($b),-2,2)) . substr(lc($b),0,2);for(1..100){(100/$_)eq int(10**2/$_)?push@a,$_:jnk()};;;$c.=chr( $a[4]+$a[5]+$a[7]);$c.=chr((($a[0]+$a[1]) **$a[1])+($a[5]+$a[6])*$a[1]+$a[1]);;$c.= chr($a[4]+$a[5]+$a[7]+$a[1]);gty;$c.=chr( unpack('h*','g'));push@j,lc($c);;japh06;; $,=' ';print @j[2,0,3,1];

Comment on my first JAPH
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2014-07-13 18:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (251 votes), past polls