Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Free perl obfuscation service

by Anonymous Monk
on Feb 02, 2005 at 11:45 UTC ( #427212=note: print w/replies, xml ) Need Help??

in reply to Writing highly obfuscated code in Perl

Hey everyone, I needed to obfuscate a bunch of Perl scripts a while ago. Now Perl is famous for being naturally obfuscated, but I had something more extreme in mind. As the thought of further obfuscating my Perl scripts by hand horrified me, I looked around for a free automated solution. Long story short, I didn't find anything decent, so I wrote my own. It's pretty neat, and handles (almost) all Perl constructs. I kept working out the bugs until it was powerful enough to obfuscate itself recursively an arbitrary amount of passes. Anyway, the pricing for the commercial obfuscation stuff is absolutely outrageous: "The Stunnix Perl-Obfus Single Developer License costs $879, and can be purchased online in our store. May be used by the same user on any number of machines. Full text of the license is here." So I turned my obfuscator program into a web service anybody can use for free: Enjoy!

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.

Re: Free perl obfuscation service
by simon.proctor (Vicar) on Feb 02, 2005 at 13:20 UTC
    I tried it:
    print "JAPH\n";
    print "\x4a\x41\x50\x48\x0a";
    I shall say no more ;).

      It doesn't even get trivialy more complex code correct

      print q'foo', $/; $bar =~ s/'/\\'/g;
      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.

      Try it without the semicolon O:-)
Re: Free perl obfuscation service
by Corion (Pope) 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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://427212]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2017-12-16 18:02 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (457 votes). Check out past polls.