On 16 May, 07:29, [EMAIL PROTECTED] (Misoldgit) wrote:
> On 16 May, 00:31, [EMAIL PROTECTED] (M.Nooning) wrote:
>
>
>
>
>
> > misoldgit wrote:
> > > Hi,
>
> > > I have a program that uses Crypt::OpenPGP to encrypt and decrypt files
> > > on our company server. I need to pp the program to create a .exe as I
> > > do not want Perl installed on the server. I have written the program
> > > and it works fine on a test workstation in native Perl but fails when
> > > 'Parl'ed using pp.bat.
>
> > > I've recreated the core of the program and can re-create the problem.
>
> > > The following program works fine when run in native Perl but fails
> > > with a 'No known recipients for encryption' error when the 'pp'ed .exe
> > > file is run.
>
> > > The program refers to 'pubring.gpg' which is a GPG-compliant keyring
> > > file containing a valid public key for [EMAIL PROTECTED] This was
> > > created using the GPG program.
>
> > > Am I missing something (it has been known) or is there a bug here?
>
> > > Perl is ActiveState version 5.8.8.817
> > > used 'ppm' to install PAR-588 version 0.959
>
> > > Incidently, after upgrading PAR-588 to the latest version I could get,
> > > I had to individually install Getopt-ArgvFile [1.09] to get pp to run
> > > without errors
>
> > > TIA,
>
> > > Program is:
> > > #!/bin/perl -w
>
> > > # test encryption script
>
> > > use Crypt::OpenPGP;
>
> > > my ($infile, $result, $outfile, $temp);
>
> > > my $pgp = Crypt::OpenPGP->new( Compat => "GnuPG",
> > > SecRing => "secring.gpg", PubRing =>
> > > "pubring.gpg",
> > > );
> > > if (defined($pgp)) {
> > > print "\$pgp created OK\n\n";
> > > } else {
> > > print "\$pgp not created for some reason\n\n";
> > > }
>
> > > if (-e 'pubring.gpg') {
> > > print "pubring.gpg exists OK\n";
> > > }
>
> > > print "Input file to be encrypted: ";
> > > $infile = <STDIN>;
> > > chomp $infile;
>
> > > $result = $pgp->encrypt( Filename => $infile,
> > > Recipients => "[EMAIL PROTECTED]"
> > > );
>
> > > if (defined($result)) {
> > > print "File encrypted OK\n";
> > > } else {
> > > print "There was a problem encrypting the file\n";
> > > if (defined(${$pgp}{_errstr})) {
> > > print "Error: ${$pgp}{_errstr}\n";
> > > }
> > > }
>
> > > if (defined($result)) {
> > > $outfile = $infile . ".enc";
> > > open(OUTFILE, ">", $outfile) || die "cant open file: $!";
> > > binmode OUTFILE;
> > > print OUTFILE $result;
> > > close(OUTFILE);
> > > print "Encrypted data written to file.\n";
> > > }
>
> > Hello,
>
> > Before I state where I am at in this, let me state that there was a bug
> > or two that was fixed in the Par::Packer. You may want to try the new
> > PAR and PP 0.975.
>
> > I am trying to duplicate your symptoms on Windows XP, ActiveState 5.8.8
> > build 820, PAR/PP 0.975. That means installing Crypt::OpenPGP. To do
> > that I need to install Crypt::DSA and Crypt::RSA. I am getting stuck on
> > installing Crypt::DSA.
>
> > Test t/02-sign took over a minute using 98% cpu time. I got the message
> > pasted below, but it eventually passed.
> > -------------paste warning message
> > t/02-sign.......Name "Crypt::DSA::KeyChain::NULL" used only once:
> > possible typo at ?? line 40.
> > which: no openssl.exe in
> > (C:\Perl\site\bin;C:\Perl\bin;C:\MinGW\bin;C:\Perl\bin\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Documents
> > and Settings\malcolm\My Documents\utils;C:\Program
> > Files\GNU\GnuPG;C:\Program
> > Files\Aspell\bin;C:\UnxUtils\usr\local\wbin;C:\Program
> > Files\Subversion\bin;C:\Program Files\QuickTime\QTSystem\)
> > -------------end paste warning message
>
> > The same thing happened with t/03-keygen, except that after 5 minutes at
> > 98% cpu time I killed the process. Nothing seemed happening. Is this
> > normal behaviour? How did you get past this? Did you have problems
> > installing Crypt::DSA? I have a 2GHz, 1Gig memory machine!
>
> > Thanks- Hide quoted text -
>
> > - Show quoted text -
>
> Hi,
>
> First thanks for taking the time to help.
>
> The latest I could find was on Randy Kobes repository and that the one
> that's installed. If there were bugs fixed then let me get an even
> newer version installed and try that before I take up more of your
> valuable time.
>
> It was quite a while back that I installed Crypt::OpenPGP but I dont
> recall having to install Crypt::DSA or RSA individually, however that
> said if I query my installation I do have them installed.
>
> As I say let me confirm that this isnt a bug that's already fixed.
>
> Thanks again,- Hide quoted text -
>
> - Show quoted text -
OK I've now installed Activestate Perl 5.8.8.820 and installed the
modules as follows and the problem still exists. i.e. I get an error
'No known recipients for encryption' when encrypting with the packaged
perl program but it runs fine natively.
Versions are:
┌───────────────────┬─────────┬──────────┬──────┐
│ name │ version │ abstract │ area │
├───────────────────┼─────────┼──────────┼──────┤
│ Crypt-Blowfish │ 2.10 │ │ site │
│ Crypt-CAST5_PP │ 1.03 │ │ site │
│ Crypt-CBC │ 2.19 │ │ site │
│ Crypt-DES │ 2.05 │ │ site │
│ Crypt-DES_EDE3 │ 0.01 │ │ site │
│ Crypt-DES_PP │ 1.00 │ │ site │
│ Crypt-DSA │ 0.14 │ │ site │
│ Crypt-IDEA │ 1.08 │ │ site │
│ Crypt-OpenPGP │ 1.03 │ │ site │
│ Crypt-Primes │ 0.50 │ │ site │
│ Crypt-RIPEMD160 │ 0.04 │ │ site │
│ Crypt-RSA │ 1.57 │ │ site │
│ Crypt-Random │ 1.25 │ │ site │
│ Crypt-Rijndael │ 0.05 │ │ site │
│ Crypt-Twofish │ 2.12 │ │ site │
│ Tie-EncryptedHash │ 1.8 │ │ site │
└───────────────────┴─────────┴──────────┴──────┘
┌──────────────┬──────────┬─────────────────────────────────────────┬──────┐
│ name │ version │ abstract │
area │
├──────────────┼──────────┼─────────────────────────────────────────┼──────┤
│ HTML-Parser │ 3.56 │ Parsing of HTML documents │
perl │
│ Math-Pari │ 2.010603 │ │
site │
│ PAR │ 0.90 │ Perl Archive Tookit │
site │
│ PAR-Dist │ 0.22 │ Create and manipulate PAR distributions │
site │
│ PAR-Packer │ 0.973 │ PAR Packager │
site │
│ Parse-Binary │ 0.10 │ │
site │
│ XML-Parser │ 2.34-r1 │ Parsing of XML documents │
perl │
└──────────────┴──────────┴─────────────────────────────────────────┴──────┘
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 50 registered patches, see perl -V for more detail)
Copyright 1987-2006, Larry Wall
Binary build 820 [274739] provided by ActiveState http://www.ActiveState.com
Built Jan 23 2007 15:57:46
Thanks and regards,
