xref: /freebsd/crypto/openssl/crypto/pkcs12/p12_add.c (revision e2257b31)
1 /*
2  * Copyright 1999-2024 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/core.h>
13 #include <openssl/core_names.h>
14 #include <openssl/pkcs12.h>
15 #include "p12_local.h"
16 #include "crypto/pkcs7/pk7_local.h"
17 
18 /* Pack an object into an OCTET STRING and turn into a safebag */
19 
20 PKCS12_SAFEBAG *PKCS12_item_pack_safebag(void *obj, const ASN1_ITEM *it,
21                                          int nid1, int nid2)
22 {
23     PKCS12_BAGS *bag;
24     PKCS12_SAFEBAG *safebag;
25 
26     if ((bag = PKCS12_BAGS_new()) == NULL) {
27         ERR_raise(ERR_LIB_PKCS12, ERR_R_MALLOC_FAILURE);
28         return NULL;
29     }
30     bag->type = OBJ_nid2obj(nid1);
31     if (!ASN1_item_pack(obj, it, &bag->value.octet)) {
32         ERR_raise(ERR_LIB_PKCS12, ERR_R_MALLOC_FAILURE);
33         goto err;
34     }
35     if ((safebag = PKCS12_SAFEBAG_new()) == NULL) {
36         ERR_raise(ERR_LIB_PKCS12, ERR_R_MALLOC_FAILURE);
37         goto err;
38     }
39     safebag->value.bag = bag;
40     safebag->type = OBJ_nid2obj(nid2);
41     return safebag;
42 
43  err:
44     PKCS12_BAGS_free(bag);
45     return NULL;
46 }
47 
48 /* Turn a stack of SAFEBAGS into a PKCS#7 data Contentinfo */
49 PKCS7 *PKCS12_pack_p7data(STACK_OF(PKCS12_SAFEBAG) *sk)
50 {
51     PKCS7 *p7;
52 
53     if ((p7 = PKCS7_new()) == NULL) {
54         ERR_raise(ERR_LIB_PKCS12, ERR_R_MALLOC_FAILURE);
55         return NULL;
56     }
57     p7->type = OBJ_nid2obj(NID_pkcs7_data);
58     if ((p7->d.data = ASN1_OCTET_STRING_new()) == NULL) {
59         ERR_raise(ERR_LIB_PKCS12, ERR_R_MALLOC_FAILURE);
60         goto err;
61     }
62 
63     if (!ASN1_item_pack(sk, ASN1_ITEM_rptr(PKCS12_SAFEBAGS), &p7->d.data)) {
64         ERR_raise(ERR_LIB_PKCS12, PKCS12_R_CANT_PACK_STRUCTURE);
65         goto err;
66     }
67     return p7;
68 
69  err:
70     PKCS7_free(p7);
71     return NULL;
72 }
73 
74 /* Unpack SAFEBAGS from PKCS#7 data ContentInfo */
75 STACK_OF(PKCS12_SAFEBAG) *PKCS12_unpack_p7data(PKCS7 *p7)
76 {
77     if (!PKCS7_type_is_data(p7)) {
78         ERR_raise(ERR_LIB_PKCS12, PKCS12_R_CONTENT_TYPE_NOT_DATA);
79         return NULL;
80     }
81 
82     if (p7->d.data == NULL) {
83         ERR_raise(ERR_LIB_PKCS12, PKCS12_R_DECODE_ERROR);
84         return NULL;
85     }
86 
87     return ASN1_item_unpack(p7->d.data, ASN1_ITEM_rptr(PKCS12_SAFEBAGS));
88 }
89 
90 /* Turn a stack of SAFEBAGS into a PKCS#7 encrypted data ContentInfo */
91 
92 PKCS7 *PKCS12_pack_p7encdata_ex(int pbe_nid, const char *pass, int passlen,
93                                 unsigned char *salt, int saltlen, int iter,
94                                 STACK_OF(PKCS12_SAFEBAG) *bags,
95                                 OSSL_LIB_CTX *ctx, const char *propq)
96 {
97     PKCS7 *p7;
98     X509_ALGOR *pbe;
99     const EVP_CIPHER *pbe_ciph = NULL;
100     EVP_CIPHER *pbe_ciph_fetch = NULL;
101 
102     if ((p7 = PKCS7_new_ex(ctx, propq)) == NULL) {
103         ERR_raise(ERR_LIB_PKCS12, ERR_R_MALLOC_FAILURE);
104         return NULL;
105     }
106     if (!PKCS7_set_type(p7, NID_pkcs7_encrypted)) {
107         ERR_raise(ERR_LIB_PKCS12, PKCS12_R_ERROR_SETTING_ENCRYPTED_DATA_TYPE);
108         goto err;
109     }
110 
111     ERR_set_mark();
112     pbe_ciph = pbe_ciph_fetch = EVP_CIPHER_fetch(ctx, OBJ_nid2sn(pbe_nid), propq);
113     if (pbe_ciph == NULL)
114         pbe_ciph = EVP_get_cipherbynid(pbe_nid);
115     ERR_pop_to_mark();
116 
117     if (pbe_ciph != NULL) {
118         pbe = PKCS5_pbe2_set_iv_ex(pbe_ciph, iter, salt, saltlen, NULL, -1, ctx);
119     } else {
120         pbe = PKCS5_pbe_set_ex(pbe_nid, iter, salt, saltlen, ctx);
121     }
122 
123     if (pbe == NULL) {
124         ERR_raise(ERR_LIB_PKCS12, ERR_R_MALLOC_FAILURE);
125         goto err;
126     }
127     X509_ALGOR_free(p7->d.encrypted->enc_data->algorithm);
128     p7->d.encrypted->enc_data->algorithm = pbe;
129     ASN1_OCTET_STRING_free(p7->d.encrypted->enc_data->enc_data);
130     if (!(p7->d.encrypted->enc_data->enc_data =
131           PKCS12_item_i2d_encrypt_ex(pbe, ASN1_ITEM_rptr(PKCS12_SAFEBAGS), pass,
132                                      passlen, bags, 1, ctx, propq))) {
133         ERR_raise(ERR_LIB_PKCS12, PKCS12_R_ENCRYPT_ERROR);
134         goto err;
135     }
136 
137     EVP_CIPHER_free(pbe_ciph_fetch);
138     return p7;
139 
140  err:
141     PKCS7_free(p7);
142     EVP_CIPHER_free(pbe_ciph_fetch);
143     return NULL;
144 }
145 
146 PKCS7 *PKCS12_pack_p7encdata(int pbe_nid, const char *pass, int passlen,
147                              unsigned char *salt, int saltlen, int iter,
148                              STACK_OF(PKCS12_SAFEBAG) *bags)
149 {
150     return PKCS12_pack_p7encdata_ex(pbe_nid, pass, passlen, salt, saltlen,
151                                     iter, bags, NULL, NULL);
152 }
153 
154 STACK_OF(PKCS12_SAFEBAG) *PKCS12_unpack_p7encdata(PKCS7 *p7, const char *pass,
155                                                   int passlen)
156 {
157     if (!PKCS7_type_is_encrypted(p7))
158         return NULL;
159 
160     if (p7->d.encrypted == NULL) {
161         ERR_raise(ERR_LIB_PKCS12, PKCS12_R_DECODE_ERROR);
162         return NULL;
163     }
164 
165     return PKCS12_item_decrypt_d2i_ex(p7->d.encrypted->enc_data->algorithm,
166                                    ASN1_ITEM_rptr(PKCS12_SAFEBAGS),
167                                    pass, passlen,
168                                    p7->d.encrypted->enc_data->enc_data, 1,
169                                    p7->ctx.libctx, p7->ctx.propq);
170 }
171 
172 PKCS8_PRIV_KEY_INFO *PKCS12_decrypt_skey_ex(const PKCS12_SAFEBAG *bag,
173                                             const char *pass, int passlen,
174                                             OSSL_LIB_CTX *ctx, const char *propq)
175 {
176     return PKCS8_decrypt_ex(bag->value.shkeybag, pass, passlen, ctx, propq);
177 }
178 
179 PKCS8_PRIV_KEY_INFO *PKCS12_decrypt_skey(const PKCS12_SAFEBAG *bag,
180                                          const char *pass, int passlen)
181 {
182     return PKCS12_decrypt_skey_ex(bag, pass, passlen, NULL, NULL);
183 }
184 
185 int PKCS12_pack_authsafes(PKCS12 *p12, STACK_OF(PKCS7) *safes)
186 {
187     if (ASN1_item_pack(safes, ASN1_ITEM_rptr(PKCS12_AUTHSAFES),
188                        &p12->authsafes->d.data))
189         return 1;
190     return 0;
191 }
192 
193 STACK_OF(PKCS7) *PKCS12_unpack_authsafes(const PKCS12 *p12)
194 {
195     STACK_OF(PKCS7) *p7s;
196     PKCS7 *p7;
197     int i;
198 
199     if (!PKCS7_type_is_data(p12->authsafes)) {
200         ERR_raise(ERR_LIB_PKCS12, PKCS12_R_CONTENT_TYPE_NOT_DATA);
201         return NULL;
202     }
203 
204     if (p12->authsafes->d.data == NULL) {
205         ERR_raise(ERR_LIB_PKCS12, PKCS12_R_DECODE_ERROR);
206         return NULL;
207     }
208 
209     p7s = ASN1_item_unpack(p12->authsafes->d.data,
210                            ASN1_ITEM_rptr(PKCS12_AUTHSAFES));
211     if (p7s != NULL) {
212         for (i = 0; i < sk_PKCS7_num(p7s); i++) {
213             p7 = sk_PKCS7_value(p7s, i);
214             if (!ossl_pkcs7_ctx_propagate(p12->authsafes, p7))
215                 goto err;
216         }
217     }
218     return p7s;
219 err:
220     sk_PKCS7_free(p7s);
221     return NULL;
222 }
223