p5_pbev2.c revision 59191
155714Skris/* p5_pbev2.c */
255714Skris/* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
355714Skris * project 1999.
455714Skris */
555714Skris/* ====================================================================
655714Skris * Copyright (c) 1999 The OpenSSL Project.  All rights reserved.
755714Skris *
855714Skris * Redistribution and use in source and binary forms, with or without
955714Skris * modification, are permitted provided that the following conditions
1055714Skris * are met:
1155714Skris *
1255714Skris * 1. Redistributions of source code must retain the above copyright
1355714Skris *    notice, this list of conditions and the following disclaimer.
1455714Skris *
1555714Skris * 2. Redistributions in binary form must reproduce the above copyright
1655714Skris *    notice, this list of conditions and the following disclaimer in
1755714Skris *    the documentation and/or other materials provided with the
1855714Skris *    distribution.
1955714Skris *
2055714Skris * 3. All advertising materials mentioning features or use of this
2155714Skris *    software must display the following acknowledgment:
2255714Skris *    "This product includes software developed by the OpenSSL Project
2355714Skris *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
2455714Skris *
2555714Skris * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
2655714Skris *    endorse or promote products derived from this software without
2755714Skris *    prior written permission. For written permission, please contact
2855714Skris *    licensing@OpenSSL.org.
2955714Skris *
3055714Skris * 5. Products derived from this software may not be called "OpenSSL"
3155714Skris *    nor may "OpenSSL" appear in their names without prior written
3255714Skris *    permission of the OpenSSL Project.
3355714Skris *
3455714Skris * 6. Redistributions of any form whatsoever must retain the following
3555714Skris *    acknowledgment:
3655714Skris *    "This product includes software developed by the OpenSSL Project
3755714Skris *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
3855714Skris *
3955714Skris * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
4055714Skris * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
4155714Skris * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
4255714Skris * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
4355714Skris * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
4455714Skris * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
4555714Skris * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
4655714Skris * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
4755714Skris * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
4855714Skris * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
4955714Skris * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
5055714Skris * OF THE POSSIBILITY OF SUCH DAMAGE.
5155714Skris * ====================================================================
5255714Skris *
5355714Skris * This product includes cryptographic software written by Eric Young
5455714Skris * (eay@cryptsoft.com).  This product includes software written by Tim
5555714Skris * Hudson (tjh@cryptsoft.com).
5655714Skris *
5755714Skris */
5855714Skris
5955714Skris#include <stdio.h>
6055714Skris#include "cryptlib.h"
6155714Skris#include <openssl/asn1_mac.h>
6255714Skris#include <openssl/x509.h>
6355714Skris#include <openssl/rand.h>
6455714Skris
6555714Skris/* PKCS#5 v2.0 password based encryption structures */
6655714Skris
6755714Skrisint i2d_PBE2PARAM(PBE2PARAM *a, unsigned char **pp)
6855714Skris{
6955714Skris	M_ASN1_I2D_vars(a);
7055714Skris	M_ASN1_I2D_len (a->keyfunc, i2d_X509_ALGOR);
7155714Skris	M_ASN1_I2D_len (a->encryption, i2d_X509_ALGOR);
7255714Skris
7355714Skris	M_ASN1_I2D_seq_total ();
7455714Skris
7555714Skris	M_ASN1_I2D_put (a->keyfunc, i2d_X509_ALGOR);
7655714Skris	M_ASN1_I2D_put (a->encryption, i2d_X509_ALGOR);
7755714Skris
7855714Skris	M_ASN1_I2D_finish();
7955714Skris}
8055714Skris
8155714SkrisPBE2PARAM *PBE2PARAM_new(void)
8255714Skris{
8355714Skris	PBE2PARAM *ret=NULL;
8455714Skris	ASN1_CTX c;
8555714Skris	M_ASN1_New_Malloc(ret, PBE2PARAM);
8655714Skris	M_ASN1_New(ret->keyfunc,X509_ALGOR_new);
8755714Skris	M_ASN1_New(ret->encryption,X509_ALGOR_new);
8855714Skris	return (ret);
8955714Skris	M_ASN1_New_Error(ASN1_F_PBE2PARAM_NEW);
9055714Skris}
9155714Skris
9255714SkrisPBE2PARAM *d2i_PBE2PARAM(PBE2PARAM **a, unsigned char **pp, long length)
9355714Skris{
9455714Skris	M_ASN1_D2I_vars(a,PBE2PARAM *,PBE2PARAM_new);
9555714Skris	M_ASN1_D2I_Init();
9655714Skris	M_ASN1_D2I_start_sequence();
9755714Skris	M_ASN1_D2I_get (ret->keyfunc, d2i_X509_ALGOR);
9855714Skris	M_ASN1_D2I_get (ret->encryption, d2i_X509_ALGOR);
9955714Skris	M_ASN1_D2I_Finish(a, PBE2PARAM_free, ASN1_F_D2I_PBE2PARAM);
10055714Skris}
10155714Skris
10255714Skrisvoid PBE2PARAM_free (PBE2PARAM *a)
10355714Skris{
10455714Skris	if(a==NULL) return;
10555714Skris	X509_ALGOR_free(a->keyfunc);
10655714Skris	X509_ALGOR_free(a->encryption);
10759191Skris	Free (a);
10855714Skris}
10955714Skris
11055714Skrisint i2d_PBKDF2PARAM(PBKDF2PARAM *a, unsigned char **pp)
11155714Skris{
11255714Skris	M_ASN1_I2D_vars(a);
11355714Skris	M_ASN1_I2D_len (a->salt, i2d_ASN1_TYPE);
11455714Skris	M_ASN1_I2D_len (a->iter, i2d_ASN1_INTEGER);
11555714Skris	M_ASN1_I2D_len (a->keylength, i2d_ASN1_INTEGER);
11655714Skris	M_ASN1_I2D_len (a->prf, i2d_X509_ALGOR);
11755714Skris
11855714Skris	M_ASN1_I2D_seq_total ();
11955714Skris
12055714Skris	M_ASN1_I2D_put (a->salt, i2d_ASN1_TYPE);
12155714Skris	M_ASN1_I2D_put (a->iter, i2d_ASN1_INTEGER);
12255714Skris	M_ASN1_I2D_put (a->keylength, i2d_ASN1_INTEGER);
12355714Skris	M_ASN1_I2D_put (a->prf, i2d_X509_ALGOR);
12455714Skris
12555714Skris	M_ASN1_I2D_finish();
12655714Skris}
12755714Skris
12855714SkrisPBKDF2PARAM *PBKDF2PARAM_new(void)
12955714Skris{
13055714Skris	PBKDF2PARAM *ret=NULL;
13155714Skris	ASN1_CTX c;
13255714Skris	M_ASN1_New_Malloc(ret, PBKDF2PARAM);
13355714Skris	M_ASN1_New(ret->salt, ASN1_TYPE_new);
13459191Skris	M_ASN1_New(ret->iter, M_ASN1_INTEGER_new);
13555714Skris	ret->keylength = NULL;
13655714Skris	ret->prf = NULL;
13755714Skris	return (ret);
13855714Skris	M_ASN1_New_Error(ASN1_F_PBKDF2PARAM_NEW);
13955714Skris}
14055714Skris
14155714SkrisPBKDF2PARAM *d2i_PBKDF2PARAM(PBKDF2PARAM **a, unsigned char **pp,
14255714Skris	     long length)
14355714Skris{
14455714Skris	M_ASN1_D2I_vars(a,PBKDF2PARAM *,PBKDF2PARAM_new);
14555714Skris	M_ASN1_D2I_Init();
14655714Skris	M_ASN1_D2I_start_sequence();
14755714Skris	M_ASN1_D2I_get (ret->salt, d2i_ASN1_TYPE);
14855714Skris	M_ASN1_D2I_get (ret->iter, d2i_ASN1_INTEGER);
14955714Skris	M_ASN1_D2I_get_opt (ret->keylength, d2i_ASN1_INTEGER, V_ASN1_INTEGER);
15055714Skris	M_ASN1_D2I_get_opt (ret->prf, d2i_X509_ALGOR, V_ASN1_SEQUENCE);
15155714Skris	M_ASN1_D2I_Finish(a, PBKDF2PARAM_free, ASN1_F_D2I_PBKDF2PARAM);
15255714Skris}
15355714Skris
15455714Skrisvoid PBKDF2PARAM_free (PBKDF2PARAM *a)
15555714Skris{
15655714Skris	if(a==NULL) return;
15755714Skris	ASN1_TYPE_free(a->salt);
15859191Skris	M_ASN1_INTEGER_free(a->iter);
15959191Skris	M_ASN1_INTEGER_free(a->keylength);
16055714Skris	X509_ALGOR_free(a->prf);
16159191Skris	Free (a);
16255714Skris}
16355714Skris
16455714Skris/* Return an algorithm identifier for a PKCS#5 v2.0 PBE algorithm:
16555714Skris * yes I know this is horrible!
16655714Skris */
16755714Skris
16855714SkrisX509_ALGOR *PKCS5_pbe2_set(const EVP_CIPHER *cipher, int iter,
16955714Skris				 unsigned char *salt, int saltlen)
17055714Skris{
17155714Skris	X509_ALGOR *scheme = NULL, *kalg = NULL, *ret = NULL;
17255714Skris	int alg_nid;
17355714Skris	EVP_CIPHER_CTX ctx;
17455714Skris	unsigned char iv[EVP_MAX_IV_LENGTH];
17555714Skris	PBKDF2PARAM *kdf = NULL;
17655714Skris	PBE2PARAM *pbe2 = NULL;
17755714Skris	ASN1_OCTET_STRING *osalt = NULL;
17859191Skris	ASN1_OBJECT *obj;
17955714Skris
18059191Skris	alg_nid = EVP_CIPHER_type(cipher);
18159191Skris	if(alg_nid == NID_undef) {
18259191Skris		ASN1err(ASN1_F_PKCS5_PBE2_SET,
18359191Skris				ASN1_R_CIPHER_HAS_NO_OBJECT_IDENTIFIER);
18459191Skris		goto err;
18559191Skris	}
18659191Skris	obj = OBJ_nid2obj(alg_nid);
18759191Skris
18855714Skris	if(!(pbe2 = PBE2PARAM_new())) goto merr;
18955714Skris
19055714Skris	/* Setup the AlgorithmIdentifier for the encryption scheme */
19155714Skris	scheme = pbe2->encryption;
19255714Skris
19359191Skris	scheme->algorithm = obj;
19455714Skris	if(!(scheme->parameter = ASN1_TYPE_new())) goto merr;
19555714Skris
19655714Skris	/* Create random IV */
19759191Skris	if (RAND_pseudo_bytes(iv, EVP_CIPHER_iv_length(cipher)) < 0)
19859191Skris		goto err;
19955714Skris
20055714Skris	/* Dummy cipherinit to just setup the IV */
20155714Skris	EVP_CipherInit(&ctx, cipher, NULL, iv, 0);
20255714Skris	if(EVP_CIPHER_param_to_asn1(&ctx, scheme->parameter) < 0) {
20355714Skris		ASN1err(ASN1_F_PKCS5_PBE2_SET,
20455714Skris					ASN1_R_ERROR_SETTING_CIPHER_PARAMS);
20555714Skris		goto err;
20655714Skris	}
20755714Skris	EVP_CIPHER_CTX_cleanup(&ctx);
20855714Skris
20955714Skris	if(!(kdf = PBKDF2PARAM_new())) goto merr;
21059191Skris	if(!(osalt = M_ASN1_OCTET_STRING_new())) goto merr;
21155714Skris
21255714Skris	if (!saltlen) saltlen = PKCS5_SALT_LEN;
21355714Skris	if (!(osalt->data = Malloc (saltlen))) goto merr;
21455714Skris	osalt->length = saltlen;
21555714Skris	if (salt) memcpy (osalt->data, salt, saltlen);
21659191Skris	else if (RAND_pseudo_bytes (osalt->data, saltlen) < 0) goto merr;
21755714Skris
21855714Skris	if(iter <= 0) iter = PKCS5_DEFAULT_ITER;
21955714Skris	if(!ASN1_INTEGER_set(kdf->iter, iter)) goto merr;
22055714Skris
22155714Skris	/* Now include salt in kdf structure */
22255714Skris	kdf->salt->value.octet_string = osalt;
22355714Skris	kdf->salt->type = V_ASN1_OCTET_STRING;
22455714Skris	osalt = NULL;
22555714Skris
22655714Skris	/* If its RC2 then we'd better setup the key length */
22755714Skris
22855714Skris	if(alg_nid == NID_rc2_cbc) {
22959191Skris		if(!(kdf->keylength = M_ASN1_INTEGER_new())) goto merr;
23055714Skris		if(!ASN1_INTEGER_set (kdf->keylength,
23155714Skris				 EVP_CIPHER_key_length(cipher))) goto merr;
23255714Skris	}
23355714Skris
23455714Skris	/* prf can stay NULL because we are using hmacWithSHA1 */
23555714Skris
23655714Skris	/* Now setup the PBE2PARAM keyfunc structure */
23755714Skris
23855714Skris	pbe2->keyfunc->algorithm = OBJ_nid2obj(NID_id_pbkdf2);
23955714Skris
24055714Skris	/* Encode PBKDF2PARAM into parameter of pbe2 */
24155714Skris
24255714Skris	if(!(pbe2->keyfunc->parameter = ASN1_TYPE_new())) goto merr;
24355714Skris
24455714Skris	if(!ASN1_pack_string(kdf, i2d_PBKDF2PARAM,
24555714Skris			 &pbe2->keyfunc->parameter->value.sequence)) goto merr;
24655714Skris	pbe2->keyfunc->parameter->type = V_ASN1_SEQUENCE;
24755714Skris
24855714Skris	PBKDF2PARAM_free(kdf);
24955714Skris	kdf = NULL;
25055714Skris
25155714Skris	/* Now set up top level AlgorithmIdentifier */
25255714Skris
25355714Skris	if(!(ret = X509_ALGOR_new())) goto merr;
25455714Skris	if(!(ret->parameter = ASN1_TYPE_new())) goto merr;
25555714Skris
25655714Skris	ret->algorithm = OBJ_nid2obj(NID_pbes2);
25755714Skris
25855714Skris	/* Encode PBE2PARAM into parameter */
25955714Skris
26055714Skris	if(!ASN1_pack_string(pbe2, i2d_PBE2PARAM,
26155714Skris				 &ret->parameter->value.sequence)) goto merr;
26255714Skris	ret->parameter->type = V_ASN1_SEQUENCE;
26355714Skris
26455714Skris	PBE2PARAM_free(pbe2);
26555714Skris	pbe2 = NULL;
26655714Skris
26755714Skris	return ret;
26855714Skris
26955714Skris	merr:
27055714Skris	ASN1err(ASN1_F_PKCS5_PBE2_SET,ERR_R_MALLOC_FAILURE);
27155714Skris
27255714Skris	err:
27355714Skris	PBE2PARAM_free(pbe2);
27455714Skris	/* Note 'scheme' is freed as part of pbe2 */
27559191Skris	M_ASN1_OCTET_STRING_free(osalt);
27655714Skris	PBKDF2PARAM_free(kdf);
27755714Skris	X509_ALGOR_free(kalg);
27855714Skris	X509_ALGOR_free(ret);
27955714Skris
28055714Skris	return NULL;
28155714Skris
28255714Skris}
283