p12_key.c 6.7 KB
Newer Older
1
/* p12_key.c */
2
/* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
 * project 1999.
 */
/* ====================================================================
 * Copyright (c) 1999 The OpenSSL Project.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer. 
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in
 *    the documentation and/or other materials provided with the
 *    distribution.
 *
 * 3. All advertising materials mentioning features or use of this
 *    software must display the following acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
 *
 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
 *    endorse or promote products derived from this software without
 *    prior written permission. For written permission, please contact
 *    licensing@OpenSSL.org.
 *
 * 5. Products derived from this software may not be called "OpenSSL"
 *    nor may "OpenSSL" appear in their names without prior written
 *    permission of the OpenSSL Project.
 *
 * 6. Redistributions of any form whatsoever must retain the following
 *    acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
 *
 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 * ====================================================================
 *
 * This product includes cryptographic software written by Eric Young
 * (eay@cryptsoft.com).  This product includes software written by Tim
 * Hudson (tjh@cryptsoft.com).
 *
 */

#include <stdio.h>
60
#include "cryptlib.h"
61
#include <openssl/pkcs12.h>
62
#include <openssl/bn.h>
63 64 65 66

/* Uncomment out this line to get debugging info about key generation */
/*#define DEBUG_KEYGEN*/
#ifdef DEBUG_KEYGEN
U
Ulf Möller 已提交
67
#include <openssl/bio.h>
68 69 70 71 72 73 74 75 76
extern BIO *bio_err;
void h__dump (unsigned char *p, int len);
#endif

/* PKCS12 compatible key/IV generation */
#ifndef min
#define min(a,b) ((a) < (b) ? (a) : (b))
#endif

77
int PKCS12_key_gen_asc(const char *pass, int passlen, unsigned char *salt,
U
Ulf Möller 已提交
78 79
	     int saltlen, int id, int iter, int n, unsigned char *out,
	     const EVP_MD *md_type)
80 81 82 83
{
	int ret;
	unsigned char *unipass;
	int uniplen;
84

85 86 87
	if(!pass) {
		unipass = NULL;
		uniplen = 0;
88
	} else if (!OPENSSL_asc2uni(pass, passlen, &unipass, &uniplen)) {
89 90 91
		PKCS12err(PKCS12_F_PKCS12_KEY_GEN_ASC,ERR_R_MALLOC_FAILURE);
		return 0;
	}
92
	ret = PKCS12_key_gen_uni(unipass, uniplen, salt, saltlen,
93
						 id, iter, n, out, md_type);
94 95
	if (ret <= 0)
	    return 0;
96
	if(unipass) {
97
		OPENSSL_cleanse(unipass, uniplen);	/* Clear password from memory */
98
		OPENSSL_free(unipass);
99
	}
100 101 102
	return ret;
}

103
int PKCS12_key_gen_uni(unsigned char *pass, int passlen, unsigned char *salt,
U
Ulf Möller 已提交
104 105
	     int saltlen, int id, int iter, int n, unsigned char *out,
	     const EVP_MD *md_type)
