Beefy Boxes and Bandwidth Generously Provided by pair Networks Russ
Welcome to the Monastery
 
PerlMonks  

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: http://liraz.org/obfus.html Enjoy!


Comment on Free perl obfuscation service
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.

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";
    became
    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;
      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.

      Try it without the semicolon O:-)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://427212]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2014-04-17 07:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (440 votes), past polls