crypto/x509v3/v3_prn.c

   1 /*
   2  * Copyright 1999-2016 The OpenSSL Project Authors. All Rights Reserved.
   3  *
   4  * Licensed under the OpenSSL license (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 /* X509 v3 extension utilities */
  11
  12 #include <stdio.h>
  13 #include "internal/cryptlib.h"
  14 #include <openssl/conf.h>
  15 #include <openssl/x509v3.h>
  16
  17 /* Extension printing routines */
  18
  19 static int unknown_ext_print(BIO *out, const unsigned char *ext, int extlen,
  20                              unsigned long flag, int indent, int supported);
  21
  22 /* Print out a name+value stack */
  23
  24 void X509V3_EXT_val_prn(BIO *out, STACK_OF(CONF_VALUE) *val, int indent,
  25                         int ml)
  26 {
  27     int i;
  28     CONF_VALUE *nval;
  29     if (!val)
  30         return;
  31     if (!ml || !sk_CONF_VALUE_num(val)) {
  32         BIO_printf(out, "%*s", indent, "");
  33         if (!sk_CONF_VALUE_num(val))
  34             BIO_puts(out, "<EMPTY>\n");
  35     }
  36     for (i = 0; i < sk_CONF_VALUE_num(val); i++) {
  37         if (ml)
  38             BIO_printf(out, "%*s", indent, "");
  39         else if (i > 0)
  40             BIO_printf(out, ", ");
  41         nval = sk_CONF_VALUE_value(val, i);
  42         if (!nval->name)
  43             BIO_puts(out, nval->value);
  44         else if (!nval->value)
  45             BIO_puts(out, nval->name);
  46 #ifndef CHARSET_EBCDIC
  47         else
  48             BIO_printf(out, "%s:%s", nval->name, nval->value);
  49 #else
  50         else {
  51             int len;
  52             char *tmp;
  53             len = strlen(nval->value) + 1;
  54             tmp = OPENSSL_malloc(len);
  55             if (tmp != NULL) {
  56                 ascii2ebcdic(tmp, nval->value, len);
  57                 BIO_printf(out, "%s:%s", nval->name, tmp);
  58                 OPENSSL_free(tmp);
  59             }
  60         }
  61 #endif
  62         if (ml)
  63             BIO_puts(out, "\n");
  64     }
  65 }
  66
  67 /* Main routine: print out a general extension */
  68
  69 int X509V3_EXT_print(BIO *out, X509_EXTENSION *ext, unsigned long flag,
  70                      int indent)
  71 {
  72     void *ext_str = NULL;
  73     char *value = NULL;
  74     ASN1_OCTET_STRING *extoct;
  75     const unsigned char *p;
  76     int extlen;
  77     const X509V3_EXT_METHOD *method;
  78     STACK_OF(CONF_VALUE) *nval = NULL;
  79     int ok = 1;
  80
  81     extoct = X509_EXTENSION_get_data(ext);
  82     p = ASN1_STRING_get0_data(extoct);
  83     extlen = ASN1_STRING_length(extoct);
  84
  85     if ((method = X509V3_EXT_get(ext)) == NULL)
  86         return unknown_ext_print(out, p, extlen, flag, indent, 0);
  87     if (method->it)
  88         ext_str = ASN1_item_d2i(NULL, &p, extlen, ASN1_ITEM_ptr(method->it));
  89     else
  90         ext_str = method->d2i(NULL, &p, extlen);
  91
  92     if (!ext_str)
  93         return unknown_ext_print(out, p, extlen, flag, indent, 1);
  94
  95     if (method->i2s) {
  96         if ((value = method->i2s(method, ext_str)) == NULL) {
  97             ok = 0;
  98             goto err;
  99         }
 100 #ifndef CHARSET_EBCDIC
 101         BIO_printf(out, "%*s%s", indent, "", value);
 102 #else
 103         {
 104             int len;
 105             char *tmp;
 106             len = strlen(value) + 1;
 107             tmp = OPENSSL_malloc(len);
 108             if (tmp != NULL) {
 109                 ascii2ebcdic(tmp, value, len);
 110                 BIO_printf(out, "%*s%s", indent, "", tmp);
 111                 OPENSSL_free(tmp);
 112             }
 113         }
 114 #endif
 115     } else if (method->i2v) {
 116         if ((nval = method->i2v(method, ext_str, NULL)) == NULL) {
 117             ok = 0;
 118             goto err;
 119         }
 120         X509V3_EXT_val_prn(out, nval, indent,
 121                            method->ext_flags & X509V3_EXT_MULTILINE);
 122     } else if (method->i2r) {
 123         if (!method->i2r(method, ext_str, out, indent))
 124             ok = 0;
 125     } else
 126         ok = 0;
 127
 128  err:
 129     sk_CONF_VALUE_pop_free(nval, X509V3_conf_free);
 130     OPENSSL_free(value);
 131     if (method->it)
 132         ASN1_item_free(ext_str, ASN1_ITEM_ptr(method->it));
 133     else
 134         method->ext_free(ext_str);
 135     return ok;
 136 }
 137
 138 int X509V3_extensions_print(BIO *bp, const char *title,
 139                             const STACK_OF(X509_EXTENSION) *exts,
 140                             unsigned long flag, int indent)
 141 {
 142     int i, j;
 143
 144     if (sk_X509_EXTENSION_num(exts) <= 0)
 145         return 1;
 146
 147     if (title) {
 148         BIO_printf(bp, "%*s%s:\n", indent, "", title);
 149         indent += 4;
 150     }
 151
 152     for (i = 0; i < sk_X509_EXTENSION_num(exts); i++) {
 153         ASN1_OBJECT *obj;
 154         X509_EXTENSION *ex;
 155         ex = sk_X509_EXTENSION_value(exts, i);
 156         if (indent && BIO_printf(bp, "%*s", indent, "") <= 0)
 157             return 0;
 158         obj = X509_EXTENSION_get_object(ex);
 159         i2a_ASN1_OBJECT(bp, obj);
 160         j = X509_EXTENSION_get_critical(ex);
 161         if (BIO_printf(bp, ": %s\n", j ? "critical" : "") <= 0)
 162             return 0;
 163         if (!X509V3_EXT_print(bp, ex, flag, indent + 4)) {
 164             BIO_printf(bp, "%*s", indent + 4, "");
 165             ASN1_STRING_print(bp, X509_EXTENSION_get_data(ex));
 166         }
 167         if (BIO_write(bp, "\n", 1) <= 0)
 168             return 0;
 169     }
 170     return 1;
 171 }
 172
 173 static int unknown_ext_print(BIO *out, const unsigned char *ext, int extlen,
 174                              unsigned long flag, int indent, int supported)
 175 {
 176     switch (flag & X509V3_EXT_UNKNOWN_MASK) {
 177
 178     case X509V3_EXT_DEFAULT:
 179         return 0;
 180
 181     case X509V3_EXT_ERROR_UNKNOWN:
 182         if (supported)
 183             BIO_printf(out, "%*s<Parse Error>", indent, "");
 184         else
 185             BIO_printf(out, "%*s<Not Supported>", indent, "");
 186         return 1;
 187
 188     case X509V3_EXT_PARSE_UNKNOWN:
 189         return ASN1_parse_dump(out, ext, extlen, indent, -1);
 190     case X509V3_EXT_DUMP_UNKNOWN:
 191         return BIO_dump_indent(out, (const char *)ext, extlen, indent);
 192
 193     default:
 194         return 1;
 195     }
 196 }
 197
 198 #ifndef OPENSSL_NO_STDIO
 199 int X509V3_EXT_print_fp(FILE *fp, X509_EXTENSION *ext, int flag, int indent)
 200 {
 201     BIO *bio_tmp;
 202     int ret;
 203
 204     if ((bio_tmp = BIO_new_fp(fp, BIO_NOCLOSE)) == NULL)
 205         return 0;
 206     ret = X509V3_EXT_print(bio_tmp, ext, flag, indent);
 207     BIO_free(bio_tmp);
 208     return ret;
 209 }
 210 #endif