my JaPh,

My first japh.

perl -e '@a=split("\\154",("Btrdhalgp("|"HqqpD!bkdh"));@b=split("\\165
+",("!P"|"t"));@c=split("\\164",("hpH!##"|"dd AAj"));@a=(("\%\""|"dp")
+,"@a","@b","@c",",\n");$"=shift@a;print("@a");'
[download]

Comment on my JaPh, Download Code

Replies are listed 'Best First'.
Re: my JaPh, by ambrus (Abbot) on Aug 27, 2005 at 22:03 UTC
I like your idea very much. Pity Deparse reveals too much. You could do such tricks as `"HqqpD!bkdh"x1` or `("HqqpD!bkdh")[-1]s` so that the strings like `"Justlanoth"` don't be visible in the Deparse output. This applies to some of my obfuscations too, so don't take it very seriously.	[reply] [d/l] [select]
Re^2: my JaPh, by basje (Beadle) on Aug 30, 2005 at 11:19 UTC
Good idea, thanks. Something new to learn everyday :) I later thought of using more (, ) and $ in the strings too, to make it more unreadable. It's an ongoing process...	[reply]