perl -e "print unless s aa\n&E vtuEAopuifs&PfsmEHbdlfs\n\na&&y i&b-z&i&a-y&i&&y eE &e J ed&&0"

more than meets the eye.
and it doesn't f*cking use pack() like some certain other's!

~ phyxeld@nonymous.org

Replies are listed 'Best First'.
Re: One liner
by jmcnamara (Monsignor) on Nov 15, 2002 at 11:19 UTC

    The main trick here is that the substitutions and transliterations use letters as delimiters.

    For example the following are equivalent:

    s/lt/t/; s altata;

    Unrolling your code gives the following:

    print unless s//\n&E vtuEAopuifs&PfsmEHbdlfs\n\n/ && y/&b-z&/&a-y&/ && y/E &/ J /d && 0
    The results of the three transformations are:
    &E vtuEAopuifs&PfsmEHbdlfs &E ustEAnother&PerlEHacker Just Another Perl Hacker

    Deobfuscation for fun and profit

    --
    John.

Re: One liner
by UnderMine (Friar) on Nov 15, 2002 at 10:24 UTC
    Nice.. and sorry was in a hurry and the underlying code was not obfascating as I had hoped so I added another layer. Was a bit silly I know.

    PS. I think someone did not check to see what was packed so it did its job.