146 | 146 |
curve_cofactor => 1,
|
147 | 147 |
curve_Gx => "6B17D1F2E12C4247F8BCE6E563A440F277037D812DEB33A0F4A13945D898C296",
|
148 | 148 |
curve_Gy => "4FE342E2FE1A7F9B8EE7EB4A7C0F9E162BCE33576B315ECECBB6406837BF51F5",
|
149 | |
curve_name => "secp256r1",
|
|
149 |
curve_oid => "1.2.840.10045.3.1.7",
|
150 | 150 |
curve_order => "FFFFFFFF00000000FFFFFFFFFFFFFFFFBCE6FAADA7179E84F3B9CAC2FC632551",
|
151 | 151 |
curve_prime => "FFFFFFFF00000001000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF",
|
152 | 152 |
k => "F3BD0C07A81FB932781ED52752F60CC89A6BE5E51934FE01938DDB55D8F77801",
|
|
166 | 166 |
curve_cofactor => 1,
|
167 | 167 |
curve_Gx => "6B17D1F2E12C4247F8BCE6E563A440F277037D812DEB33A0F4A13945D898C296",
|
168 | 168 |
curve_Gy => "4FE342E2FE1A7F9B8EE7EB4A7C0F9E162BCE33576B315ECECBB6406837BF51F5",
|
169 | |
curve_name => "secp256r1",
|
|
169 |
curve_oid => "1.2.840.10045.3.1.7",
|
170 | 170 |
curve_order => "FFFFFFFF00000000FFFFFFFFFFFFFFFFBCE6FAADA7179E84F3B9CAC2FC632551",
|
171 | 171 |
curve_prime => "FFFFFFFF00000001000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF",
|
172 | 172 |
k => "",
|
|
182 | 182 |
is($kh->{pub_x}, $EC1->{pub_x}, "EC x test HASH1");
|
183 | 183 |
is($kh->{pub_y}, $EC1->{pub_y}, "EC y test HASH1");
|
184 | 184 |
is($kh->{k}, $EC1->{k}, "EC k test HASH1");
|
185 | |
is($kh->{curve_name}, "secp256r1", "EC curve test HASH1");
|
|
185 |
is($kh->{curve_oid}, "1.2.840.10045.3.1.7", "EC curve test HASH1");
|
186 | 186 |
ok($ec->is_private, "EC private test HASH1");
|
187 | 187 |
my $jwk = $ec->export_key_jwk('private');
|
188 | 188 |
my $jwkp = $ec->export_key_jwk('public');
|
|
204 | 204 |
is($kh->{pub_x}, $EC1->{pub_x}, "EC x test JWK1");
|
205 | 205 |
is($kh->{pub_y}, $EC1->{pub_y}, "EC y test JWK1");
|
206 | 206 |
is($kh->{k}, $EC1->{k}, "EC k test JWK1");
|
207 | |
is($kh->{curve_name}, "secp256r1", "EC curve test JWK1");
|
|
207 |
is($kh->{curve_oid}, "1.2.840.10045.3.1.7", "EC curve test JWK1");
|
208 | 208 |
ok($ec->is_private, "EC private test JWK1");
|
209 | 209 |
$jwk_tp = $ec->export_key_jwk_thumbprint('SHA256');
|
210 | 210 |
is($jwk_tp, $ec1_jwk_thumbprint_sha256, 'export_key_jwk_thumbprint(SHA256)');
|
|
214 | 214 |
is($kh->{pub_x}, $EC1->{pub_x}, "EC x test JWK2");
|
215 | 215 |
is($kh->{pub_y}, $EC1->{pub_y}, "EC y test JWK2");
|
216 | 216 |
is($kh->{k}, "", "EC k test JWK2");
|
217 | |
is($kh->{curve_name}, "secp256r1", "EC curve test JWK2");
|
|
217 |
is($kh->{curve_oid}, "1.2.840.10045.3.1.7", "EC curve test JWK2");
|
218 | 218 |
ok(!$ec->is_private, "EC !private test JWK2");
|
219 | 219 |
$jwk_tp = $ec->export_key_jwk_thumbprint('SHA256');
|
220 | 220 |
is($jwk_tp, $ec1_jwk_thumbprint_sha256, 'export_key_jwk_thumbprint(SHA256)');
|
|
226 | 226 |
is($kh->{pub_x}, $EC1->{pub_x}, "EC x test HASH2");
|
227 | 227 |
is($kh->{pub_y}, $EC1->{pub_y}, "EC y test HASH2");
|
228 | 228 |
is($kh->{k}, "", "EC k test HASH2");
|
229 | |
is($kh->{curve_name}, "secp256r1", "EC curve test HASH2");
|
|
229 |
is($kh->{curve_oid}, "1.2.840.10045.3.1.7", "EC curve test HASH2");
|
230 | 230 |
ok(!$ec->is_private, "EC private test HASH2");
|
231 | 231 |
}
|
232 | 232 |
|