Annotation of src/usr.bin/openssl/dsaparam.c, Revision 1.4
1.4 ! jsing 1: /* $OpenBSD: dsaparam.c,v 1.3 2015/07/12 16:37:37 doug 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: #ifndef OPENSSL_NO_ENGINE
85: char *engine;
86: #endif
87: int genkey;
88: char *infile;
89: int informat;
90: int noout;
91: char *outfile;
92: int outformat;
93: int text;
94: } dsaparam_config;
95:
96: static struct option dsaparam_options[] = {
97: {
98: .name = "C",
99: .desc = "Convert DSA parameters into C code",
100: .type = OPTION_FLAG,
101: .opt.flag = &dsaparam_config.C,
102: },
103: #ifndef OPENSSL_NO_ENGINE
104: {
105: .name = "engine",
106: .argname = "id",
107: .desc = "Use the engine specified by the given identifier",
108: .type = OPTION_ARG,
109: .opt.arg = &dsaparam_config.engine,
110: },
111: #endif
112: {
113: .name = "genkey",
114: .desc = "Generate a DSA key",
115: .type = OPTION_FLAG,
116: .opt.flag = &dsaparam_config.genkey,
117: },
118: {
119: .name = "in",
120: .argname = "file",
121: .desc = "Input file (default stdin)",
122: .type = OPTION_ARG,
123: .opt.arg = &dsaparam_config.infile,
124: },
125: {
126: .name = "inform",
127: .argname = "format",
128: .desc = "Input format (DER or PEM (default))",
129: .type = OPTION_ARG_FORMAT,
130: .opt.value = &dsaparam_config.informat,
131: },
132: {
133: .name = "noout",
134: .desc = "No output",
135: .type = OPTION_FLAG,
136: .opt.flag = &dsaparam_config.noout,
137: },
138: {
139: .name = "out",
140: .argname = "file",
141: .desc = "Output file (default stdout)",
142: .type = OPTION_ARG,
143: .opt.arg = &dsaparam_config.outfile,
144: },
145: {
146: .name = "outform",
147: .argname = "format",
148: .desc = "Output format (DER or PEM (default))",
149: .type = OPTION_ARG_FORMAT,
150: .opt.value = &dsaparam_config.outformat,
151: },
152: {
153: .name = "text",
154: .desc = "Print as text",
155: .type = OPTION_FLAG,
156: .opt.flag = &dsaparam_config.text,
157: },
158: { NULL },
159: };
1.1 jsing 160:
161: static void
1.3 doug 162: dsaparam_usage(void)
1.1 jsing 163: {
1.3 doug 164: fprintf(stderr,
165: "usage: dsaparam [-C] [-engine id] [-genkey] [-in file]\n"
166: " [-inform format] [-noout] [-out file] [-outform format]\n"
167: " [-text] [numbits]\n\n");
168: options_usage(dsaparam_options);
1.1 jsing 169: }
170:
171: static int dsa_cb(int p, int n, BN_GENCB * cb);
172:
173: int
174: dsaparam_main(int argc, char **argv)
175: {
176: DSA *dsa = NULL;
1.3 doug 177: int i;
1.1 jsing 178: BIO *in = NULL, *out = NULL;
1.3 doug 179: int ret = 1;
180: int numbits = -1;
181: char *strbits = NULL;
182:
183: memset(&dsaparam_config, 0, sizeof(dsaparam_config));
184:
185: dsaparam_config.informat = FORMAT_PEM;
186: dsaparam_config.outformat = FORMAT_PEM;
1.1 jsing 187:
1.3 doug 188: if (options_parse(argc, argv, dsaparam_options, &strbits, NULL) != 0) {
189: dsaparam_usage();
190: goto end;
1.1 jsing 191: }
192:
1.3 doug 193: if (strbits != NULL) {
194: const char *errstr;
195: numbits = strtonum(strbits, 0, INT_MAX, &errstr);
196: if (errstr) {
197: fprintf(stderr, "Invalid number of bits: %s", errstr);
198: goto end;
199: }
1.1 jsing 200: }
201:
202: in = BIO_new(BIO_s_file());
203: out = BIO_new(BIO_s_file());
1.3 doug 204: if (in == NULL || out == NULL) {
1.1 jsing 205: ERR_print_errors(bio_err);
206: goto end;
207: }
1.3 doug 208: if (dsaparam_config.infile == NULL)
1.1 jsing 209: BIO_set_fp(in, stdin, BIO_NOCLOSE);
210: else {
1.3 doug 211: if (BIO_read_filename(in, dsaparam_config.infile) <= 0) {
212: perror(dsaparam_config.infile);
1.1 jsing 213: goto end;
214: }
215: }
1.3 doug 216: if (dsaparam_config.outfile == NULL) {
1.1 jsing 217: BIO_set_fp(out, stdout, BIO_NOCLOSE);
218: } else {
1.3 doug 219: if (BIO_write_filename(out, dsaparam_config.outfile) <= 0) {
220: perror(dsaparam_config.outfile);
1.1 jsing 221: goto end;
222: }
223: }
224:
225: #ifndef OPENSSL_NO_ENGINE
1.3 doug 226: setup_engine(bio_err, dsaparam_config.engine, 0);
1.1 jsing 227: #endif
228:
229: if (numbits > 0) {
230: BN_GENCB cb;
231: BN_GENCB_set(&cb, dsa_cb, bio_err);
232: dsa = DSA_new();
233: if (!dsa) {
234: BIO_printf(bio_err, "Error allocating DSA object\n");
235: goto end;
236: }
1.3 doug 237: BIO_printf(bio_err, "Generating DSA parameters, %d bit long prime\n", numbits);
1.1 jsing 238: BIO_printf(bio_err, "This could take some time\n");
1.3 doug 239: if (!DSA_generate_parameters_ex(dsa, numbits, NULL, 0, NULL, NULL, &cb)) {
1.1 jsing 240: ERR_print_errors(bio_err);
241: BIO_printf(bio_err, "Error, DSA key generation failed\n");
242: goto end;
243: }
1.3 doug 244: } else if (dsaparam_config.informat == FORMAT_ASN1)
1.1 jsing 245: dsa = d2i_DSAparams_bio(in, NULL);
1.3 doug 246: else if (dsaparam_config.informat == FORMAT_PEM)
1.1 jsing 247: dsa = PEM_read_bio_DSAparams(in, NULL, NULL, NULL);
248: else {
249: BIO_printf(bio_err, "bad input format specified\n");
250: goto end;
251: }
252: if (dsa == NULL) {
253: BIO_printf(bio_err, "unable to load DSA parameters\n");
254: ERR_print_errors(bio_err);
255: goto end;
256: }
1.3 doug 257: if (dsaparam_config.text) {
1.1 jsing 258: DSAparams_print(out, dsa);
259: }
1.3 doug 260: if (dsaparam_config.C) {
1.1 jsing 261: unsigned char *data;
262: int l, len, bits_p;
263:
264: len = BN_num_bytes(dsa->p);
265: bits_p = BN_num_bits(dsa->p);
266: data = malloc(len + 20);
267: if (data == NULL) {
268: perror("malloc");
269: goto end;
270: }
271: l = BN_bn2bin(dsa->p, data);
272: printf("static unsigned char dsa%d_p[] = {", bits_p);
273: for (i = 0; i < l; i++) {
274: if ((i % 12) == 0)
275: printf("\n\t");
276: printf("0x%02X, ", data[i]);
277: }
278: printf("\n\t};\n");
279:
280: l = BN_bn2bin(dsa->q, data);
281: printf("static unsigned char dsa%d_q[] = {", bits_p);
282: for (i = 0; i < l; i++) {
283: if ((i % 12) == 0)
284: printf("\n\t");
285: printf("0x%02X, ", data[i]);
286: }
287: printf("\n\t};\n");
288:
289: l = BN_bn2bin(dsa->g, data);
290: printf("static unsigned char dsa%d_g[] = {", bits_p);
291: for (i = 0; i < l; i++) {
292: if ((i % 12) == 0)
293: printf("\n\t");
294: printf("0x%02X, ", data[i]);
295: }
296: free(data);
297: printf("\n\t};\n\n");
298:
299: printf("DSA *get_dsa%d()\n\t{\n", bits_p);
300: printf("\tDSA *dsa;\n\n");
301: printf("\tif ((dsa = DSA_new()) == NULL) return(NULL);\n");
302: printf("\tdsa->p = BN_bin2bn(dsa%d_p, sizeof(dsa%d_p), NULL);\n",
303: bits_p, bits_p);
304: printf("\tdsa->q = BN_bin2bn(dsa%d_q, sizeof(dsa%d_q), NULL);\n",
305: bits_p, bits_p);
306: printf("\tdsa->g = BN_bin2bn(dsa%d_g, sizeof(dsa%d_g), NULL);\n",
307: bits_p, bits_p);
308: printf("\tif ((dsa->p == NULL) || (dsa->q == NULL) || (dsa->g == NULL))\n");
309: printf("\t\t{ DSA_free(dsa); return(NULL); }\n");
310: printf("\treturn(dsa);\n\t}\n");
311: }
1.3 doug 312: if (!dsaparam_config.noout) {
313: if (dsaparam_config.outformat == FORMAT_ASN1)
1.1 jsing 314: i = i2d_DSAparams_bio(out, dsa);
1.3 doug 315: else if (dsaparam_config.outformat == FORMAT_PEM)
1.1 jsing 316: i = PEM_write_bio_DSAparams(out, dsa);
317: else {
318: BIO_printf(bio_err, "bad output format specified for outfile\n");
319: goto end;
320: }
321: if (!i) {
322: BIO_printf(bio_err, "unable to write DSA parameters\n");
323: ERR_print_errors(bio_err);
324: goto end;
325: }
326: }
1.3 doug 327: if (dsaparam_config.genkey) {
1.1 jsing 328: DSA *dsakey;
329:
330: if ((dsakey = DSAparams_dup(dsa)) == NULL)
331: goto end;
332: if (!DSA_generate_key(dsakey)) {
333: ERR_print_errors(bio_err);
334: DSA_free(dsakey);
335: goto end;
336: }
1.3 doug 337: if (dsaparam_config.outformat == FORMAT_ASN1)
1.1 jsing 338: i = i2d_DSAPrivateKey_bio(out, dsakey);
1.3 doug 339: else if (dsaparam_config.outformat == FORMAT_PEM)
1.1 jsing 340: i = PEM_write_bio_DSAPrivateKey(out, dsakey, NULL, NULL, 0, NULL, NULL);
341: else {
342: BIO_printf(bio_err, "bad output format specified for outfile\n");
343: DSA_free(dsakey);
344: goto end;
345: }
346: DSA_free(dsakey);
347: }
348: ret = 0;
349:
350: end:
351: BIO_free(in);
352: if (out != NULL)
353: BIO_free_all(out);
354: if (dsa != NULL)
355: DSA_free(dsa);
356:
357: return (ret);
358: }
359:
360: static int
361: dsa_cb(int p, int n, BN_GENCB * cb)
362: {
363: char c = '*';
364:
365: if (p == 0)
366: c = '.';
367: if (p == 1)
368: c = '+';
369: if (p == 2)
370: c = '*';
371: if (p == 3)
372: c = '\n';
373: BIO_write(cb->arg, &c, 1);
374: (void) BIO_flush(cb->arg);
375: #ifdef GENCB_TEST
376: if (stop_keygen_flag)
377: return 0;
378: #endif
379: return 1;
380: }