UI_process() didn't generate errors
[oweals/openssl.git] / 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 }