1 | /* |
2 | * Copyright 2006-2018 The OpenSSL Project Authors. All Rights Reserved. |
3 | * Copyright (c) 2002, Oracle and/or its affiliates. All rights reserved |
4 | * |
5 | * Licensed under the Apache License 2.0 (the "License"). You may not use |
6 | * this file except in compliance with the License. You can obtain a copy |
7 | * in the file LICENSE in the source distribution or at |
8 | * https://www.openssl.org/source/license.html |
9 | */ |
10 | |
11 | #include <stdio.h> |
12 | #include "internal/cryptlib.h" |
13 | #include <openssl/evp.h> |
14 | #include <openssl/ec.h> |
15 | #include <openssl/bn.h> |
16 | |
17 | #ifndef OPENSSL_NO_STDIO |
18 | int ECPKParameters_print_fp(FILE *fp, const EC_GROUP *x, int off) |
19 | { |
20 | BIO *b; |
21 | int ret; |
22 | |
23 | if ((b = BIO_new(BIO_s_file())) == NULL) { |
24 | ECerr(EC_F_ECPKPARAMETERS_PRINT_FP, ERR_R_BUF_LIB); |
25 | return 0; |
26 | } |
27 | BIO_set_fp(b, fp, BIO_NOCLOSE); |
28 | ret = ECPKParameters_print(b, x, off); |
29 | BIO_free(b); |
30 | return ret; |
31 | } |
32 | |
33 | int EC_KEY_print_fp(FILE *fp, const EC_KEY *x, int off) |
34 | { |
35 | BIO *b; |
36 | int ret; |
37 | |
38 | if ((b = BIO_new(BIO_s_file())) == NULL) { |
39 | ECerr(EC_F_EC_KEY_PRINT_FP, ERR_R_BIO_LIB); |
40 | return 0; |
41 | } |
42 | BIO_set_fp(b, fp, BIO_NOCLOSE); |
43 | ret = EC_KEY_print(b, x, off); |
44 | BIO_free(b); |
45 | return ret; |
46 | } |
47 | |
48 | int ECParameters_print_fp(FILE *fp, const EC_KEY *x) |
49 | { |
50 | BIO *b; |
51 | int ret; |
52 | |
53 | if ((b = BIO_new(BIO_s_file())) == NULL) { |
54 | ECerr(EC_F_ECPARAMETERS_PRINT_FP, ERR_R_BIO_LIB); |
55 | return 0; |
56 | } |
57 | BIO_set_fp(b, fp, BIO_NOCLOSE); |
58 | ret = ECParameters_print(b, x); |
59 | BIO_free(b); |
60 | return ret; |
61 | } |
62 | #endif |
63 | |
64 | static int print_bin(BIO *fp, const char *str, const unsigned char *num, |
65 | size_t len, int off); |
66 | |
67 | int ECPKParameters_print(BIO *bp, const EC_GROUP *x, int off) |
68 | { |
69 | int ret = 0, reason = ERR_R_BIO_LIB; |
70 | BN_CTX *ctx = NULL; |
71 | const EC_POINT *point = NULL; |
72 | BIGNUM *p = NULL, *a = NULL, *b = NULL, *gen = NULL; |
73 | const BIGNUM *order = NULL, *cofactor = NULL; |
74 | const unsigned char *seed; |
75 | size_t seed_len = 0; |
76 | |
77 | static const char *gen_compressed = "Generator (compressed):" ; |
78 | static const char *gen_uncompressed = "Generator (uncompressed):" ; |
79 | static const char *gen_hybrid = "Generator (hybrid):" ; |
80 | |
81 | if (!x) { |
82 | reason = ERR_R_PASSED_NULL_PARAMETER; |
83 | goto err; |
84 | } |
85 | |
86 | ctx = BN_CTX_new(); |
87 | if (ctx == NULL) { |
88 | reason = ERR_R_MALLOC_FAILURE; |
89 | goto err; |
90 | } |
91 | |
92 | if (EC_GROUP_get_asn1_flag(x)) { |
93 | /* the curve parameter are given by an asn1 OID */ |
94 | int nid; |
95 | const char *nname; |
96 | |
97 | if (!BIO_indent(bp, off, 128)) |
98 | goto err; |
99 | |
100 | nid = EC_GROUP_get_curve_name(x); |
101 | if (nid == 0) |
102 | goto err; |
103 | if (BIO_printf(bp, "ASN1 OID: %s" , OBJ_nid2sn(nid)) <= 0) |
104 | goto err; |
105 | if (BIO_printf(bp, "\n" ) <= 0) |
106 | goto err; |
107 | nname = EC_curve_nid2nist(nid); |
108 | if (nname) { |
109 | if (!BIO_indent(bp, off, 128)) |
110 | goto err; |
111 | if (BIO_printf(bp, "NIST CURVE: %s\n" , nname) <= 0) |
112 | goto err; |
113 | } |
114 | } else { |
115 | /* explicit parameters */ |
116 | int is_char_two = 0; |
117 | point_conversion_form_t form; |
118 | int tmp_nid = EC_METHOD_get_field_type(EC_GROUP_method_of(x)); |
119 | |
120 | if (tmp_nid == NID_X9_62_characteristic_two_field) |
121 | is_char_two = 1; |
122 | |
123 | if ((p = BN_new()) == NULL || (a = BN_new()) == NULL || |
124 | (b = BN_new()) == NULL) { |
125 | reason = ERR_R_MALLOC_FAILURE; |
126 | goto err; |
127 | } |
128 | |
129 | if (!EC_GROUP_get_curve(x, p, a, b, ctx)) { |
130 | reason = ERR_R_EC_LIB; |
131 | goto err; |
132 | } |
133 | |
134 | if ((point = EC_GROUP_get0_generator(x)) == NULL) { |
135 | reason = ERR_R_EC_LIB; |
136 | goto err; |
137 | } |
138 | order = EC_GROUP_get0_order(x); |
139 | cofactor = EC_GROUP_get0_cofactor(x); |
140 | if (order == NULL) { |
141 | reason = ERR_R_EC_LIB; |
142 | goto err; |
143 | } |
144 | |
145 | form = EC_GROUP_get_point_conversion_form(x); |
146 | |
147 | if ((gen = EC_POINT_point2bn(x, point, form, NULL, ctx)) == NULL) { |
148 | reason = ERR_R_EC_LIB; |
149 | goto err; |
150 | } |
151 | |
152 | if ((seed = EC_GROUP_get0_seed(x)) != NULL) |
153 | seed_len = EC_GROUP_get_seed_len(x); |
154 | |
155 | if (!BIO_indent(bp, off, 128)) |
156 | goto err; |
157 | |
158 | /* print the 'short name' of the field type */ |
159 | if (BIO_printf(bp, "Field Type: %s\n" , OBJ_nid2sn(tmp_nid)) |
160 | <= 0) |
161 | goto err; |
162 | |
163 | if (is_char_two) { |
164 | /* print the 'short name' of the base type OID */ |
165 | int basis_type = EC_GROUP_get_basis_type(x); |
166 | if (basis_type == 0) |
167 | goto err; |
168 | |
169 | if (!BIO_indent(bp, off, 128)) |
170 | goto err; |
171 | |
172 | if (BIO_printf(bp, "Basis Type: %s\n" , |
173 | OBJ_nid2sn(basis_type)) <= 0) |
174 | goto err; |
175 | |
176 | /* print the polynomial */ |
177 | if ((p != NULL) && !ASN1_bn_print(bp, "Polynomial:" , p, NULL, |
178 | off)) |
179 | goto err; |
180 | } else { |
181 | if ((p != NULL) && !ASN1_bn_print(bp, "Prime:" , p, NULL, off)) |
182 | goto err; |
183 | } |
184 | if ((a != NULL) && !ASN1_bn_print(bp, "A: " , a, NULL, off)) |
185 | goto err; |
186 | if ((b != NULL) && !ASN1_bn_print(bp, "B: " , b, NULL, off)) |
187 | goto err; |
188 | if (form == POINT_CONVERSION_COMPRESSED) { |
189 | if ((gen != NULL) && !ASN1_bn_print(bp, gen_compressed, gen, |
190 | NULL, off)) |
191 | goto err; |
192 | } else if (form == POINT_CONVERSION_UNCOMPRESSED) { |
193 | if ((gen != NULL) && !ASN1_bn_print(bp, gen_uncompressed, gen, |
194 | NULL, off)) |
195 | goto err; |
196 | } else { /* form == POINT_CONVERSION_HYBRID */ |
197 | |
198 | if ((gen != NULL) && !ASN1_bn_print(bp, gen_hybrid, gen, |
199 | NULL, off)) |
200 | goto err; |
201 | } |
202 | if ((order != NULL) && !ASN1_bn_print(bp, "Order: " , order, |
203 | NULL, off)) |
204 | goto err; |
205 | if ((cofactor != NULL) && !ASN1_bn_print(bp, "Cofactor: " , cofactor, |
206 | NULL, off)) |
207 | goto err; |
208 | if (seed && !print_bin(bp, "Seed:" , seed, seed_len, off)) |
209 | goto err; |
210 | } |
211 | ret = 1; |
212 | err: |
213 | if (!ret) |
214 | ECerr(EC_F_ECPKPARAMETERS_PRINT, reason); |
215 | BN_free(p); |
216 | BN_free(a); |
217 | BN_free(b); |
218 | BN_free(gen); |
219 | BN_CTX_free(ctx); |
220 | return ret; |
221 | } |
222 | |
223 | static int print_bin(BIO *fp, const char *name, const unsigned char *buf, |
224 | size_t len, int off) |
225 | { |
226 | size_t i; |
227 | char str[128 + 1 + 4]; |
228 | |
229 | if (buf == NULL) |
230 | return 1; |
231 | if (off > 0) { |
232 | if (off > 128) |
233 | off = 128; |
234 | memset(str, ' ', off); |
235 | if (BIO_write(fp, str, off) <= 0) |
236 | return 0; |
237 | } else { |
238 | off = 0; |
239 | } |
240 | |
241 | if (BIO_printf(fp, "%s" , name) <= 0) |
242 | return 0; |
243 | |
244 | for (i = 0; i < len; i++) { |
245 | if ((i % 15) == 0) { |
246 | str[0] = '\n'; |
247 | memset(&(str[1]), ' ', off + 4); |
248 | if (BIO_write(fp, str, off + 1 + 4) <= 0) |
249 | return 0; |
250 | } |
251 | if (BIO_printf(fp, "%02x%s" , buf[i], ((i + 1) == len) ? "" : ":" ) <= |
252 | 0) |
253 | return 0; |
254 | } |
255 | if (BIO_write(fp, "\n" , 1) <= 0) |
256 | return 0; |
257 | |
258 | return 1; |
259 | } |
260 | |