in reply to DNA japh

Terrific as always!  ++chargrill

It's interesting that, as you've noted ...

... your trick (or should I say "my trick"? :-)) of: 
sed 's/eval/print/' obfu.pl | perl | perl -MO=Deparse

[download]

doesn't work here.

But a very simple alternative is to "protect" the eval, after it becomes print, from the && chargrill following it with: 

sed 's/eval/print#/' obfu.pl | perl | perl -MO=Deparse

[download]
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Replies are listed 'Best First'.
Re^2: DNA japh
by chargrill (Parson) on Nov 20, 2006 at 16:26 UTC

    Did I first pick up that trick from you? I think perhaps I did. However, it is an exceedingly helpful trick to figure out why ...

    <Reveal this spoiler or all in this thread>


    --chargrill 
    s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)

    [download]
[reply]
[d/l]
[select]
      Yes, I first told you about that trick with regard to this Japh.
      s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
[reply]

In Section Obfuscated Code