crypto/x509/v3_lib.c

   1 /*
   2  * Copyright 1999-2020 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 /* 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 #include "ext_dat.h"
  18
  19 DEFINE_STACK_OF(X509V3_EXT_METHOD)
  20 DEFINE_STACK_OF(X509_EXTENSION)
  21
  22 static STACK_OF(X509V3_EXT_METHOD) *ext_list = NULL;
  23
  24 static int ext_cmp(const X509V3_EXT_METHOD *const *a,
  25                    const X509V3_EXT_METHOD *const *b);
  26 static void ext_list_free(X509V3_EXT_METHOD *ext);
  27
  28 int X509V3_EXT_add(X509V3_EXT_METHOD *ext)
  29 {
  30     if (ext_list == NULL
  31         && (ext_list = sk_X509V3_EXT_METHOD_new(ext_cmp)) == NULL) {
  32         X509V3err(X509V3_F_X509V3_EXT_ADD, ERR_R_MALLOC_FAILURE);
  33         return 0;
  34     }
  35     if (!sk_X509V3_EXT_METHOD_push(ext_list, ext)) {
  36         X509V3err(X509V3_F_X509V3_EXT_ADD, ERR_R_MALLOC_FAILURE);
  37         return 0;
  38     }
  39     return 1;
  40 }
  41
  42 static int ext_cmp(const X509V3_EXT_METHOD *const *a,
  43                    const X509V3_EXT_METHOD *const *b)
  44 {
  45     return ((*a)->ext_nid - (*b)->ext_nid);
  46 }
  47
  48 DECLARE_OBJ_BSEARCH_CMP_FN(const X509V3_EXT_METHOD *,
  49                            const X509V3_EXT_METHOD *, ext);
  50 IMPLEMENT_OBJ_BSEARCH_CMP_FN(const X509V3_EXT_METHOD *,
  51                              const X509V3_EXT_METHOD *, ext);
  52
  53 #include "standard_exts.h"
  54
  55 const X509V3_EXT_METHOD *X509V3_EXT_get_nid(int nid)
  56 {
  57     X509V3_EXT_METHOD tmp;
  58     const X509V3_EXT_METHOD *t = &tmp, *const *ret;
  59     int idx;
  60
  61     if (nid < 0)
  62         return NULL;
  63     tmp.ext_nid = nid;
  64     ret = OBJ_bsearch_ext(&t, standard_exts, STANDARD_EXTENSION_COUNT);
  65     if (ret)
  66         return *ret;
  67     if (!ext_list)
  68         return NULL;
  69     idx = sk_X509V3_EXT_METHOD_find(ext_list, &tmp);
  70     return sk_X509V3_EXT_METHOD_value(ext_list, idx);
  71 }
  72
  73 const X509V3_EXT_METHOD *X509V3_EXT_get(X509_EXTENSION *ext)
  74 {
  75     int nid;
  76     if ((nid = OBJ_obj2nid(X509_EXTENSION_get_object(ext))) == NID_undef)
  77         return NULL;
  78     return X509V3_EXT_get_nid(nid);
  79 }
  80
  81 int X509V3_EXT_add_list(X509V3_EXT_METHOD *extlist)
  82 {
  83     for (; extlist->ext_nid != -1; extlist++)
  84         if (!X509V3_EXT_add(extlist))
  85             return 0;
  86     return 1;
  87 }
  88
  89 int X509V3_EXT_add_alias(int nid_to, int nid_from)
  90 {
  91     const X509V3_EXT_METHOD *ext;
  92     X509V3_EXT_METHOD *tmpext;
  93
  94     if ((ext = X509V3_EXT_get_nid(nid_from)) == NULL) {
  95         X509V3err(X509V3_F_X509V3_EXT_ADD_ALIAS, X509V3_R_EXTENSION_NOT_FOUND);
  96         return 0;
  97     }
  98     if ((tmpext = OPENSSL_malloc(sizeof(*tmpext))) == NULL) {
  99         X509V3err(X509V3_F_X509V3_EXT_ADD_ALIAS, ERR_R_MALLOC_FAILURE);
 100         return 0;
 101     }
 102     *tmpext = *ext;
 103     tmpext->ext_nid = nid_to;
 104     tmpext->ext_flags |= X509V3_EXT_DYNAMIC;
 105     return X509V3_EXT_add(tmpext);
 106 }
 107
 108 void X509V3_EXT_cleanup(void)
 109 {
 110     sk_X509V3_EXT_METHOD_pop_free(ext_list, ext_list_free);
 111     ext_list = NULL;
 112 }
 113
 114 static void ext_list_free(X509V3_EXT_METHOD *ext)
 115 {
 116     if (ext->ext_flags & X509V3_EXT_DYNAMIC)
 117         OPENSSL_free(ext);
 118 }
 119
 120 /*
 121  * Legacy function: we don't need to add standard extensions any more because
 122  * they are now kept in ext_dat.h.
 123  */
 124
 125 int X509V3_add_standard_extensions(void)
 126 {
 127     return 1;
 128 }
 129
 130 /* Return an extension internal structure */
 131
 132 void *X509V3_EXT_d2i(X509_EXTENSION *ext)
 133 {
 134     const X509V3_EXT_METHOD *method;
 135     const unsigned char *p;
 136     ASN1_STRING *extvalue;
 137     int extlen;
 138
 139     if ((method = X509V3_EXT_get(ext)) == NULL)
 140         return NULL;
 141     extvalue = X509_EXTENSION_get_data(ext);
 142     p = ASN1_STRING_get0_data(extvalue);
 143     extlen = ASN1_STRING_length(extvalue);
 144     if (method->it)
 145         return ASN1_item_d2i(NULL, &p, extlen, ASN1_ITEM_ptr(method->it));
 146     return method->d2i(NULL, &p, extlen);
 147 }
 148
 149 /*-
 150  * Get critical flag and decoded version of extension from a NID.
 151  * The "idx" variable returns the last found extension and can
 152  * be used to retrieve multiple extensions of the same NID.
 153  * However multiple extensions with the same NID is usually
 154  * due to a badly encoded certificate so if idx is NULL we
 155  * choke if multiple extensions exist.
 156  * The "crit" variable is set to the critical value.
 157  * The return value is the decoded extension or NULL on
 158  * error. The actual error can have several different causes,
 159  * the value of *crit reflects the cause:
 160  * >= 0, extension found but not decoded (reflects critical value).
 161  * -1 extension not found.
 162  * -2 extension occurs more than once.
 163  */
 164
 165 void *X509V3_get_d2i(const STACK_OF(X509_EXTENSION) *x, int nid, int *crit,
 166                      int *idx)
 167 {
 168     int lastpos, i;
 169     X509_EXTENSION *ex, *found_ex = NULL;
 170
 171     if (!x) {
 172         if (idx)
 173             *idx = -1;
 174         if (crit)
 175             *crit = -1;
 176         return NULL;
 177     }
 178     if (idx)
 179         lastpos = *idx + 1;
 180     else
 181         lastpos = 0;
 182     if (lastpos < 0)
 183         lastpos = 0;
 184     for (i = lastpos; i < sk_X509_EXTENSION_num(x); i++) {
 185         ex = sk_X509_EXTENSION_value(x, i);
 186         if (OBJ_obj2nid(X509_EXTENSION_get_object(ex)) == nid) {
 187             if (idx) {
 188                 *idx = i;
 189                 found_ex = ex;
 190                 break;
 191             } else if (found_ex) {
 192                 /* Found more than one */
 193                 if (crit)
 194                     *crit = -2;
 195                 return NULL;
 196             }
 197             found_ex = ex;
 198         }
 199     }
 200     if (found_ex) {
 201         /* Found it */
 202         if (crit)
 203             *crit = X509_EXTENSION_get_critical(found_ex);
 204         return X509V3_EXT_d2i(found_ex);
 205     }
 206
 207     /* Extension not found */
 208     if (idx)
 209         *idx = -1;
 210     if (crit)
 211         *crit = -1;
 212     return NULL;
 213 }
 214
 215 /*
 216  * This function is a general extension append, replace and delete utility.
 217  * The precise operation is governed by the 'flags' value. The 'crit' and
 218  * 'value' arguments (if relevant) are the extensions internal structure.
 219  */
 220
 221 int X509V3_add1_i2d(STACK_OF(X509_EXTENSION) **x, int nid, void *value,
 222                     int crit, unsigned long flags)
 223 {
 224     int errcode, extidx = -1;
 225     X509_EXTENSION *ext = NULL, *extmp;
 226     STACK_OF(X509_EXTENSION) *ret = NULL;
 227     unsigned long ext_op = flags & X509V3_ADD_OP_MASK;
 228
 229     /*
 230      * If appending we don't care if it exists, otherwise look for existing
 231      * extension.
 232      */
 233     if (ext_op != X509V3_ADD_APPEND)
 234         extidx = X509v3_get_ext_by_NID(*x, nid, -1);
 235
 236     /* See if extension exists */
 237     if (extidx >= 0) {
 238         /* If keep existing, nothing to do */
 239         if (ext_op == X509V3_ADD_KEEP_EXISTING)
 240             return 1;
 241         /* If default then its an error */
 242         if (ext_op == X509V3_ADD_DEFAULT) {
 243             errcode = X509V3_R_EXTENSION_EXISTS;
 244             goto err;
 245         }
 246         /* If delete, just delete it */
 247         if (ext_op == X509V3_ADD_DELETE) {
 248             if (!sk_X509_EXTENSION_delete(*x, extidx))
 249                 return -1;
 250             return 1;
 251         }
 252     } else {
 253         /*
 254          * If replace existing or delete, error since extension must exist
 255          */
 256         if ((ext_op == X509V3_ADD_REPLACE_EXISTING) ||
 257             (ext_op == X509V3_ADD_DELETE)) {
 258             errcode = X509V3_R_EXTENSION_NOT_FOUND;
 259             goto err;
 260         }
 261     }
 262
 263     /*
 264      * If we get this far then we have to create an extension: could have
 265      * some flags for alternative encoding schemes...
 266      */
 267
 268     ext = X509V3_EXT_i2d(nid, crit, value);
 269
 270     if (!ext) {
 271         X509V3err(X509V3_F_X509V3_ADD1_I2D,
 272                   X509V3_R_ERROR_CREATING_EXTENSION);
 273         return 0;
 274     }
 275
 276     /* If extension exists replace it.. */
 277     if (extidx >= 0) {
 278         extmp = sk_X509_EXTENSION_value(*x, extidx);
 279         X509_EXTENSION_free(extmp);
 280         if (!sk_X509_EXTENSION_set(*x, extidx, ext))
 281             return -1;
 282         return 1;
 283     }
 284
 285     ret = *x;
 286     if (*x == NULL
 287         && (ret = sk_X509_EXTENSION_new_null()) == NULL)
 288         goto m_fail;
 289     if (!sk_X509_EXTENSION_push(ret, ext))
 290         goto m_fail;
 291
 292     *x = ret;
 293     return 1;
 294
 295  m_fail:
 296     /* X509V3err(X509V3_F_X509V3_ADD1_I2D, ERR_R_MALLOC_FAILURE); */
 297     if (ret != *x)
 298         sk_X509_EXTENSION_free(ret);
 299     X509_EXTENSION_free(ext);
 300     return -1;
 301
 302  err:
 303     if (!(flags & X509V3_ADD_SILENT))
 304         X509V3err(X509V3_F_X509V3_ADD1_I2D, errcode);
 305     return 0;
 306 }