Okay, so it's pretty simple, but it took forever to get the eval to work properly. Any suggestions would be appreciated. 

our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 
114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117,
+ 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;

[download]

Replies are listed 'Best First'.
Re: First JAPH
by ambrus (Abbot) on May 21, 2004 at 20:53 UTC

    Why the backslash? You don't need it.

[reply]
      It adds to the Obfu effect? Seriously, I think I do need it, as I would get messages about an array due to the @ sign.
[reply]
        Maybe I need to clarify. I need the \. It doesn't (diddn't?) work without it for me. 


        our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 
114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117,
+ 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;

        [download]
[reply]
[d/l]
Re: First JAPH
by Anonymous Monk on May 22, 2004 at 22:06 UTC
    Any suggestions would be appreciated

    Lovely proposition. However, once you get a suggestion, and you get it from somebody who seems to know what he's saying, why don't you listen, instead of insisting in your childish claims?

[reply]

Back to Obfuscated Code