230f3e6b302e995bf6f1713815112d0f92f26273
[openssl.git] / crypto / pkcs12 / p12_mutl.c
1 /*
2  * Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL project
3  * 1999.
4  */
5 /* ====================================================================
6  * Copyright (c) 1999 The OpenSSL Project.  All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  *
12  * 1. Redistributions of source code must retain the above copyright
13  *    notice, this list of conditions and the following disclaimer.
14  *
15  * 2. Redistributions in binary form must reproduce the above copyright
16  *    notice, this list of conditions and the following disclaimer in
17  *    the documentation and/or other materials provided with the
18  *    distribution.
19  *
20  * 3. All advertising materials mentioning features or use of this
21  *    software must display the following acknowledgment:
22  *    "This product includes software developed by the OpenSSL Project
23  *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
24  *
25  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
26  *    endorse or promote products derived from this software without
27  *    prior written permission. For written permission, please contact
28  *    licensing@OpenSSL.org.
29  *
30  * 5. Products derived from this software may not be called "OpenSSL"
31  *    nor may "OpenSSL" appear in their names without prior written
32  *    permission of the OpenSSL Project.
33  *
34  * 6. Redistributions of any form whatsoever must retain the following
35  *    acknowledgment:
36  *    "This product includes software developed by the OpenSSL Project
37  *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
38  *
39  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
40  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
41  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
42  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
43  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
44  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
45  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
46  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
48  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
49  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
50  * OF THE POSSIBILITY OF SUCH DAMAGE.
51  * ====================================================================
52  *
53  * This product includes cryptographic software written by Eric Young
54  * (eay@cryptsoft.com).  This product includes software written by Tim
55  * Hudson (tjh@cryptsoft.com).
56  *
57  */
58
59 # include <stdio.h>
60 # include "internal/cryptlib.h"
61 # include <openssl/crypto.h>
62 # include <openssl/hmac.h>
63 # include <openssl/rand.h>
64 # include <openssl/pkcs12.h>
65 # include "p12_lcl.h"
66
67 int PKCS12_mac_present(PKCS12 *p12)
68 {
69     return p12->mac ? 1 : 0;
70 }
71
72 void PKCS12_get0_mac(ASN1_OCTET_STRING **pmac, X509_ALGOR **pmacalg,
73                      ASN1_OCTET_STRING **psalt, ASN1_INTEGER **piter,
74                      PKCS12 *p12)
75 {
76     if (p12->mac) {
77         if (pmac)
78             *pmac = p12->mac->dinfo->digest;
79         if (pmacalg)
80             *pmacalg = p12->mac->dinfo->algor;
81         if (psalt)
82             *psalt = p12->mac->salt;
83         if (piter)
84             *piter = p12->mac->iter;
85     } else {
86         if (pmac)
87             *pmac = NULL;
88         if (pmacalg)
89             *pmacalg = NULL;
90         if (psalt)
91             *psalt = NULL;
92         if (piter)
93             *piter = NULL;
94     }
95 }
96
97 # define TK26_MAC_KEY_LEN 32
98
99 static int pkcs12_gen_gost_mac_key(const char *pass, int passlen,
100                                    const unsigned char *salt, int saltlen,
101                                    int iter, int keylen, unsigned char *key,
102                                    const EVP_MD *digest)
103 {
104     unsigned char out[96];
105
106     if (keylen != TK26_MAC_KEY_LEN) {
107         return 0;
108     }
109
110     if (!PKCS5_PBKDF2_HMAC(pass, passlen, salt, saltlen, iter,
111                            digest, sizeof(out), out)) {
112         return 0;
113     }
114     memcpy(key, out + sizeof(out) - TK26_MAC_KEY_LEN, TK26_MAC_KEY_LEN);
115     OPENSSL_cleanse(out, sizeof(out));
116     return 1;
117 }
118
119 /* Generate a MAC */
120 int PKCS12_gen_mac(PKCS12 *p12, const char *pass, int passlen,
121                    unsigned char *mac, unsigned int *maclen)
122 {
123     const EVP_MD *md_type;
124     HMAC_CTX *hmac = NULL;
125     unsigned char key[EVP_MAX_MD_SIZE], *salt;
126     int saltlen, iter;
127     int md_size = 0;
128     int md_type_nid;
129
130     if (!PKCS7_type_is_data(p12->authsafes)) {
131         PKCS12err(PKCS12_F_PKCS12_GEN_MAC, PKCS12_R_CONTENT_TYPE_NOT_DATA);
132         return 0;
133     }
134
135     salt = p12->mac->salt->data;
136     saltlen = p12->mac->salt->length;
137     if (!p12->mac->iter)
138         iter = 1;
139     else
140         iter = ASN1_INTEGER_get(p12->mac->iter);
141     if ((md_type = EVP_get_digestbyobj(p12->mac->dinfo->algor->algorithm))
142             == NULL) {
143         PKCS12err(PKCS12_F_PKCS12_GEN_MAC, PKCS12_R_UNKNOWN_DIGEST_ALGORITHM);
144         return 0;
145     }
146     md_size = EVP_MD_size(md_type);
147     md_type_nid = EVP_MD_type(md_type);
148     if (md_size < 0)
149         return 0;
150     if ((md_type_nid == NID_id_GostR3411_94
151          || md_type_nid == NID_id_GostR3411_2012_256
152          || md_type_nid == NID_id_GostR3411_2012_512)
153         && !getenv("LEGACY_GOST_PKCS12")) {
154         md_size = TK26_MAC_KEY_LEN;
155         if (!pkcs12_gen_gost_mac_key(pass, passlen, salt, saltlen, iter,
156                                      md_size, key, md_type)) {
157             PKCS12err(PKCS12_F_PKCS12_GEN_MAC, PKCS12_R_KEY_GEN_ERROR);
158             return 0;
159         }
160     } else
161         if (!PKCS12_key_gen(pass, passlen, salt, saltlen, PKCS12_MAC_ID, iter,
162                             md_size, key, md_type)) {
163         PKCS12err(PKCS12_F_PKCS12_GEN_MAC, PKCS12_R_KEY_GEN_ERROR);
164         return 0;
165     }
166     hmac = HMAC_CTX_new();
167     if (!HMAC_Init_ex(hmac, key, md_size, md_type, NULL)
168         || !HMAC_Update(hmac, p12->authsafes->d.data->data,
169                         p12->authsafes->d.data->length)
170         || !HMAC_Final(hmac, mac, maclen)) {
171         HMAC_CTX_free(hmac);
172         return 0;
173     }
174     HMAC_CTX_free(hmac);
175     return 1;
176 }
177
178 /* Verify the mac */
179 int PKCS12_verify_mac(PKCS12 *p12, const char *pass, int passlen)
180 {
181     unsigned char mac[EVP_MAX_MD_SIZE];
182     unsigned int maclen;
183     if (p12->mac == NULL) {
184         PKCS12err(PKCS12_F_PKCS12_VERIFY_MAC, PKCS12_R_MAC_ABSENT);
185         return 0;
186     }
187     if (!PKCS12_gen_mac(p12, pass, passlen, mac, &maclen)) {
188         PKCS12err(PKCS12_F_PKCS12_VERIFY_MAC, PKCS12_R_MAC_GENERATION_ERROR);
189         return 0;
190     }
191     if ((maclen != (unsigned int)p12->mac->dinfo->digest->length)
192         || CRYPTO_memcmp(mac, p12->mac->dinfo->digest->data, maclen))
193         return 0;
194     return 1;
195 }
196
197 /* Set a mac */
198
199 int PKCS12_set_mac(PKCS12 *p12, const char *pass, int passlen,
200                    unsigned char *salt, int saltlen, int iter,
201                    const EVP_MD *md_type)
202 {
203     unsigned char mac[EVP_MAX_MD_SIZE];
204     unsigned int maclen;
205
206     if (!md_type)
207         md_type = EVP_sha1();
208     if (PKCS12_setup_mac(p12, iter, salt, saltlen, md_type) == PKCS12_ERROR) {
209         PKCS12err(PKCS12_F_PKCS12_SET_MAC, PKCS12_R_MAC_SETUP_ERROR);
210         return 0;
211     }
212     if (!PKCS12_gen_mac(p12, pass, passlen, mac, &maclen)) {
213         PKCS12err(PKCS12_F_PKCS12_SET_MAC, PKCS12_R_MAC_GENERATION_ERROR);
214         return 0;
215     }
216     if (!(ASN1_OCTET_STRING_set(p12->mac->dinfo->digest, mac, maclen))) {
217         PKCS12err(PKCS12_F_PKCS12_SET_MAC, PKCS12_R_MAC_STRING_SET_ERROR);
218         return 0;
219     }
220     return 1;
221 }
222
223 /* Set up a mac structure */
224 int PKCS12_setup_mac(PKCS12 *p12, int iter, unsigned char *salt, int saltlen,
225                      const EVP_MD *md_type)
226 {
227     if ((p12->mac = PKCS12_MAC_DATA_new()) == NULL)
228         return PKCS12_ERROR;
229     if (iter > 1) {
230         if ((p12->mac->iter = ASN1_INTEGER_new()) == NULL) {
231             PKCS12err(PKCS12_F_PKCS12_SETUP_MAC, ERR_R_MALLOC_FAILURE);
232             return 0;
233         }
234         if (!ASN1_INTEGER_set(p12->mac->iter, iter)) {
235             PKCS12err(PKCS12_F_PKCS12_SETUP_MAC, ERR_R_MALLOC_FAILURE);
236             return 0;
237         }
238     }
239     if (!saltlen)
240         saltlen = PKCS12_SALT_LEN;
241     if ((p12->mac->salt->data = OPENSSL_malloc(saltlen)) == NULL) {
242         PKCS12err(PKCS12_F_PKCS12_SETUP_MAC, ERR_R_MALLOC_FAILURE);
243         return 0;
244     }
245     p12->mac->salt->length = saltlen;
246     if (!salt) {
247         if (RAND_bytes(p12->mac->salt->data, saltlen) <= 0)
248             return 0;
249     } else
250         memcpy(p12->mac->salt->data, salt, saltlen);
251     p12->mac->dinfo->algor->algorithm = OBJ_nid2obj(EVP_MD_type(md_type));
252     if ((p12->mac->dinfo->algor->parameter = ASN1_TYPE_new()) == NULL) {
253         PKCS12err(PKCS12_F_PKCS12_SETUP_MAC, ERR_R_MALLOC_FAILURE);
254         return 0;
255     }
256     p12->mac->dinfo->algor->parameter->type = V_ASN1_NULL;
257
258     return 1;
259 }