1 /* $OpenBSD: x509.c,v 1.29 2021/12/12 20:34:04 tb Exp $ */
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 <assert.h>
60 #include <limits.h>
61 #include <stdio.h>
62 #include <stdlib.h>
63 #include <string.h>
64
65 #include "apps.h"
66
67 #include <openssl/asn1.h>
68 #include <openssl/bio.h>
69 #include <openssl/bn.h>
70 #include <openssl/dsa.h>
71 #include <openssl/err.h>
72 #include <openssl/evp.h>
73 #include <openssl/objects.h>
74 #include <openssl/pem.h>
75 #include <openssl/rsa.h>
76 #include <openssl/x509.h>
77 #include <openssl/x509v3.h>
78
79 #define POSTFIX ".srl"
80 #define DEF_DAYS 30
81
82 static int callb(int ok, X509_STORE_CTX *ctx);
83 static int sign(X509 *x, EVP_PKEY *pkey, int days, int clrext,
84 const EVP_MD *digest, CONF *conf, char *section);
85 static int x509_certify(X509_STORE *ctx, char *CAfile, const EVP_MD *digest,
86 X509 *x, X509 *xca, EVP_PKEY *pkey, STACK_OF(OPENSSL_STRING) *sigopts,
87 char *serial, int create, int days, int clrext, CONF *conf, char *section,
88 ASN1_INTEGER *sno);
89 static int purpose_print(BIO *bio, X509 *cert, X509_PURPOSE *pt);
90
91 static struct {
92 char *alias;
93 int aliasout;
94 int badops;
95 int C;
96 int CA_createserial;
97 int CA_flag;
98 char *CAfile;
99 int CAformat;
100 char *CAkeyfile;
101 int CAkeyformat;
102 char *CAserial;
103 unsigned long certflag;
104 int checkend;
105 int checkoffset;
106 int clrext;
107 int clrreject;
108 int clrtrust;
109 int days;
110 const EVP_MD *digest;
111 int email;
112 int enddate;
113 char *extfile;
114 char *extsect;
115 int fingerprint;
116 char *infile;
117 int informat;
118 int issuer;
119 int issuer_hash;
120 #ifndef OPENSSL_NO_MD5
121 int issuer_hash_old;
122 #endif
123 char *keyfile;
124 int keyformat;
125 const EVP_MD *md_alg;
126 int modulus;
127 int next_serial;
128 unsigned long nmflag;
129 int noout;
130 int num;
131 int ocspid;
132 ASN1_OBJECT *objtmp;
133 int ocsp_uri;
134 char *outfile;
135 int outformat;
136 char *passargin;
137 int pprint;
138 int pubkey;
139 STACK_OF(ASN1_OBJECT) *reject;
140 int reqfile;
141 int serial;
142 int sign_flag;
143 STACK_OF(OPENSSL_STRING) *sigopts;
144 ASN1_INTEGER *sno;
145 int startdate;
146 int subject;
147 int subject_hash;
148 #ifndef OPENSSL_NO_MD5
149 int subject_hash_old;
150 #endif
151 int text;
152 STACK_OF(ASN1_OBJECT) *trust;
153 int trustout;
154 int x509req;
155 } x509_config;
156
157 static int
x509_opt_addreject(char * arg)158 x509_opt_addreject(char *arg)
159 {
160 if ((x509_config.objtmp = OBJ_txt2obj(arg, 0)) == NULL) {
161 BIO_printf(bio_err, "Invalid reject object value %s\n", arg);
162 return (1);
163 }
164
165 if (x509_config.reject == NULL &&
166 (x509_config.reject = sk_ASN1_OBJECT_new_null()) == NULL)
167 return (1);
168
169 if (!sk_ASN1_OBJECT_push(x509_config.reject, x509_config.objtmp))
170 return (1);
171
172 x509_config.trustout = 1;
173 return (0);
174 }
175
176 static int
x509_opt_addtrust(char * arg)177 x509_opt_addtrust(char *arg)
178 {
179 if ((x509_config.objtmp = OBJ_txt2obj(arg, 0)) == NULL) {
180 BIO_printf(bio_err, "Invalid trust object value %s\n", arg);
181 return (1);
182 }
183
184 if (x509_config.trust == NULL &&
185 (x509_config.trust = sk_ASN1_OBJECT_new_null()) == NULL)
186 return (1);
187
188 if (!sk_ASN1_OBJECT_push(x509_config.trust, x509_config.objtmp))
189 return (1);
190
191 x509_config.trustout = 1;
192 return (0);
193 }
194
195 static int
x509_opt_ca(char * arg)196 x509_opt_ca(char *arg)
197 {
198 x509_config.CAfile = arg;
199 x509_config.CA_flag = ++x509_config.num;
200 return (0);
201 }
202
203 static int
x509_opt_certopt(char * arg)204 x509_opt_certopt(char *arg)
205 {
206 if (!set_cert_ex(&x509_config.certflag, arg))
207 return (1);
208
209 return (0);
210 }
211
212 static int
x509_opt_checkend(char * arg)213 x509_opt_checkend(char *arg)
214 {
215 const char *errstr;
216
217 x509_config.checkoffset = strtonum(arg, 0, INT_MAX, &errstr);
218 if (errstr != NULL) {
219 BIO_printf(bio_err, "checkend unusable: %s\n", errstr);
220 return (1);
221 }
222 x509_config.checkend = 1;
223 return (0);
224 }
225
226 static int
x509_opt_dates(void)227 x509_opt_dates(void)
228 {
229 x509_config.startdate = ++x509_config.num;
230 x509_config.enddate = ++x509_config.num;
231 return (0);
232 }
233
234 static int
x509_opt_days(char * arg)235 x509_opt_days(char *arg)
236 {
237 const char *errstr;
238
239 x509_config.days = strtonum(arg, 1, INT_MAX, &errstr);
240 if (errstr != NULL) {
241 BIO_printf(bio_err, "bad number of days: %s\n", errstr);
242 return (1);
243 }
244 return (0);
245 }
246
247 static int
x509_opt_digest(int argc,char ** argv,int * argsused)248 x509_opt_digest(int argc, char **argv, int *argsused)
249 {
250 char *name = argv[0];
251
252 if (*name++ != '-')
253 return (1);
254
255 if ((x509_config.md_alg = EVP_get_digestbyname(name)) != NULL) {
256 x509_config.digest = x509_config.md_alg;
257 } else {
258 BIO_printf(bio_err, "unknown option %s\n", *argv);
259 x509_config.badops = 1;
260 return (1);
261 }
262
263 *argsused = 1;
264 return (0);
265 }
266
267 static int
x509_opt_nameopt(char * arg)268 x509_opt_nameopt(char *arg)
269 {
270 if (!set_name_ex(&x509_config.nmflag, arg))
271 return (1);
272
273 return (0);
274 }
275
276 static int
x509_opt_set_serial(char * arg)277 x509_opt_set_serial(char *arg)
278 {
279 ASN1_INTEGER_free(x509_config.sno);
280 if ((x509_config.sno = s2i_ASN1_INTEGER(NULL, arg)) == NULL)
281 return (1);
282
283 return (0);
284 }
285
286 static int
x509_opt_setalias(char * arg)287 x509_opt_setalias(char *arg)
288 {
289 x509_config.alias = arg;
290 x509_config.trustout = 1;
291 return (0);
292 }
293
294 static int
x509_opt_signkey(char * arg)295 x509_opt_signkey(char *arg)
296 {
297 x509_config.keyfile = arg;
298 x509_config.sign_flag = ++x509_config.num;
299 return (0);
300 }
301
302 static int
x509_opt_sigopt(char * arg)303 x509_opt_sigopt(char *arg)
304 {
305 if (x509_config.sigopts == NULL &&
306 (x509_config.sigopts = sk_OPENSSL_STRING_new_null()) == NULL)
307 return (1);
308
309 if (!sk_OPENSSL_STRING_push(x509_config.sigopts, arg))
310 return (1);
311
312 return (0);
313 }
314
315 static const struct option x509_options[] = {
316 {
317 .name = "C",
318 .desc = "Convert the certificate into C code",
319 .type = OPTION_ORDER,
320 .opt.order = &x509_config.C,
321 .order = &x509_config.num,
322 },
323 {
324 .name = "addreject",
325 .argname = "arg",
326 .desc = "Reject certificate for a given purpose",
327 .type = OPTION_ARG_FUNC,
328 .opt.argfunc = x509_opt_addreject,
329 },
330 {
331 .name = "addtrust",
332 .argname = "arg",
333 .desc = "Trust certificate for a given purpose",
334 .type = OPTION_ARG_FUNC,
335 .opt.argfunc = x509_opt_addtrust,
336 },
337 {
338 .name = "alias",
339 .desc = "Output certificate alias",
340 .type = OPTION_ORDER,
341 .opt.order = &x509_config.aliasout,
342 .order = &x509_config.num,
343 },
344 {
345 .name = "CA",
346 .argname = "file",
347 .desc = "CA certificate in PEM format unless -CAform is specified",
348 .type = OPTION_ARG_FUNC,
349 .opt.argfunc = x509_opt_ca,
350 },
351 {
352 .name = "CAcreateserial",
353 .desc = "Create serial number file if it does not exist",
354 .type = OPTION_ORDER,
355 .opt.order = &x509_config.CA_createserial,
356 .order = &x509_config.num,
357 },
358 {
359 .name = "CAform",
360 .argname = "fmt",
361 .desc = "CA format - default PEM",
362 .type = OPTION_ARG_FORMAT,
363 .opt.value = &x509_config.CAformat,
364 },
365 {
366 .name = "CAkey",
367 .argname = "file",
368 .desc = "CA key in PEM format unless -CAkeyform is specified\n"
369 "if omitted, the key is assumed to be in the CA file",
370 .type = OPTION_ARG,
371 .opt.arg = &x509_config.CAkeyfile,
372 },
373 {
374 .name = "CAkeyform",
375 .argname = "fmt",
376 .desc = "CA key format - default PEM",
377 .type = OPTION_ARG_FORMAT,
378 .opt.value = &x509_config.CAkeyformat,
379 },
380 {
381 .name = "CAserial",
382 .argname = "file",
383 .desc = "Serial file",
384 .type = OPTION_ARG,
385 .opt.arg = &x509_config.CAserial,
386 },
387 {
388 .name = "certopt",
389 .argname = "option",
390 .desc = "Various certificate text options",
391 .type = OPTION_ARG_FUNC,
392 .opt.argfunc = x509_opt_certopt,
393 },
394 {
395 .name = "checkend",
396 .argname = "arg",
397 .desc = "Check whether the cert expires in the next arg seconds\n"
398 "exit 1 if so, 0 if not",
399 .type = OPTION_ARG_FUNC,
400 .opt.argfunc = x509_opt_checkend,
401 },
402 {
403 .name = "clrext",
404 .desc = "Clear all extensions",
405 .type = OPTION_FLAG,
406 .opt.flag = &x509_config.clrext,
407 },
408 {
409 .name = "clrreject",
410 .desc = "Clear all rejected purposes",
411 .type = OPTION_ORDER,
412 .opt.order = &x509_config.clrreject,
413 .order = &x509_config.num,
414 },
415 {
416 .name = "clrtrust",
417 .desc = "Clear all trusted purposes",
418 .type = OPTION_ORDER,
419 .opt.order = &x509_config.clrtrust,
420 .order = &x509_config.num,
421 },
422 {
423 .name = "dates",
424 .desc = "Both Before and After dates",
425 .type = OPTION_FUNC,
426 .opt.func = x509_opt_dates,
427 },
428 {
429 .name = "days",
430 .argname = "arg",
431 .desc = "How long till expiry of a signed certificate - def 30 days",
432 .type = OPTION_ARG_FUNC,
433 .opt.argfunc = x509_opt_days,
434 },
435 {
436 .name = "email",
437 .desc = "Print email address(es)",
438 .type = OPTION_ORDER,
439 .opt.order = &x509_config.email,
440 .order = &x509_config.num,
441 },
442 {
443 .name = "enddate",
444 .desc = "Print notAfter field",
445 .type = OPTION_ORDER,
446 .opt.order = &x509_config.enddate,
447 .order = &x509_config.num,
448 },
449 {
450 .name = "extensions",
451 .argname = "section",
452 .desc = "Section from config file with X509V3 extensions to add",
453 .type = OPTION_ARG,
454 .opt.arg = &x509_config.extsect,
455 },
456 {
457 .name = "extfile",
458 .argname = "file",
459 .desc = "Configuration file with X509V3 extensions to add",
460 .type = OPTION_ARG,
461 .opt.arg = &x509_config.extfile,
462 },
463 {
464 .name = "fingerprint",
465 .desc = "Print the certificate fingerprint",
466 .type = OPTION_ORDER,
467 .opt.order = &x509_config.fingerprint,
468 .order = &x509_config.num,
469 },
470 {
471 .name = "hash",
472 .desc = "Synonym for -subject_hash",
473 .type = OPTION_ORDER,
474 .opt.order = &x509_config.subject_hash,
475 .order = &x509_config.num,
476 },
477 {
478 .name = "in",
479 .argname = "file",
480 .desc = "Input file - default stdin",
481 .type = OPTION_ARG,
482 .opt.arg = &x509_config.infile,
483 },
484 {
485 .name = "inform",
486 .argname = "fmt",
487 .desc = "Input format - default PEM (one of DER, NET or PEM)",
488 .type = OPTION_ARG_FORMAT,
489 .opt.value = &x509_config.informat,
490 },
491 {
492 .name = "issuer",
493 .desc = "Print issuer name",
494 .type = OPTION_ORDER,
495 .opt.order = &x509_config.issuer,
496 .order = &x509_config.num,
497 },
498 {
499 .name = "issuer_hash",
500 .desc = "Print issuer hash value",
501 .type = OPTION_ORDER,
502 .opt.order = &x509_config.issuer_hash,
503 .order = &x509_config.num,
504 },
505 #ifndef OPENSSL_NO_MD5
506 {
507 .name = "issuer_hash_old",
508 .desc = "Print old-style (MD5) issuer hash value",
509 .type = OPTION_ORDER,
510 .opt.order = &x509_config.issuer_hash_old,
511 .order = &x509_config.num,
512 },
513 #endif
514 {
515 .name = "keyform",
516 .argname = "fmt",
517 .desc = "Private key format - default PEM",
518 .type = OPTION_ARG_FORMAT,
519 .opt.value = &x509_config.keyformat,
520 },
521 {
522 .name = "modulus",
523 .desc = "Print the RSA key modulus",
524 .type = OPTION_ORDER,
525 .opt.order = &x509_config.modulus,
526 .order = &x509_config.num,
527 },
528 {
529 .name = "nameopt",
530 .argname = "option",
531 .desc = "Various certificate name options",
532 .type = OPTION_ARG_FUNC,
533 .opt.argfunc = x509_opt_nameopt,
534 },
535 {
536 .name = "next_serial",
537 .desc = "Print the next serial number",
538 .type = OPTION_ORDER,
539 .opt.order = &x509_config.next_serial,
540 .order = &x509_config.num,
541 },
542 {
543 .name = "noout",
544 .desc = "No certificate output",
545 .type = OPTION_ORDER,
546 .opt.order = &x509_config.noout,
547 .order = &x509_config.num,
548 },
549 {
550 .name = "ocsp_uri",
551 .desc = "Print OCSP Responder URL(s)",
552 .type = OPTION_ORDER,
553 .opt.order = &x509_config.ocsp_uri,
554 .order = &x509_config.num,
555 },
556 {
557 .name = "ocspid",
558 .desc = "Print OCSP hash values for the subject name and public key",
559 .type = OPTION_ORDER,
560 .opt.order = &x509_config.ocspid,
561 .order = &x509_config.num,
562 },
563 {
564 .name = "out",
565 .argname = "file",
566 .desc = "Output file - default stdout",
567 .type = OPTION_ARG,
568 .opt.arg = &x509_config.outfile,
569 },
570 {
571 .name = "outform",
572 .argname = "fmt",
573 .desc = "Output format - default PEM (one of DER, NET or PEM)",
574 .type = OPTION_ARG_FORMAT,
575 .opt.value = &x509_config.outformat,
576 },
577 {
578 .name = "passin",
579 .argname = "src",
580 .desc = "Private key password source",
581 .type = OPTION_ARG,
582 .opt.arg = &x509_config.passargin,
583 },
584 {
585 .name = "pubkey",
586 .desc = "Output the public key",
587 .type = OPTION_ORDER,
588 .opt.order = &x509_config.pubkey,
589 .order = &x509_config.num,
590 },
591 {
592 .name = "purpose",
593 .desc = "Print out certificate purposes",
594 .type = OPTION_ORDER,
595 .opt.order = &x509_config.pprint,
596 .order = &x509_config.num,
597 },
598 {
599 .name = "req",
600 .desc = "Input is a certificate request, sign and output",
601 .type = OPTION_FLAG,
602 .opt.flag = &x509_config.reqfile,
603 },
604 {
605 .name = "serial",
606 .desc = "Print serial number value",
607 .type = OPTION_ORDER,
608 .opt.order = &x509_config.serial,
609 .order = &x509_config.num,
610 },
611 {
612 .name = "set_serial",
613 .argname = "n",
614 .desc = "Serial number to use",
615 .type = OPTION_ARG_FUNC,
616 .opt.argfunc = x509_opt_set_serial,
617 },
618 {
619 .name = "setalias",
620 .argname = "arg",
621 .desc = "Set certificate alias",
622 .type = OPTION_ARG_FUNC,
623 .opt.argfunc = x509_opt_setalias,
624 },
625 {
626 .name = "signkey",
627 .argname = "file",
628 .desc = "Self sign cert with arg",
629 .type = OPTION_ARG_FUNC,
630 .opt.argfunc = x509_opt_signkey,
631 },
632 {
633 .name = "sigopt",
634 .argname = "nm:v",
635 .desc = "Various signature algorithm options",
636 .type = OPTION_ARG_FUNC,
637 .opt.argfunc = x509_opt_sigopt,
638 },
639 {
640 .name = "startdate",
641 .desc = "Print notBefore field",
642 .type = OPTION_ORDER,
643 .opt.order = &x509_config.startdate,
644 .order = &x509_config.num,
645 },
646 {
647 .name = "subject",
648 .desc = "Print subject name",
649 .type = OPTION_ORDER,
650 .opt.order = &x509_config.subject,
651 .order = &x509_config.num,
652 },
653 {
654 .name = "subject_hash",
655 .desc = "Print subject hash value",
656 .type = OPTION_ORDER,
657 .opt.order = &x509_config.subject_hash,
658 .order = &x509_config.num,
659 },
660 #ifndef OPENSSL_NO_MD5
661 {
662 .name = "subject_hash_old",
663 .desc = "Print old-style (MD5) subject hash value",
664 .type = OPTION_ORDER,
665 .opt.order = &x509_config.subject_hash_old,
666 .order = &x509_config.num,
667 },
668 #endif
669 {
670 .name = "text",
671 .desc = "Print the certificate in text form",
672 .type = OPTION_ORDER,
673 .opt.order = &x509_config.text,
674 .order = &x509_config.num,
675 },
676 {
677 .name = "trustout",
678 .desc = "Output a trusted certificate",
679 .type = OPTION_FLAG,
680 .opt.flag = &x509_config.trustout,
681 },
682 {
683 .name = "x509toreq",
684 .desc = "Output a certification request object",
685 .type = OPTION_ORDER,
686 .opt.order = &x509_config.x509req,
687 .order = &x509_config.num,
688 },
689 {
690 .name = NULL,
691 .desc = "",
692 .type = OPTION_ARGV_FUNC,
693 .opt.argvfunc = x509_opt_digest,
694 },
695 { NULL },
696 };
697
698 static void
x509_usage(void)699 x509_usage(void)
700 {
701 fprintf(stderr, "usage: x509 "
702 "[-C] [-addreject arg] [-addtrust arg] [-alias] [-CA file]\n"
703 " [-CAcreateserial] [-CAform der | pem] [-CAkey file]\n"
704 " [-CAkeyform der | pem] [-CAserial file] [-certopt option]\n"
705 " [-checkend arg] [-clrext] [-clrreject] [-clrtrust] [-dates]\n"
706 " [-days arg] [-email] [-enddate] [-extensions section]\n"
707 " [-extfile file] [-fingerprint] [-hash] [-in file]\n"
708 " [-inform der | net | pem] [-issuer] [-issuer_hash]\n"
709 " [-issuer_hash_old] [-keyform der | pem] [-md5 | -sha1]\n"
710 " [-modulus] [-nameopt option] [-next_serial] [-noout]\n"
711 " [-ocsp_uri] [-ocspid] [-out file]\n"
712 " [-outform der | net | pem] [-passin arg] [-pubkey]\n"
713 " [-purpose] [-req] [-serial] [-set_serial n] [-setalias arg]\n"
714 " [-signkey file] [-sigopt nm:v] [-startdate] [-subject]\n"
715 " [-subject_hash] [-subject_hash_old] [-text] [-trustout]\n"
716 " [-x509toreq]\n");
717 fprintf(stderr, "\n");
718 options_usage(x509_options);
719 fprintf(stderr, "\n");
720 }
721
722 int
x509_main(int argc,char ** argv)723 x509_main(int argc, char **argv)
724 {
725 int ret = 1;
726 X509_REQ *req = NULL;
727 X509 *x = NULL, *xca = NULL;
728 EVP_PKEY *Upkey = NULL, *CApkey = NULL;
729 int i;
730 BIO *out = NULL;
731 BIO *STDout = NULL;
732 X509_STORE *ctx = NULL;
733 X509_REQ *rq = NULL;
734 char buf[256];
735 CONF *extconf = NULL;
736 char *passin = NULL;
737
738 if (single_execution) {
739 if (pledge("stdio cpath wpath rpath tty", NULL) == -1) {
740 perror("pledge");
741 exit(1);
742 }
743 }
744
745 memset(&x509_config, 0, sizeof(x509_config));
746 x509_config.days = DEF_DAYS;
747 x509_config.informat = FORMAT_PEM;
748 x509_config.outformat = FORMAT_PEM;
749 x509_config.keyformat = FORMAT_PEM;
750 x509_config.CAformat = FORMAT_PEM;
751 x509_config.CAkeyformat = FORMAT_PEM;
752
753 STDout = BIO_new_fp(stdout, BIO_NOCLOSE);
754
755 ctx = X509_STORE_new();
756 if (ctx == NULL)
757 goto end;
758 X509_STORE_set_verify_cb(ctx, callb);
759
760 if (options_parse(argc, argv, x509_options, NULL, NULL) != 0)
761 goto bad;
762
763 if (x509_config.badops) {
764 bad:
765 x509_usage();
766 goto end;
767 }
768
769 if (!app_passwd(bio_err, x509_config.passargin, NULL, &passin, NULL)) {
770 BIO_printf(bio_err, "Error getting password\n");
771 goto end;
772 }
773 if (!X509_STORE_set_default_paths(ctx)) {
774 ERR_print_errors(bio_err);
775 goto end;
776 }
777 if ((x509_config.CAkeyfile == NULL) && (x509_config.CA_flag) &&
778 (x509_config.CAformat == FORMAT_PEM)) {
779 x509_config.CAkeyfile = x509_config.CAfile;
780 } else if ((x509_config.CA_flag) && (x509_config.CAkeyfile == NULL)) {
781 BIO_printf(bio_err,
782 "need to specify a CAkey if using the CA command\n");
783 goto end;
784 }
785 if (x509_config.extfile != NULL) {
786 long errorline = -1;
787 X509V3_CTX ctx2;
788 extconf = NCONF_new(NULL);
789 if (!NCONF_load(extconf, x509_config.extfile, &errorline)) {
790 if (errorline <= 0)
791 BIO_printf(bio_err,
792 "error loading the config file '%s'\n",
793 x509_config.extfile);
794 else
795 BIO_printf(bio_err,
796 "error on line %ld of config file '%s'\n",
797 errorline, x509_config.extfile);
798 goto end;
799 }
800 if (x509_config.extsect == NULL) {
801 x509_config.extsect = NCONF_get_string(extconf,
802 "default", "extensions");
803 if (x509_config.extsect == NULL) {
804 ERR_clear_error();
805 x509_config.extsect = "default";
806 }
807 }
808 X509V3_set_ctx_test(&ctx2);
809 X509V3_set_nconf(&ctx2, extconf);
810 if (!X509V3_EXT_add_nconf(extconf, &ctx2, x509_config.extsect,
811 NULL)) {
812 BIO_printf(bio_err,
813 "Error Loading extension section %s\n",
814 x509_config.extsect);
815 ERR_print_errors(bio_err);
816 goto end;
817 }
818 }
819 if (x509_config.reqfile) {
820 EVP_PKEY *pkey;
821 BIO *in;
822
823 if (!x509_config.sign_flag && !x509_config.CA_flag) {
824 BIO_printf(bio_err,
825 "We need a private key to sign with\n");
826 goto end;
827 }
828 in = BIO_new(BIO_s_file());
829 if (in == NULL) {
830 ERR_print_errors(bio_err);
831 goto end;
832 }
833 if (x509_config.infile == NULL)
834 BIO_set_fp(in, stdin, BIO_NOCLOSE | BIO_FP_TEXT);
835 else {
836 if (BIO_read_filename(in, x509_config.infile) <= 0) {
837 perror(x509_config.infile);
838 BIO_free(in);
839 goto end;
840 }
841 }
842 req = PEM_read_bio_X509_REQ(in, NULL, NULL, NULL);
843 BIO_free(in);
844
845 if (req == NULL) {
846 ERR_print_errors(bio_err);
847 goto end;
848 }
849 if ((pkey = X509_REQ_get0_pubkey(req)) == NULL) {
850 BIO_printf(bio_err, "error unpacking public key\n");
851 goto end;
852 }
853 i = X509_REQ_verify(req, pkey);
854 if (i < 0) {
855 BIO_printf(bio_err, "Signature verification error\n");
856 ERR_print_errors(bio_err);
857 goto end;
858 }
859 if (i == 0) {
860 BIO_printf(bio_err,
861 "Signature did not match the certificate request\n");
862 goto end;
863 } else
864 BIO_printf(bio_err, "Signature ok\n");
865
866 print_name(bio_err, "subject=", X509_REQ_get_subject_name(req),
867 x509_config.nmflag);
868
869 if ((x = X509_new()) == NULL)
870 goto end;
871
872 if (x509_config.sno == NULL) {
873 x509_config.sno = ASN1_INTEGER_new();
874 if (x509_config.sno == NULL ||
875 !rand_serial(NULL, x509_config.sno))
876 goto end;
877 if (!X509_set_serialNumber(x, x509_config.sno))
878 goto end;
879 ASN1_INTEGER_free(x509_config.sno);
880 x509_config.sno = NULL;
881 } else if (!X509_set_serialNumber(x, x509_config.sno))
882 goto end;
883
884 if (!X509_set_issuer_name(x, X509_REQ_get_subject_name(req)))
885 goto end;
886 if (!X509_set_subject_name(x, X509_REQ_get_subject_name(req)))
887 goto end;
888
889 if (X509_gmtime_adj(X509_get_notBefore(x), 0) == NULL)
890 goto end;
891 if (X509_time_adj_ex(X509_get_notAfter(x), x509_config.days, 0,
892 NULL) == NULL)
893 goto end;
894
895 if ((pkey = X509_REQ_get0_pubkey(req)) == NULL)
896 goto end;
897 if (!X509_set_pubkey(x, pkey)) {
898 EVP_PKEY_free(pkey);
899 goto end;
900 }
901 } else {
902 x = load_cert(bio_err, x509_config.infile, x509_config.informat,
903 NULL, "Certificate");
904 }
905 if (x == NULL)
906 goto end;
907
908 if (x509_config.CA_flag) {
909 xca = load_cert(bio_err, x509_config.CAfile,
910 x509_config.CAformat, NULL, "CA Certificate");
911 if (xca == NULL)
912 goto end;
913 }
914 if (!x509_config.noout || x509_config.text || x509_config.next_serial) {
915 OBJ_create("2.99999.3", "SET.ex3", "SET x509v3 extension 3");
916
917 out = BIO_new(BIO_s_file());
918 if (out == NULL) {
919 ERR_print_errors(bio_err);
920 goto end;
921 }
922 if (x509_config.outfile == NULL) {
923 BIO_set_fp(out, stdout, BIO_NOCLOSE);
924 } else {
925 if (BIO_write_filename(out, x509_config.outfile) <= 0) {
926 perror(x509_config.outfile);
927 goto end;
928 }
929 }
930 }
931 if (x509_config.alias != NULL) {
932 if (!X509_alias_set1(x, (unsigned char *)x509_config.alias, -1))
933 goto end;
934 }
935
936 if (x509_config.clrtrust)
937 X509_trust_clear(x);
938 if (x509_config.clrreject)
939 X509_reject_clear(x);
940
941 if (x509_config.trust != NULL) {
942 for (i = 0; i < sk_ASN1_OBJECT_num(x509_config.trust); i++) {
943 x509_config.objtmp = sk_ASN1_OBJECT_value(
944 x509_config.trust, i);
945 if (!X509_add1_trust_object(x, x509_config.objtmp))
946 goto end;
947 }
948 }
949 if (x509_config.reject != NULL) {
950 for (i = 0; i < sk_ASN1_OBJECT_num(x509_config.reject); i++) {
951 x509_config.objtmp = sk_ASN1_OBJECT_value(
952 x509_config.reject, i);
953 if (!X509_add1_reject_object(x, x509_config.objtmp))
954 goto end;
955 }
956 }
957 if (x509_config.num) {
958 for (i = 1; i <= x509_config.num; i++) {
959 if (x509_config.issuer == i) {
960 print_name(STDout, "issuer= ",
961 X509_get_issuer_name(x),
962 x509_config.nmflag);
963 } else if (x509_config.subject == i) {
964 print_name(STDout, "subject= ",
965 X509_get_subject_name(x),
966 x509_config.nmflag);
967 } else if (x509_config.serial == i) {
968 BIO_printf(STDout, "serial=");
969 i2a_ASN1_INTEGER(STDout,
970 X509_get_serialNumber(x));
971 BIO_printf(STDout, "\n");
972 } else if (x509_config.next_serial == i) {
973 BIGNUM *bnser;
974 ASN1_INTEGER *ser;
975 ser = X509_get_serialNumber(x);
976 if (ser == NULL)
977 goto end;
978 bnser = ASN1_INTEGER_to_BN(ser, NULL);
979 if (bnser == NULL)
980 goto end;
981 if (!BN_add_word(bnser, 1)) {
982 BN_free(bnser);
983 goto end;
984 }
985 ser = BN_to_ASN1_INTEGER(bnser, NULL);
986 if (ser == NULL) {
987 BN_free(bnser);
988 goto end;
989 }
990 BN_free(bnser);
991 i2a_ASN1_INTEGER(out, ser);
992 ASN1_INTEGER_free(ser);
993 BIO_puts(out, "\n");
994 } else if ((x509_config.email == i) ||
995 (x509_config.ocsp_uri == i)) {
996 int j;
997 STACK_OF(OPENSSL_STRING) *emlst;
998 if (x509_config.email == i)
999 emlst = X509_get1_email(x);
1000 else
1001 emlst = X509_get1_ocsp(x);
1002 for (j = 0; j < sk_OPENSSL_STRING_num(emlst); j++)
1003 BIO_printf(STDout, "%s\n",
1004 sk_OPENSSL_STRING_value(emlst, j));
1005 X509_email_free(emlst);
1006 } else if (x509_config.aliasout == i) {
1007 unsigned char *albuf;
1008 int buflen;
1009 albuf = X509_alias_get0(x, &buflen);
1010 if (albuf != NULL)
1011 BIO_printf(STDout, "%.*s\n",
1012 buflen, albuf);
1013 else
1014 BIO_puts(STDout, "<No Alias>\n");
1015 } else if (x509_config.subject_hash == i) {
1016 BIO_printf(STDout, "%08lx\n",
1017 X509_subject_name_hash(x));
1018 }
1019 #ifndef OPENSSL_NO_MD5
1020 else if (x509_config.subject_hash_old == i) {
1021 BIO_printf(STDout, "%08lx\n",
1022 X509_subject_name_hash_old(x));
1023 }
1024 #endif
1025 else if (x509_config.issuer_hash == i) {
1026 BIO_printf(STDout, "%08lx\n",
1027 X509_issuer_name_hash(x));
1028 }
1029 #ifndef OPENSSL_NO_MD5
1030 else if (x509_config.issuer_hash_old == i) {
1031 BIO_printf(STDout, "%08lx\n",
1032 X509_issuer_name_hash_old(x));
1033 }
1034 #endif
1035 else if (x509_config.pprint == i) {
1036 X509_PURPOSE *ptmp;
1037 int j;
1038 BIO_printf(STDout, "Certificate purposes:\n");
1039 for (j = 0; j < X509_PURPOSE_get_count(); j++) {
1040 ptmp = X509_PURPOSE_get0(j);
1041 purpose_print(STDout, x, ptmp);
1042 }
1043 } else if (x509_config.modulus == i) {
1044 EVP_PKEY *pkey;
1045
1046 pkey = X509_get0_pubkey(x);
1047 if (pkey == NULL) {
1048 BIO_printf(bio_err,
1049 "Modulus=unavailable\n");
1050 ERR_print_errors(bio_err);
1051 goto end;
1052 }
1053 BIO_printf(STDout, "Modulus=");
1054 if (EVP_PKEY_id(pkey) == EVP_PKEY_RSA) {
1055 RSA *rsa = EVP_PKEY_get0_RSA(pkey);
1056 const BIGNUM *n = NULL;
1057
1058 RSA_get0_key(rsa, &n, NULL, NULL);
1059 BN_print(STDout, n);
1060 } else if (EVP_PKEY_id(pkey) == EVP_PKEY_DSA) {
1061 DSA *dsa = EVP_PKEY_get0_DSA(pkey);
1062 const BIGNUM *pub_key = NULL;
1063
1064 DSA_get0_key(dsa, &pub_key, NULL);
1065
1066 BN_print(STDout, pub_key);
1067 } else
1068 BIO_printf(STDout,
1069 "Wrong Algorithm type");
1070 BIO_printf(STDout, "\n");
1071 } else if (x509_config.pubkey == i) {
1072 EVP_PKEY *pkey;
1073
1074 pkey = X509_get0_pubkey(x);
1075 if (pkey == NULL) {
1076 BIO_printf(bio_err,
1077 "Error getting public key\n");
1078 ERR_print_errors(bio_err);
1079 goto end;
1080 }
1081 PEM_write_bio_PUBKEY(STDout, pkey);
1082 } else if (x509_config.C == i) {
1083 unsigned char *d;
1084 char *m;
1085 int y, z;
1086
1087 m = X509_NAME_oneline(X509_get_subject_name(x),
1088 buf, sizeof buf);
1089 if (m == NULL)
1090 goto end;
1091 BIO_printf(STDout, "/* subject:%s */\n", buf);
1092 m = X509_NAME_oneline(X509_get_issuer_name(x),
1093 buf, sizeof buf);
1094 if (m == NULL)
1095 goto end;
1096 BIO_printf(STDout, "/* issuer :%s */\n", buf);
1097
1098 z = i2d_X509(x, NULL);
1099 if (z < 0)
1100 goto end;
1101
1102 m = malloc(z);
1103 if (m == NULL) {
1104 BIO_printf(bio_err, "out of mem\n");
1105 goto end;
1106 }
1107
1108 d = (unsigned char *) m;
1109 z = i2d_X509_NAME(X509_get_subject_name(x), &d);
1110 if (z < 0) {
1111 free(m);
1112 goto end;
1113 }
1114 BIO_printf(STDout,
1115 "unsigned char XXX_subject_name[%d]={\n", z);
1116 d = (unsigned char *) m;
1117 for (y = 0; y < z; y++) {
1118 BIO_printf(STDout, "0x%02X,", d[y]);
1119 if ((y & 0x0f) == 0x0f)
1120 BIO_printf(STDout, "\n");
1121 }
1122 if (y % 16 != 0)
1123 BIO_printf(STDout, "\n");
1124 BIO_printf(STDout, "};\n");
1125
1126 z = i2d_X509_PUBKEY(X509_get_X509_PUBKEY(x), &d);
1127 if (z < 0) {
1128 free(m);
1129 goto end;
1130 }
1131 BIO_printf(STDout,
1132 "unsigned char XXX_public_key[%d]={\n", z);
1133 d = (unsigned char *) m;
1134 for (y = 0; y < z; y++) {
1135 BIO_printf(STDout, "0x%02X,", d[y]);
1136 if ((y & 0x0f) == 0x0f)
1137 BIO_printf(STDout, "\n");
1138 }
1139 if (y % 16 != 0)
1140 BIO_printf(STDout, "\n");
1141 BIO_printf(STDout, "};\n");
1142
1143 z = i2d_X509(x, &d);
1144 if (z < 0) {
1145 free(m);
1146 goto end;
1147 }
1148 BIO_printf(STDout,
1149 "unsigned char XXX_certificate[%d]={\n", z);
1150 d = (unsigned char *) m;
1151 for (y = 0; y < z; y++) {
1152 BIO_printf(STDout, "0x%02X,", d[y]);
1153 if ((y & 0x0f) == 0x0f)
1154 BIO_printf(STDout, "\n");
1155 }
1156 if (y % 16 != 0)
1157 BIO_printf(STDout, "\n");
1158 BIO_printf(STDout, "};\n");
1159
1160 free(m);
1161 } else if (x509_config.text == i) {
1162 if(!X509_print_ex(STDout, x, x509_config.nmflag,
1163 x509_config.certflag))
1164 goto end;
1165 } else if (x509_config.startdate == i) {
1166 ASN1_TIME *nB = X509_get_notBefore(x);
1167 BIO_puts(STDout, "notBefore=");
1168 if (ASN1_time_parse(nB->data, nB->length, NULL,
1169 0) == -1)
1170 BIO_puts(STDout,
1171 "INVALID RFC5280 TIME");
1172 else
1173 ASN1_TIME_print(STDout, nB);
1174 BIO_puts(STDout, "\n");
1175 } else if (x509_config.enddate == i) {
1176 ASN1_TIME *nA = X509_get_notAfter(x);
1177 BIO_puts(STDout, "notAfter=");
1178 if (ASN1_time_parse(nA->data, nA->length, NULL,
1179 0) == -1)
1180 BIO_puts(STDout,
1181 "INVALID RFC5280 TIME");
1182 else
1183 ASN1_TIME_print(STDout, nA);
1184 BIO_puts(STDout, "\n");
1185 } else if (x509_config.fingerprint == i) {
1186 int j;
1187 unsigned int n;
1188 unsigned char md[EVP_MAX_MD_SIZE];
1189 const EVP_MD *fdig = x509_config.digest;
1190
1191 if (fdig == NULL)
1192 fdig = EVP_sha256();
1193
1194 if (!X509_digest(x, fdig, md, &n)) {
1195 BIO_printf(bio_err, "out of memory\n");
1196 goto end;
1197 }
1198 BIO_printf(STDout, "%s Fingerprint=",
1199 OBJ_nid2sn(EVP_MD_type(fdig)));
1200 for (j = 0; j < (int) n; j++) {
1201 BIO_printf(STDout, "%02X%c", md[j],
1202 (j + 1 == (int)n) ? '\n' : ':');
1203 }
1204
1205 /* should be in the library */
1206 } else if ((x509_config.sign_flag == i) &&
1207 (x509_config.x509req == 0)) {
1208 BIO_printf(bio_err, "Getting Private key\n");
1209 if (Upkey == NULL) {
1210 Upkey = load_key(bio_err,
1211 x509_config.keyfile,
1212 x509_config.keyformat, 0, passin,
1213 "Private key");
1214 if (Upkey == NULL)
1215 goto end;
1216 }
1217 if (!sign(x, Upkey, x509_config.days,
1218 x509_config.clrext, x509_config.digest,
1219 extconf, x509_config.extsect))
1220 goto end;
1221 } else if (x509_config.CA_flag == i) {
1222 BIO_printf(bio_err, "Getting CA Private Key\n");
1223 if (x509_config.CAkeyfile != NULL) {
1224 CApkey = load_key(bio_err,
1225 x509_config.CAkeyfile,
1226 x509_config.CAkeyformat, 0, passin,
1227 "CA Private Key");
1228 if (CApkey == NULL)
1229 goto end;
1230 }
1231 if (!x509_certify(ctx, x509_config.CAfile,
1232 x509_config.digest, x, xca, CApkey,
1233 x509_config.sigopts, x509_config.CAserial,
1234 x509_config.CA_createserial,
1235 x509_config.days, x509_config.clrext,
1236 extconf, x509_config.extsect,
1237 x509_config.sno))
1238 goto end;
1239 } else if (x509_config.x509req == i) {
1240 EVP_PKEY *pk;
1241
1242 BIO_printf(bio_err,
1243 "Getting request Private Key\n");
1244 if (x509_config.keyfile == NULL) {
1245 BIO_printf(bio_err,
1246 "no request key file specified\n");
1247 goto end;
1248 } else {
1249 pk = load_key(bio_err,
1250 x509_config.keyfile,
1251 x509_config.keyformat, 0, passin,
1252 "request key");
1253 if (pk == NULL)
1254 goto end;
1255 }
1256
1257 BIO_printf(bio_err,
1258 "Generating certificate request\n");
1259
1260 rq = X509_to_X509_REQ(x, pk, x509_config.digest);
1261 EVP_PKEY_free(pk);
1262 if (rq == NULL) {
1263 ERR_print_errors(bio_err);
1264 goto end;
1265 }
1266 if (!x509_config.noout) {
1267 if (!X509_REQ_print(out, rq))
1268 goto end;
1269 if (!PEM_write_bio_X509_REQ(out, rq))
1270 goto end;
1271 }
1272 x509_config.noout = 1;
1273 } else if (x509_config.ocspid == i) {
1274 if (!X509_ocspid_print(out, x))
1275 goto end;
1276 }
1277 }
1278 }
1279 if (x509_config.checkend) {
1280 time_t tcheck = time(NULL) + x509_config.checkoffset;
1281 int timecheck = X509_cmp_time(X509_get_notAfter(x), &tcheck);
1282 if (timecheck == 0) {
1283 BIO_printf(out, "Certificate expiry time is invalid\n");
1284 ret = 1;
1285 } else if (timecheck < 0) {
1286 BIO_printf(out, "Certificate will expire\n");
1287 ret = 1;
1288 } else {
1289 BIO_printf(out, "Certificate will not expire\n");
1290 ret = 0;
1291 }
1292 goto end;
1293 }
1294 if (x509_config.noout) {
1295 ret = 0;
1296 goto end;
1297 }
1298 if (x509_config.outformat == FORMAT_ASN1)
1299 i = i2d_X509_bio(out, x);
1300 else if (x509_config.outformat == FORMAT_PEM) {
1301 if (x509_config.trustout)
1302 i = PEM_write_bio_X509_AUX(out, x);
1303 else
1304 i = PEM_write_bio_X509(out, x);
1305 } else {
1306 BIO_printf(bio_err,
1307 "bad output format specified for outfile\n");
1308 goto end;
1309 }
1310 if (!i) {
1311 BIO_printf(bio_err, "unable to write certificate\n");
1312 ERR_print_errors(bio_err);
1313 goto end;
1314 }
1315 ret = 0;
1316
1317 end:
1318 OBJ_cleanup();
1319 NCONF_free(extconf);
1320 BIO_free_all(out);
1321 BIO_free_all(STDout);
1322 X509_STORE_free(ctx);
1323 X509_REQ_free(req);
1324 X509_free(x);
1325 X509_free(xca);
1326 EVP_PKEY_free(Upkey);
1327 EVP_PKEY_free(CApkey);
1328 sk_OPENSSL_STRING_free(x509_config.sigopts);
1329 X509_REQ_free(rq);
1330 ASN1_INTEGER_free(x509_config.sno);
1331 sk_ASN1_OBJECT_pop_free(x509_config.trust, ASN1_OBJECT_free);
1332 sk_ASN1_OBJECT_pop_free(x509_config.reject, ASN1_OBJECT_free);
1333 free(passin);
1334
1335 return (ret);
1336 }
1337
1338 static ASN1_INTEGER *
x509_load_serial(char * CAfile,char * serialfile,int create)1339 x509_load_serial(char *CAfile, char *serialfile, int create)
1340 {
1341 char *buf = NULL, *p;
1342 ASN1_INTEGER *bs = NULL;
1343 BIGNUM *serial = NULL;
1344 size_t len;
1345
1346 len = ((serialfile == NULL) ? (strlen(CAfile) + strlen(POSTFIX) + 1) :
1347 (strlen(serialfile))) + 1;
1348 buf = malloc(len);
1349 if (buf == NULL) {
1350 BIO_printf(bio_err, "out of mem\n");
1351 goto end;
1352 }
1353 if (serialfile == NULL) {
1354 strlcpy(buf, CAfile, len);
1355 for (p = buf; *p; p++)
1356 if (*p == '.') {
1357 *p = '\0';
1358 break;
1359 }
1360 strlcat(buf, POSTFIX, len);
1361 } else
1362 strlcpy(buf, serialfile, len);
1363
1364 serial = load_serial(buf, create, NULL);
1365 if (serial == NULL)
1366 goto end;
1367
1368 if (!BN_add_word(serial, 1)) {
1369 BIO_printf(bio_err, "add_word failure\n");
1370 goto end;
1371 }
1372 if (!save_serial(buf, NULL, serial, &bs))
1373 goto end;
1374
1375 end:
1376 free(buf);
1377 BN_free(serial);
1378
1379 return bs;
1380 }
1381
1382 static int
x509_certify(X509_STORE * ctx,char * CAfile,const EVP_MD * digest,X509 * x,X509 * xca,EVP_PKEY * pkey,STACK_OF (OPENSSL_STRING)* sigopts,char * serialfile,int create,int days,int clrext,CONF * conf,char * section,ASN1_INTEGER * sno)1383 x509_certify(X509_STORE *ctx, char *CAfile, const EVP_MD *digest, X509 *x,
1384 X509 *xca, EVP_PKEY *pkey, STACK_OF(OPENSSL_STRING) *sigopts,
1385 char *serialfile, int create, int days, int clrext, CONF *conf,
1386 char *section, ASN1_INTEGER *sno)
1387 {
1388 int ret = 0;
1389 ASN1_INTEGER *bs = NULL;
1390 X509_STORE_CTX *xsc = NULL;
1391 EVP_PKEY *upkey;
1392
1393 upkey = X509_get0_pubkey(xca);
1394 if (upkey == NULL)
1395 goto end;
1396 EVP_PKEY_copy_parameters(upkey, pkey);
1397
1398 if ((xsc = X509_STORE_CTX_new()) == NULL)
1399 goto end;
1400 if (!X509_STORE_CTX_init(xsc, ctx, x, NULL)) {
1401 BIO_printf(bio_err, "Error initialising X509 store\n");
1402 goto end;
1403 }
1404 if (sno != NULL)
1405 bs = sno;
1406 else if ((bs = x509_load_serial(CAfile, serialfile, create)) == NULL)
1407 goto end;
1408
1409 /* if (!X509_STORE_add_cert(ctx,x)) goto end;*/
1410
1411 /*
1412 * NOTE: this certificate can/should be self signed, unless it was a
1413 * certificate request in which case it is not.
1414 */
1415 X509_STORE_CTX_set_cert(xsc, x);
1416 X509_STORE_CTX_set_flags(xsc, X509_V_FLAG_CHECK_SS_SIGNATURE);
1417 if (!x509_config.reqfile && X509_verify_cert(xsc) <= 0)
1418 goto end;
1419
1420 if (!X509_check_private_key(xca, pkey)) {
1421 BIO_printf(bio_err,
1422 "CA certificate and CA private key do not match\n");
1423 goto end;
1424 }
1425 if (!X509_set_issuer_name(x, X509_get_subject_name(xca)))
1426 goto end;
1427 if (!X509_set_serialNumber(x, bs))
1428 goto end;
1429
1430 if (X509_gmtime_adj(X509_get_notBefore(x), 0L) == NULL)
1431 goto end;
1432
1433 /* hardwired expired */
1434 if (X509_time_adj_ex(X509_get_notAfter(x), days, 0, NULL) == NULL)
1435 goto end;
1436
1437 if (clrext) {
1438 while (X509_get_ext_count(x) > 0) {
1439 if (X509_delete_ext(x, 0) == NULL)
1440 goto end;
1441 }
1442 }
1443 if (conf != NULL) {
1444 X509V3_CTX ctx2;
1445 if (!X509_set_version(x, 2)) /* version 3 certificate */
1446 goto end;
1447 X509V3_set_ctx(&ctx2, xca, x, NULL, NULL, 0);
1448 X509V3_set_nconf(&ctx2, conf);
1449 if (!X509V3_EXT_add_nconf(conf, &ctx2, section, x))
1450 goto end;
1451 }
1452 if (!do_X509_sign(bio_err, x, pkey, digest, sigopts))
1453 goto end;
1454
1455 ret = 1;
1456 end:
1457 X509_STORE_CTX_free(xsc);
1458 if (!ret)
1459 ERR_print_errors(bio_err);
1460 if (sno == NULL)
1461 ASN1_INTEGER_free(bs);
1462 return ret;
1463 }
1464
1465 static int
callb(int ok,X509_STORE_CTX * ctx)1466 callb(int ok, X509_STORE_CTX *ctx)
1467 {
1468 int err;
1469 X509 *err_cert;
1470
1471 /*
1472 * it is ok to use a self signed certificate This case will catch
1473 * both the initial ok == 0 and the final ok == 1 calls to this
1474 * function
1475 */
1476 err = X509_STORE_CTX_get_error(ctx);
1477 if (err == X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT)
1478 return 1;
1479
1480 /*
1481 * BAD we should have gotten an error. Normally if everything worked
1482 * X509_STORE_CTX_get_error(ctx) will still be set to
1483 * DEPTH_ZERO_SELF_....
1484 */
1485 if (ok) {
1486 BIO_printf(bio_err,
1487 "error with certificate to be certified - should be self signed\n");
1488 return 0;
1489 } else {
1490 err_cert = X509_STORE_CTX_get_current_cert(ctx);
1491 print_name(bio_err, NULL, X509_get_subject_name(err_cert), 0);
1492 BIO_printf(bio_err,
1493 "error with certificate - error %d at depth %d\n%s\n",
1494 err, X509_STORE_CTX_get_error_depth(ctx),
1495 X509_verify_cert_error_string(err));
1496 return 1;
1497 }
1498 }
1499
1500 /* self sign */
1501 static int
sign(X509 * x,EVP_PKEY * pkey,int days,int clrext,const EVP_MD * digest,CONF * conf,char * section)1502 sign(X509 *x, EVP_PKEY *pkey, int days, int clrext, const EVP_MD *digest,
1503 CONF *conf, char *section)
1504 {
1505 EVP_PKEY *pktmp;
1506
1507 pktmp = X509_get0_pubkey(x);
1508 if (pktmp == NULL)
1509 goto err;
1510 EVP_PKEY_copy_parameters(pktmp, pkey);
1511 EVP_PKEY_save_parameters(pktmp, 1);
1512
1513 if (!X509_set_issuer_name(x, X509_get_subject_name(x)))
1514 goto err;
1515 if (X509_gmtime_adj(X509_get_notBefore(x), 0) == NULL)
1516 goto err;
1517
1518 /* Lets just make it 12:00am GMT, Jan 1 1970 */
1519 /* memcpy(x->cert_info->validity->notBefore,"700101120000Z",13); */
1520 /* 28 days to be certified */
1521
1522 if (X509_gmtime_adj(X509_get_notAfter(x),
1523 (long) 60 * 60 * 24 * days) == NULL)
1524 goto err;
1525
1526 if (!X509_set_pubkey(x, pkey))
1527 goto err;
1528 if (clrext) {
1529 while (X509_get_ext_count(x) > 0) {
1530 if (X509_delete_ext(x, 0) == NULL)
1531 goto err;
1532 }
1533 }
1534 if (conf != NULL) {
1535 X509V3_CTX ctx;
1536 if (!X509_set_version(x, 2)) /* version 3 certificate */
1537 goto err;
1538 X509V3_set_ctx(&ctx, x, x, NULL, NULL, 0);
1539 X509V3_set_nconf(&ctx, conf);
1540 if (!X509V3_EXT_add_nconf(conf, &ctx, section, x))
1541 goto err;
1542 }
1543 if (!X509_sign(x, pkey, digest))
1544 goto err;
1545
1546 return 1;
1547
1548 err:
1549 ERR_print_errors(bio_err);
1550 return 0;
1551 }
1552
1553 static int
purpose_print(BIO * bio,X509 * cert,X509_PURPOSE * pt)1554 purpose_print(BIO *bio, X509 *cert, X509_PURPOSE *pt)
1555 {
1556 int id, i, idret;
1557 char *pname;
1558
1559 id = X509_PURPOSE_get_id(pt);
1560 pname = X509_PURPOSE_get0_name(pt);
1561 for (i = 0; i < 2; i++) {
1562 idret = X509_check_purpose(cert, id, i);
1563 BIO_printf(bio, "%s%s : ", pname, i ? " CA" : "");
1564 if (idret == 1)
1565 BIO_printf(bio, "Yes\n");
1566 else if (idret == 0)
1567 BIO_printf(bio, "No\n");
1568 else
1569 BIO_printf(bio, "Yes (WARNING code=%d)\n", idret);
1570 }
1571 return 1;
1572 }
1573