my( $signer , $sigobj ) = $pgp->verify( Signature => $sig );
use DDS; die Dump( [ $key_id , $sigobj->key_id, unpack('H*', $sigo
+bj->key_id ) , pack('H*',$key_id) ] );
$ARRAY1 = [
'39F560A90D7F1559',
"9\365`\251\r\177\25Y",
'39f560a90d7f1559',
"9\365`\251\r\177\25Y"
];
I don't know if keyid is supposed to be 8 or 10 or 16, but the round trip with pack seems to work , so key_id is correct, and the hex representation is correct
AFAIK printf would actually try to convert it, which might overflow as in $ perl -le " print 0x39f560a90d7f1559
Integer overflow in hexadecimal number at -e line 1.
4.17635050864817e+018
Maybe this is the private key, and you're looking for the public key? Maybe it depends on algorithm? :) |