Annotation of src/usr.bin/openssl/dsaparam.c, Revision 1.15
1.15 ! tb 1: /* $OpenBSD: dsaparam.c,v 1.14 2022/11/11 17:07:38 joshua Exp $ */
1.1 jsing 2: /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3: * All rights reserved.
4: *
5: * This package is an SSL implementation written
6: * by Eric Young (eay@cryptsoft.com).
7: * The implementation was written so as to conform with Netscapes SSL.
8: *
9: * This library is free for commercial and non-commercial use as long as
10: * the following conditions are aheared to. The following conditions
11: * apply to all code found in this distribution, be it the RC4, RSA,
12: * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13: * included with this distribution is covered by the same copyright terms
14: * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15: *
16: * Copyright remains Eric Young's, and as such any Copyright notices in
17: * the code are not to be removed.
18: * If this package is used in a product, Eric Young should be given attribution
19: * as the author of the parts of the library used.
20: * This can be in the form of a textual message at program startup or
21: * in documentation (online or textual) provided with the package.
22: *
23: * Redistribution and use in source and binary forms, with or without
24: * modification, are permitted provided that the following conditions
25: * are met:
26: * 1. Redistributions of source code must retain the copyright
27: * notice, this list of conditions and the following disclaimer.
28: * 2. Redistributions in binary form must reproduce the above copyright
29: * notice, this list of conditions and the following disclaimer in the
30: * documentation and/or other materials provided with the distribution.
31: * 3. All advertising materials mentioning features or use of this software
32: * must display the following acknowledgement:
33: * "This product includes cryptographic software written by
34: * Eric Young (eay@cryptsoft.com)"
35: * The word 'cryptographic' can be left out if the rouines from the library
36: * being used are not cryptographic related :-).
37: * 4. If you include any Windows specific code (or a derivative thereof) from
38: * the apps directory (application code) you must include an acknowledgement:
39: * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40: *
41: * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44: * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51: * SUCH DAMAGE.
52: *
53: * The licence and distribution terms for any publically available version or
54: * derivative of this code cannot be changed. i.e. this code cannot simply be
55: * copied and put under another distribution licence
56: * [including the GNU Public Licence.]
57: */
58:
59: #include <openssl/opensslconf.h> /* for OPENSSL_NO_DSA */
60:
61: /* Until the key-gen callbacks are modified to use newer prototypes, we allow
62: * deprecated functions for openssl-internal code */
63: #ifdef OPENSSL_NO_DEPRECATED
64: #undef OPENSSL_NO_DEPRECATED
65: #endif
66:
1.3 doug 67: #include <limits.h>
1.1 jsing 68: #include <stdio.h>
69: #include <stdlib.h>
70: #include <string.h>
71: #include <time.h>
72:
73: #include "apps.h"
74:
75: #include <openssl/bio.h>
76: #include <openssl/bn.h>
77: #include <openssl/err.h>
78: #include <openssl/dsa.h>
79: #include <openssl/pem.h>
80: #include <openssl/x509.h>
81:
1.3 doug 82: static struct {
83: int C;
84: int genkey;
85: char *infile;
86: int informat;
87: int noout;
88: char *outfile;
89: int outformat;
90: int text;
1.15 ! tb 91: } cfg;
1.3 doug 92:
1.11 guenther 93: static const struct option dsaparam_options[] = {
1.3 doug 94: {
95: .name = "C",
96: .desc = "Convert DSA parameters into C code",
97: .type = OPTION_FLAG,
1.15 ! tb 98: .opt.flag = &cfg.C,
1.3 doug 99: },
100: {
101: .name = "genkey",
102: .desc = "Generate a DSA key",
103: .type = OPTION_FLAG,
1.15 ! tb 104: .opt.flag = &cfg.genkey,
1.3 doug 105: },
106: {
107: .name = "in",
108: .argname = "file",
109: .desc = "Input file (default stdin)",
110: .type = OPTION_ARG,
1.15 ! tb 111: .opt.arg = &cfg.infile,
1.3 doug 112: },
113: {
114: .name = "inform",
115: .argname = "format",
116: .desc = "Input format (DER or PEM (default))",
117: .type = OPTION_ARG_FORMAT,
1.15 ! tb 118: .opt.value = &cfg.informat,
1.3 doug 119: },
120: {
121: .name = "noout",
122: .desc = "No output",
123: .type = OPTION_FLAG,
1.15 ! tb 124: .opt.flag = &cfg.noout,
1.3 doug 125: },
126: {
127: .name = "out",
128: .argname = "file",
129: .desc = "Output file (default stdout)",
130: .type = OPTION_ARG,
1.15 ! tb 131: .opt.arg = &cfg.outfile,
1.3 doug 132: },
133: {
134: .name = "outform",
135: .argname = "format",
136: .desc = "Output format (DER or PEM (default))",
137: .type = OPTION_ARG_FORMAT,
1.15 ! tb 138: .opt.value = &cfg.outformat,
1.3 doug 139: },
140: {
141: .name = "text",
142: .desc = "Print as text",
143: .type = OPTION_FLAG,
1.15 ! tb 144: .opt.flag = &cfg.text,
1.3 doug 145: },
146: { NULL },
147: };
1.1 jsing 148:
149: static void
1.3 doug 150: dsaparam_usage(void)
1.1 jsing 151: {
1.3 doug 152: fprintf(stderr,
1.5 bcook 153: "usage: dsaparam [-C] [-genkey] [-in file]\n"
1.3 doug 154: " [-inform format] [-noout] [-out file] [-outform format]\n"
155: " [-text] [numbits]\n\n");
156: options_usage(dsaparam_options);
1.1 jsing 157: }
158:
1.12 tb 159: static int dsa_cb(int p, int n, BN_GENCB *cb);
1.1 jsing 160:
161: int
162: dsaparam_main(int argc, char **argv)
163: {
164: DSA *dsa = NULL;
1.3 doug 165: int i;
1.1 jsing 166: BIO *in = NULL, *out = NULL;
1.12 tb 167: BN_GENCB *cb = NULL;
1.3 doug 168: int ret = 1;
169: int numbits = -1;
170: char *strbits = NULL;
1.6 doug 171:
1.14 joshua 172: if (pledge("stdio cpath wpath rpath", NULL) == -1) {
173: perror("pledge");
174: exit(1);
1.6 doug 175: }
1.3 doug 176:
1.15 ! tb 177: memset(&cfg, 0, sizeof(cfg));
1.3 doug 178:
1.15 ! tb 179: cfg.informat = FORMAT_PEM;
! 180: cfg.outformat = FORMAT_PEM;
1.1 jsing 181:
1.3 doug 182: if (options_parse(argc, argv, dsaparam_options, &strbits, NULL) != 0) {
183: dsaparam_usage();
184: goto end;
1.1 jsing 185: }
186:
1.3 doug 187: if (strbits != NULL) {
188: const char *errstr;
189: numbits = strtonum(strbits, 0, INT_MAX, &errstr);
190: if (errstr) {
191: fprintf(stderr, "Invalid number of bits: %s", errstr);
192: goto end;
193: }
1.1 jsing 194: }
195:
196: in = BIO_new(BIO_s_file());
197: out = BIO_new(BIO_s_file());
1.3 doug 198: if (in == NULL || out == NULL) {
1.1 jsing 199: ERR_print_errors(bio_err);
200: goto end;
201: }
1.15 ! tb 202: if (cfg.infile == NULL)
1.1 jsing 203: BIO_set_fp(in, stdin, BIO_NOCLOSE);
204: else {
1.15 ! tb 205: if (BIO_read_filename(in, cfg.infile) <= 0) {
! 206: perror(cfg.infile);
1.1 jsing 207: goto end;
208: }
209: }
1.15 ! tb 210: if (cfg.outfile == NULL) {
1.1 jsing 211: BIO_set_fp(out, stdout, BIO_NOCLOSE);
212: } else {
1.15 ! tb 213: if (BIO_write_filename(out, cfg.outfile) <= 0) {
! 214: perror(cfg.outfile);
1.1 jsing 215: goto end;
216: }
217: }
218:
219: if (numbits > 0) {
1.12 tb 220: if ((cb = BN_GENCB_new()) == NULL) {
221: BIO_printf(bio_err,
222: "Error allocating BN_GENCB object\n");
223: goto end;
224: }
225:
226: BN_GENCB_set(cb, dsa_cb, bio_err);
227:
1.1 jsing 228: dsa = DSA_new();
229: if (!dsa) {
230: BIO_printf(bio_err, "Error allocating DSA object\n");
231: goto end;
232: }
1.3 doug 233: BIO_printf(bio_err, "Generating DSA parameters, %d bit long prime\n", numbits);
1.1 jsing 234: BIO_printf(bio_err, "This could take some time\n");
1.12 tb 235: if (!DSA_generate_parameters_ex(dsa, numbits, NULL, 0, NULL, NULL, cb)) {
1.1 jsing 236: ERR_print_errors(bio_err);
237: BIO_printf(bio_err, "Error, DSA key generation failed\n");
238: goto end;
239: }
1.15 ! tb 240: } else if (cfg.informat == FORMAT_ASN1)
1.1 jsing 241: dsa = d2i_DSAparams_bio(in, NULL);
1.15 ! tb 242: else if (cfg.informat == FORMAT_PEM)
1.1 jsing 243: dsa = PEM_read_bio_DSAparams(in, NULL, NULL, NULL);
244: else {
245: BIO_printf(bio_err, "bad input format specified\n");
246: goto end;
247: }
248: if (dsa == NULL) {
249: BIO_printf(bio_err, "unable to load DSA parameters\n");
250: ERR_print_errors(bio_err);
251: goto end;
252: }
1.15 ! tb 253: if (cfg.text) {
1.1 jsing 254: DSAparams_print(out, dsa);
255: }
1.15 ! tb 256: if (cfg.C) {
1.1 jsing 257: unsigned char *data;
258: int l, len, bits_p;
259:
1.13 tb 260: len = BN_num_bytes(DSA_get0_p(dsa));
261: bits_p = BN_num_bits(DSA_get0_p(dsa));
1.1 jsing 262: data = malloc(len + 20);
263: if (data == NULL) {
264: perror("malloc");
265: goto end;
266: }
1.13 tb 267: l = BN_bn2bin(DSA_get0_p(dsa), data);
1.1 jsing 268: printf("static unsigned char dsa%d_p[] = {", bits_p);
269: for (i = 0; i < l; i++) {
270: if ((i % 12) == 0)
271: printf("\n\t");
272: printf("0x%02X, ", data[i]);
273: }
274: printf("\n\t};\n");
275:
1.13 tb 276: l = BN_bn2bin(DSA_get0_q(dsa), data);
1.1 jsing 277: printf("static unsigned char dsa%d_q[] = {", bits_p);
278: for (i = 0; i < l; i++) {
279: if ((i % 12) == 0)
280: printf("\n\t");
281: printf("0x%02X, ", data[i]);
282: }
283: printf("\n\t};\n");
284:
1.13 tb 285: l = BN_bn2bin(DSA_get0_g(dsa), data);
1.1 jsing 286: printf("static unsigned char dsa%d_g[] = {", bits_p);
287: for (i = 0; i < l; i++) {
288: if ((i % 12) == 0)
289: printf("\n\t");
290: printf("0x%02X, ", data[i]);
291: }
292: free(data);
293: printf("\n\t};\n\n");
294:
295: printf("DSA *get_dsa%d()\n\t{\n", bits_p);
1.13 tb 296: printf("\tBIGNUM *p = NULL, *q = NULL, *g = NULL;\n");
1.1 jsing 297: printf("\tDSA *dsa;\n\n");
298: printf("\tif ((dsa = DSA_new()) == NULL) return(NULL);\n");
1.13 tb 299: printf("\tp = BN_bin2bn(dsa%d_p, sizeof(dsa%d_p), NULL);\n",
1.1 jsing 300: bits_p, bits_p);
1.13 tb 301: printf("\tq = BN_bin2bn(dsa%d_q, sizeof(dsa%d_q), NULL);\n",
1.1 jsing 302: bits_p, bits_p);
1.13 tb 303: printf("\tg = BN_bin2bn(dsa%d_g, sizeof(dsa%d_g), NULL);\n",
1.1 jsing 304: bits_p, bits_p);
1.13 tb 305: printf("\tif (p == NULL || q == NULL || g == NULL)\n");
306: printf("\t\t{ BN_free(p); BN_free(q); BN_free(g); DSA_free(dsa); return(NULL); }\n");
307: printf("\tDSA_set0_pqg(dsa, p, q, g);\n");
1.1 jsing 308: printf("\treturn(dsa);\n\t}\n");
309: }
1.15 ! tb 310: if (!cfg.noout) {
! 311: if (cfg.outformat == FORMAT_ASN1)
1.1 jsing 312: i = i2d_DSAparams_bio(out, dsa);
1.15 ! tb 313: else if (cfg.outformat == FORMAT_PEM)
1.1 jsing 314: i = PEM_write_bio_DSAparams(out, dsa);
315: else {
316: BIO_printf(bio_err, "bad output format specified for outfile\n");
317: goto end;
318: }
319: if (!i) {
320: BIO_printf(bio_err, "unable to write DSA parameters\n");
321: ERR_print_errors(bio_err);
322: goto end;
323: }
324: }
1.15 ! tb 325: if (cfg.genkey) {
1.1 jsing 326: DSA *dsakey;
327:
328: if ((dsakey = DSAparams_dup(dsa)) == NULL)
329: goto end;
330: if (!DSA_generate_key(dsakey)) {
331: ERR_print_errors(bio_err);
332: DSA_free(dsakey);
333: goto end;
334: }
1.15 ! tb 335: if (cfg.outformat == FORMAT_ASN1)
1.1 jsing 336: i = i2d_DSAPrivateKey_bio(out, dsakey);
1.15 ! tb 337: else if (cfg.outformat == FORMAT_PEM)
1.1 jsing 338: i = PEM_write_bio_DSAPrivateKey(out, dsakey, NULL, NULL, 0, NULL, NULL);
339: else {
340: BIO_printf(bio_err, "bad output format specified for outfile\n");
341: DSA_free(dsakey);
342: goto end;
343: }
344: DSA_free(dsakey);
345: }
346: ret = 0;
347:
1.10 jsing 348: end:
1.1 jsing 349: BIO_free(in);
1.9 jsing 350: BIO_free_all(out);
1.12 tb 351: BN_GENCB_free(cb);
1.9 jsing 352: DSA_free(dsa);
1.1 jsing 353:
354: return (ret);
355: }
356:
357: static int
1.12 tb 358: dsa_cb(int p, int n, BN_GENCB *cb)
1.1 jsing 359: {
360: char c = '*';
361:
362: if (p == 0)
363: c = '.';
364: if (p == 1)
365: c = '+';
366: if (p == 2)
367: c = '*';
368: if (p == 3)
369: c = '\n';
1.12 tb 370: BIO_write(BN_GENCB_get_arg(cb), &c, 1);
371: (void) BIO_flush(BN_GENCB_get_arg(cb));
1.1 jsing 372: #ifdef GENCB_TEST
373: if (stop_keygen_flag)
374: return 0;
375: #endif
376: return 1;
377: }