http://qs1969.pair.com?node_id=5307

$_='",",/[J|]$/?m)^.J)?(m~"(.+?)"~):s](^(.)(.*\)\?p.*)|(\)\?)(.' .'*))\|(.)]$4$2$6$3$5|]<<eval:s<([\w -%])(?=[^|]*$)><pack+q*c*,' .'(ord$1)-++$i%3>eg!~eval#@|xslvuuipfem#pwht%uimwssd$yvyO'=>eval

it runs quite many times... how many is left as an excercise to the reader

/dh

Replies are listed 'Best First'.
RE: recursive self modifying eval japh
by turnstep (Parson) on Apr 04, 2000 at 07:38 UTC
    Very devious. I like it. The evals are a nice touch.
RE: recursive self modifying eval japh
by Anonymous Monk on Apr 22, 2000 at 04:45 UTC
    I only sort of understand this code. Ok, I don't even come close... I get the first step, that you are seting the $_ var to this scalar, and then calling eval on it. Ok, but I don't understand the scalar, I see the two line break concatenations, but I don't see how you can have a close parens without an open parens. I suppose this is why we call it obfuscated, but I would very much appreciate it if some one could offer some clarification, as I think it might be useful to me. Thanks.
      I don't see a closing parens - I just see some very tricky matching delimeters *smirks* I hope this hint will lead you into the right direction.