chinman

#!/usr/bin/perl -w
$camel = $hump
do {
  theHumpty($camel);
}
[download]

BTW, I hadn't heard of this forum until Google brought me here looking for a solution to this problem. I'll be back.

Thanks to all of you!!

Glad it helped. You have got to love Google. The impossible delivered yesterday, miracles take a little longer.....

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

I hate to beat a dead horse, but I have had a similar problem. Through some fluke event one of the modules I was working on got saved over the master perl script for the program. Of course, I didn't notice this until after I tried to pull the code out of my source-safe database. Anyway, I have compiled it using PerlApp 4.1.2. I attempted to decompile it using the scripts provided in this node, but I was unsuccessfull. Obviously, I'm missing some key component. I tried varying the key string since I'm sure the copyright strings has changed since this query was first posted. I tried several different keystrings and all result in the keystring being repeated with some differences in some of the characters. Help would be most greatly appreciated. I will append the code that I'm using to try and decrypt the exe. The file being read is simply the PerlApp binary.

#!/usr/bin/perl


open(FILE, "Z:\\test\\ftp\\dlclient\\NEFTPClient-1.6.exe");
# Read every line in the file
my $filestring;
binmode(FILE);
binmode(STDOUT);
while (<FILE>) {
    $filestring .= $_;
}

close FILE;

my @encoded = split //, $filestring;


# Our decode string
#my @decode = (67,111,112,121,114,105,103,104,116,32,169,32,50,48,48,5
+0,32,65,99,116,105,118,101,83,116,97,116,101,32,84,111,111,108,32,67,
+111,114,112,46);
#my $key = 'Copyright © 2000 ActiveState Tool Corp.';
my $key = 'Copyright © ActiveState Corp 2001-2002.';
#my $key = 'Copyright © 2002 ActiveState Tool Corp.';
#my $key = 'Copyright (C) 2002 NewsEdge Corp';
#my $key = ' ';
my @keystring = split //, $key;
foreach my $num (@keystring) {
    push @decode, ord($num);
}

print "@decode\n\n@encodedstring\n";

# Our unecoded string
my @unencoded;

for my $char (@encoded){
# XOR the encoded string with the decode character
    push @unencoded, ($char ^ $decode[0]);
# Rotate the decode string
    push @decode, shift @decode;
}

for my $char (@unencoded){
    if ($char == 10){
# Print a newline if the charater is 10
        print "\n";
    } else {
# Print out the unencoded string
        #print chr($char);
        print chr($char);
    }
}
[download]