Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Japh algebra

by ambrus (Abbot)
on Nov 24, 2003 at 13:52 UTC ( #309529=obfuscated: print w/ replies, xml ) Need Help??

Not obfuscated enough, it's still redable. Do not use -w.
for$x(1..26){my$r;$r=($x*$r+ord)%127 for"%E.g\cle(WW7=k\ct[bqI\abJy3.%\ctG"=~/./g;print chr$r}

Comment on Japh algebra
Download Code
Re: Japh algebra
by b-funk (Sexton) on Nov 25, 2003 at 16:07 UTC
    Try using lots of punctuation variables for short japhs, separate operators from their operands, use funny math to hide constants, take advantage of aliases and default arguments. I like the idea you had on this one, so here it is a little less clearly:
    map{$;=1?$?-$?:t;$;=($_*$;+ord$&)%(2**7-$|) while(qq]%E.g\cle(WW7=k\ct[bqI\abJy3.%\ctG] =~m>.>g);$..=chr$;}++$|..26;s++$.+iii;print
    Brandan L.
Re: Japh algebra
by ambrus (Abbot) on Oct 12, 2006 at 10:29 UTC

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2014-12-25 15:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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





    Results (160 votes), past polls