106 107
{
	unsigned char *B, *D, *I, *p, *Ai;
108
	int Slen, Plen, Ilen, Ijlen;
109
	int i, j, u, v;
D
Dr. Stephen Henson 已提交
110
	int ret = 0;
111 112 113 114 115
	BIGNUM *Ij, *Bpl1;	/* These hold Ij and B + 1 */
	EVP_MD_CTX ctx;
#ifdef  DEBUG_KEYGEN
	unsigned char *tmpout = out;
	int tmpn = n;
116 117
#endif

118
#if 0
119 120 121 122
	if (!pass) {
		PKCS12err(PKCS12_F_PKCS12_KEY_GEN_UNI,ERR_R_PASSED_NULL_PARAMETER);
		return 0;
	}
123
#endif
124

125
	EVP_MD_CTX_init(&ctx);
126
#ifdef  DEBUG_KEYGEN
127 128 129 130 131 132
	fprintf(stderr, "KEYGEN DEBUG\n");
	fprintf(stderr, "ID %d, ITER %d\n", id, iter);
	fprintf(stderr, "Password (length %d):\n", passlen);
	h__dump(pass, passlen);
	fprintf(stderr, "Salt (length %d):\n", saltlen);
	h__dump(salt, saltlen);
133 134 135
#endif
	v = EVP_MD_block_size (md_type);
	u = EVP_MD_size (md_type);
136 137
	if (u < 0)
	    return 0;
138 139 140
	D = OPENSSL_malloc (v);
	Ai = OPENSSL_malloc (u);
	B = OPENSSL_malloc (v + 1);
141
	Slen = v * ((saltlen+v-1)/v);
142 143
	if(passlen) Plen = v * ((passlen+v-1)/v);
	else Plen = 0;
144
	Ilen = Slen + Plen;
145
	I = OPENSSL_malloc (Ilen);
146 147
	Ij = BN_new();
	Bpl1 = BN_new();
D
Dr. Stephen Henson 已提交
148 149
	if (!D || !Ai || !B || !I || !Ij || !Bpl1)
		goto err;
150 151 152 153 154
	for (i = 0; i < v; i++) D[i] = id;
	p = I;
	for (i = 0; i < Slen; i++) *p++ = salt[i % saltlen];
	for (i = 0; i < Plen; i++) *p++ = pass[i % passlen];
	for (;;) {
155 156 157 158 159
		if (!EVP_DigestInit_ex(&ctx, md_type, NULL)
			|| !EVP_DigestUpdate(&ctx, D, v)
			|| !EVP_DigestUpdate(&ctx, I, Ilen)
			|| !EVP_DigestFinal_ex(&ctx, Ai, NULL))
			goto err;
160
		for (j = 1; j < iter; j++) {
161 162 163 164
			if (!EVP_DigestInit_ex(&ctx, md_type, NULL)
				|| !EVP_DigestUpdate(&ctx, Ai, u)
				|| !EVP_DigestFinal_ex(&ctx, Ai, NULL))
			goto err;
165 166 167 168
		}
		memcpy (out, Ai, min (n, u));
		if (u >= n) {
#ifdef DEBUG_KEYGEN
169 170
			fprintf(stderr, "Output KEY (length %d)\n", tmpn);
			h__dump(tmpout, tmpn);
171
#endif
D
Dr. Stephen Henson 已提交
172 173
			ret = 1;
			goto end;
174 175 176 177 178
		}
		n -= u;
		out += u;
		for (j = 0; j < v; j++) B[j] = Ai[j % u];
		/* Work out B + 1 first then can use B as tmp space */
179 180 181 182
		if (!BN_bin2bn (B, v, Bpl1))
			goto err;
		if (!BN_add_word (Bpl1, 1))
			goto err;
183
		for (j = 0; j < Ilen ; j+=v) {
D
Dr. Stephen Henson 已提交
184 185 186 187 188 189
			if (!BN_bin2bn(I + j, v, Ij))
				goto err;
			if (!BN_add(Ij, Ij, Bpl1))
				goto err;
			if (!BN_bn2bin(Ij, B))
				goto err;
190
			Ijlen = BN_num_bytes (Ij);
191
			/* If more than 2^(v*8) - 1 cut off MSB */
192
			if (Ijlen > v) {
D
Dr. Stephen Henson 已提交
193 194
				if (!BN_bn2bin (Ij, B))
					goto err;
195
				memcpy (I + j, B + 1, v);
196 197 198 199
#ifndef PKCS12_BROKEN_KEYGEN
			/* If less than v bytes pad with zeroes */
			} else if (Ijlen < v) {
				memset(I + j, 0, v - Ijlen);
D
Dr. Stephen Henson 已提交
200 201
				if (!BN_bn2bin(Ij, I + j + v - Ijlen))
					goto err;
202
#endif
D
Dr. Stephen Henson 已提交
203 204
			} else if (!BN_bn2bin (Ij, I + j))
				goto err;
205 206
		}
	}
207 208

err:
D
Dr. Stephen Henson 已提交
209 210
	PKCS12err(PKCS12_F_PKCS12_KEY_GEN_UNI,ERR_R_MALLOC_FAILURE);

211
end:
D
Dr. Stephen Henson 已提交
212 213 214 215 216 217
	OPENSSL_free (Ai);
	OPENSSL_free (B);
	OPENSSL_free (D);
	OPENSSL_free (I);
	BN_free (Ij);
	BN_free (Bpl1);
218
	EVP_MD_CTX_cleanup(&ctx);
D
Dr. Stephen Henson 已提交
219
	return ret;
220 221
}
#ifdef DEBUG_KEYGEN
U
Ulf Möller 已提交
222
void h__dump (unsigned char *p, int len)
223
{
224 225
	for (; len --; p++) fprintf(stderr, "%02X", *p);
	fprintf(stderr, "\n");	
226 227
}
#endif