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