On Fri, 17 Jan 2003 21:00:27 +0100, [EMAIL PROTECTED] (Rene Verharen) wrote:
>I found a (commercial) script on the net which shows me all the installed
>Perl Modules. Trying to see how thing were done showed me that this script
>was sort of cripted :
>
>#!/usr/bin/perl
>$lEECXCBBXCBEXAECAXBACXDCDXDEDBXAADXDDBXCDABXAEAXEDAXABACXCEAXA
>--cut--
>
>Almost no human readable text in it. Can someone tell me more about how
>this is done or point me at a doc I should read ?
Well you can start by looking at the module Acme::Bleach.
There are alot of similar modules that do it somewhat differently.
Look at all the Acme modules, you may find the one that did
the encryption.
For what it's worth, I would be careful about running a script which
hides the source code, unless you have assurances from the creator
of it's safety. It could do anything, like wipe out your home directory
(worst case).
If you read the module, you can usually figure out how to reverse it.
For instance, this will de-bleach an Acme::Bleach encoded script.
##############################################################
#!/usr/bin/perl
$/=undef;
open(FH,"<$ARGV[0]");
my $tie = " \t"x8;
sub brighten { local $_ = pop; s/^$tie|[^ \t]//g; tr/ \t/01/; pack "b*",
$_ }
(my $shirt = join "", <FH>) =~ s/.*^\s*use\s+Acme::Bleach\s*;\n//sm;
$decrypted= brighten $shirt;
print "$decrypted\n";
###########################################################
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
