Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: A Simple JAPH

by ambrus (Abbot)
on May 07, 2012 at 21:09 UTC ( #969335=note: print w/ replies, xml ) Need Help??


in reply to A Simple JAPH

This obfu is nice because it's hard to see at first what it will print. Allow me a few minor comments though. (I'll use spoiler tags to not spoil anything for readers who hasn't decoded the obfu yet.)

Let me list some specific good points of this obfu too.


Comment on Re: A Simple JAPH
Select or Download Code
Re^2: A Simple JAPH
by Athanasius (Monsignor) on May 08, 2012 at 02:22 UTC

    Wow! Thank-you ambrus for such detailed feedback.

    Taking (most of) your comments on board, the JAPH now looks like this:

    $_='penflillggplmhlllpkolhmhgiokmpmhkegopckdlmlck' .'emhgeji';y,g-p,0-9,;my@x=map{-84+hex}m;\w.;g;my@ y=shift@x;push@y,$_+$y[-1]for@x;print(map{chr}@y);

    I should have mentioned an additional requirement I imposed on myself: the code runs clean under use strict; and use warnings;

    This is fun!

    Regards,

    Athanasius <°(((><contra mundum

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2014-11-28 00:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (191 votes), past polls