Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

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 contemplating the Monastery: (4)
As of 2018-06-21 03:29 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.