note
jaf0faj
<p>OK, I have been banging my head over the last little while trying to get GPG working through PERL and finally came across this gem of a tutorial. Thank you!</p>
<p>My only issue is that I still cannot get it to work. In an attempt to emulate the tutorial on my machine, I created two scripts <tt>trialencode</tt> and <tt>trialdecode</tt>, listed here</p>
<code>
#################
## trialencode ##
#################
use strict;
use GPG;
my $gpg = new GPG(homedir => '/home/jaf/.gnupg');
my $plain="ARGHH!!";
my $phrase=$gpg->encrypt($plain,"jaf0faj\@xxxxxxx");
die $gpg->error() if $gpg->error();
print "Plain: $plain\n\nEncoded:\n$phrase\n";
open (OUT, ">trialencoded");
print OUT $phrase;
close (OUT);
</code>
<code>
#################
## trialdecode ##
#################
use strict;
use GPG;
my $gpg = new GPG(homedir => '/home/jaf/.gnupg');
open (IN, "trialencoded");
my $phrase=join("",<IN>);
close(IN);
my $message=$gpg->decrypt('HtfdIggtw?',$phrase);
print "\n==========================\n\nEncoded:\n$phrase\n\nDecoded: [$message]\n";
print "\n\n\$gpg->error message: ".$gpg->error() if $gpg->error();
</code>
<p>When I run them consecutively via "<tt>perl trialencode && perl trialdecode</tt>" encoding works fine, but decoding fails. Here is the output from this:<br><br>
<tt>
Plain: ARGHH!!<br>
<br>
Encoded:<br>
-----BEGIN PGP MESSAGE-----<br>
<br>
hIwDZMVp08Pd6AkBA/9RMIUI66urMEDQXgwgaQC6K4u2v5RCt8N7iMW/a+W5xnWI<br>
ZTInl912BtPs/KZTJvfDEjkjqSc0vrzPZzoT2EMDgjwwPh+uNe2z8PHFALTDUGpb<br>
x+EfIi0etb+4QlWL+MkHFoIeB1ZgTb2zEz7sIndrUEBf2MqF3mpZyrFISdAJPNJC<br>
AaS/x6aTC1hRIs0kYjf9m/laq29bebfsZUPEUR9fDuQeR8bD6KVEn3TT+7Chlv7E<br>
a7Uh1x041RlG/BTareLke0qq<br>
=0kR7<br>
-----END PGP MESSAGE-----<br>
<br>
==========================<br><br>
Encoded:<br>
-----BEGIN PGP MESSAGE-----<br>
<br>
hIwDZMVp08Pd6AkBA/9RMIUI66urMEDQXgwgaQC6K4u2v5RCt8N7iMW/a+W5xnWI<br>
ZTInl912BtPs/KZTJvfDEjkjqSc0vrzPZzoT2EMDgjwwPh+uNe2z8PHFALTDUGpb<br>
x+EfIi0etb+4QlWL+MkHFoIeB1ZgTb2zEz7sIndrUEBf2MqF3mpZyrFISdAJPNJC<br>
AaS/x6aTC1hRIs0kYjf9m/laq29bebfsZUPEUR9fDuQeR8bD6KVEn3TT+7Chlv7E<br>
a7Uh1x041RlG/BTareLke0qq<br>
=0kR7<br>
-----END PGP MESSAGE-----<br>
<br>
Decoded: []<br>
<br>
$gpg->error message: gpg: encrypted with 1024-bit RSA key, ID C3DDE809, created 2012-03-13<br>
"Jaf O Faj (Testing sundry perl GPG packages) <jaf0faj@xxxxxxx>"<br>
</tt>
<br><br>What am I doing wrong? BTW, if I perform a "<tt>gpg --decrypt trialencoded</tt> on the command line, where <tt>trialencoded</tt> is the dump of the encoded phase generated in <tt>trialencode</tt>, <tt>gpg</tt> successfully decodes the text, as shown below (using <tt>HtfdIggtw?</tt> as the passphrase for the secret key)!<br><br>
<tt>
gpg --decrypt trialencoded <br>
<br>
You need a passphrase to unlock the secret key for<br>
user: "Jaf O Faj (Testing sundry perl GPG packages) <jaf0faj@xxxxxxx>"<br>
1024-bit RSA key, ID C3DDE809, created 2012-03-13 (main key ID B5A7838C)<br>
<br>
gpg: encrypted with 1024-bit RSA key, ID C3DDE809, created 2012-03-13<br>
"Jaf O Faj (Testing sundry perl GPG packages) <jaf0faj@xxxxxxx>"<br>
ARGHH!!
</tt>
</P>
152489
152489