id:naoya:20050901で知ったppencodeなるものでさっそく「hagihara」とやってみたところ、
$ perl -e 'log xor print chr ord q chr lc xor print chr ord q each ne xor print chr ord qw q gt q xor print chr ord q sin s xor print chr ord q chr lc xor print chr ord q each le xor print chr ord q or no xor print chr ord q map m'
とするように出たのだけれど、
Can't take log of 0 at -e line 1.
となってしまう。最初のxorを取ると、
$ perl -e 'log print chr ord q chr lc xor print chr ord q each ne xor print chr ord qw q gt q xor print chr ord q sin s xor print chr ord q chr lc xor print chr ord q each le xor print chr ord q or no xor print chr ord q map m '
hagihara
と素敵なことに。なんでだろうなーと何度か試してみたところ、何種類かエンコードの仕方があるらしく、
$ perl -e 'q qq xor print chr ord q chr uc xor print chr ord q map m xor print chr ord qw q ge q xor print chr ord q tie lt xor print chr ord q chr uc xor print chr ord q map m xor print chr ord q qr eq xor print chr ord q each ne'
は問題ありませんでした。JavaScriptのソースとかgen_ppencodeとかも一瞬見たけどよくわからず。
ま、いっか。