Re: Free perl obfuscation service

[simon.proctor]

in reply to Free perl obfuscation service
in thread Writing highly obfuscated code in Perl

I tried it:

print "JAPH\n";

became

print "\x4a\x41\x50\x48\x0a";

I shall say no more ;).

[Ven'Tatsu]

It doesn't even get trivialy more complex code correct

print q'foo', $/;
$bar =~ s/'/\\'/g;

To

print q"\x66\x6f\x6f",$/;$bar=~ s/"\x2f\x5c"/g;

Neither statement is translated correctly.

The author should be forced to write "Only perl can parse Perl." 500 times on the black board.

[cog]

Try it without the semicolon O:-)