Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

I was bored ...

by UnderMine (Friar)
on May 24, 2006 at 22:12 UTC ( [id://551462]=obfuscated: print w/replies, xml ) Need Help??

It has been a long time since I last tried my hand at a bit of obs so here goes nothing.
$c="sj\x09\x03\x12(\x15*O\x18=\x0aDh\x1e5". "oR9\x03rd\x09\x16rJY+&n\\2(H|Z\x05&\x17" ; sub c{$q='';$x= $y=0;for $z (split '',pop ) {for (0..$a){ $x+=2**$y if vec $z,$_,1;$y++ ;if (!($y%$b)) {$q.=chr($x);$y=$x=0;}}}$q;} $c.="\x16(fAc\x16\x0d]\x17:t<aB\$P*T\x1e1z" ;$a=6;open 0;@a =<0>;$c.="\x14\x08Q\x14[b". "8q\x12'\x17\x16\@>m\x0acEK\x1c]Rli\x07d";; $b=8;$c.="\\:b\@\x14[WL]0l\@\@\{";eval&c($c ."\x06nN>\x20"); $k=c(e('"'.e($a[-1]).'"')) ;chop($k);e(k(q{er!\n";},$k,t(c("\x20D(*7". "\x0e\x1d\x10A\\=#"),in,pr))); J(A.P.H).PM; q{tP\x15\x13\x07\x04T2rX\x01A\x14l\x18\x10}
It's not too difficult to decode so next time I will try harder.

P.S. This does need to be saved as file to run.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2024-03-29 14:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found