]> git.ipfire.org Git - thirdparty/openssl.git/blame - apps/req.c
projects / thirdparty / openssl.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Fixes so NO_RSA works again.
[thirdparty/openssl.git] / apps / req.c
CommitLineData
d02b48c6 1/* apps/req.c */
58964a49 2/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
d02b48c6
RE		 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 <stdio.h>
60#include <stdlib.h>
61#include <time.h>
62#include <string.h>
58964a49 63#ifdef NO_STDIO
d02b48c6
RE		 64#define APPS_WIN16
65#endif
66#include "apps.h"
ec577822
BM		 67#include <openssl/bio.h>
68#include <openssl/evp.h>
ec577822
BM		 69#include <openssl/conf.h>
70#include <openssl/err.h>
71#include <openssl/asn1.h>
72#include <openssl/x509.h>
73#include <openssl/x509v3.h>
74#include <openssl/objects.h>
75#include <openssl/pem.h>
d02b48c6
RE		 76
77#define SECTION "req"
78
79#define BITS "default_bits"
80#define KEYFILE "default_keyfile"
81#define DISTINGUISHED_NAME "distinguished_name"
82#define ATTRIBUTES "attributes"
f317aa4c 83#define V3_EXTENSIONS "x509_extensions"
c79b16e1 84#define REQ_EXTENSIONS "req_extensions"
74400f73 85#define DIRSTRING_TYPE "dirstring_type"
d02b48c6
RE		 86
87#define DEFAULT_KEY_LENGTH 512
88#define MIN_KEY_LENGTH 384
89
90#undef PROG
91#define PROG req_main
92
93/* -inform arg - input format - default PEM (one of DER, TXT or PEM)
94 * -outform arg - output format - default PEM
95 * -in arg - input file - default stdin
96 * -out arg - output file - default stdout
97 * -verify - check request signature
98 * -noout - don't print stuff out.
99 * -text - print out human readable text.
100 * -nodes - no des encryption
101 * -config file - Load configuration file.
102 * -key file - make a request using key in file (or use it for verification).
103 * -keyform - key file format.
104 * -newkey - make a key and a request.
105 * -modulus - print RSA modulus.
106 * -x509 - output a self signed X509 structure instead.
107 * -asn1-kludge - output new certificate request in a format that some CA's
108 * require. This format is wrong
109 */
110
d02b48c6 111static int make_REQ(X509_REQ *req,EVP_PKEY *pkey,int attribs);
d500de16
BL		 112static int add_attribute_object(STACK_OF(X509_ATTRIBUTE) *n, char *text,
113 char *def, char *value, int nid, int min,
114 int max);
d02b48c6
RE		 115static int add_DN_object(X509_NAME *n, char *text, char *def, char *value,
116 int nid,int min,int max);
b4f76582 117static void MS_CALLBACK req_cb(int p,int n,void *arg);
d02b48c6 118static int req_fix_data(int nid,int *type,int len,int min,int max);
a43aa73e
DSH		 119static int check_end(char *str, char *end);
120static int add_oid_section(LHASH *conf);
d02b48c6
RE		 121#ifndef MONOLITH
122static char *default_config_file=NULL;
123static LHASH *config=NULL;
124#endif
125static LHASH *req_conf=NULL;
126
127#define TYPE_RSA 1
128#define TYPE_DSA 2
129#define TYPE_DH 3
130
6b691a5c 131int MAIN(int argc, char **argv)
d02b48c6 132 {
58964a49 133#ifndef NO_DSA
d02b48c6 134 DSA *dsa_params=NULL;
58964a49 135#endif
d02b48c6
RE		 136 int ex=1,x509=0,days=30;
137 X509 *x509ss=NULL;
138 X509_REQ *req=NULL;
139 EVP_PKEY *pkey=NULL;
140 int i,badops=0,newreq=0,newkey= -1,pkey_type=0;
141 BIO *in=NULL,*out=NULL;
142 int informat,outformat,verify=0,noout=0,text=0,keyform=FORMAT_PEM;
143 int nodes=0,kludge=0;
144 char *infile,*outfile,*prog,*keyfile=NULL,*template=NULL,*keyout=NULL;
f317aa4c 145 char *extensions = NULL;
c79b16e1 146 char *req_exts = NULL;
d02b48c6
RE		 147 EVP_CIPHER *cipher=NULL;
148 int modulus=0;
149 char *p;
e778802f 150 const EVP_MD *md_alg=NULL,*digest=EVP_md5();
d02b48c6
RE		 151#ifndef MONOLITH
152 MS_STATIC char config_name[256];
153#endif
154
b74ba295 155 req_conf = NULL;
d02b48c6
RE		 156#ifndef NO_DES
157 cipher=EVP_des_ede3_cbc();
158#endif
159 apps_startup();
160
161 if (bio_err == NULL)
162 if ((bio_err=BIO_new(BIO_s_file())) != NULL)
58964a49 163 BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);
d02b48c6
RE		 164
165 infile=NULL;
166 outfile=NULL;
167 informat=FORMAT_PEM;
168 outformat=FORMAT_PEM;
169
170 prog=argv[0];
171 argc--;
172 argv++;
173 while (argc >= 1)
174 {
175 if (strcmp(*argv,"-inform") == 0)
176 {
177 if (--argc < 1) goto bad;
178 informat=str2fmt(*(++argv));
179 }
180 else if (strcmp(*argv,"-outform") == 0)
181 {
182 if (--argc < 1) goto bad;
183 outformat=str2fmt(*(++argv));
184 }
185 else if (strcmp(*argv,"-key") == 0)
186 {
187 if (--argc < 1) goto bad;
188 keyfile= *(++argv);
189 }
190 else if (strcmp(*argv,"-new") == 0)
191 {
192 pkey_type=TYPE_RSA;
193 newreq=1;
194 }
195 else if (strcmp(*argv,"-config") == 0)
196 {
197 if (--argc < 1) goto bad;
198 template= *(++argv);
199 }
200 else if (strcmp(*argv,"-keyform") == 0)
201 {
202 if (--argc < 1) goto bad;
203 keyform=str2fmt(*(++argv));
204 }
205 else if (strcmp(*argv,"-in") == 0)
206 {
207 if (--argc < 1) goto bad;
208 infile= *(++argv);
209 }
210 else if (strcmp(*argv,"-out") == 0)
211 {
212 if (--argc < 1) goto bad;
213 outfile= *(++argv);
214 }
215 else if (strcmp(*argv,"-keyout") == 0)
216 {
217 if (--argc < 1) goto bad;
218 keyout= *(++argv);
219 }
220 else if (strcmp(*argv,"-newkey") == 0)
221 {
bc4deee0
BL		 222 int is_numeric;
223
d02b48c6
RE		 224 if (--argc < 1) goto bad;
225 p= *(++argv);
bc4deee0
BL		 226 is_numeric = p[0] >= '0' && p[0] <= '9';
227 if (strncmp("rsa:",p,4) == 0 || is_numeric)
d02b48c6
RE		 228 {
229 pkey_type=TYPE_RSA;
bc4deee0
BL		 230 if(!is_numeric)
231 p+=4;
d02b48c6
RE		 232 newkey= atoi(p);
233 }
58964a49
RE		 234 else
235#ifndef NO_DSA
236 if (strncmp("dsa:",p,4) == 0)
d02b48c6
RE		 237 {
238 X509 *xtmp=NULL;
239 EVP_PKEY *dtmp;
240
241 pkey_type=TYPE_DSA;
242 p+=4;
243 if ((in=BIO_new_file(p,"r")) == NULL)
244 {
245 perror(p);
246 goto end;
247 }
74678cc2 248 if ((dsa_params=PEM_read_bio_DSAparams(in,NULL,NULL,NULL)) == NULL)
d02b48c6
RE		 249 {
250 ERR_clear_error();
d58d092b 251 (void)BIO_reset(in);
74678cc2 252 if ((xtmp=PEM_read_bio_X509(in,NULL,NULL,NULL)) == NULL)
d02b48c6
RE		 253 {
254 BIO_printf(bio_err,"unable to load DSA parameters from file\n");
255 goto end;
256 }
58964a49 257
d02b48c6
RE		 258 dtmp=X509_get_pubkey(xtmp);
259 if (dtmp->type == EVP_PKEY_DSA)
260 dsa_params=DSAparams_dup(dtmp->pkey.dsa);
1756d405 261 EVP_PKEY_free(dtmp);
d02b48c6
RE		 262 X509_free(xtmp);
263 if (dsa_params == NULL)
264 {
265 BIO_printf(bio_err,"Certificate does not contain DSA parameters\n");
266 goto end;
267 }
d02b48c6
RE		 268 }
269 BIO_free(in);
270 newkey=BN_num_bits(dsa_params->p);
271 in=NULL;
272 }
58964a49
RE		 273 else
274#endif
275#ifndef NO_DH
276 if (strncmp("dh:",p,4) == 0)
d02b48c6
RE		 277 {
278 pkey_type=TYPE_DH;
279 p+=3;
280 }
281 else
58964a49 282#endif
d02b48c6
RE		 283 pkey_type=TYPE_RSA;
284
285 newreq=1;
286 }
287 else if (strcmp(*argv,"-modulus") == 0)
288 modulus=1;
289 else if (strcmp(*argv,"-verify") == 0)
290 verify=1;
291 else if (strcmp(*argv,"-nodes") == 0)
292 nodes=1;
293 else if (strcmp(*argv,"-noout") == 0)
294 noout=1;
295 else if (strcmp(*argv,"-text") == 0)
296 text=1;
297 else if (strcmp(*argv,"-x509") == 0)
298 x509=1;
299 else if (strcmp(*argv,"-asn1-kludge") == 0)
300 kludge=1;
301 else if (strcmp(*argv,"-no-asn1-kludge") == 0)
302 kludge=0;
303 else if (strcmp(*argv,"-days") == 0)
304 {
305 if (--argc < 1) goto bad;
306 days= atoi(*(++argv));
307 if (days == 0) days=30;
308 }
309 else if ((md_alg=EVP_get_digestbyname(&((*argv)[1]))) != NULL)
310 {
311 /* ok */
312 digest=md_alg;
313 }
87a25f90
DSH		 314 else if (strcmp(*argv,"-extensions") == 0)
315 {
316 if (--argc < 1) goto bad;
317 extensions = *(++argv);
318 }
319 else if (strcmp(*argv,"-reqexts") == 0)
320 {
321 if (--argc < 1) goto bad;
322 req_exts = *(++argv);
323 }
d02b48c6 324 else
d02b48c6
RE		 325 {
326 BIO_printf(bio_err,"unknown option %s\n",*argv);
327 badops=1;
328 break;
329 }
330 argc--;
331 argv++;
332 }
333
334 if (badops)
335 {
336bad:
337 BIO_printf(bio_err,"%s [options] <infile >outfile\n",prog);
338 BIO_printf(bio_err,"where options are\n");
339 BIO_printf(bio_err," -inform arg input format - one of DER TXT PEM\n");
340 BIO_printf(bio_err," -outform arg output format - one of DER TXT PEM\n");
9fe84296 341 BIO_printf(bio_err," -in arg input file\n");
d02b48c6
RE		 342 BIO_printf(bio_err," -out arg output file\n");
343 BIO_printf(bio_err," -text text form of request\n");
344 BIO_printf(bio_err," -noout do not output REQ\n");
345 BIO_printf(bio_err," -verify verify signature on REQ\n");
346 BIO_printf(bio_err," -modulus RSA modulus\n");
347 BIO_printf(bio_err," -nodes don't encrypt the output key\n");
348 BIO_printf(bio_err," -key file use the private key contained in file\n");
349 BIO_printf(bio_err," -keyform arg key file format\n");
350 BIO_printf(bio_err," -keyout arg file to send the key to\n");
351 BIO_printf(bio_err," -newkey rsa:bits generate a new RSA key of 'bits' in size\n");
352 BIO_printf(bio_err," -newkey dsa:file generate a new DSA key, parameters taken from CA in 'file'\n");
353
354 BIO_printf(bio_err," -[digest] Digest to sign with (md5, sha1, md2, mdc2)\n");
d1f4c83c 355 BIO_printf(bio_err," -config file request template file.\n");
d02b48c6
RE		 356 BIO_printf(bio_err," -new new request.\n");
357 BIO_printf(bio_err," -x509 output a x509 structure instead of a cert. req.\n");
358 BIO_printf(bio_err," -days number of days a x509 generated by -x509 is valid for.\n");
359 BIO_printf(bio_err," -asn1-kludge Output the 'request' in a format that is wrong but some CA's\n");
360 BIO_printf(bio_err," have been reported as requiring\n");
361 BIO_printf(bio_err," [ It is now always turned on but can be turned off with -no-asn1-kludge ]\n");
87a25f90
DSH		 362 BIO_printf(bio_err," -extensions .. specify certificate extension section (override value in config file)\n");
363 BIO_printf(bio_err," -reqexts .. specify request extension section (override value in config file)\n");
d02b48c6
RE		 364 goto end;
365 }
366
367 ERR_load_crypto_strings();
368
3db1f2d5 369#ifndef MONOLITH /* else this has happened in openssl.c (global `config') */
d02b48c6 370 /* Lets load up our environment a little */
06d5b162
RE		 371 p=getenv("OPENSSL_CONF");
372 if (p == NULL)
373 p=getenv("SSLEAY_CONF");
d02b48c6
RE		 374 if (p == NULL)
375 {
376 strcpy(config_name,X509_get_default_cert_area());
7d7d2cbc 377#ifndef VMS
7af62c3c 378 strcat(config_name,"/");
7d7d2cbc 379#endif
06d5b162 380 strcat(config_name,OPENSSL_CONF);
d02b48c6
RE		 381 p=config_name;
382 }
3db1f2d5 383 default_config_file=p;
d02b48c6
RE		 384 config=CONF_load(config,p,NULL);
385#endif
386
387 if (template != NULL)
388 {
389 long errline;
390
391 BIO_printf(bio_err,"Using configuration from %s\n",template);
392 req_conf=CONF_load(NULL,template,&errline);
393 if (req_conf == NULL)
394 {
395 BIO_printf(bio_err,"error on line %ld of %s\n",errline,template);
396 goto end;
397 }
398 }
399 else
400 {
401 req_conf=config;
402 BIO_printf(bio_err,"Using configuration from %s\n",
403 default_config_file);
404 if (req_conf == NULL)
405 {
406 BIO_printf(bio_err,"Unable to load config info\n");
407 }
408 }
409
dfeab068
RE		 410 if (req_conf != NULL)
411 {
412 p=CONF_get_string(req_conf,NULL,"oid_file");
413 if (p != NULL)
414 {
415 BIO *oid_bio;
416
417 oid_bio=BIO_new_file(p,"r");
418 if (oid_bio == NULL)
419 {
420 /*
421 BIO_printf(bio_err,"problems opening %s for extra oid's\n",p);
422 ERR_print_errors(bio_err);
423 */
424 }
425 else
426 {
427 OBJ_create_objects(oid_bio);
428 BIO_free(oid_bio);
429 }
430 }
431 }
a43aa73e 432 if(!add_oid_section(req_conf)) goto end;
dfeab068 433
d02b48c6
RE		 434 if ((md_alg == NULL) &&
435 ((p=CONF_get_string(req_conf,SECTION,"default_md")) != NULL))
436 {
437 if ((md_alg=EVP_get_digestbyname(p)) != NULL)
438 digest=md_alg;
439 }
440
87a25f90
DSH		 441 if(!extensions)
442 extensions = CONF_get_string(req_conf, SECTION, V3_EXTENSIONS);
1756d405
DSH		 443 if(extensions) {
444 /* Check syntax of file */
41b731f2
DSH		 445 X509V3_CTX ctx;
446 X509V3_set_ctx_test(&ctx);
447 X509V3_set_conf_lhash(&ctx, req_conf);
448 if(!X509V3_EXT_add_conf(req_conf, &ctx, extensions, NULL)) {
1756d405
DSH		 449 BIO_printf(bio_err,
450 "Error Loading extension section %s\n", extensions);
451 goto end;
452 }
453 }
f317aa4c 454
74400f73
DSH		 455 p = CONF_get_string(req_conf, SECTION, DIRSTRING_TYPE);
456
457 if(p && !ASN1_STRING_set_default_mask_asc(p)) {
458 BIO_printf(bio_err, "Invalid DiretoryString setting %s", p);
459 goto end;
460 }
461
87a25f90
DSH		 462 if(!req_exts)
463 req_exts = CONF_get_string(req_conf, SECTION, REQ_EXTENSIONS);
c79b16e1
DSH		 464 if(req_exts) {
465 /* Check syntax of file */
466 X509V3_CTX ctx;
467 X509V3_set_ctx_test(&ctx);
468 X509V3_set_conf_lhash(&ctx, req_conf);
469 if(!X509V3_EXT_add_conf(req_conf, &ctx, req_exts, NULL)) {
470 BIO_printf(bio_err,
471 "Error Loading request extension section %s\n",
472 req_exts);
473 goto end;
474 }
475 }
476
d02b48c6
RE		 477 in=BIO_new(BIO_s_file());
478 out=BIO_new(BIO_s_file());
479 if ((in == NULL) || (out == NULL))
480 goto end;
481
482 if (keyfile != NULL)
483 {
484 if (BIO_read_filename(in,keyfile) <= 0)
485 {
486 perror(keyfile);
487 goto end;
488 }
489
490/* if (keyform == FORMAT_ASN1)
491 rsa=d2i_RSAPrivateKey_bio(in,NULL);
492 else */
493 if (keyform == FORMAT_PEM)
74678cc2 494 pkey=PEM_read_bio_PrivateKey(in,NULL,NULL,NULL);
d02b48c6
RE		 495 else
496 {
497 BIO_printf(bio_err,"bad input format specified for X509 request\n");
498 goto end;
499 }
500
501 if (pkey == NULL)
502 {
503 BIO_printf(bio_err,"unable to load Private key\n");
504 goto end;
505 }
506 }
507
508 if (newreq && (pkey == NULL))
509 {
a31011e8
BM		 510 char *randfile = CONF_get_string(req_conf,SECTION,"RANDFILE");
511 app_RAND_load_file(randfile, bio_err, 0);
512
d02b48c6
RE		 513 if (newkey <= 0)
514 {
515 newkey=(int)CONF_get_number(req_conf,SECTION,BITS);
516 if (newkey <= 0)
517 newkey=DEFAULT_KEY_LENGTH;
518 }
519
520 if (newkey < MIN_KEY_LENGTH)
521 {
522 BIO_printf(bio_err,"private key length is too short,\n");
523 BIO_printf(bio_err,"it needs to be at least %d bits, not %d\n",MIN_KEY_LENGTH,newkey);
524 goto end;
525 }
526 BIO_printf(bio_err,"Generating a %d bit %s private key\n",
527 newkey,(pkey_type == TYPE_RSA)?"RSA":"DSA");
528
529 if ((pkey=EVP_PKEY_new()) == NULL) goto end;
530
531#ifndef NO_RSA
532 if (pkey_type == TYPE_RSA)
533 {
534 if (!EVP_PKEY_assign_RSA(pkey,
58964a49 535 RSA_generate_key(newkey,0x10001,
b4f76582 536 req_cb,bio_err)))
d02b48c6
RE		 537 goto end;
538 }
539 else
540#endif
541#ifndef NO_DSA
542 if (pkey_type == TYPE_DSA)
543 {
544 if (!DSA_generate_key(dsa_params)) goto end;
545 if (!EVP_PKEY_assign_DSA(pkey,dsa_params)) goto end;
546 dsa_params=NULL;
547 }
548#endif
549
a31011e8 550 app_RAND_write_file(randfile, bio_err);
d02b48c6
RE		 551
552 if (pkey == NULL) goto end;
553
554 if (keyout == NULL)
555 keyout=CONF_get_string(req_conf,SECTION,KEYFILE);
556
557 if (keyout == NULL)
558 {
559 BIO_printf(bio_err,"writing new private key to stdout\n");
560 BIO_set_fp(out,stdout,BIO_NOCLOSE);
561 }
562 else
563 {
564 BIO_printf(bio_err,"writing new private key to '%s'\n",keyout);
565 if (BIO_write_filename(out,keyout) <= 0)
566 {
567 perror(keyout);
568 goto end;
569 }
570 }
571
572 p=CONF_get_string(req_conf,SECTION,"encrypt_rsa_key");
573 if (p == NULL)
574 p=CONF_get_string(req_conf,SECTION,"encrypt_key");
575 if ((p != NULL) && (strcmp(p,"no") == 0))
576 cipher=NULL;
577 if (nodes) cipher=NULL;
578
579 i=0;
580loop:
581 if (!PEM_write_bio_PrivateKey(out,pkey,cipher,
74678cc2 582 NULL,0,NULL,NULL))
d02b48c6
RE		 583 {
584 if ((ERR_GET_REASON(ERR_peek_error()) ==
585 PEM_R_PROBLEMS_GETTING_PASSWORD) && (i < 3))
586 {
587 ERR_clear_error();
588 i++;
589 goto loop;
590 }
591 goto end;
592 }
593 BIO_printf(bio_err,"-----\n");
594 }
595
596 if (!newreq)
597 {
598 /* Since we are using a pre-existing certificate
599 * request, the kludge 'format' info should not be
600 * changed. */
601 kludge= -1;
602 if (infile == NULL)
603 BIO_set_fp(in,stdin,BIO_NOCLOSE);
604 else
605 {
606 if (BIO_read_filename(in,infile) <= 0)
607 {
608 perror(infile);
609 goto end;
610 }
611 }
612
613 if (informat == FORMAT_ASN1)
614 req=d2i_X509_REQ_bio(in,NULL);
615 else if (informat == FORMAT_PEM)
74678cc2 616 req=PEM_read_bio_X509_REQ(in,NULL,NULL,NULL);
d02b48c6
RE		 617 else
618 {
619 BIO_printf(bio_err,"bad input format specified for X509 request\n");
620 goto end;
621 }
622 if (req == NULL)
623 {
624 BIO_printf(bio_err,"unable to load X509 request\n");
625 goto end;
626 }
627 }
628
629 if (newreq || x509)
630 {
58964a49 631#ifndef NO_DSA
d02b48c6
RE		 632 if (pkey->type == EVP_PKEY_DSA)
633 digest=EVP_dss1();
58964a49 634#endif
d02b48c6
RE		 635
636 if (pkey == NULL)
637 {
638 BIO_printf(bio_err,"you need to specify a private key\n");
639 goto end;
640 }
641 if (req == NULL)
642 {
643 req=X509_REQ_new();
644 if (req == NULL)
645 {
646 goto end;
647 }
648
649 i=make_REQ(req,pkey,!x509);
650 if (kludge >= 0)
651 req->req_info->req_kludge=kludge;
652 if (!i)
653 {
654 BIO_printf(bio_err,"problems making Certificate Request\n");
655 goto end;
656 }
657 }
658 if (x509)
659 {
10061c7c 660 EVP_PKEY *tmppkey;
f317aa4c 661 X509V3_CTX ext_ctx;
d02b48c6
RE		 662 if ((x509ss=X509_new()) == NULL) goto end;
663
f317aa4c
DSH		 664 /* Set version to V3 */
665 if(!X509_set_version(x509ss, 2)) goto end;
d02b48c6
RE		 666 ASN1_INTEGER_set(X509_get_serialNumber(x509ss),0L);
667
668 X509_set_issuer_name(x509ss,
669 X509_REQ_get_subject_name(req));
670 X509_gmtime_adj(X509_get_notBefore(x509ss),0);
671 X509_gmtime_adj(X509_get_notAfter(x509ss),
672 (long)60*60*24*days);
673 X509_set_subject_name(x509ss,
674 X509_REQ_get_subject_name(req));
10061c7c
DSH		 675 tmppkey = X509_REQ_get_pubkey(req);
676 X509_set_pubkey(x509ss,tmppkey);
677 EVP_PKEY_free(tmppkey);
d02b48c6 678
f317aa4c
DSH		 679 /* Set up V3 context struct */
680
1d48dd00
DSH		 681 X509V3_set_ctx(&ext_ctx, x509ss, x509ss, NULL, NULL, 0);
682 X509V3_set_conf_lhash(&ext_ctx, req_conf);
f317aa4c
DSH		 683
684 /* Add extensions */
685 if(extensions && !X509V3_EXT_add_conf(req_conf,
9f7646da
BL		 686 &ext_ctx, extensions, x509ss))
687 {
688 BIO_printf(bio_err,
689 "Error Loading extension section %s\n",
690 extensions);
691 goto end;
692 }
f317aa4c 693
d02b48c6
RE		 694 if (!(i=X509_sign(x509ss,pkey,digest)))
695 goto end;
696 }
697 else
698 {
c79b16e1
DSH		 699 X509V3_CTX ext_ctx;
700
701 /* Set up V3 context struct */
702
703 X509V3_set_ctx(&ext_ctx, NULL, NULL, req, NULL, 0);
704 X509V3_set_conf_lhash(&ext_ctx, req_conf);
705
706 /* Add extensions */
707 if(req_exts && !X509V3_EXT_REQ_add_conf(req_conf,
708 &ext_ctx, req_exts, req))
709 {
710 BIO_printf(bio_err,
711 "Error Loading extension section %s\n",
712 req_exts);
713 goto end;
714 }
d02b48c6
RE		 715 if (!(i=X509_REQ_sign(req,pkey,digest)))
716 goto end;
717 }
718 }
719
720 if (verify && !x509)
721 {
722 int tmp=0;
723
724 if (pkey == NULL)
725 {
726 pkey=X509_REQ_get_pubkey(req);
727 tmp=1;
728 if (pkey == NULL) goto end;
729 }
730
731 i=X509_REQ_verify(req,pkey);
cfcf6453
DSH		 732 if (tmp) {
733 EVP_PKEY_free(pkey);
734 pkey=NULL;
735 }
d02b48c6
RE		 736
737 if (i < 0)
738 {
739 goto end;
740 }
741 else if (i == 0)
742 {
743 BIO_printf(bio_err,"verify failure\n");
744 }
745 else /* if (i > 0) */
746 BIO_printf(bio_err,"verify OK\n");
747 }
748
749 if (noout && !text && !modulus)
750 {
751 ex=0;
752 goto end;
753 }
754
755 if (outfile == NULL)
756 BIO_set_fp(out,stdout,BIO_NOCLOSE);
757 else
758 {
759 if ((keyout != NULL) && (strcmp(outfile,keyout) == 0))
760 i=(int)BIO_append_filename(out,outfile);
761 else
762 i=(int)BIO_write_filename(out,outfile);
763 if (!i)
764 {
765 perror(outfile);
766 goto end;
767 }
768 }
769
770 if (text)
771 {
772 if (x509)
773 X509_print(out,x509ss);
774 else
775 X509_REQ_print(out,req);
776 }
777
778 if (modulus)
779 {
780 EVP_PKEY *pubkey;
781
782 if (x509)
783 pubkey=X509_get_pubkey(x509ss);
784 else
785 pubkey=X509_REQ_get_pubkey(req);
786 if (pubkey == NULL)
787 {
788 fprintf(stdout,"Modulus=unavailable\n");
789 goto end;
790 }
791 fprintf(stdout,"Modulus=");
13e91dd3 792#ifndef NO_RSA
d02b48c6
RE		 793 if (pubkey->type == EVP_PKEY_RSA)
794 BN_print(out,pubkey->pkey.rsa->n);
795 else
13e91dd3 796#endif
d02b48c6
RE		 797 fprintf(stdout,"Wrong Algorithm type");
798 fprintf(stdout,"\n");
799 }
800
801 if (!noout && !x509)
802 {
803 if (outformat == FORMAT_ASN1)
804 i=i2d_X509_REQ_bio(out,req);
805 else if (outformat == FORMAT_PEM)
806 i=PEM_write_bio_X509_REQ(out,req);
807 else {
808 BIO_printf(bio_err,"bad output format specified for outfile\n");
809 goto end;
810 }
811 if (!i)
812 {
813 BIO_printf(bio_err,"unable to write X509 request\n");
814 goto end;
815 }
816 }
817 if (!noout && x509 && (x509ss != NULL))
818 {
819 if (outformat == FORMAT_ASN1)
820 i=i2d_X509_bio(out,x509ss);
821 else if (outformat == FORMAT_PEM)
822 i=PEM_write_bio_X509(out,x509ss);
823 else {
824 BIO_printf(bio_err,"bad output format specified for outfile\n");
825 goto end;
826 }
827 if (!i)
828 {
829 BIO_printf(bio_err,"unable to write X509 certificate\n");
830 goto end;
831 }
832 }
833 ex=0;
834end:
835 if (ex)
836 {
837 ERR_print_errors(bio_err);
838 }
839 if ((req_conf != NULL) && (req_conf != config)) CONF_free(req_conf);
a43aa73e
DSH		 840 BIO_free(in);
841 BIO_free(out);
842 EVP_PKEY_free(pkey);
843 X509_REQ_free(req);
844 X509_free(x509ss);
a43aa73e 845 OBJ_cleanup();
58964a49 846#ifndef NO_DSA
d02b48c6 847 if (dsa_params != NULL) DSA_free(dsa_params);
58964a49 848#endif
d02b48c6
RE		 849 EXIT(ex);
850 }
851
6b691a5c 852static int make_REQ(X509_REQ *req, EVP_PKEY *pkey, int attribs)
d02b48c6 853 {
a43aa73e 854 int ret=0,i;
95dc05bc 855 char *p,*q;
d02b48c6
RE		 856 X509_REQ_INFO *ri;
857 char buf[100];
858 int nid,min,max;
859 char *type,*def,*tmp,*value,*tmp_attr;
ba404b5e 860 STACK_OF(CONF_VALUE) *sk, *attr=NULL;
d02b48c6
RE		 861 CONF_VALUE *v;
862
863 tmp=CONF_get_string(req_conf,SECTION,DISTINGUISHED_NAME);
864 if (tmp == NULL)
865 {
866 BIO_printf(bio_err,"unable to find '%s' in config\n",
867 DISTINGUISHED_NAME);
868 goto err;
869 }
870 sk=CONF_get_section(req_conf,tmp);
871 if (sk == NULL)
872 {
873 BIO_printf(bio_err,"unable to get '%s' section\n",tmp);
874 goto err;
875 }
876
877 tmp_attr=CONF_get_string(req_conf,SECTION,ATTRIBUTES);
878 if (tmp_attr == NULL)
879 attr=NULL;
880 else
881 {
882 attr=CONF_get_section(req_conf,tmp_attr);
883 if (attr == NULL)
884 {
885 BIO_printf(bio_err,"unable to get '%s' section\n",tmp_attr);
886 goto err;
887 }
888 }
889
890 ri=req->req_info;
891
74400f73
DSH		 892 /* setup version number */
893 if (!ASN1_INTEGER_set(ri->version,0L)) goto err; /* version 1 */
894
d02b48c6
RE		 895 BIO_printf(bio_err,"You are about to be asked to enter information that will be incorporated\n");
896 BIO_printf(bio_err,"into your certificate request.\n");
897 BIO_printf(bio_err,"What you are about to enter is what is called a Distinguished Name or a DN.\n");
898 BIO_printf(bio_err,"There are quite a few fields but you can leave some blank\n");
899 BIO_printf(bio_err,"For some fields there will be a default value,\n");
900 BIO_printf(bio_err,"If you enter '.', the field will be left blank.\n");
901 BIO_printf(bio_err,"-----\n");
902
d02b48c6 903
ba404b5e 904 if (sk_CONF_VALUE_num(sk))
d02b48c6
RE		 905 {
906 i= -1;
907start: for (;;)
908 {
909 i++;
ba404b5e 910 if (sk_CONF_VALUE_num(sk) <= i) break;
d02b48c6 911
ba404b5e 912 v=sk_CONF_VALUE_value(sk,i);
58964a49 913 p=q=NULL;
d02b48c6 914 type=v->name;
a43aa73e
DSH		 915 if(!check_end(type,"_min") || !check_end(type,"_max") ||
916 !check_end(type,"_default") ||
917 !check_end(type,"_value")) continue;
918 /* Skip past any leading X. X: X, etc to allow for
919 * multiple instances
920 */
921 for(p = v->name; *p ; p++)
6b313a73
DSH		 922 if ((*p == ':') || (*p == ',') ||
923 (*p == '.')) {
924 p++;
925 if(*p) type = p;
926 break;
927 }
a43aa73e
DSH		 928 /* If OBJ not recognised ignore it */
929 if ((nid=OBJ_txt2nid(type)) == NID_undef) goto start;
d02b48c6
RE		 930 sprintf(buf,"%s_default",v->name);
931 if ((def=CONF_get_string(req_conf,tmp,buf)) == NULL)
932 def="";
933
934 sprintf(buf,"%s_value",v->name);
935 if ((value=CONF_get_string(req_conf,tmp,buf)) == NULL)
936 value=NULL;
937
938 sprintf(buf,"%s_min",v->name);
939 min=(int)CONF_get_number(req_conf,tmp,buf);
940
941 sprintf(buf,"%s_max",v->name);
942 max=(int)CONF_get_number(req_conf,tmp,buf);
943
944 if (!add_DN_object(ri->subject,v->value,def,value,nid,
945 min,max))
946 goto err;
947 }
65d4927b 948 if (sk_X509_NAME_ENTRY_num(ri->subject->entries) == 0)
d02b48c6
RE		 949 {
950 BIO_printf(bio_err,"error, no objects specified in config file\n");
951 goto err;
952 }
953
954 if (attribs)
955 {
ba404b5e 956 if ((attr != NULL) && (sk_CONF_VALUE_num(attr) > 0))
d02b48c6
RE		 957 {
958 BIO_printf(bio_err,"\nPlease enter the following 'extra' attributes\n");
959 BIO_printf(bio_err,"to be sent with your certificate request\n");
960 }
961
962 i= -1;
963start2: for (;;)
964 {
965 i++;
ba404b5e
DSH		 966 if ((attr == NULL) ||
967 (sk_CONF_VALUE_num(attr) <= i))
d02b48c6
RE		 968 break;
969
ba404b5e 970 v=sk_CONF_VALUE_value(attr,i);
d02b48c6
RE		 971 type=v->name;
972 if ((nid=OBJ_txt2nid(type)) == NID_undef)
973 goto start2;
974
975 sprintf(buf,"%s_default",type);
976 if ((def=CONF_get_string(req_conf,tmp_attr,buf))
977 == NULL)
978 def="";
979
980 sprintf(buf,"%s_value",type);
981 if ((value=CONF_get_string(req_conf,tmp_attr,buf))
982 == NULL)
983 value=NULL;
984
985 sprintf(buf,"%s_min",type);
986 min=(int)CONF_get_number(req_conf,tmp_attr,buf);
987
988 sprintf(buf,"%s_max",type);
989 max=(int)CONF_get_number(req_conf,tmp_attr,buf);
990
991 if (!add_attribute_object(ri->attributes,
992 v->value,def,value,nid,min,max))
993 goto err;
994 }
995 }
996 }
997 else
998 {
999 BIO_printf(bio_err,"No template, please set one up.\n");
1000 goto err;
1001 }
1002
1003 X509_REQ_set_pubkey(req,pkey);
1004
1005 ret=1;
1006err:
1007 return(ret);
1008 }
1009
6b691a5c
UM		 1010static int add_DN_object(X509_NAME *n, char *text, char *def, char *value,
1011 int nid, int min, int max)
d02b48c6 1012 {
74400f73 1013 int i,ret=0;
d02b48c6
RE		 1014 MS_STATIC char buf[1024];
1015
1016 BIO_printf(bio_err,"%s [%s]:",text,def);
d58d092b 1017 (void)BIO_flush(bio_err);
d02b48c6
RE		 1018 if (value != NULL)
1019 {
1020 strcpy(buf,value);
1021 strcat(buf,"\n");
1022 BIO_printf(bio_err,"%s\n",value);
1023 }
1024 else
1025 {
1026 buf[0]='\0';
1027 fgets(buf,1024,stdin);
1028 }
1029
1030 if (buf[0] == '\0') return(0);
1031 else if (buf[0] == '\n')
1032 {
1033 if ((def == NULL) || (def[0] == '\0'))
1034 return(1);
1035 strcpy(buf,def);
1036 strcat(buf,"\n");
1037 }
1038 else if ((buf[0] == '.') && (buf[1] == '\n')) return(1);
1039
1040 i=strlen(buf);
1041 if (buf[i-1] != '\n')
1042 {
1043 BIO_printf(bio_err,"weird input :-(\n");
1044 return(0);
1045 }
1046 buf[--i]='\0';
1047
a53955d8
UM		 1048#ifdef CHARSET_EBCDIC
1049 ebcdic2ascii(buf, buf, i);
1050#endif
06556a17 1051 if(!req_fix_data(-1, NULL, i, min, max)) goto err;
74400f73
DSH		 1052 if (!X509_NAME_add_entry_by_NID(n,nid, MBSTRING_ASC,
1053 (unsigned char *) buf, -1,-1,0)) goto err;
d02b48c6
RE		 1054 ret=1;
1055err:
d02b48c6
RE		 1056 return(ret);
1057 }
1058
d500de16
BL		 1059static int add_attribute_object(STACK_OF(X509_ATTRIBUTE) *n, char *text,
1060 char *def, char *value, int nid, int min,
1061 int max)
d02b48c6
RE		 1062 {
1063 int i,z;
1064 X509_ATTRIBUTE *xa=NULL;
1065 static char buf[1024];
1066 ASN1_BIT_STRING *bs=NULL;
1067 ASN1_TYPE *at=NULL;
1068
1069start:
1070 BIO_printf(bio_err,"%s [%s]:",text,def);
d58d092b 1071 (void)BIO_flush(bio_err);
d02b48c6
RE		 1072 if (value != NULL)
1073 {
1074 strcpy(buf,value);
1075 strcat(buf,"\n");
1076 BIO_printf(bio_err,"%s\n",value);
1077 }
1078 else
1079 {
1080 buf[0]='\0';
1081 fgets(buf,1024,stdin);
1082 }
1083
1084 if (buf[0] == '\0') return(0);
1085 else if (buf[0] == '\n')
1086 {
1087 if ((def == NULL) || (def[0] == '\0'))
1088 return(1);
1089 strcpy(buf,def);
1090 strcat(buf,"\n");
1091 }
1092 else if ((buf[0] == '.') && (buf[1] == '\n')) return(1);
1093
1094 i=strlen(buf);
1095 if (buf[i-1] != '\n')
1096 {
1097 BIO_printf(bio_err,"weird input :-(\n");
1098 return(0);
1099 }
1100 buf[--i]='\0';
1101
1102 /* add object plus value */
1103 if ((xa=X509_ATTRIBUTE_new()) == NULL)
1104 goto err;
d35ea5b0 1105 if ((xa->value.set=sk_ASN1_TYPE_new_null()) == NULL)
d02b48c6
RE		 1106 goto err;
1107 xa->set=1;
1108
1109 if (xa->object != NULL) ASN1_OBJECT_free(xa->object);
1110 xa->object=OBJ_nid2obj(nid);
1111
1112 if ((bs=ASN1_BIT_STRING_new()) == NULL) goto err;
1113
1114 bs->type=ASN1_PRINTABLE_type((unsigned char *)buf,-1);
1115
1116 z=req_fix_data(nid,&bs->type,i,min,max);
1117 if (z == 0)
1118 {
1119 if (value == NULL)
1120 goto start;
1121 else goto err;
1122 }
1123
06556a17 1124 if (!ASN1_STRING_set(bs,(unsigned char *)buf,i))
d02b48c6
RE		 1125 { BIO_printf(bio_err,"Malloc failure\n"); goto err; }
1126
1127 if ((at=ASN1_TYPE_new()) == NULL)
1128 { BIO_printf(bio_err,"Malloc failure\n"); goto err; }
1129
1130 ASN1_TYPE_set(at,bs->type,(char *)bs);
d35ea5b0 1131 sk_ASN1_TYPE_push(xa->value.set,at);
d02b48c6
RE		 1132 bs=NULL;
1133 at=NULL;
1134 /* only one item per attribute */
1135
d500de16 1136 if (!sk_X509_ATTRIBUTE_push(n,xa)) goto err;
d02b48c6
RE		 1137 return(1);
1138err:
1139 if (xa != NULL) X509_ATTRIBUTE_free(xa);
1140 if (at != NULL) ASN1_TYPE_free(at);
1141 if (bs != NULL) ASN1_BIT_STRING_free(bs);
1142 return(0);
1143 }
1144
b4f76582 1145static void MS_CALLBACK req_cb(int p, int n, void *arg)
d02b48c6
RE		 1146 {
1147 char c='*';
1148
1149 if (p == 0) c='.';
1150 if (p == 1) c='+';
1151 if (p == 2) c='*';
1152 if (p == 3) c='\n';
58964a49 1153 BIO_write((BIO *)arg,&c,1);
d58d092b 1154 (void)BIO_flush((BIO *)arg);
d02b48c6
RE		 1155#ifdef LINT
1156 p=n;
1157#endif
1158 }
1159
6b691a5c 1160static int req_fix_data(int nid, int *type, int len, int min, int max)
d02b48c6 1161 {
06556a17
DSH		 1162 if(type) {
1163 if (nid == NID_pkcs9_emailAddress)
1164 *type=V_ASN1_IA5STRING;
1165 if ((nid == NID_commonName) && (*type == V_ASN1_IA5STRING))
1166 *type=V_ASN1_T61STRING;
1167 if ((nid == NID_pkcs9_challengePassword) &&
1168 (*type == V_ASN1_IA5STRING))
1169 *type=V_ASN1_T61STRING;
1170
1171 if ((nid == NID_pkcs9_unstructuredName) &&
1172 (*type == V_ASN1_T61STRING))
1173 {
1174 BIO_printf(bio_err,"invalid characters in string, please re-enter the string\n");
1175 return(0);
1176 }
1177 if (nid == NID_pkcs9_unstructuredName)
1178 *type=V_ASN1_IA5STRING;
1179 }
d02b48c6
RE		 1180 if (len < min)
1181 {
1182 BIO_printf(bio_err,"string is too short, it needs to be at least %d bytes long\n",min);
1183 return(0);
1184 }
1185 if ((max != 0) && (len > max))
1186 {
1187 BIO_printf(bio_err,"string is too long, it needs to be less than %d bytes long\n",max);
1188 return(0);
1189 }
1190 return(1);
1191 }
a43aa73e
DSH		 1192
1193/* Check if the end of a string matches 'end' */
6b691a5c 1194static int check_end(char *str, char *end)
a43aa73e
DSH		 1195{
1196 int elen, slen;
1197 char *tmp;
1198 elen = strlen(end);
1199 slen = strlen(str);
1200 if(elen > slen) return 1;
1201 tmp = str + slen - elen;
a43aa73e
DSH		 1202 return strcmp(tmp, end);
1203}
1204
6b691a5c 1205static int add_oid_section(LHASH *conf)
a43aa73e
DSH		 1206{
1207 char *p;
ba404b5e 1208 STACK_OF(CONF_VALUE) *sktmp;
a43aa73e
DSH		 1209 CONF_VALUE *cnf;
1210 int i;
1211 if(!(p=CONF_get_string(conf,NULL,"oid_section"))) return 1;
1212 if(!(sktmp = CONF_get_section(conf, p))) {
1213 BIO_printf(bio_err, "problem loading oid section %s\n", p);
1214 return 0;
1215 }
ba404b5e
DSH		 1216 for(i = 0; i < sk_CONF_VALUE_num(sktmp); i++) {
1217 cnf = sk_CONF_VALUE_value(sktmp, i);
a43aa73e
DSH		 1218 if(OBJ_create(cnf->value, cnf->name, cnf->name) == NID_undef) {
1219 BIO_printf(bio_err, "problem creating object %s=%s\n",
1220 cnf->name, cnf->value);
1221 return 0;
1222 }
1223 }
1224 return 1;
1225}
A mirror of the official openssl repository