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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
#!/usr/bin/perl -w
#
# $Id: get_secret_keys.t,v 1.9 2001/05/03 06:00:06 ftobin Exp $
#
use strict;
use English qw( -no_match_vars );
use lib './t';
use MyTest;
use MyTestSpecific;
use GnuPG::PrimaryKey;
my ( $given_key, $handmade_key );
TEST
{
reset_handles();
my @returned_keys = $gnupg->get_secret_keys( '0x93AFC4B1B0288A104996B44253AE596EF950DA9C' );
return 0 unless @returned_keys == 1;
$given_key = shift @returned_keys;
my $pubkey_data = [
Math::BigInt->from_hex('0x'.
'88FCAAA5BCDCD52084D46143F44ED1715A339794641158DE03AA2092AFD3174E3DCA2CB7DF2DDC6FEDF7C3620F5A8BDAD06713E6153F8748DD76CB97305F30CBA8F8801DB47FAC11EED725F55672CB9BDAD629178A677CBB089B3E8AE0D9A9AD7741697A35F2868C62D25670994A92D810480173DC24263EEA0F103A43C0B64B'),
Math::BigInt->from_hex('0x'.
'8F2A3842C70FF17660CBB78C78FC93F534AB9A17'),
Math::BigInt->from_hex('0x'.
'83E348C2AA65F56DE84E8FDCE6DA7B0991B1C75EC8CA446FA85869A43350907BFF36BE512385E8E7E095578BB2138C04E318495873218286DE2B8C86F36EA670135434967AC798EBA28581F709F0C6B696EB512D3E561E381A06E4B5239BCC655015F9A926C74E4B859B26EAD604F208A556511A76A40EDCD9C38E6BD82CCCB4'),
Math::BigInt->from_hex('0x'.
'80DE04C85E30C9D62C13F90CFF927A84A5A59D0900B3533D4D6193FEF8C5DAEF9FF8A7D5F76B244FBC17644F50D524E0B19CD3A4B5FC2D78DAECA3FE58FA1C1A64E6C7B96C4EE618173543163A72EF954DFD593E84342699096E9CA76578AC1DE3D893BCCD0BF470CEF625FAF816A0F503EF75C18C6173E35C8675AF919E5704')
];
my $args = {
length => 1024,
algo_num => 17,
hex_id => '53AE596EF950DA9C',
creation_date => 949813093,
creation_date_string => '2000-02-06',
owner_trust => '-',
usage_flags => 'scaESCA',
pubkey_data => $pubkey_data,
};
if ($gnupg->cmp_version($gnupg->version, '2.1') < 0) {
# older versions don't report ownertrust or pubkey_data for secret keys:
delete $args->{pubkey_data};
$args->{owner_trust} = '';
}
$handmade_key = GnuPG::PrimaryKey->new($args);
$handmade_key->fingerprint
( GnuPG::Fingerprint->new( as_hex_string =>
'93AFC4B1B0288A104996B44253AE596EF950DA9C',
)
);
$handmade_key->push_user_ids(
GnuPG::UserId->new( as_string => 'GnuPG test key (for testing purposes only)',
validity => $args->{owner_trust}),
GnuPG::UserId->new( as_string => 'Foo Bar (1)',
validity => $args->{owner_trust}));
my $revoker = GnuPG::Revoker->new
( algo_num => 17,
class => 0x80,
fingerprint => GnuPG::Fingerprint->new( as_hex_string =>
'4F863BBBA8166F0A340F600356FFD10A260C4FA3'),
);
my $subkey_pub_data = [
Math::BigInt->from_hex('0x'.
'8831982DADC4C5D05CBB01D9EAF612131DDC9C24CEA7246557679423FB0BA42F74D10D8E7F5564F6A4FB8837F8DC4A46571C19B122E6DF4B443D15197A6A22688863D0685FADB6E402316DAA9B560D1F915475364580A67E6DF0A727778A5CF3'),
Math::BigInt->from_hex('0x'.
'6'),
Math::BigInt->from_hex('0x'.
'2F3850FF130C6AC9AA0962720E86539626FAA9B67B33A74DFC0DE843FF3E90E43E2F379EE0182D914FA539CCCF5C83A20DB3A7C45E365B8A2A092E799A3DFF4AD8274EB977BAAF5B1AFB2ACB8D6F92454F01682F555565E73E56793C46EF7C3E')
];
my $sub_args = {
validity => '-',
length => 768,
algo_num => 16,
hex_id => 'ADB99D9C2E854A6B',
creation_date => 949813119,
creation_date_string => '2000-02-06',
usage_flags => $gnupg->cmp_version($gnupg->version, '2.3.8') >= 0 ? 'er' : 'e',
pubkey_data => $subkey_pub_data,
};
if ($gnupg->cmp_version($gnupg->version, '2.1') < 0) {
# older versions do not report pubkey data for secret keys
delete $sub_args->{pubkey_data};
}
my $subkey = GnuPG::SubKey->new($sub_args);
$subkey->fingerprint
( GnuPG::Fingerprint->new( as_hex_string =>
'7466B7E98C4CCB64C2CE738BADB99D9C2E854A6B',
)
);
$handmade_key->push_subkeys( $subkey );
# older versions do not report designated revokers for secret keys
$handmade_key->push_revokers( $revoker ) if ($gnupg->cmp_version($gnupg->version, '2.1') >= 0);
$handmade_key->compare( $given_key );
};
TEST
{
$handmade_key->compare( $given_key, 1 );
};
|
