1/* crypto/aes/aes_wrap.c */
2/* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
3 * project.
4 */
5/* ====================================================================
6 * Copyright (c) 2008 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
54#include "cryptlib.h"
55#include <openssl/aes.h>
56#include <openssl/bio.h>
57
58static const unsigned char default_iv[] = {
59  0xA6, 0xA6, 0xA6, 0xA6, 0xA6, 0xA6, 0xA6, 0xA6,
60};
61
62int AES_wrap_key(AES_KEY *key, const unsigned char *iv,
63		unsigned char *out,
64		const unsigned char *in, unsigned int inlen)
65	{
66	unsigned char *A, B[16], *R;
67	unsigned int i, j, t;
68	if ((inlen & 0x7) || (inlen < 8))
69		return -1;
70	A = B;
71	t = 1;
72	memcpy(out + 8, in, inlen);
73	if (!iv)
74		iv = default_iv;
75
76	memcpy(A, iv, 8);
77
78	for (j = 0; j < 6; j++)
79		{
80		R = out + 8;
81		for (i = 0; i < inlen; i += 8, t++, R += 8)
82			{
83			memcpy(B + 8, R, 8);
84			AES_encrypt(B, B, key);
85			A[7] ^= (unsigned char)(t & 0xff);
86			if (t > 0xff)
87				{
88				A[6] ^= (unsigned char)((t >> 8) & 0xff);
89				A[5] ^= (unsigned char)((t >> 16) & 0xff);
90				A[4] ^= (unsigned char)((t >> 24) & 0xff);
91				}
92			memcpy(R, B + 8, 8);
93			}
94		}
95	memcpy(out, A, 8);
96	return inlen + 8;
97	}
98
99int AES_unwrap_key(AES_KEY *key, const unsigned char *iv,
100		unsigned char *out,
101		const unsigned char *in, unsigned int inlen)
102	{
103	unsigned char *A, B[16], *R;
104	unsigned int i, j, t;
105	inlen -= 8;
106	if (inlen & 0x7)
107		return -1;
108	if (inlen < 8)
109		return -1;
110	A = B;
111	t =  6 * (inlen >> 3);
112	memcpy(A, in, 8);
113	memcpy(out, in + 8, inlen);
114	for (j = 0; j < 6; j++)
115		{
116		R = out + inlen - 8;
117		for (i = 0; i < inlen; i += 8, t--, R -= 8)
118			{
119			A[7] ^= (unsigned char)(t & 0xff);
120			if (t > 0xff)
121				{
122				A[6] ^= (unsigned char)((t >> 8) & 0xff);
123				A[5] ^= (unsigned char)((t >> 16) & 0xff);
124				A[4] ^= (unsigned char)((t >> 24) & 0xff);
125				}
126			memcpy(B + 8, R, 8);
127			AES_decrypt(B, B, key);
128			memcpy(R, B + 8, 8);
129			}
130		}
131	if (!iv)
132		iv = default_iv;
133	if (memcmp(A, iv, 8))
134		{
135		OPENSSL_cleanse(out, inlen);
136		return 0;
137		}
138	return inlen;
139	}
140
141#ifdef AES_WRAP_TEST
142
143int AES_wrap_unwrap_test(const unsigned char *kek, int keybits,
144			 const unsigned char *iv,
145			 const unsigned char *eout,
146			 const unsigned char *key, int keylen)
147	{
148	unsigned char *otmp = NULL, *ptmp = NULL;
149	int r, ret = 0;
150	AES_KEY wctx;
151	otmp = OPENSSL_malloc(keylen + 8);
152	ptmp = OPENSSL_malloc(keylen);
153	if (!otmp || !ptmp)
154		return 0;
155	if (AES_set_encrypt_key(kek, keybits, &wctx))
156		goto err;
157	r = AES_wrap_key(&wctx, iv, otmp, key, keylen);
158	if (r <= 0)
159		goto err;
160
161	if (eout && memcmp(eout, otmp, keylen))
162		goto err;
163
164	if (AES_set_decrypt_key(kek, keybits, &wctx))
165		goto err;
166	r = AES_unwrap_key(&wctx, iv, ptmp, otmp, r);
167
168	if (memcmp(key, ptmp, keylen))
169		goto err;
170
171	ret = 1;
172
173	err:
174	if (otmp)
175		OPENSSL_free(otmp);
176	if (ptmp)
177		OPENSSL_free(ptmp);
178
179	return ret;
180
181	}
182
183
184
185int main(int argc, char **argv)
186{
187
188static const unsigned char kek[] = {
189  0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07,
190  0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
191  0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17,
192  0x18, 0x19, 0x1a, 0x1b, 0x1c, 0x1d, 0x1e, 0x1f
193};
194
195static const unsigned char key[] = {
196  0x00, 0x11, 0x22, 0x33, 0x44, 0x55, 0x66, 0x77,
197  0x88, 0x99, 0xaa, 0xbb, 0xcc, 0xdd, 0xee, 0xff,
198  0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07,
199  0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f
200};
201
202static const unsigned char e1[] = {
203  0x1f, 0xa6, 0x8b, 0x0a, 0x81, 0x12, 0xb4, 0x47,
204  0xae, 0xf3, 0x4b, 0xd8, 0xfb, 0x5a, 0x7b, 0x82,
205  0x9d, 0x3e, 0x86, 0x23, 0x71, 0xd2, 0xcf, 0xe5
206};
207
208static const unsigned char e2[] = {
209  0x96, 0x77, 0x8b, 0x25, 0xae, 0x6c, 0xa4, 0x35,
210  0xf9, 0x2b, 0x5b, 0x97, 0xc0, 0x50, 0xae, 0xd2,
211  0x46, 0x8a, 0xb8, 0xa1, 0x7a, 0xd8, 0x4e, 0x5d
212};
213
214static const unsigned char e3[] = {
215  0x64, 0xe8, 0xc3, 0xf9, 0xce, 0x0f, 0x5b, 0xa2,
216  0x63, 0xe9, 0x77, 0x79, 0x05, 0x81, 0x8a, 0x2a,
217  0x93, 0xc8, 0x19, 0x1e, 0x7d, 0x6e, 0x8a, 0xe7
218};
219
220static const unsigned char e4[] = {
221  0x03, 0x1d, 0x33, 0x26, 0x4e, 0x15, 0xd3, 0x32,
222  0x68, 0xf2, 0x4e, 0xc2, 0x60, 0x74, 0x3e, 0xdc,
223  0xe1, 0xc6, 0xc7, 0xdd, 0xee, 0x72, 0x5a, 0x93,
224  0x6b, 0xa8, 0x14, 0x91, 0x5c, 0x67, 0x62, 0xd2
225};
226
227static const unsigned char e5[] = {
228  0xa8, 0xf9, 0xbc, 0x16, 0x12, 0xc6, 0x8b, 0x3f,
229  0xf6, 0xe6, 0xf4, 0xfb, 0xe3, 0x0e, 0x71, 0xe4,
230  0x76, 0x9c, 0x8b, 0x80, 0xa3, 0x2c, 0xb8, 0x95,
231  0x8c, 0xd5, 0xd1, 0x7d, 0x6b, 0x25, 0x4d, 0xa1
232};
233
234static const unsigned char e6[] = {
235  0x28, 0xc9, 0xf4, 0x04, 0xc4, 0xb8, 0x10, 0xf4,
236  0xcb, 0xcc, 0xb3, 0x5c, 0xfb, 0x87, 0xf8, 0x26,
237  0x3f, 0x57, 0x86, 0xe2, 0xd8, 0x0e, 0xd3, 0x26,
238  0xcb, 0xc7, 0xf0, 0xe7, 0x1a, 0x99, 0xf4, 0x3b,
239  0xfb, 0x98, 0x8b, 0x9b, 0x7a, 0x02, 0xdd, 0x21
240};
241
242	AES_KEY wctx, xctx;
243	int ret;
244	ret = AES_wrap_unwrap_test(kek, 128, NULL, e1, key, 16);
245	fprintf(stderr, "Key test result %d\n", ret);
246	ret = AES_wrap_unwrap_test(kek, 192, NULL, e2, key, 16);
247	fprintf(stderr, "Key test result %d\n", ret);
248	ret = AES_wrap_unwrap_test(kek, 256, NULL, e3, key, 16);
249	fprintf(stderr, "Key test result %d\n", ret);
250	ret = AES_wrap_unwrap_test(kek, 192, NULL, e4, key, 24);
251	fprintf(stderr, "Key test result %d\n", ret);
252	ret = AES_wrap_unwrap_test(kek, 256, NULL, e5, key, 24);
253	fprintf(stderr, "Key test result %d\n", ret);
254	ret = AES_wrap_unwrap_test(kek, 256, NULL, e6, key, 32);
255	fprintf(stderr, "Key test result %d\n", ret);
256}
257
258
259#endif
260