The following program is a quick and dirty perl obfuscator. It reads the source of your program from STDIN and writes the new program to STDOUT. The CPAN module overload::eval includes an uneval program which will cleanly undo the work done by this obfuscator. Them's the breaks.

Heck, if you filter off the leading perl program, uudecode will undo the obfu for you.

#!/usr/bin/perl
print "#!$^X";
if ( @ARGV ) {
    print ' ' . join ' ', map "'\Q$_\E'", @ARGV;
}
print "\n#line 2\nlocal \$/;eval unpack 'u*', <DATA>;\n__DATA__\n";

undef $/;
print pack 'u*', <STDIN>;

[download]

Replies are listed 'Best First'.

Back to Cool Uses for Perl