Thanks for your help.
I just tried, Surprisingly the fix does not work. It seems that the fix
does not have any effect at all. I am still getting the same error.
I attached a very simple test perl script called testpp.pl. I attached the
two dlls used as well.
testpp.pl is very simple, only 10 lines. It just visita a https site and
sleep after that.
I compiled it into exe file using the following command on windows XP.
pp -l C:/WINDOWS/system32/ssleay32.dll -l C:/WINDOWS/system32/libeay32.dll
-f Bleach -f Obfuscate -o testpp.exe testpp.pl
ssleay32.dll and libeay32.dll are the standard ddls from openssl. You can
download it from internet. I tried to attach them in email but they are
too big. Let me know if you need the dlls from me directly. I can put the
dlls somewhere for you to download.
Please help !!!
Thanks a lot
On 1/7/08, Steffen Mueller <[EMAIL PROTECTED]> wrote:
>
> Hi Scott, hi Henry,
>
> Scott Stanton schrieb:
> > Ideally we'd hash the file contents, but that's going to be too slow to
> > do on every startup. Checking the expected size is a good compromise.
> > It's a fast sanity check that should catch the most common problems.
>
> exactly: hashing is not an option because of performance. I just applied
> the attached patch instead of your proposed one: (Just adding the -s)
>
> Henry: Does this solve your problem? Can you try the PAR::Packer from
> Subversion (http://svn.openfoundry.org/par/PAR-Packer/trunk)?
>
> Cheers,
> Steffen
>
> --- script/par.pl 2008-01-07 22:44:49.000000000 +0100
> +++ par.pl 2008-01-07 22:44:44.000000000 +0100
> @@ -696,8 +696,13 @@
> }x;
> my $extract_name = $1;
> my $dest_name = File::Spec->catfile($ENV{PAR_TEMP},
> $extract_name);
> - $member->extractToFileNamed($dest_name);
> - outs(qq(Extracting "$member_name" to "$dest_name"));
> + if (! -f $dest_name or -s _ != $member->uncompressedSize()) {
> + $member->extractToFileNamed($dest_name);
> + outs(qq(Extracting "$member_name" to "$dest_name"));
> + } else {
> + outs(qq(Skipping "$member_name" since it already exists
> +at "$dest_name"));
> + }
> }
> }
> # }}}
>
>
use HTTP::Request::Common;
use WWW::Mechanize;
my $ua = WWW::Mechanize->new();
{
$ua->agent('Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 4.0)');
push @{ $ua->requests_redirectable }, 'POST';
}
my $_res1 = $ua->request(GET ("https://us.etrade.com/e/t/home";));
print "sleeping ....\n";
sleep(6000);
