http://qs321.pair.com?node_id=699971


in reply to Acme Enc

I have use Module Acme::Enc to secure my source code

That's odd, since Acme::Enc doesn't secure anything. The "decryption" code is available to all in Acme::Enc.

#!/usr/bin/perl # Usage: # decode.pl encoded.pl > original.pl # # In-place: # perl -i decode.pl script.pl use Acme::Enc qw( ); BEGIN { *zipperstuck = \&Acme::Enc::zipperstuck; *unbutton = \&Acme::Enc::unbutton; } { my $pants = do { local $/; <> }; $pants =~ s{ .* use \s+ Acme::Enc [^\n]* \n}{}xms; die("This input wasn't \"encoded\"\n") if !zipperstuck($pants); print(unbutton($pants)); }

Unstead, but adapted from something similar that worked with Acme::Bleach.

Acme::Bleach works fine with perl threads when I convert that code for cgi it wont work.

Works fine for me. Yeah, that's rather useless to say, but not as useless as saying "it wont work". Tell us how it doesn't work.

Update: Changed first snippet to reverse Acme::Enc. I had originally wrote and tested one for Acme::Bleach.