Opened by Wlet at 2006-06-01 17:23
User since
2006-05-24
15 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-05-24
15 Artikel
BenutzerIn
Hallo,
ich experimentiere gerade mit dem Modul Crypt::OpenPGP, und habe ein wirklich seltsames Problem.
Folgende Vorgehensweise:
Perlskript verschlüsselt Mithilfe Crypt::OpenPGP eine Nachricht. Ich kopiere Sie ins Clipboard, und mit WinPT(wahlweise auch gpg von der Kommandozeile) entschlüssle ich die Nachricht. Klappt wunderbar!
Umgekehrter Weg:
Ich verschlüssle mittels WinPT(GnuPG wahlweise auch gpg von der Kommandozeile), und will mit dem Perlskript entschlüsseln.
Ich bekomme den Fehler: Symkey decrypt failed: Invalid secret key ID
Könnte das evtl mal jemand mit diesem Skript verifizieren, bzw. mir sagen, was ich falsch mache?
in der Datei cifigpg.gpg liegt der ASCII-Armored Ciphertext. Die KeyID sollte natürlich entsprechend gesetzt sein.
Testweise habe ich in der gpg.conf den Parameter
no-force-v3-sigs und openpgp gesetzt. DAs brachte keine Änderung.
cu
Wlet
ich experimentiere gerade mit dem Modul Crypt::OpenPGP, und habe ein wirklich seltsames Problem.
Folgende Vorgehensweise:
Perlskript verschlüsselt Mithilfe Crypt::OpenPGP eine Nachricht. Ich kopiere Sie ins Clipboard, und mit WinPT(wahlweise auch gpg von der Kommandozeile) entschlüssle ich die Nachricht. Klappt wunderbar!
Umgekehrter Weg:
Ich verschlüssle mittels WinPT(GnuPG wahlweise auch gpg von der Kommandozeile), und will mit dem Perlskript entschlüsseln.
Ich bekomme den Fehler: Symkey decrypt failed: Invalid secret key ID
Könnte das evtl mal jemand mit diesem Skript verifizieren, bzw. mir sagen, was ich falsch mache?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/usr/bin/perl
use Data::Dumper;
use Crypt::OpenPGP;
my $pgp = Crypt::OpenPGP->new(Compat => 'GnuPG',
PubRing => '/root/.gnupg/pubring.gpg',
SecRing => '/root/.gnupg/secring.gpg',
ConfigFile => '/root/.gnupg/gpg.conf',
);
my $plain = 'hallo';
my $key_id="7B9635D9";
my $ciphertext = $pgp->encrypt(
Data => $plain,
Recipients => $key_id,
Armour => 1,
);
open (CIFI, ">cifi.gpg");
print CIFI $ciphertext;
close (CIFI);
my $result = $pgp->handle( Filename => 'cifigpg.gpg' );
print Dumper($result);
die "Decryption failed: ", $pgp->errstr unless $pt;
in der Datei cifigpg.gpg liegt der ASCII-Armored Ciphertext. Die KeyID sollte natürlich entsprechend gesetzt sein.
Testweise habe ich in der gpg.conf den Parameter
no-force-v3-sigs und openpgp gesetzt. DAs brachte keine Änderung.
cu
Wlet