1/*
2 * Copyright 1995-2022 The OpenSSL Project Authors. All Rights Reserved.
3 *
4 * Licensed under the Apache License 2.0 (the "License").  You may not use
5 * this file except in compliance with the License.  You can obtain a copy
6 * in the file LICENSE in the source distribution or at
7 * https://www.openssl.org/source/license.html
8 */
9
10#include <stdio.h>
11#include <stdlib.h>
12#include <string.h>
13#include "apps.h"
14#include "progs.h"
15#include <openssl/bio.h>
16#include <openssl/asn1.h>
17#include <openssl/err.h>
18#include <openssl/bn.h>
19#include <openssl/evp.h>
20#include <openssl/x509.h>
21#include <openssl/x509v3.h>
22#include <openssl/objects.h>
23#include <openssl/pem.h>
24#include <openssl/rsa.h>
25#ifndef OPENSSL_NO_DSA
26# include <openssl/dsa.h>
27#endif
28
29#undef POSTFIX
30#define POSTFIX ".srl"
31#define DEFAULT_DAYS    30 /* default cert validity period in days */
32#define UNSET_DAYS      -2 /* -1 is used for testing expiration checks */
33#define EXT_COPY_UNSET     -1
34
35static int callb(int ok, X509_STORE_CTX *ctx);
36static ASN1_INTEGER *x509_load_serial(const char *CAfile,
37                                      const char *serialfile, int create);
38static int purpose_print(BIO *bio, X509 *cert, X509_PURPOSE *pt);
39static int print_x509v3_exts(BIO *bio, X509 *x, const char *ext_names);
40
41typedef enum OPTION_choice {
42    OPT_COMMON,
43    OPT_INFORM, OPT_OUTFORM, OPT_KEYFORM, OPT_REQ, OPT_CAFORM,
44    OPT_CAKEYFORM, OPT_VFYOPT, OPT_SIGOPT, OPT_DAYS, OPT_PASSIN, OPT_EXTFILE,
45    OPT_EXTENSIONS, OPT_IN, OPT_OUT, OPT_KEY, OPT_SIGNKEY, OPT_CA, OPT_CAKEY,
46    OPT_CASERIAL, OPT_SET_SERIAL, OPT_NEW, OPT_FORCE_PUBKEY, OPT_SUBJ,
47    OPT_ADDTRUST, OPT_ADDREJECT, OPT_SETALIAS, OPT_CERTOPT, OPT_DATEOPT, OPT_NAMEOPT,
48    OPT_EMAIL, OPT_OCSP_URI, OPT_SERIAL, OPT_NEXT_SERIAL,
49    OPT_MODULUS, OPT_PUBKEY, OPT_X509TOREQ, OPT_TEXT, OPT_HASH,
50    OPT_ISSUER_HASH, OPT_SUBJECT, OPT_ISSUER, OPT_FINGERPRINT, OPT_DATES,
51    OPT_PURPOSE, OPT_STARTDATE, OPT_ENDDATE, OPT_CHECKEND, OPT_CHECKHOST,
52    OPT_CHECKEMAIL, OPT_CHECKIP, OPT_NOOUT, OPT_TRUSTOUT, OPT_CLRTRUST,
53    OPT_CLRREJECT, OPT_ALIAS, OPT_CACREATESERIAL, OPT_CLREXT, OPT_OCSPID,
54    OPT_SUBJECT_HASH_OLD, OPT_ISSUER_HASH_OLD, OPT_COPY_EXTENSIONS,
55    OPT_BADSIG, OPT_MD, OPT_ENGINE, OPT_NOCERT, OPT_PRESERVE_DATES,
56    OPT_R_ENUM, OPT_PROV_ENUM, OPT_EXT
57} OPTION_CHOICE;
58
59const OPTIONS x509_options[] = {
60    OPT_SECTION("General"),
61    {"help", OPT_HELP, '-', "Display this summary"},
62
63    {"in", OPT_IN, '<',
64     "Certificate input, or CSR input file with -req (default stdin)"},
65    {"passin", OPT_PASSIN, 's', "Private key and cert file pass-phrase source"},
66    {"new", OPT_NEW, '-', "Generate a certificate from scratch"},
67    {"x509toreq", OPT_X509TOREQ, '-',
68     "Output a certification request (rather than a certificate)"},
69    {"req", OPT_REQ, '-', "Input is a CSR file (rather than a certificate)"},
70    {"copy_extensions", OPT_COPY_EXTENSIONS, 's',
71     "copy extensions when converting from CSR to x509 or vice versa"},
72    {"inform", OPT_INFORM, 'f',
73     "CSR input file format (DER or PEM) - default PEM"},
74    {"vfyopt", OPT_VFYOPT, 's', "CSR verification parameter in n:v form"},
75    {"key", OPT_KEY, 's',
76     "Key for signing, and to include unless using -force_pubkey"},
77    {"signkey", OPT_SIGNKEY, 's',
78     "Same as -key"},
79    {"keyform", OPT_KEYFORM, 'E',
80     "Key input format (ENGINE, other values ignored)"},
81    {"out", OPT_OUT, '>', "Output file - default stdout"},
82    {"outform", OPT_OUTFORM, 'f',
83     "Output format (DER or PEM) - default PEM"},
84    {"nocert", OPT_NOCERT, '-',
85     "No cert output (except for requested printing)"},
86    {"noout", OPT_NOOUT, '-', "No output (except for requested printing)"},
87
88    OPT_SECTION("Certificate printing"),
89    {"text", OPT_TEXT, '-', "Print the certificate in text form"},
90    {"dateopt", OPT_DATEOPT, 's', "Datetime format used for printing. (rfc_822/iso_8601). Default is rfc_822."},
91    {"certopt", OPT_CERTOPT, 's', "Various certificate text printing options"},
92    {"fingerprint", OPT_FINGERPRINT, '-', "Print the certificate fingerprint"},
93    {"alias", OPT_ALIAS, '-', "Print certificate alias"},
94    {"serial", OPT_SERIAL, '-', "Print serial number value"},
95    {"startdate", OPT_STARTDATE, '-', "Print the notBefore field"},
96    {"enddate", OPT_ENDDATE, '-', "Print the notAfter field"},
97    {"dates", OPT_DATES, '-', "Print both notBefore and notAfter fields"},
98    {"subject", OPT_SUBJECT, '-', "Print subject DN"},
99    {"issuer", OPT_ISSUER, '-', "Print issuer DN"},
100    {"nameopt", OPT_NAMEOPT, 's',
101     "Certificate subject/issuer name printing options"},
102    {"email", OPT_EMAIL, '-', "Print email address(es)"},
103    {"hash", OPT_HASH, '-', "Synonym for -subject_hash (for backward compat)"},
104    {"subject_hash", OPT_HASH, '-', "Print subject hash value"},
105#ifndef OPENSSL_NO_MD5
106    {"subject_hash_old", OPT_SUBJECT_HASH_OLD, '-',
107     "Print old-style (MD5) subject hash value"},
108#endif
109    {"issuer_hash", OPT_ISSUER_HASH, '-', "Print issuer hash value"},
110#ifndef OPENSSL_NO_MD5
111    {"issuer_hash_old", OPT_ISSUER_HASH_OLD, '-',
112     "Print old-style (MD5) issuer hash value"},
113#endif
114    {"ext", OPT_EXT, 's',
115     "Restrict which X.509 extensions to print and/or copy"},
116    {"ocspid", OPT_OCSPID, '-',
117     "Print OCSP hash values for the subject name and public key"},
118    {"ocsp_uri", OPT_OCSP_URI, '-', "Print OCSP Responder URL(s)"},
119    {"purpose", OPT_PURPOSE, '-', "Print out certificate purposes"},
120    {"pubkey", OPT_PUBKEY, '-', "Print the public key in PEM format"},
121    {"modulus", OPT_MODULUS, '-', "Print the RSA key modulus"},
122
123    OPT_SECTION("Certificate checking"),
124    {"checkend", OPT_CHECKEND, 'M',
125     "Check whether cert expires in the next arg seconds"},
126    {OPT_MORE_STR, 1, 1, "Exit 1 (failure) if so, 0 if not"},
127    {"checkhost", OPT_CHECKHOST, 's', "Check certificate matches host"},
128    {"checkemail", OPT_CHECKEMAIL, 's', "Check certificate matches email"},
129    {"checkip", OPT_CHECKIP, 's', "Check certificate matches ipaddr"},
130
131    OPT_SECTION("Certificate output"),
132    {"set_serial", OPT_SET_SERIAL, 's',
133     "Serial number to use, overrides -CAserial"},
134    {"next_serial", OPT_NEXT_SERIAL, '-',
135     "Increment current certificate serial number"},
136    {"days", OPT_DAYS, 'n',
137     "Number of days until newly generated certificate expires - default 30"},
138    {"preserve_dates", OPT_PRESERVE_DATES, '-',
139     "Preserve existing validity dates"},
140    {"subj", OPT_SUBJ, 's', "Set or override certificate subject (and issuer)"},
141    {"force_pubkey", OPT_FORCE_PUBKEY, '<',
142     "Place the given key in new certificate"},
143    {"clrext", OPT_CLREXT, '-',
144     "Do not take over any extensions from the source certificate or request"},
145    {"extfile", OPT_EXTFILE, '<', "Config file with X509V3 extensions to add"},
146    {"extensions", OPT_EXTENSIONS, 's',
147     "Section of extfile to use - default: unnamed section"},
148    {"sigopt", OPT_SIGOPT, 's', "Signature parameter, in n:v form"},
149    {"badsig", OPT_BADSIG, '-',
150     "Corrupt last byte of certificate signature (for test)"},
151    {"", OPT_MD, '-', "Any supported digest, used for signing and printing"},
152
153    OPT_SECTION("Micro-CA"),
154    {"CA", OPT_CA, '<',
155     "Use the given CA certificate, conflicts with -key"},
156    {"CAform", OPT_CAFORM, 'F', "CA cert format (PEM/DER/P12); has no effect"},
157    {"CAkey", OPT_CAKEY, 's', "The corresponding CA key; default is -CA arg"},
158    {"CAkeyform", OPT_CAKEYFORM, 'E',
159     "CA key format (ENGINE, other values ignored)"},
160    {"CAserial", OPT_CASERIAL, 's',
161     "File that keeps track of CA-generated serial number"},
162    {"CAcreateserial", OPT_CACREATESERIAL, '-',
163     "Create CA serial number file if it does not exist"},
164
165    OPT_SECTION("Certificate trust output"),
166    {"trustout", OPT_TRUSTOUT, '-', "Mark certificate PEM output as trusted"},
167    {"setalias", OPT_SETALIAS, 's', "Set certificate alias (nickname)"},
168    {"clrtrust", OPT_CLRTRUST, '-', "Clear all trusted purposes"},
169    {"addtrust", OPT_ADDTRUST, 's', "Trust certificate for a given purpose"},
170    {"clrreject", OPT_CLRREJECT, '-',
171     "Clears all the prohibited or rejected uses of the certificate"},
172    {"addreject", OPT_ADDREJECT, 's',
173     "Reject certificate for a given purpose"},
174
175    OPT_R_OPTIONS,
176#ifndef OPENSSL_NO_ENGINE
177    {"engine", OPT_ENGINE, 's', "Use engine, possibly a hardware device"},
178#endif
179    OPT_PROV_OPTIONS,
180    {NULL}
181};
182
183static void warn_copying(ASN1_OBJECT *excluded, const char *names)
184{
185    const char *sn = OBJ_nid2sn(OBJ_obj2nid(excluded));
186
187    if (names != NULL && strstr(names, sn) != NULL)
188        BIO_printf(bio_err,
189                   "Warning: -ext should not specify copying %s extension to CSR; ignoring this\n",
190                   sn);
191}
192
193static X509_REQ *x509_to_req(X509 *cert, int ext_copy, const char *names)
194{
195    const STACK_OF(X509_EXTENSION) *cert_exts = X509_get0_extensions(cert);
196    int i, n = sk_X509_EXTENSION_num(cert_exts /* may be NULL */);
197    ASN1_OBJECT *skid = OBJ_nid2obj(NID_subject_key_identifier);
198    ASN1_OBJECT *akid = OBJ_nid2obj(NID_authority_key_identifier);
199    STACK_OF(X509_EXTENSION) *exts;
200    X509_REQ *req = X509_to_X509_REQ(cert, NULL, NULL);
201
202    if (req == NULL)
203        return NULL;
204
205    /*
206     * Filter out SKID and AKID extensions, which make no sense in a CSR.
207     * If names is not NULL, copy only those extensions listed there.
208     */
209    warn_copying(skid, names);
210    warn_copying(akid, names);
211    if ((exts = sk_X509_EXTENSION_new_reserve(NULL, n)) == NULL)
212        goto err;
213    for (i = 0; i < n; i++) {
214        X509_EXTENSION *ex = sk_X509_EXTENSION_value(cert_exts, i);
215        ASN1_OBJECT *obj = X509_EXTENSION_get_object(ex);
216
217        if (OBJ_cmp(obj, skid) != 0 && OBJ_cmp(obj, akid) != 0
218                && !sk_X509_EXTENSION_push(exts, ex))
219            goto err;
220    }
221
222    if (sk_X509_EXTENSION_num(exts) > 0) {
223        if (ext_copy != EXT_COPY_UNSET && ext_copy != EXT_COPY_NONE
224                && !X509_REQ_add_extensions(req, exts)) {
225            BIO_printf(bio_err, "Error copying extensions from certificate\n");
226            goto err;
227        }
228    }
229    sk_X509_EXTENSION_free(exts);
230    return req;
231
232 err:
233    sk_X509_EXTENSION_free(exts);
234    X509_REQ_free(req);
235    return NULL;
236}
237
238static int self_signed(X509_STORE *ctx, X509 *cert)
239{
240    X509_STORE_CTX *xsc = X509_STORE_CTX_new();
241    int ret = 0;
242
243    if (xsc == NULL || !X509_STORE_CTX_init(xsc, ctx, cert, NULL)) {
244        BIO_printf(bio_err, "Error initialising X509 store\n");
245    } else {
246        X509_STORE_CTX_set_flags(xsc, X509_V_FLAG_CHECK_SS_SIGNATURE);
247        ret = X509_verify_cert(xsc) > 0;
248    }
249    X509_STORE_CTX_free(xsc);
250    return ret;
251}
252
253int x509_main(int argc, char **argv)
254{
255    ASN1_INTEGER *sno = NULL;
256    ASN1_OBJECT *objtmp = NULL;
257    BIO *out = NULL;
258    CONF *extconf = NULL;
259    int ext_copy = EXT_COPY_UNSET;
260    X509V3_CTX ext_ctx;
261    EVP_PKEY *privkey = NULL, *CAkey = NULL, *pubkey = NULL;
262    EVP_PKEY *pkey;
263    int newcert = 0;
264    char *subj = NULL, *digest = NULL;
265    X509_NAME *fsubj = NULL;
266    const unsigned long chtype = MBSTRING_ASC;
267    const int multirdn = 1;
268    STACK_OF(ASN1_OBJECT) *trust = NULL, *reject = NULL;
269    STACK_OF(OPENSSL_STRING) *sigopts = NULL, *vfyopts = NULL;
270    X509 *x = NULL, *xca = NULL, *issuer_cert;
271    X509_REQ *req = NULL, *rq = NULL;
272    X509_STORE *ctx = NULL;
273    char *CAkeyfile = NULL, *CAserial = NULL, *pubkeyfile = NULL, *alias = NULL;
274    char *checkhost = NULL, *checkemail = NULL, *checkip = NULL;
275    char *ext_names = NULL;
276    char *extsect = NULL, *extfile = NULL, *passin = NULL, *passinarg = NULL;
277    char *infile = NULL, *outfile = NULL, *privkeyfile = NULL, *CAfile = NULL;
278    char *prog;
279    int days = UNSET_DAYS; /* not explicitly set */
280    int x509toreq = 0, modulus = 0, print_pubkey = 0, pprint = 0;
281    int CAformat = FORMAT_UNDEF, CAkeyformat = FORMAT_UNDEF;
282    unsigned long dateopt = ASN1_DTFLGS_RFC822;
283    int fingerprint = 0, reqfile = 0, checkend = 0;
284    int informat = FORMAT_UNDEF, outformat = FORMAT_PEM, keyformat = FORMAT_UNDEF;
285    int next_serial = 0, subject_hash = 0, issuer_hash = 0, ocspid = 0;
286    int noout = 0, CA_createserial = 0, email = 0;
287    int ocsp_uri = 0, trustout = 0, clrtrust = 0, clrreject = 0, aliasout = 0;
288    int ret = 1, i, j, num = 0, badsig = 0, clrext = 0, nocert = 0;
289    int text = 0, serial = 0, subject = 0, issuer = 0, startdate = 0, ext = 0;
290    int enddate = 0;
291    time_t checkoffset = 0;
292    unsigned long certflag = 0;
293    int preserve_dates = 0;
294    OPTION_CHOICE o;
295    ENGINE *e = NULL;
296#ifndef OPENSSL_NO_MD5
297    int subject_hash_old = 0, issuer_hash_old = 0;
298#endif
299
300    ctx = X509_STORE_new();
301    if (ctx == NULL)
302        goto end;
303    X509_STORE_set_verify_cb(ctx, callb);
304
305    prog = opt_init(argc, argv, x509_options);
306    while ((o = opt_next()) != OPT_EOF) {
307        switch (o) {
308        case OPT_EOF:
309        case OPT_ERR:
310 opthelp:
311            BIO_printf(bio_err, "%s: Use -help for summary.\n", prog);
312            goto end;
313        case OPT_HELP:
314            opt_help(x509_options);
315            ret = 0;
316            goto end;
317        case OPT_INFORM:
318            if (!opt_format(opt_arg(), OPT_FMT_PEMDER, &informat))
319                goto opthelp;
320            break;
321        case OPT_IN:
322            infile = opt_arg();
323            break;
324        case OPT_OUTFORM:
325            if (!opt_format(opt_arg(), OPT_FMT_ANY, &outformat))
326                goto opthelp;
327            break;
328        case OPT_KEYFORM:
329            if (!opt_format(opt_arg(), OPT_FMT_ANY, &keyformat))
330                goto opthelp;
331            break;
332        case OPT_CAFORM:
333            if (!opt_format(opt_arg(), OPT_FMT_ANY, &CAformat))
334                goto opthelp;
335            break;
336        case OPT_CAKEYFORM:
337            if (!opt_format(opt_arg(), OPT_FMT_ANY, &CAkeyformat))
338                goto opthelp;
339            break;
340        case OPT_OUT:
341            outfile = opt_arg();
342            break;
343        case OPT_REQ:
344            reqfile = 1;
345            break;
346
347        case OPT_DATEOPT:
348            if (!set_dateopt(&dateopt, opt_arg())) {
349                BIO_printf(bio_err,
350                           "Invalid date format: %s\n", opt_arg());
351                goto end;
352            }
353            break;
354        case OPT_COPY_EXTENSIONS:
355            if (!set_ext_copy(&ext_copy, opt_arg())) {
356                BIO_printf(bio_err,
357                           "Invalid extension copy option: %s\n", opt_arg());
358                goto end;
359            }
360            break;
361
362        case OPT_SIGOPT:
363            if (!sigopts)
364                sigopts = sk_OPENSSL_STRING_new_null();
365            if (!sigopts || !sk_OPENSSL_STRING_push(sigopts, opt_arg()))
366                goto opthelp;
367            break;
368        case OPT_VFYOPT:
369            if (!vfyopts)
370                vfyopts = sk_OPENSSL_STRING_new_null();
371            if (!vfyopts || !sk_OPENSSL_STRING_push(vfyopts, opt_arg()))
372                goto opthelp;
373            break;
374        case OPT_DAYS:
375            days = atoi(opt_arg());
376            if (days < -1) {
377                BIO_printf(bio_err, "%s: -days parameter arg must be >= -1\n",
378                           prog);
379                goto end;
380            }
381            break;
382        case OPT_PASSIN:
383            passinarg = opt_arg();
384            break;
385        case OPT_EXTFILE:
386            extfile = opt_arg();
387            break;
388        case OPT_R_CASES:
389            if (!opt_rand(o))
390                goto end;
391            break;
392        case OPT_PROV_CASES:
393            if (!opt_provider(o))
394                goto end;
395            break;
396        case OPT_EXTENSIONS:
397            extsect = opt_arg();
398            break;
399        case OPT_KEY:
400        case OPT_SIGNKEY:
401            privkeyfile = opt_arg();
402            break;
403        case OPT_CA:
404            CAfile = opt_arg();
405            break;
406        case OPT_CAKEY:
407            CAkeyfile = opt_arg();
408            break;
409        case OPT_CASERIAL:
410            CAserial = opt_arg();
411            break;
412        case OPT_SET_SERIAL:
413            if (sno != NULL) {
414                BIO_printf(bio_err, "Serial number supplied twice\n");
415                goto opthelp;
416            }
417            if ((sno = s2i_ASN1_INTEGER(NULL, opt_arg())) == NULL)
418                goto opthelp;
419            break;
420        case OPT_NEW:
421            newcert = 1;
422            break;
423        case OPT_FORCE_PUBKEY:
424            pubkeyfile = opt_arg();
425            break;
426        case OPT_SUBJ:
427            subj = opt_arg();
428            break;
429        case OPT_ADDTRUST:
430            if (trust == NULL && (trust = sk_ASN1_OBJECT_new_null()) == NULL)
431                goto end;
432            if ((objtmp = OBJ_txt2obj(opt_arg(), 0)) == NULL) {
433                BIO_printf(bio_err, "%s: Invalid trust object value %s\n",
434                           prog, opt_arg());
435                goto opthelp;
436            }
437            sk_ASN1_OBJECT_push(trust, objtmp);
438            trustout = 1;
439            break;
440        case OPT_ADDREJECT:
441            if (reject == NULL && (reject = sk_ASN1_OBJECT_new_null()) == NULL)
442                goto end;
443            if ((objtmp = OBJ_txt2obj(opt_arg(), 0)) == NULL) {
444                BIO_printf(bio_err, "%s: Invalid reject object value %s\n",
445                           prog, opt_arg());
446                goto opthelp;
447            }
448            sk_ASN1_OBJECT_push(reject, objtmp);
449            trustout = 1;
450            break;
451        case OPT_SETALIAS:
452            alias = opt_arg();
453            trustout = 1;
454            break;
455        case OPT_CERTOPT:
456            if (!set_cert_ex(&certflag, opt_arg()))
457                goto opthelp;
458            break;
459        case OPT_NAMEOPT:
460            if (!set_nameopt(opt_arg()))
461                goto opthelp;
462            break;
463        case OPT_ENGINE:
464            e = setup_engine(opt_arg(), 0);
465            break;
466        case OPT_EMAIL:
467            email = ++num;
468            break;
469        case OPT_OCSP_URI:
470            ocsp_uri = ++num;
471            break;
472        case OPT_SERIAL:
473            serial = ++num;
474            break;
475        case OPT_NEXT_SERIAL:
476            next_serial = ++num;
477            break;
478        case OPT_MODULUS:
479            modulus = ++num;
480            break;
481        case OPT_PUBKEY:
482            print_pubkey = ++num;
483            break;
484        case OPT_X509TOREQ:
485            x509toreq = 1;
486            break;
487        case OPT_TEXT:
488            text = ++num;
489            break;
490        case OPT_SUBJECT:
491            subject = ++num;
492            break;
493        case OPT_ISSUER:
494            issuer = ++num;
495            break;
496        case OPT_FINGERPRINT:
497            fingerprint = ++num;
498            break;
499        case OPT_HASH:
500            subject_hash = ++num;
501            break;
502        case OPT_ISSUER_HASH:
503            issuer_hash = ++num;
504            break;
505        case OPT_PURPOSE:
506            pprint = ++num;
507            break;
508        case OPT_STARTDATE:
509            startdate = ++num;
510            break;
511        case OPT_ENDDATE:
512            enddate = ++num;
513            break;
514        case OPT_NOOUT:
515            noout = ++num;
516            break;
517        case OPT_EXT:
518            ext = ++num;
519            ext_names = opt_arg();
520            break;
521        case OPT_NOCERT:
522            nocert = 1;
523            break;
524        case OPT_TRUSTOUT:
525            trustout = 1;
526            break;
527        case OPT_CLRTRUST:
528            clrtrust = ++num;
529            break;
530        case OPT_CLRREJECT:
531            clrreject = ++num;
532            break;
533        case OPT_ALIAS:
534            aliasout = ++num;
535            break;
536        case OPT_CACREATESERIAL:
537            CA_createserial = 1;
538            break;
539        case OPT_CLREXT:
540            clrext = 1;
541            break;
542        case OPT_OCSPID:
543            ocspid = ++num;
544            break;
545        case OPT_BADSIG:
546            badsig = 1;
547            break;
548#ifndef OPENSSL_NO_MD5
549        case OPT_SUBJECT_HASH_OLD:
550            subject_hash_old = ++num;
551            break;
552        case OPT_ISSUER_HASH_OLD:
553            issuer_hash_old = ++num;
554            break;
555#else
556        case OPT_SUBJECT_HASH_OLD:
557        case OPT_ISSUER_HASH_OLD:
558            break;
559#endif
560        case OPT_DATES:
561            startdate = ++num;
562            enddate = ++num;
563            break;
564        case OPT_CHECKEND:
565            checkend = 1;
566            {
567                ossl_intmax_t temp = 0;
568                if (!opt_intmax(opt_arg(), &temp))
569                    goto opthelp;
570                checkoffset = (time_t)temp;
571                if ((ossl_intmax_t)checkoffset != temp) {
572                    BIO_printf(bio_err, "%s: Checkend time out of range %s\n",
573                               prog, opt_arg());
574                    goto opthelp;
575                }
576            }
577            break;
578        case OPT_CHECKHOST:
579            checkhost = opt_arg();
580            break;
581        case OPT_CHECKEMAIL:
582            checkemail = opt_arg();
583            break;
584        case OPT_CHECKIP:
585            checkip = opt_arg();
586            break;
587        case OPT_PRESERVE_DATES:
588            preserve_dates = 1;
589            break;
590        case OPT_MD:
591            digest = opt_unknown();
592            break;
593        }
594    }
595
596    /* No extra arguments. */
597    argc = opt_num_rest();
598    if (argc != 0)
599        goto opthelp;
600
601    if (!app_RAND_load())
602        goto end;
603
604    if (preserve_dates && days != UNSET_DAYS) {
605        BIO_printf(bio_err, "Cannot use -preserve_dates with -days option\n");
606        goto end;
607    }
608    if (days == UNSET_DAYS)
609        days = DEFAULT_DAYS;
610
611    if (!app_passwd(passinarg, NULL, &passin, NULL)) {
612        BIO_printf(bio_err, "Error getting password\n");
613        goto end;
614    }
615
616    if (!X509_STORE_set_default_paths_ex(ctx, app_get0_libctx(),
617                                         app_get0_propq()))
618        goto end;
619
620    if (newcert && infile != NULL) {
621        BIO_printf(bio_err, "The -in option cannot be used with -new\n");
622        goto end;
623    }
624    if (newcert && reqfile) {
625        BIO_printf(bio_err,
626                   "The -req option cannot be used with -new\n");
627        goto end;
628    }
629    if (privkeyfile != NULL) {
630        privkey = load_key(privkeyfile, keyformat, 0, passin, e, "private key");
631        if (privkey == NULL)
632            goto end;
633    }
634    if (pubkeyfile != NULL) {
635        if ((pubkey = load_pubkey(pubkeyfile, keyformat, 0, NULL, e,
636                                  "explicitly set public key")) == NULL)
637            goto end;
638    }
639
640    if (newcert) {
641        if (subj == NULL) {
642            BIO_printf(bio_err,
643                       "The -new option requires a subject to be set using -subj\n");
644            goto end;
645        }
646        if (privkeyfile == NULL && pubkeyfile == NULL) {
647            BIO_printf(bio_err,
648                       "The -new option requires using the -key or -force_pubkey option\n");
649            goto end;
650        }
651    }
652    if (subj != NULL
653            && (fsubj = parse_name(subj, chtype, multirdn, "subject")) == NULL)
654        goto end;
655
656    if (CAkeyfile == NULL)
657        CAkeyfile = CAfile;
658    if (CAfile != NULL) {
659        if (privkeyfile != NULL) {
660            BIO_printf(bio_err, "Cannot use both -key/-signkey and -CA option\n");
661            goto end;
662        }
663    } else {
664#define WARN_NO_CA(opt) BIO_printf(bio_err, \
665        "Warning: ignoring " opt " option since -CA option is not given\n");
666        if (CAkeyfile != NULL)
667            WARN_NO_CA("-CAkey");
668        if (CAkeyformat != FORMAT_UNDEF)
669            WARN_NO_CA("-CAkeyform");
670        if (CAformat != FORMAT_UNDEF)
671            WARN_NO_CA("-CAform");
672        if (CAserial != NULL)
673            WARN_NO_CA("-CAserial");
674        if (CA_createserial)
675            WARN_NO_CA("-CAcreateserial");
676    }
677
678    if (extfile == NULL) {
679        if (extsect != NULL)
680            BIO_printf(bio_err,
681                       "Warning: ignoring -extensions option without -extfile\n");
682    } else {
683        X509V3_CTX ctx2;
684
685        if ((extconf = app_load_config(extfile)) == NULL)
686            goto end;
687        if (extsect == NULL) {
688            extsect = NCONF_get_string(extconf, "default", "extensions");
689            if (extsect == NULL) {
690                ERR_clear_error();
691                extsect = "default";
692            }
693        }
694        X509V3_set_ctx_test(&ctx2);
695        X509V3_set_nconf(&ctx2, extconf);
696        if (!X509V3_EXT_add_nconf(extconf, &ctx2, extsect, NULL)) {
697            BIO_printf(bio_err,
698                       "Error checking extension section %s\n", extsect);
699            goto end;
700        }
701    }
702
703    if (reqfile) {
704        req = load_csr(infile, informat, "certificate request input");
705        if (req == NULL)
706            goto end;
707
708        if ((pkey = X509_REQ_get0_pubkey(req)) == NULL) {
709            BIO_printf(bio_err, "Error unpacking public key from CSR\n");
710            goto end;
711        }
712        i = do_X509_REQ_verify(req, pkey, vfyopts);
713        if (i <= 0) {
714            BIO_printf(bio_err, i < 0
715                       ? "Error while verifying certificate request self-signature\n"
716                       : "Certificate request self-signature did not match the contents\n");
717            goto end;
718        }
719        BIO_printf(bio_err, "Certificate request self-signature ok\n");
720
721        print_name(bio_err, "subject=", X509_REQ_get_subject_name(req));
722    } else if (!x509toreq && ext_copy != EXT_COPY_UNSET) {
723        BIO_printf(bio_err, "Warning: ignoring -copy_extensions since neither -x509toreq nor -req is given\n");
724    }
725
726    if (reqfile || newcert) {
727        if (preserve_dates)
728            BIO_printf(bio_err,
729                       "Warning: ignoring -preserve_dates option with -req or -new\n");
730        preserve_dates = 0;
731        if (privkeyfile == NULL && CAkeyfile == NULL) {
732            BIO_printf(bio_err,
733                       "We need a private key to sign with, use -key or -CAkey or -CA with private key\n");
734            goto end;
735        }
736        if ((x = X509_new_ex(app_get0_libctx(), app_get0_propq())) == NULL)
737            goto end;
738        if (CAfile == NULL && sno == NULL) {
739            sno = ASN1_INTEGER_new();
740            if (sno == NULL || !rand_serial(NULL, sno))
741                goto end;
742        }
743        if (req != NULL && ext_copy != EXT_COPY_UNSET) {
744            if (clrext && ext_copy != EXT_COPY_NONE) {
745                BIO_printf(bio_err, "Must not use -clrext together with -copy_extensions\n");
746                goto end;
747            } else if (!copy_extensions(x, req, ext_copy)) {
748                BIO_printf(bio_err, "Error copying extensions from request\n");
749                goto end;
750            }
751        }
752    } else {
753        x = load_cert_pass(infile, informat, 1, passin, "certificate");
754        if (x == NULL)
755            goto end;
756    }
757    if ((fsubj != NULL || req != NULL)
758        && !X509_set_subject_name(x, fsubj != NULL ? fsubj :
759                                  X509_REQ_get_subject_name(req)))
760        goto end;
761    if ((pubkey != NULL || privkey != NULL || req != NULL)
762        && !X509_set_pubkey(x, pubkey != NULL ? pubkey :
763                            privkey != NULL ? privkey :
764                            X509_REQ_get0_pubkey(req)))
765        goto end;
766
767    if (CAfile != NULL) {
768        xca = load_cert_pass(CAfile, CAformat, 1, passin, "CA certificate");
769        if (xca == NULL)
770            goto end;
771    }
772
773    out = bio_open_default(outfile, 'w', outformat);
774    if (out == NULL)
775        goto end;
776
777    if (!noout || text || next_serial)
778        OBJ_create("2.99999.3", "SET.ex3", "SET x509v3 extension 3");
779
780    if (alias)
781        X509_alias_set1(x, (unsigned char *)alias, -1);
782
783    if (clrtrust)
784        X509_trust_clear(x);
785    if (clrreject)
786        X509_reject_clear(x);
787
788    if (trust != NULL) {
789        for (i = 0; i < sk_ASN1_OBJECT_num(trust); i++)
790            X509_add1_trust_object(x, sk_ASN1_OBJECT_value(trust, i));
791    }
792
793    if (reject != NULL) {
794        for (i = 0; i < sk_ASN1_OBJECT_num(reject); i++)
795            X509_add1_reject_object(x, sk_ASN1_OBJECT_value(reject, i));
796    }
797
798    if (clrext && ext_names != NULL)
799        BIO_printf(bio_err, "Warning: Ignoring -ext since -clrext is given\n");
800    for (i = X509_get_ext_count(x) - 1; i >= 0; i--) {
801        X509_EXTENSION *ex = X509_get_ext(x, i);
802        const char *sn = OBJ_nid2sn(OBJ_obj2nid(X509_EXTENSION_get_object(ex)));
803
804        if (clrext || (ext_names != NULL && strstr(ext_names, sn) == NULL))
805            X509_EXTENSION_free(X509_delete_ext(x, i));
806    }
807
808    issuer_cert = x;
809    if (CAfile != NULL) {
810        issuer_cert = xca;
811        if (sno == NULL)
812            sno = x509_load_serial(CAfile, CAserial, CA_createserial);
813        if (sno == NULL)
814            goto end;
815        if (!x509toreq && !reqfile && !newcert && !self_signed(ctx, x))
816            goto end;
817    }
818
819    if (sno != NULL && !X509_set_serialNumber(x, sno))
820        goto end;
821
822    if (reqfile || newcert || privkey != NULL || CAfile != NULL) {
823        if (!preserve_dates && !set_cert_times(x, NULL, NULL, days))
824            goto end;
825        if (!X509_set_issuer_name(x, X509_get_subject_name(issuer_cert)))
826            goto end;
827    }
828
829    X509V3_set_ctx(&ext_ctx, issuer_cert, x, NULL, NULL, X509V3_CTX_REPLACE);
830    /* prepare fallback for AKID, but only if issuer cert equals subject cert */
831    if (CAfile == NULL) {
832        if (!X509V3_set_issuer_pkey(&ext_ctx, privkey))
833            goto end;
834    }
835    if (extconf != NULL && !x509toreq) {
836        X509V3_set_nconf(&ext_ctx, extconf);
837        if (!X509V3_EXT_add_nconf(extconf, &ext_ctx, extsect, x)) {
838            BIO_printf(bio_err,
839                       "Error adding extensions from section %s\n", extsect);
840            goto end;
841        }
842    }
843
844    /* At this point the contents of the certificate x have been finished. */
845
846    pkey = X509_get0_pubkey(x);
847    if ((print_pubkey != 0 || modulus != 0) && pkey == NULL) {
848        BIO_printf(bio_err, "Error getting public key\n");
849        goto end;
850    }
851
852    if (x509toreq) { /* also works in conjunction with -req */
853        if (privkey == NULL) {
854            BIO_printf(bio_err, "Must specify request signing key using -key\n");
855            goto end;
856        }
857        if (clrext && ext_copy != EXT_COPY_NONE) {
858            BIO_printf(bio_err, "Must not use -clrext together with -copy_extensions\n");
859            goto end;
860        }
861        if ((rq = x509_to_req(x, ext_copy, ext_names)) == NULL)
862            goto end;
863        if (extconf != NULL) {
864            X509V3_set_nconf(&ext_ctx, extconf);
865            if (!X509V3_EXT_REQ_add_nconf(extconf, &ext_ctx, extsect, rq)) {
866                BIO_printf(bio_err,
867                           "Error adding request extensions from section %s\n", extsect);
868                goto end;
869            }
870        }
871        if (!do_X509_REQ_sign(rq, privkey, digest, sigopts))
872            goto end;
873        if (!noout) {
874            if (outformat == FORMAT_ASN1) {
875                X509_REQ_print_ex(out, rq, get_nameopt(), X509_FLAG_COMPAT);
876                i = i2d_X509_bio(out, x);
877            } else {
878                i = PEM_write_bio_X509_REQ(out, rq);
879            }
880            if (!i) {
881                BIO_printf(bio_err,
882                           "Unable to write certificate request\n");
883                goto end;
884            }
885        }
886        noout = 1;
887    } else if (privkey != NULL) {
888        if (!do_X509_sign(x, privkey, digest, sigopts, &ext_ctx))
889            goto end;
890    } else if (CAfile != NULL) {
891        if ((CAkey = load_key(CAkeyfile, CAkeyformat,
892                              0, passin, e, "CA private key")) == NULL)
893            goto end;
894        if (!X509_check_private_key(xca, CAkey)) {
895            BIO_printf(bio_err,
896                       "CA certificate and CA private key do not match\n");
897            goto end;
898        }
899
900        if (!do_X509_sign(x, CAkey, digest, sigopts, &ext_ctx))
901            goto end;
902    }
903    if (badsig) {
904        const ASN1_BIT_STRING *signature;
905
906        X509_get0_signature(&signature, NULL, x);
907        corrupt_signature(signature);
908    }
909
910    /* Process print options in the given order, as indicated by index i */
911    for (i = 1; i <= num; i++) {
912        if (i == issuer) {
913            print_name(out, "issuer=", X509_get_issuer_name(x));
914        } else if (i == subject) {
915            print_name(out, "subject=", X509_get_subject_name(x));
916        } else if (i == serial) {
917            BIO_printf(out, "serial=");
918            i2a_ASN1_INTEGER(out, X509_get0_serialNumber(x));
919            BIO_printf(out, "\n");
920        } else if (i == next_serial) {
921            ASN1_INTEGER *ser;
922            BIGNUM *bnser = ASN1_INTEGER_to_BN(X509_get0_serialNumber(x), NULL);
923
924            if (bnser == NULL)
925                goto end;
926            if (!BN_add_word(bnser, 1)
927                    || (ser = BN_to_ASN1_INTEGER(bnser, NULL)) == NULL) {
928                BN_free(bnser);
929                goto end;
930            }
931            BN_free(bnser);
932            i2a_ASN1_INTEGER(out, ser);
933            ASN1_INTEGER_free(ser);
934            BIO_puts(out, "\n");
935        } else if (i == email || i == ocsp_uri) {
936            STACK_OF(OPENSSL_STRING) *emlst =
937                i == email ? X509_get1_email(x) : X509_get1_ocsp(x);
938
939            for (j = 0; j < sk_OPENSSL_STRING_num(emlst); j++)
940                BIO_printf(out, "%s\n", sk_OPENSSL_STRING_value(emlst, j));
941            X509_email_free(emlst);
942        } else if (i == aliasout) {
943            unsigned char *alstr = X509_alias_get0(x, NULL);
944
945            if (alstr)
946                BIO_printf(out, "%s\n", alstr);
947            else
948                BIO_puts(out, "<No Alias>\n");
949        } else if (i == subject_hash) {
950            BIO_printf(out, "%08lx\n", X509_subject_name_hash(x));
951#ifndef OPENSSL_NO_MD5
952        } else if (i == subject_hash_old) {
953            BIO_printf(out, "%08lx\n", X509_subject_name_hash_old(x));
954#endif
955        } else if (i == issuer_hash) {
956            BIO_printf(out, "%08lx\n", X509_issuer_name_hash(x));
957#ifndef OPENSSL_NO_MD5
958        } else if (i == issuer_hash_old) {
959            BIO_printf(out, "%08lx\n", X509_issuer_name_hash_old(x));
960#endif
961        } else if (i == pprint) {
962            BIO_printf(out, "Certificate purposes:\n");
963            for (j = 0; j < X509_PURPOSE_get_count(); j++)
964                purpose_print(out, x, X509_PURPOSE_get0(j));
965        } else if (i == modulus) {
966            BIO_printf(out, "Modulus=");
967            if (EVP_PKEY_is_a(pkey, "RSA") || EVP_PKEY_is_a(pkey, "RSA-PSS")) {
968                BIGNUM *n = NULL;
969
970                /* Every RSA key has an 'n' */
971                EVP_PKEY_get_bn_param(pkey, "n", &n);
972                BN_print(out, n);
973                BN_free(n);
974            } else if (EVP_PKEY_is_a(pkey, "DSA")) {
975                BIGNUM *dsapub = NULL;
976
977                /* Every DSA key has a 'pub' */
978                EVP_PKEY_get_bn_param(pkey, "pub", &dsapub);
979                BN_print(out, dsapub);
980                BN_free(dsapub);
981            } else {
982                BIO_printf(out, "No modulus for this public key type");
983            }
984            BIO_printf(out, "\n");
985        } else if (i == print_pubkey) {
986            PEM_write_bio_PUBKEY(out, pkey);
987        } else if (i == text) {
988            X509_print_ex(out, x, get_nameopt(), certflag);
989        } else if (i == startdate) {
990            BIO_puts(out, "notBefore=");
991            ASN1_TIME_print_ex(out, X509_get0_notBefore(x), dateopt);
992            BIO_puts(out, "\n");
993        } else if (i == enddate) {
994            BIO_puts(out, "notAfter=");
995            ASN1_TIME_print_ex(out, X509_get0_notAfter(x), dateopt);
996            BIO_puts(out, "\n");
997        } else if (i == fingerprint) {
998            unsigned int n;
999            unsigned char md[EVP_MAX_MD_SIZE];
1000            const char *fdigname = digest;
1001            EVP_MD *fdig;
1002            int digres;
1003
1004            if (fdigname == NULL)
1005                fdigname = "SHA1";
1006
1007            if ((fdig = EVP_MD_fetch(app_get0_libctx(), fdigname,
1008                                     app_get0_propq())) == NULL) {
1009                BIO_printf(bio_err, "Unknown digest\n");
1010                goto end;
1011            }
1012            digres = X509_digest(x, fdig, md, &n);
1013            EVP_MD_free(fdig);
1014            if (!digres) {
1015                BIO_printf(bio_err, "Out of memory\n");
1016                goto end;
1017            }
1018
1019            BIO_printf(out, "%s Fingerprint=", fdigname);
1020            for (j = 0; j < (int)n; j++)
1021                BIO_printf(out, "%02X%c", md[j], (j + 1 == (int)n) ? '\n' : ':');
1022        } else if (i == ocspid) {
1023            X509_ocspid_print(out, x);
1024        } else if (i == ext) {
1025            print_x509v3_exts(out, x, ext_names);
1026        }
1027    }
1028
1029    if (checkend) {
1030        time_t tcheck = time(NULL) + checkoffset;
1031
1032        ret = X509_cmp_time(X509_get0_notAfter(x), &tcheck) < 0;
1033        if (ret)
1034            BIO_printf(out, "Certificate will expire\n");
1035        else
1036            BIO_printf(out, "Certificate will not expire\n");
1037        goto end;
1038    }
1039
1040    print_cert_checks(out, x, checkhost, checkemail, checkip);
1041
1042    if (noout || nocert) {
1043        ret = 0;
1044        goto end;
1045    }
1046
1047    if (outformat == FORMAT_ASN1) {
1048        i = i2d_X509_bio(out, x);
1049    } else if (outformat == FORMAT_PEM) {
1050        if (trustout)
1051            i = PEM_write_bio_X509_AUX(out, x);
1052        else
1053            i = PEM_write_bio_X509(out, x);
1054    } else {
1055        BIO_printf(bio_err, "Bad output format specified for outfile\n");
1056        goto end;
1057    }
1058    if (!i) {
1059        BIO_printf(bio_err, "Unable to write certificate\n");
1060        goto end;
1061    }
1062    ret = 0;
1063
1064 end:
1065    if (ret != 0)
1066        ERR_print_errors(bio_err);
1067    NCONF_free(extconf);
1068    BIO_free_all(out);
1069    X509_STORE_free(ctx);
1070    X509_NAME_free(fsubj);
1071    X509_REQ_free(req);
1072    X509_free(x);
1073    X509_free(xca);
1074    EVP_PKEY_free(privkey);
1075    EVP_PKEY_free(CAkey);
1076    EVP_PKEY_free(pubkey);
1077    sk_OPENSSL_STRING_free(sigopts);
1078    sk_OPENSSL_STRING_free(vfyopts);
1079    X509_REQ_free(rq);
1080    ASN1_INTEGER_free(sno);
1081    sk_ASN1_OBJECT_pop_free(trust, ASN1_OBJECT_free);
1082    sk_ASN1_OBJECT_pop_free(reject, ASN1_OBJECT_free);
1083    release_engine(e);
1084    clear_free(passin);
1085    return ret;
1086}
1087
1088static ASN1_INTEGER *x509_load_serial(const char *CAfile,
1089                                      const char *serialfile, int create)
1090{
1091    char *buf = NULL;
1092    ASN1_INTEGER *bs = NULL;
1093    BIGNUM *serial = NULL;
1094    int defaultfile = 0, file_exists;
1095
1096    if (serialfile == NULL) {
1097        const char *p = strrchr(CAfile, '.');
1098        size_t len = p != NULL ? (size_t)(p - CAfile) : strlen(CAfile);
1099
1100        buf = app_malloc(len + sizeof(POSTFIX), "serial# buffer");
1101        memcpy(buf, CAfile, len);
1102        memcpy(buf + len, POSTFIX, sizeof(POSTFIX));
1103        serialfile = buf;
1104        defaultfile = 1;
1105    }
1106
1107    serial = load_serial(serialfile, &file_exists, create || defaultfile, NULL);
1108    if (serial == NULL)
1109        goto end;
1110
1111    if (!BN_add_word(serial, 1)) {
1112        BIO_printf(bio_err, "Serial number increment failure\n");
1113        goto end;
1114    }
1115
1116    if (file_exists || create)
1117        save_serial(serialfile, NULL, serial, &bs);
1118    else
1119        bs = BN_to_ASN1_INTEGER(serial, NULL);
1120
1121 end:
1122    OPENSSL_free(buf);
1123    BN_free(serial);
1124    return bs;
1125}
1126
1127static int callb(int ok, X509_STORE_CTX *ctx)
1128{
1129    int err;
1130    X509 *err_cert;
1131
1132    /*
1133     * It is ok to use a self-signed certificate. This case will catch both
1134     * the initial ok == 0 and the final ok == 1 calls to this function.
1135     */
1136    err = X509_STORE_CTX_get_error(ctx);
1137    if (err == X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT)
1138        return 1;
1139
1140    /*
1141     * BAD we should have gotten an error.  Normally if everything worked
1142     * X509_STORE_CTX_get_error(ctx) will still be set to
1143     * DEPTH_ZERO_SELF_....
1144     */
1145    if (ok) {
1146        BIO_printf(bio_err,
1147                   "Error with certificate to be certified - should be self-signed\n");
1148        return 0;
1149    } else {
1150        err_cert = X509_STORE_CTX_get_current_cert(ctx);
1151        print_name(bio_err, "subject=", X509_get_subject_name(err_cert));
1152        BIO_printf(bio_err,
1153                   "Error with certificate - error %d at depth %d\n%s\n", err,
1154                   X509_STORE_CTX_get_error_depth(ctx),
1155                   X509_verify_cert_error_string(err));
1156        return 1;
1157    }
1158}
1159
1160static int purpose_print(BIO *bio, X509 *cert, X509_PURPOSE *pt)
1161{
1162    int id, i, idret;
1163    const char *pname;
1164    id = X509_PURPOSE_get_id(pt);
1165    pname = X509_PURPOSE_get0_name(pt);
1166    for (i = 0; i < 2; i++) {
1167        idret = X509_check_purpose(cert, id, i);
1168        BIO_printf(bio, "%s%s : ", pname, i ? " CA" : "");
1169        if (idret == 1)
1170            BIO_printf(bio, "Yes\n");
1171        else if (idret == 0)
1172            BIO_printf(bio, "No\n");
1173        else
1174            BIO_printf(bio, "Yes (WARNING code=%d)\n", idret);
1175    }
1176    return 1;
1177}
1178
1179static int parse_ext_names(char *names, const char **result)
1180{
1181    char *p, *q;
1182    int cnt = 0, len = 0;
1183
1184    p = q = names;
1185    len = strlen(names);
1186
1187    while (q - names <= len) {
1188        if (*q != ',' && *q != '\0') {
1189            q++;
1190            continue;
1191        }
1192        if (p != q) {
1193            /* found */
1194            if (result != NULL) {
1195                result[cnt] = p;
1196                *q = '\0';
1197            }
1198            cnt++;
1199        }
1200        p = ++q;
1201    }
1202
1203    return cnt;
1204}
1205
1206static int print_x509v3_exts(BIO *bio, X509 *x, const char *ext_names)
1207{
1208    const STACK_OF(X509_EXTENSION) *exts = NULL;
1209    STACK_OF(X509_EXTENSION) *exts2 = NULL;
1210    X509_EXTENSION *ext = NULL;
1211    ASN1_OBJECT *obj;
1212    int i, j, ret = 0, num, nn = 0;
1213    const char *sn, **names = NULL;
1214    char *tmp_ext_names = NULL;
1215
1216    exts = X509_get0_extensions(x);
1217    if ((num = sk_X509_EXTENSION_num(exts)) <= 0) {
1218        BIO_printf(bio_err, "No extensions in certificate\n");
1219        ret = 1;
1220        goto end;
1221    }
1222
1223    /* parse comma separated ext name string */
1224    if ((tmp_ext_names = OPENSSL_strdup(ext_names)) == NULL)
1225        goto end;
1226    if ((nn = parse_ext_names(tmp_ext_names, NULL)) == 0) {
1227        BIO_printf(bio, "Invalid extension names: %s\n", ext_names);
1228        goto end;
1229    }
1230    if ((names = OPENSSL_malloc(sizeof(char *) * nn)) == NULL)
1231        goto end;
1232    parse_ext_names(tmp_ext_names, names);
1233
1234    for (i = 0; i < num; i++) {
1235        ext = sk_X509_EXTENSION_value(exts, i);
1236
1237        /* check if this ext is what we want */
1238        obj = X509_EXTENSION_get_object(ext);
1239        sn = OBJ_nid2sn(OBJ_obj2nid(obj));
1240        if (sn == NULL || strcmp(sn, "UNDEF") == 0)
1241            continue;
1242
1243        for (j = 0; j < nn; j++) {
1244            if (strcmp(sn, names[j]) == 0) {
1245                /* push the extension into a new stack */
1246                if (exts2 == NULL
1247                    && (exts2 = sk_X509_EXTENSION_new_null()) == NULL)
1248                    goto end;
1249                if (!sk_X509_EXTENSION_push(exts2, ext))
1250                    goto end;
1251            }
1252        }
1253    }
1254
1255    if (!sk_X509_EXTENSION_num(exts2)) {
1256        BIO_printf(bio, "No extensions matched with %s\n", ext_names);
1257        ret = 1;
1258        goto end;
1259    }
1260
1261    ret = X509V3_extensions_print(bio, NULL, exts2, 0, 0);
1262 end:
1263    sk_X509_EXTENSION_free(exts2);
1264    OPENSSL_free(names);
1265    OPENSSL_free(tmp_ext_names);
1266    return ret;
1267}
1268