Stumped by Crypt::OpenPGP::Signature->key

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

Fellow Monks!

In trying to verify a PGP signature and determine the Key ID of the signing key, I have been stumped by the strange format I encountered in reading out that Key ID.

Expecting to find it in the usual hex format, I instead was offered 'key_id' => 'yp▒▒▒▒▒'. To me this is especially confusing as accoring to the docs when creating a signature, you are supposed to enter the Key-ID as an 8- or 16-digit hex number.

Here's a code snippet:

use Crypt::OpenPGP;
...
my $pgp = Crypt::OpenPGP->new;
my($userid,$sigobj) = $pgp->verify(
        Signature       =>      $mailbody,
        Data            =>      $mailbody,
);
unless(defined $userid){
        done(1,"Could not verify signature.");
}
printf("KeyID: 0x%x\nUserID:%s\n",$sigobj->key_id, $userid);
[download]

Output:

Argument "ypM-&M-^W^]M-^UM-\rM-^W" isn't numeric in printf at ./script.pl line 118.
KeyID: 0x0
UserID:Test Key <testkey@example.com>

How can I get the Key-ID in hex? Am I just not seeing it? I would be delighted to be enlightened. :-)

Update/Correction: Input of course would be an 8- or 16-digit hex no., not 10 as I previously wrote.

Comment on Stumped by Crypt::OpenPGP::Signature->key_id Download Code

Replies are listed 'Best First'.
Re: Stumped by Crypt::OpenPGP::Signature->key_id by Anonymous Monk on Nov 22, 2011 at 11:18 UTC
Last time we danced the key-file formats had some issues ( see Crypt OpenPGP Brain twister ) Anyway, http://search.cpan.org/grep?cpanid=BTROTT&release=Crypt-OpenPGP-1.06&string=_id&i=1&n=1&C=0 `13: # secret key $key_id, protected with the passphrase $pass. 15: my $key_id = '...'; 19: KeyID => $key_id, 32: # Using the public key associated with $key_id, encrypt the + contents 36: Recipients => $key_id, 93: Recipients => $key_id, 278: substr($cert->key_id_hex, -8, 8); 399: push @return, $cert unless $BAD_KEYS{ $cert->k +ey_id_hex }; 576: $cert->key_id_hex;` [download] Try ->key_id_hex	[reply] [d/l]
Re^2: Stumped by Crypt::OpenPGP::Signature->key_id by mhi (Friar) on Nov 22, 2011 at 11:49 UTC
Sorry, but I don't see how that helps. The node mentioned has nothing to do with the issue at hand. The Searchlink doesn't work. There is no Crypt::OpenPGP::Signature->key_id_hex but only Crypt::OpenPGP::Signature->key_id and Crypt::OpenPGP::Certificate->key_id_hex	[reply]
Re^3: Stumped by Crypt::OpenPGP::Signature->key_id by Anonymous Monk on Nov 22, 2011 at 11:57 UTC
The node mentioned has nothing to do with the issue at hand. Yup, just nostalgia The Searchlink doesn't work. Sorry if you have to copy/paste, at least I made it tab-key navigable (couldn't have posted the link otherwise ) There is no Crypt::OpenPGP::Signature->key_id_hex Too bad, it was worth a shot Anyway, hex of anything is `$ perl -le " print unpack qw/H*/, $_ for @ARGV; " 1 aSdF82 31 615364463832` [download]	[reply] [d/l]
Re^4: Stumped by Crypt::OpenPGP::Signature->key_id by mhi (Friar) on Nov 22, 2011 at 12:14 UTC
Re^5: Stumped by Crypt::OpenPGP::Signature->key_id by Anonymous Monk on Nov 22, 2011 at 13:08 UTC
Some notes below your chosen depth have not been shown here
Re^3: Stumped by Crypt::OpenPGP::Signature->key_id by Anonymous Monk on Nov 24, 2011 at 12:57 UTC
Patches Welcome™ . . .	[reply]
Re^4: Stumped by Crypt::OpenPGP::Signature->key_id by mhi (Friar) on Nov 24, 2011 at 20:00 UTC

Back to Seekers of Perl Wisdom