Re: 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.

You're not using unpack"C*",pack"H*",$_ to decode the string of hexadecimals. That would be both longer than the map{hex}/\w./g you're using and easily recognizable for seasoned obfuscation readers.

Secondly, you put the -84 constant together with the hex instead of in the $_+$y[-1], thus making its meaning more difficult to see. As your code is now, I first see the -84 term, and don't understand what it's doing until later when I see that the numbers are used as differences which is why you want negative numbers.

Thirdly, you wrote the code as separate statements each doing one step of the computation. This seems actually seems to suit this obfu more than a traditional terse style where you'd write everything in one statement, such as

y/g-z/0-9/,print chr($_y+=-84+hex)for"penflillggpl
mhlllpkolhmhgiokmpmhkegopckdlmlckemhgeji"=~/\w./g;
[download]

as the separate statements put the related operations far away from each other, thus making the code less readable, but still short enough.

(Ps. Modifying the above to use the y///r switch thus making the statement even more readable is homework for reader.)

Comment on Re: A Simple JAPH Select or Download Code

Replies are listed 'Best First'.
Re^2: A Simple JAPH by Athanasius (Archbishop) 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);` [download] 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	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: A Simple JAPH
by Athanasius (Archbishop) 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);
[download]

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

[reply]
[d/l]
[select]