Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

very very simple

by Oromis92 (Sexton)
on Nov 29, 2008 at 11:37 UTC ( #726768=obfuscated: print w/ replies, xml ) Need Help??

hu, here's my first obfuscated perl code. It's very simple to understand...
$p=PERL;@p=(24,32,62,35);$P=0 +((1+0)^(0+1))+1;$BP=$P.0;($b .=chr($p[$_]^ord(substr($p,$_ ,$P))))for($P-1..($P+$P)*($P+ $P));$B=substr($b,($P+$P)+$P, $P);chop($b);chop($b);$b.=chr ($p[$P+$P]^ord(substr($p,$P+$ P,$P))).$B.chr($BP);print $b;

Comment on very very simple
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (13)
As of 2014-12-26 06:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (167 votes), past polls