A first attempt at really doing an obfu. I'm not thrilled with it, but I lacked time, and this contains the main ideas of the obfu. I don't think this is my strength. 
$CX='@l658072wq';
print map {reset;;?[];vec (join(keys %_),5,8);} readpipe *CX;
2;]??chr:m}l}?chr(ord($_|$/)):chr(length($^T))} unpack 'a2'x5, $CX;

[download]

Replies are listed 'Best First'.
Re: first (intentional) obfu
by ambrus (Abbot) on Feb 21, 2006 at 17:41 UTC

    Wow! This is a truly brilliant obfu.

    It completely put me on the wrong track when I tried to understand it.

    What first took my attention was the readpipe *CX statement. I couldn't see how it could give anything useful as *CX is clearly an invalid command.

    So as *CX is invalid, this command would return an empty list. I have removed readpipe *CX from the code, and indeed, it didn't change anything.

    <Reveal this spoiler or all in this thread>
[reply]
[d/l]
[select]
Re: first (intentional) obfu
by chargrill (Parson) on Feb 21, 2006 at 17:30 UTC

    I like it! Though you'll have to wait for the vote fairy to make her rounds before I can ++ you. Anything that doesn't better reveal itself when run with -MO=Deparse is good in my book :)

    Read more... (2 kB)

    ++ forthcoming :)



    --chargrill 
    $/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );

    [download]
[reply]
[d/l]
[select]
Re: first (intentional) obfu
by SamCG (Hermit) on Feb 23, 2006 at 13:53 UTC
    Thank you all for your kind comments. ambrus especially for his sharp de-obfuscation, chargill especially for his mention of -MO=Deparse (a test I'll make sure any of my future obfus pass), and liverpole especially for welcoming me to the club ;). Actually, it was some of liverpole's impressive obfus that made me think I should post one, though I still don't think I'm particularly gifted at it.

    Next time, I'll try harder :)
[reply]
Re: first (intentional) obfu
by liverpole (Monsignor) on Feb 22, 2006 at 10:32 UTC
    Welcome to the club, SamCG,

    It's a novel approach for an obfu, and an especially good one for your first!

    @ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
[reply]
Re: first (intentional) obfu
by jdalbec (Deacon) on Feb 24, 2006 at 01:07 UTC
[reply]
      Yes, this obfu is not recommended for use in programming nuclear reactors, it is not prudent for medical equipment, and is not guaranteed for flight navigational or traffic control systems. ;)
[reply]

Back to Obfuscated Code