Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Acme Enc

by ikegami (Patriarch)
on Jul 24, 2008 at 22:07 UTC ( [id://699971]=note: print w/replies, xml ) Need Help??


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.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others studying the Monastery: (3)
As of 2024-04-25 10:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found