The principle of this obfu is pretty enough that I didn't want to junk it up with ugly obfusatory cruft. It is a simple Perl-doodle inspired by Damian's book. Enjoy. 

qr;;for qq$Just another Perl hacker,\n$;package
Regexp;BEGIN{%{__PACKAGE__.::}=''}sub AUTOLOAD{print}

[download]

Dave

Replies are listed 'Best First'.
Re: This engine burns regular
by jdalbec (Deacon) on Jun 14, 2005 at 01:37 UTC
    Given that package Regexp has only one method, you could also just override that method: 
    qr;;for qq$Just another Perl hacker,\n$;package
Regexp;sub DESTROY{print}

    [download]
    Or you could override all the methods in the package (which amounts to the same thing), although that's longer than the original code by a character: 
    qr;;for qq$Just another Perl hacker,\n$;package
Regexp;BEGIN{$_=sub{print}for values%{__PACKAGE__.::}}

    [download]
[reply]
[d/l]
[select]
[reply]
[d/l]
[select]

Back to Obfuscated Code