]>
Commit | Line | Data |
---|---|---|
d4d9b575 | 1 | #! /usr/bin/env perl |
b6461792 | 2 | # Copyright 2023-2024 The OpenSSL Project Authors. All Rights Reserved. |
d4d9b575 RL |
3 | # |
4 | # Licensed under the Apache License 2.0 (the "License"). You may not use | |
5 | # this file except in compliance with the License. You can obtain a copy | |
6 | # in the file LICENSE in the source distribution or at | |
7 | # https://www.openssl.org/source/license.html | |
8 | ||
9 | ||
10 | use strict; | |
11 | use warnings; | |
12 | ||
13 | use File::Spec; | |
14 | use OpenSSL::Test qw(:DEFAULT pipe); | |
15 | use OpenSSL::Test::Utils; | |
16 | ||
17 | # These are special key generation tests for SM2 keys specifically, | |
18 | # as they could be said to be a bit special in their encoding. | |
f7241edd | 19 | # This is an auxiliary test to 15-test_genec.t |
d4d9b575 RL |
20 | |
21 | setup("test_gensm2"); | |
22 | ||
23 | plan skip_all => "This test is unsupported in a no-sm2 build" | |
24 | if disabled("sm2"); | |
25 | ||
26 | plan tests => 2; | |
27 | ||
28 | # According to the example in GM/T 0015-2012, appendix D.2, | |
29 | # generating an EC key with the named SM2 curve or generating | |
30 | # an SM2 key should end up with the same encoding (apart from | |
31 | # key private key field itself). This regular expressions | |
32 | # shows us what 'openssl asn1parse' should display. | |
33 | ||
34 | my $sm2_re = qr| | |
35 | ^ | |
36 | .*?\Qcons: SEQUENCE\E\s+?\R | |
37 | .*?\Qprim: INTEGER :00\E\R | |
38 | .*?\Qcons: SEQUENCE\E\s+?\R | |
39 | .*?\Qprim: OBJECT :id-ecPublicKey\E\R | |
40 | .*?\Qprim: OBJECT :sm2\E\R | |
41 | .*?\Qprim: OCTET STRING [HEX DUMP]:\E | |
42 | |mx; | |
43 | ||
44 | my $cmd_genec = app([ 'openssl', 'genpkey', | |
45 | '-algorithm', 'EC', | |
46 | '-pkeyopt', 'ec_paramgen_curve:SM2', | |
47 | '-pkeyopt', 'ec_param_enc:named_curve' ]); | |
48 | my $cmd_gensm2 = app([ 'openssl', 'genpkey', '-algorithm', 'SM2' ]); | |
49 | my $cmd_asn1parse = app([ 'openssl', 'asn1parse', '-i' ]); | |
50 | ||
51 | my $result_ec = join("", run(pipe($cmd_genec, $cmd_asn1parse), | |
52 | capture => 1)); | |
53 | ||
54 | like($result_ec, $sm2_re, | |
55 | "Check that 'genpkey -algorithm EC' resulted in a correctly encoded SM2 key"); | |
56 | ||
57 | my $result_sm2 = join("", run(pipe($cmd_gensm2, $cmd_asn1parse), | |
58 | capture => 1)); | |
59 | ||
60 | like($result_sm2, $sm2_re, | |
61 | "Check that 'genpkey -algorithm SM2' resulted in a correctly encoded SM2 key"); |