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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
use strict;
use warnings;
use Test::More tests => 62;
use Crypt::PK::DSA qw(dsa_encrypt dsa_decrypt dsa_sign_message dsa_verify_message dsa_sign_hash dsa_verify_hash);
use Crypt::Misc 'decode_b64';
{
my $k;
$k = Crypt::PK::DSA->new('t/data/cryptx_priv_dsa1.der');
ok($k, 'load cryptx_priv_dsa1.der');
ok($k->is_private, 'is_private cryptx_priv_dsa1.der');
is($k->size, 256, 'size');
is(uc($k->key2hash->{x}), '6C801901AC74E2DC714D75A9F6969483CF0239D142AB7E3F329ED8D49E07', 'key2hash');
$k = Crypt::PK::DSA->new('t/data/cryptx_priv_dsa2.der');
ok($k, 'load cryptx_priv_dsa2.der');
ok($k->is_private, 'is_private cryptx_priv_dsa2.der');
$k = Crypt::PK::DSA->new('t/data/cryptx_pub_dsa1.der');
ok($k, 'load cryptx_pub_dsa1.der');
ok(!$k->is_private, 'is_private cryptx_pub_dsa1.der');
$k = Crypt::PK::DSA->new('t/data/cryptx_pub_dsa2.der');
ok($k, 'load cryptx_pub_dsa2.der');
ok(!$k->is_private, 'is_private cryptx_pub_dsa2.der');
$k = Crypt::PK::DSA->new('t/data/openssl_dsa1.der');
ok($k, 'load openssl_dsa1.der');
ok($k->is_private, 'is_private openssl_dsa1.der');
$k = Crypt::PK::DSA->new('t/data/openssl_dsa2.der');
ok($k, 'load openssl_dsa2.der');
ok($k->is_private, 'is_private openssl_dsa2.der');
$k = Crypt::PK::DSA->new('t/data/cryptx_priv_dsa1.pem');
ok($k, 'load cryptx_priv_dsa1.pem');
ok($k->is_private, 'is_private cryptx_priv_dsa1.pem');
$k = Crypt::PK::DSA->new('t/data/cryptx_priv_dsa2.pem');
ok($k, 'load cryptx_priv_dsa2.pem');
ok($k->is_private, 'is_private cryptx_priv_dsa2.pem');
$k = Crypt::PK::DSA->new('t/data/cryptx_pub_dsa1.pem');
ok($k, 'load cryptx_pub_dsa1.pem');
ok(!$k->is_private, 'is_private cryptx_pub_dsa1.pem');
$k = Crypt::PK::DSA->new('t/data/cryptx_pub_dsa2.pem');
ok($k, 'load cryptx_pub_dsa2.pem');
ok(!$k->is_private, 'is_private cryptx_pub_dsa2.pem');
$k = Crypt::PK::DSA->new('t/data/openssl_dsa1.pem');
ok($k, 'load openssl_dsa1.pem');
ok($k->is_private, 'is_private openssl_dsa1.pem');
$k = Crypt::PK::DSA->new('t/data/openssl_dsa2.pem');
ok($k, 'load openssl_dsa2.pem');
ok($k->is_private, 'is_private openssl_dsa2.pem');
}
{
my $pr1 = Crypt::PK::DSA->new;
$pr1->import_key('t/data/cryptx_priv_dsa1.der');
my $pu1 = Crypt::PK::DSA->new;
$pu1->import_key('t/data/cryptx_pub_dsa1.der');
my $ct = $pu1->encrypt("secret message");
my $pt = $pr1->decrypt($ct);
ok(length $ct > 200, 'encrypt ' . length($ct));
is($pt, "secret message", 'decrypt');
#XXX-FIXME somwhere here a crash happens on solaris - http://ppm4.activestate.com/sun4-solaris/5.14/1400/M/MI/MIK/CryptX-0.017.d/log-20130924T103600.txt
my $sig = $pr1->sign_message("message");
ok(length $sig > 60, 'sign_message ' . length($sig));
ok($pu1->verify_message($sig, "message"), 'verify_message');
my $hash = pack("H*","04624fae618e9ad0c5e479f62e1420c71fff34dd");
$sig = $pr1->sign_hash($hash);
ok(length $sig > 60, 'sign_hash ' . length($sig));
ok($pu1->verify_hash($sig, $hash), 'verify_hash');
my $pr2 = Crypt::PK::DSA->new;
$pr2->import_key('t/data/cryptx_priv_dsa2.der');
my $pu2 = Crypt::PK::DSA->new;
$pu2->import_key('t/data/cryptx_pub_dsa2.der');
#my $ss1 = $pr1->shared_secret($pu2);
#my $ss2 = $pr2->shared_secret($pu1);
#is(unpack("H*",$ss1), unpack("H*",$ss2), 'shared_secret');
}
{
my $k = Crypt::PK::DSA->new;
$k->generate_key(\<<"MARKER");
-----BEGIN DSA PARAMETERS-----
MIICLAKCAQEA3dZSaDnP5LgH44CDYc2wfGLtq4rbBgtOVvLkvh4j29CTiOUDRC1H
ivkTdtGrI3DdrAFeKieFYDJ1RJFbru+8/RYE7YfaR5Y3OUI4Vdf26guMViLLVjSL
W43Td50ZZziLmmYzn3cliokShe9f5/mtuLJ0uJRq7QxgHj7bgmvJvORvi4QXSCOn
nmCOgEfhoU1Vj/PePjtjeZWbLyGFXHC7vpvqePrsFtbUlBzIr2mr7JuHB3rAl7A4
1VL6lexqONRa4rQuVxiX0vp3iit9Cx02EwrZODdlifssd9Kceu2UsvifjmCBPyv8
6nmmEOtxh/xduuOBtVWXeZHSwIDUQvSJFwIhAK/ZDSl9iNuZ/TRwqQ3JRU3MjXCU
/US6/LU1qqjQATk7AoIBACoqauphNZmUZYOilArBfYCMtUwS0FNG6wfUMWDMd46z
/hv7equa9b75sT1uHyiUVuPD2hRhR3xNYkKSX9Kx8NGKj/bGDyaEW+Ud852N6BTo
9vzZ4GjKVBGe44Wa8eynVgVE5/r0z6OfHkV7uOxlGEdYgIooUbIsY7w0DmaR2FVZ
AMjGMg+L6CpulfvdETYi9LQafY4jRkgGWTc9h/2RYGhQUti1PheY1AlDYpubO8am
ZBG6vMBaANLx6Pv+lle4ltVvDVhwTK5APyfN1vVdEvVmU1/6zHZEnuiDAT8XI1rH
S1+SGX11RIn6uPVL1c0RjgW8/JZ6EeM8NvLdBiYYBuI=
-----END DSA PARAMETERS-----
MARKER
ok($k, 'generate_key PEM');
ok($k->is_private, 'is_private');
ok($k->export_key_pem('private'), 'export_key_pem pri');
ok($k->export_key_pem('public'), 'export_key_pem pub');
ok($k->export_key_der('private'), 'export_key_der pri');
ok($k->export_key_der('public'), 'export_key_der pub');
}
{
my $k = Crypt::PK::DSA->new;
$k->generate_key(\decode_b64(<<"MARKER"));
MIICLAKCAQEA3dZSaDnP5LgH44CDYc2wfGLtq4rbBgtOVvLkvh4j29CTiOUDRC1H
ivkTdtGrI3DdrAFeKieFYDJ1RJFbru+8/RYE7YfaR5Y3OUI4Vdf26guMViLLVjSL
W43Td50ZZziLmmYzn3cliokShe9f5/mtuLJ0uJRq7QxgHj7bgmvJvORvi4QXSCOn
nmCOgEfhoU1Vj/PePjtjeZWbLyGFXHC7vpvqePrsFtbUlBzIr2mr7JuHB3rAl7A4
1VL6lexqONRa4rQuVxiX0vp3iit9Cx02EwrZODdlifssd9Kceu2UsvifjmCBPyv8
6nmmEOtxh/xduuOBtVWXeZHSwIDUQvSJFwIhAK/ZDSl9iNuZ/TRwqQ3JRU3MjXCU
/US6/LU1qqjQATk7AoIBACoqauphNZmUZYOilArBfYCMtUwS0FNG6wfUMWDMd46z
/hv7equa9b75sT1uHyiUVuPD2hRhR3xNYkKSX9Kx8NGKj/bGDyaEW+Ud852N6BTo
9vzZ4GjKVBGe44Wa8eynVgVE5/r0z6OfHkV7uOxlGEdYgIooUbIsY7w0DmaR2FVZ
AMjGMg+L6CpulfvdETYi9LQafY4jRkgGWTc9h/2RYGhQUti1PheY1AlDYpubO8am
ZBG6vMBaANLx6Pv+lle4ltVvDVhwTK5APyfN1vVdEvVmU1/6zHZEnuiDAT8XI1rH
S1+SGX11RIn6uPVL1c0RjgW8/JZ6EeM8NvLdBiYYBuI=
MARKER
ok($k, 'generate_key DER');
ok($k->is_private, 'is_private');
ok($k->export_key_pem('private'), 'export_key_pem pri');
ok($k->export_key_pem('public'), 'export_key_pem pub');
ok($k->export_key_der('private'), 'export_key_der pri');
ok($k->export_key_der('public'), 'export_key_der pub');
}
{
my $k = Crypt::PK::DSA->new;
$k->generate_key({
p => "A5903F7DF15D5C0769797820".
"6CFEED0113CD1C15298198E9".
"1F2231135A7BC42568BE8F8D".
"357B7EE9AD4E99F9F628EA2C".
"9294425FA1C7732253D478CD".
"1E242FA81B12C2A9ADB46D14".
"AC83875A2D8BF6A1DCF57EC6".
"4668DB3751358EB4F5A620A9".
"0F28C3D5F62DC1E85E3CC724".
"A12018B038FFA4B917AABC66".
"543BDD11784134CB",
q => "B3CA2D8B0823160915E6B73E".
"DD3B0015DFE1E897",
g => "5C9F25D69C86E8002BE04F56".
"90230BD008A816E7C8E9A96E".
"C0DBC630C62A8B42E41C8504".
"E682F52C02CDA74740CFA1A4".
"A608B8D827C5762EB69FED68".
"3D17DBC9050C16DEB9EC5A3E".
"02DF7B0E338AFFC01F878352".
"A2C82FB458F95DD60A7E23FE".
"322173F34F98452B0D16DCE2".
"23B15840F82B6AFCDFC6D848".
"9C5859DA0E4BE8B9",
});
ok($k, 'generate_key HASH');
ok($k->is_private, 'is_private');
ok($k->export_key_pem('private'), 'export_key_pem pri');
ok($k->export_key_pem('public'), 'export_key_pem pub');
ok($k->export_key_der('private'), 'export_key_der pri');
ok($k->export_key_der('public'), 'export_key_der pub');
}
{
my $k = Crypt::PK::DSA->new;
$k->generate_key(20, 128);
ok($k, 'generate_key size');
ok($k->is_private, 'is_private');
ok($k->export_key_pem('private'), 'export_key_pem pri');
ok($k->export_key_pem('public'), 'export_key_pem pub');
ok($k->export_key_der('private'), 'export_key_der pri');
ok($k->export_key_der('public'), 'export_key_der pub');
}
{
my $ct = dsa_encrypt('t/data/cryptx_pub_dsa1.der', 'test string');
ok($ct, 'dsa_encrypt');
my $pt = dsa_decrypt('t/data/cryptx_priv_dsa1.der', $ct);
ok($pt, 'dsa_decrypt');
my $sig = dsa_sign_message('t/data/cryptx_priv_dsa1.der', 'test string');
ok($sig, 'dsa_sign_message');
ok(dsa_verify_message('t/data/cryptx_pub_dsa1.der', $sig, 'test string'), 'dsa_verify_message');
my $hash = pack("H*","04624fae618e9ad0c5e479f62e1420c71fff34dd");
$sig = dsa_sign_hash('t/data/cryptx_priv_dsa1.der', $hash);
ok($sig, 'dsa_sign_hash');
ok(dsa_verify_hash('t/data/cryptx_pub_dsa1.der', $sig, $hash), 'dsa_verify_hash');
}
|
