string++japh

[edan]

My first Obfu attempt - nothing terribly hard to figure out, but I had fun with it...

@j=(1,143,0,141365,1,285060,4223,1,357056,0,1054,1,190460,6805,2,97);
$t=sub{$_[0]++};$p=sub{&$t($a)for(1..pop@j)};$h=sub{for$e(split'',$a)
{&$t($e)for(1..pop@j);print$e,pop@j?$/:q**}};$a=chr(pop@j);&$p,&$h()
for(1..pop@j);

Update: credit goes to woolfy, for magic-string-auto-increment-based-japh inspiration.

--
3dan