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


in reply to Writing highly obfuscated code in Perl

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
Re: Free perl obfuscation service
by merlyn (Sage) on Feb 02, 2005 at 13:10 UTC
    Only a fool would submit code they wanted to be kept private to a website run by a relatively unknown person, who is possibly keeping copies of all the code for themselves.

    Be afraid. Be very afraid.

    -- Randal L. Schwartz, Perl hacker
    Be sure to read my standard disclaimer if this is a reply.

[reply]
Re: Free perl obfuscation service
by simon.proctor (Vicar) on Feb 02, 2005 at 13:20 UTC
    I tried it: 
    print "JAPH\n";

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

    [download]
    I shall say no more ;).
[reply]
[d/l]
[select]

      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]
      Try it without the semicolon O:-)
[reply]
Re: Free perl obfuscation service
by Corion (Patriarch) on Feb 02, 2005 at 11:49 UTC

    The Stunnix Perl Obfuscator is not that great - it was advertised in Here is a commercial obfuscator already, and said advertising prompted diotalevi to write his Obfuscator and Deobfuscator Acme::Floral, which easily "breaks" the obfuscation, as far as that is possible.

[reply]

In Section Tutorials