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