http://www.perlmonks.org?node_id=650737

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello all,

I'm using Crypt::OpenPGP on Win32 and am running in to some problems and really don't know where to go from here.

(I'd like to use a pure Perl PGP package so that I can automatically decrypt then process PGP files, without having to have extract software installed in the production environment. But if anyone has a different package to suggest, I'm open for it.)

I minimized a script I am writing down to only reading the file in (binmode) and trying to pass it on to the decrypt method. After fixing the blocksize problem (see post 335536), I get the message "No packets found in message" even though there is data in the file.

Any suggestions to how to resolve this? I will post code if someone requests, but since it is all for work, I'd have to change portions. Let me know if you need the visual.

The test file is an ASCII .txt file, only contents is a single letter ('r'), encrypted using PGP v8.0.3 for windows. ActiveState dist 5.8.8 build 822.

Thanks, Matthew