On Mon, Dec 01, 2003 at 01:39:43PM -0500 [EMAIL PROTECTED] wrote: > Can anyone suggest where I might be able to find (hopefully a freeware > or shareware script..) a program that runs either on a windows system or > a PERL script that would "encrypt" a perl script by doing such things as > removing whitespace, etc. so that it is much more difficult to read but > yet will execute as if "unencrypted"?? I'd like to make the source code > as difficult to pirate as I can for a program that I'm developing.
Those attempts are usually futile since compiled Perl-code can be deparsed. Of course, when those pirates you have in mind are a little retarded, you could use one of those many Acme:: or Acme-alike modules on the CPAN. I quite like SuperPython. This line transforms any Perl script into a script that can be run by SuperPython: perl -ne 's/(.)/" " x ord($1)."\t"/ge; print' script.pl > script.spy And in order to execute it, either do a perl -MSuperPython script.spy or add 'use SuperPython;' on top of the encrypted script. But note that perl -MO=Deparse -MSuperPython script.spy would for instance yield BEGIN { $^W = 1; } use SuperPython; my $code = sub { my $arg1 = shift @_; sub { $arg1 + shift(@_); } ; } ; print &$code(5)->(6); which could easily be more readable than the original script was. Tassilo -- $_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({ pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#; $_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]