OK, I never thought I would be confident enough to produce a JAPH in the light of so many really stunning entries. I am certain this kinda thing has been done before.

One of the Java developers in my office got annoyed when I used it as my signature (so I keep using it ;). I am writing the Java equivilent (Just another Java developer) and even with nasty disregard for formatting already it's 5 lines longer and lacks some of the functionality (I shall use it to antagonise the Java developers :-)

Enough procrastination, I suspect noone really reads these bits before checking the code works anyway.

$_='Ozxy%fstymjw%';s:.:chr((ord$&)-5):ego;split//;print$_,map{
$_[$_]^chr((26,16,1,24,0,9,15,12,31,13,23,92,42)[$_])}(0..$#_)
[download]

It is possible that I can remove the o from the regex and change the $#_ to 12, but what fun would that be? With -w the "split//" to "@_" is shown to be deprecated, do I have to add "@_="? (Thats 3 more characters :()

--

Brother Frankus.