Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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 perusing the Monastery: (5)
As of 2014-08-21 09:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (129 votes), past polls