This is a bit more interesting than my last post but not as useful. 
$"=join'',a..z;$t=otscput;map($".=$",a..c)&&$"=~s&(.)((?=.))((?=.))( (
?=.))((?=.))&${$=++%5+1}${$=++%4+2}${$=++%7+2}&gx;$/=zqptsxvy.$t;$"=~s
&^.*?d&&gx;$/.=lwszwfsl;$y=sub{eval $_[0]};$/.=cmawrpx;$/=~y&xrs&"\\ &
;$/=~s&(?<=w|^z)&j&g;map(($p=chr($_+$=/11))&&($q=substr($",$_,1))&&($/
=~s&${q}&$p&gx),4..29)&&&$y(lc($/))

[download]

Replies are listed 'Best First'.
Re: First JAPH
by UnderMine (Friar) on Nov 21, 2002 at 15:16 UTC 
    $"=join'',a..z;$,=otscput;$".=$" for a..c;$"=~s&(.)((?=.))&${$=++
%5+1}${$=++%4+2}${$=++%7+2}&gx;$/=zqptsxvy.$,;$"=~s&^.*?d&&g;$/.=
lwszwfsl;$s=sub{eval$_[0]};$/.=cmawrpx;$/=~y&xrs&"\\ &;$/=~s&(?<=
w|^z)&j&gx;map((($~,$:)=(chr($_+$=/11)=>substr($",$_,1)))&&($/=~s
&$:&$~&gx),4..29)&&&$s(lc($/))

    [download]
    an updated version..
[reply]
[d/l]

Back to Obfuscated Code