crypto/pkcs12/p12_crt.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 #include <stdio.h>
  11 #include "internal/cryptlib.h"
  12 #include <openssl/pkcs12.h>
  13 #include "p12_lcl.h"
  14
  15 static int pkcs12_add_bag(STACK_OF(PKCS12_SAFEBAG) **pbags,
  16                           PKCS12_SAFEBAG *bag);
  17
  18 static int copy_bag_attr(PKCS12_SAFEBAG *bag, EVP_PKEY *pkey, int nid)
  19 {
  20     int idx;
  21     X509_ATTRIBUTE *attr;
  22     idx = EVP_PKEY_get_attr_by_NID(pkey, nid, -1);
  23     if (idx < 0)
  24         return 1;
  25     attr = EVP_PKEY_get_attr(pkey, idx);
  26     if (!X509at_add1_attr(&bag->attrib, attr))
  27         return 0;
  28     return 1;
  29 }
  30
  31 PKCS12 *PKCS12_create(const char *pass, const char *name, EVP_PKEY *pkey, X509 *cert,
  32                       STACK_OF(X509) *ca, int nid_key, int nid_cert, int iter,
  33                       int mac_iter, int keytype)
  34 {
  35     PKCS12 *p12 = NULL;
  36     STACK_OF(PKCS7) *safes = NULL;
  37     STACK_OF(PKCS12_SAFEBAG) *bags = NULL;
  38     PKCS12_SAFEBAG *bag = NULL;
  39     int i;
  40     unsigned char keyid[EVP_MAX_MD_SIZE];
  41     unsigned int keyidlen = 0;
  42
  43     /* Set defaults */
  44     if (!nid_cert)
  45 #ifdef OPENSSL_NO_RC2
  46         nid_cert = NID_pbe_WithSHA1And3_Key_TripleDES_CBC;
  47 #else
  48         nid_cert = NID_pbe_WithSHA1And40BitRC2_CBC;
  49 #endif
  50     if (!nid_key)
  51         nid_key = NID_pbe_WithSHA1And3_Key_TripleDES_CBC;
  52     if (!iter)
  53         iter = PKCS12_DEFAULT_ITER;
  54     if (!mac_iter)
  55         mac_iter = 1;
  56
  57     if (!pkey && !cert && !ca) {
  58         PKCS12err(PKCS12_F_PKCS12_CREATE, PKCS12_R_INVALID_NULL_ARGUMENT);
  59         return NULL;
  60     }
  61
  62     if (pkey && cert) {
  63         if (!X509_check_private_key(cert, pkey))
  64             return NULL;
  65         X509_digest(cert, EVP_sha1(), keyid, &keyidlen);
  66     }
  67
  68     if (cert) {
  69         bag = PKCS12_add_cert(&bags, cert);
  70         if (name && !PKCS12_add_friendlyname(bag, name, -1))
  71             goto err;
  72         if (keyidlen && !PKCS12_add_localkeyid(bag, keyid, keyidlen))
  73             goto err;
  74     }
  75
  76     /* Add all other certificates */
  77     for (i = 0; i < sk_X509_num(ca); i++) {
  78         if (!PKCS12_add_cert(&bags, sk_X509_value(ca, i)))
  79             goto err;
  80     }
  81
  82     if (bags && !PKCS12_add_safe(&safes, bags, nid_cert, iter, pass))
  83         goto err;
  84
  85     sk_PKCS12_SAFEBAG_pop_free(bags, PKCS12_SAFEBAG_free);
  86     bags = NULL;
  87
  88     if (pkey) {
  89         bag = PKCS12_add_key(&bags, pkey, keytype, iter, nid_key, pass);
  90
  91         if (!bag)
  92             goto err;
  93
  94         if (!copy_bag_attr(bag, pkey, NID_ms_csp_name))
  95             goto err;
  96         if (!copy_bag_attr(bag, pkey, NID_LocalKeySet))
  97             goto err;
  98
  99         if (name && !PKCS12_add_friendlyname(bag, name, -1))
 100             goto err;
 101         if (keyidlen && !PKCS12_add_localkeyid(bag, keyid, keyidlen))
 102             goto err;
 103     }
 104
 105     if (bags && !PKCS12_add_safe(&safes, bags, -1, 0, NULL))
 106         goto err;
 107
 108     sk_PKCS12_SAFEBAG_pop_free(bags, PKCS12_SAFEBAG_free);
 109     bags = NULL;
 110
 111     p12 = PKCS12_add_safes(safes, 0);
 112
 113     if (!p12)
 114         goto err;
 115
 116     sk_PKCS7_pop_free(safes, PKCS7_free);
 117
 118     safes = NULL;
 119
 120     if ((mac_iter != -1) &&
 121         !PKCS12_set_mac(p12, pass, -1, NULL, 0, mac_iter, NULL))
 122         goto err;
 123
 124     return p12;
 125
 126  err:
 127     PKCS12_free(p12);
 128     sk_PKCS7_pop_free(safes, PKCS7_free);
 129     sk_PKCS12_SAFEBAG_pop_free(bags, PKCS12_SAFEBAG_free);
 130     return NULL;
 131
 132 }
 133
 134 PKCS12_SAFEBAG *PKCS12_add_cert(STACK_OF(PKCS12_SAFEBAG) **pbags, X509 *cert)
 135 {
 136     PKCS12_SAFEBAG *bag = NULL;
 137     char *name;
 138     int namelen = -1;
 139     unsigned char *keyid;
 140     int keyidlen = -1;
 141
 142     /* Add user certificate */
 143     if ((bag = PKCS12_SAFEBAG_create_cert(cert)) == NULL)
 144         goto err;
 145
 146     /*
 147      * Use friendlyName and localKeyID in certificate. (if present)
 148      */
 149
 150     name = (char *)X509_alias_get0(cert, &namelen);
 151
 152     if (name && !PKCS12_add_friendlyname(bag, name, namelen))
 153         goto err;
 154
 155     keyid = X509_keyid_get0(cert, &keyidlen);
 156
 157     if (keyid && !PKCS12_add_localkeyid(bag, keyid, keyidlen))
 158         goto err;
 159
 160     if (!pkcs12_add_bag(pbags, bag))
 161         goto err;
 162
 163     return bag;
 164
 165  err:
 166     PKCS12_SAFEBAG_free(bag);
 167     return NULL;
 168
 169 }
 170
 171 PKCS12_SAFEBAG *PKCS12_add_key(STACK_OF(PKCS12_SAFEBAG) **pbags,
 172                                EVP_PKEY *key, int key_usage, int iter,
 173                                int nid_key, const char *pass)
 174 {
 175
 176     PKCS12_SAFEBAG *bag = NULL;
 177     PKCS8_PRIV_KEY_INFO *p8 = NULL;
 178
 179     /* Make a PKCS#8 structure */
 180     if ((p8 = EVP_PKEY2PKCS8(key)) == NULL)
 181         goto err;
 182     if (key_usage && !PKCS8_add_keyusage(p8, key_usage))
 183         goto err;
 184     if (nid_key != -1) {
 185         bag = PKCS12_SAFEBAG_create_pkcs8_encrypt(nid_key, pass, -1, NULL, 0,
 186                                                   iter, p8);
 187         PKCS8_PRIV_KEY_INFO_free(p8);
 188     } else
 189         bag = PKCS12_SAFEBAG_create0_p8inf(p8);
 190
 191     if (!bag)
 192         goto err;
 193
 194     if (!pkcs12_add_bag(pbags, bag))
 195         goto err;
 196
 197     return bag;
 198
 199  err:
 200     PKCS12_SAFEBAG_free(bag);
 201     return NULL;
 202
 203 }
 204
 205 int PKCS12_add_safe(STACK_OF(PKCS7) **psafes, STACK_OF(PKCS12_SAFEBAG) *bags,
 206                     int nid_safe, int iter, const char *pass)
 207 {
 208     PKCS7 *p7 = NULL;
 209     int free_safes = 0;
 210
 211     if (!*psafes) {
 212         *psafes = sk_PKCS7_new_null();
 213         if (!*psafes)
 214             return 0;
 215         free_safes = 1;
 216     } else
 217         free_safes = 0;
 218
 219     if (nid_safe == 0)
 220 #ifdef OPENSSL_NO_RC2
 221         nid_safe = NID_pbe_WithSHA1And3_Key_TripleDES_CBC;
 222 #else
 223         nid_safe = NID_pbe_WithSHA1And40BitRC2_CBC;
 224 #endif
 225
 226     if (nid_safe == -1)
 227         p7 = PKCS12_pack_p7data(bags);
 228     else
 229         p7 = PKCS12_pack_p7encdata(nid_safe, pass, -1, NULL, 0, iter, bags);
 230     if (!p7)
 231         goto err;
 232
 233     if (!sk_PKCS7_push(*psafes, p7))
 234         goto err;
 235
 236     return 1;
 237
 238  err:
 239     if (free_safes) {
 240         sk_PKCS7_free(*psafes);
 241         *psafes = NULL;
 242     }
 243     PKCS7_free(p7);
 244     return 0;
 245
 246 }
 247
 248 static int pkcs12_add_bag(STACK_OF(PKCS12_SAFEBAG) **pbags,
 249                           PKCS12_SAFEBAG *bag)
 250 {
 251     int free_bags;
 252     if (!pbags)
 253         return 1;
 254     if (!*pbags) {
 255         *pbags = sk_PKCS12_SAFEBAG_new_null();
 256         if (!*pbags)
 257             return 0;
 258         free_bags = 1;
 259     } else
 260         free_bags = 0;
 261
 262     if (!sk_PKCS12_SAFEBAG_push(*pbags, bag)) {
 263         if (free_bags) {
 264             sk_PKCS12_SAFEBAG_free(*pbags);
 265             *pbags = NULL;
 266         }
 267         return 0;
 268     }
 269
 270     return 1;
 271
 272 }
 273
 274 PKCS12 *PKCS12_add_safes(STACK_OF(PKCS7) *safes, int nid_p7)
 275 {
 276     PKCS12 *p12;
 277     if (nid_p7 <= 0)
 278         nid_p7 = NID_pkcs7_data;
 279     p12 = PKCS12_init(nid_p7);
 280
 281     if (!p12)
 282         return NULL;
 283
 284     if (!PKCS12_pack_authsafes(p12, safes)) {
 285         PKCS12_free(p12);
 286         return NULL;
 287     }
 288
 289     return p12;
 290
 291 }