http://www.perlmonks.org?node_id=427238


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

I tried it: 
print "JAPH\n";

[download]
became 
print "\x4a\x41\x50\x48\x0a";

[download]
I shall say no more ;).

Replies are listed 'Best First'.
Re^2: Free perl obfuscation service
by Ven'Tatsu (Deacon) on Feb 03, 2005 at 16:04 UTC

    It doesn't even get trivialy more complex code correct 

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

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

    [download]
    Neither statement is translated correctly.

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

[reply]
[d/l]
[select]
Re^2: Free perl obfuscation service
by cog (Parson) on Feb 05, 2005 at 23:30 UTC
    Try it without the semicolon O:-)
[reply]

In Section Tutorials