Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
We don't bite newbies here... much
 
PerlMonks  

recursive self modifying eval japh

by Anonymous Monk
on Mar 13, 2000 at 20:04 UTC ( #5307=obfuscated: print w/ replies, xml ) Need Help??

$_='",",/[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

Comment on recursive self modifying eval japh
Download Code
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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://5307]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2014-04-19 13:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (480 votes), past polls