Hi all,
I'm trying to take a bit of input and encrypt it via
GnuPG. I'm using Crypt::GPG to interface with it, and
its driving me batty.
Here's the code:
#!/usr/bin/perl -w
use strict;
use Crypt::GPG;
my $gpg = new Crypt::GPG;
$gpg->gpgbin('/usr/local/bin/gpg');
$gpg->gpgopts('--no-secmem-warning');
my $message = "This is a top secret message! I really,
really hope that this works.";
my $encrypted =
$gpg->encrypt("$message",'[EMAIL PROTECTED]');
open (FH, "> /home/markr/perl/fh.gpg") || die "Can't
output!";
print FH $encrypted;
close FH;
exit();
I get this output to the terminal:
Use of uninitialized value in concatenation (.) or
string at
/usr/local/lib/perl5/site_perl/5.6.1/Crypt/GPG.pm line
128.
gpg: /tmp/fileC7m1ra: WARNING: empty file
------BEGIN PGP MESSAGE----
<snip, gpg block </snip>
------END PGP MESSAGE------
(in cleanup) Could not AUTOLOAD method DESTORY, at
crypt.pl line 0
The use of uninitialized value and the AUTOLOAD have
me concerned, especially since I'm not sure what that
means.
And, most importantly, the GPG block is written to my
file, and it looks like it worked. But, when I try to
decrypt it via command line gpg, I get back a blank
file.
I get the feeling that I'm missing something
fundamentally important here. Please help!
Thanks,
--Mark.
__________________________________________________
Do You Yahoo!?
Get email alerts & NEW webcam video instant messaging with Yahoo! Messenger
http://im.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
