1/*
2 * Copyright (c) 2000-2001 Apple Computer, Inc. All Rights Reserved.
3 *
4 * The contents of this file constitute Original Code as defined in and are
5 * subject to the Apple Public Source License Version 1.2 (the 'License').
6 * You may not use this file except in compliance with the License. Please obtain
7 * a copy of the License at http://www.apple.com/publicsource and read it before
8 * using this file.
9 *
10 * This Original Code and all software distributed under the License are
11 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS
12 * OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, INCLUDING WITHOUT
13 * LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
14 * PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. Please see the License for the
15 * specific language governing rights and limitations under the License.
16 */
17
18
19/* crypto/rc5/rc5_enc.c */
20/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
21 * All rights reserved.
22 *
23 * This package is an SSL implementation written
24 * by Eric Young (eay@cryptsoft.com).
25 * The implementation was written so as to conform with Netscapes SSL.
26 *
27 * This library is free for commercial and non-commercial use as long as
28 * the following conditions are aheared to.  The following conditions
29 * apply to all code found in this distribution, be it the RC4, RSA,
30 * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
31 * included with this distribution is covered by the same copyright terms
32 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
33 *
34 * Copyright remains Eric Young's, and as such any Copyright notices in
35 * the code are not to be removed.
36 * If this package is used in a product, Eric Young should be given attribution
37 * as the author of the parts of the library used.
38 * This can be in the form of a textual message at program startup or
39 * in documentation (online or textual) provided with the package.
40 *
41 * Redistribution and use in source and binary forms, with or without
42 * modification, are permitted provided that the following conditions
43 * are met:
44 * 1. Redistributions of source code must retain the copyright
45 *    notice, this list of conditions and the following disclaimer.
46 * 2. Redistributions in binary form must reproduce the above copyright
47 *    notice, this list of conditions and the following disclaimer in the
48 *    documentation and/or other materials provided with the distribution.
49 * 3. All advertising materials mentioning features or use of this software
50 *    must display the following acknowledgement:
51 *    "This product includes cryptographic software written by
52 *     Eric Young (eay@cryptsoft.com)"
53 *    The word 'cryptographic' can be left out if the rouines from the library
54 *    being used are not cryptographic related :-).
55 * 4. If you include any Windows specific code (or a derivative thereof) from
56 *    the apps directory (application code) you must include an acknowledgement:
57 *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
58 *
59 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
60 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
61 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
62 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
63 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
64 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
65 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
66 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
67 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
68 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
69 * SUCH DAMAGE.
70 *
71 * The licence and distribution terms for any publically available version or
72 * derivative of this code cannot be changed.  i.e. this code cannot simply be
73 * copied and put under another distribution licence
74 * [including the GNU Public Licence.]
75 */
76
77#include <stdio.h>
78#include <openssl/rc5.h>
79#include "rc5_locl.h"
80
81#ifndef	_OPENSSL_APPLE_CDSA_
82void RC5_32_cbc_encrypt(unsigned char *in, unsigned char *out, long length,
83	     RC5_32_KEY *ks, unsigned char *iv, int encrypt)
84	{
85	register unsigned long tin0,tin1;
86	register unsigned long tout0,tout1,xor0,xor1;
87	register long l=length;
88	unsigned long tin[2];
89
90	if (encrypt)
91		{
92		c2l(iv,tout0);
93		c2l(iv,tout1);
94		iv-=8;
95		for (l-=8; l>=0; l-=8)
96			{
97			c2l(in,tin0);
98			c2l(in,tin1);
99			tin0^=tout0;
100			tin1^=tout1;
101			tin[0]=tin0;
102			tin[1]=tin1;
103			RC5_32_encrypt(tin,ks);
104			tout0=tin[0]; l2c(tout0,out);
105			tout1=tin[1]; l2c(tout1,out);
106			}
107		if (l != -8)
108			{
109			c2ln(in,tin0,tin1,l+8);
110			tin0^=tout0;
111			tin1^=tout1;
112			tin[0]=tin0;
113			tin[1]=tin1;
114			RC5_32_encrypt(tin,ks);
115			tout0=tin[0]; l2c(tout0,out);
116			tout1=tin[1]; l2c(tout1,out);
117			}
118		l2c(tout0,iv);
119		l2c(tout1,iv);
120		}
121	else
122		{
123		c2l(iv,xor0);
124		c2l(iv,xor1);
125		iv-=8;
126		for (l-=8; l>=0; l-=8)
127			{
128			c2l(in,tin0); tin[0]=tin0;
129			c2l(in,tin1); tin[1]=tin1;
130			RC5_32_decrypt(tin,ks);
131			tout0=tin[0]^xor0;
132			tout1=tin[1]^xor1;
133			l2c(tout0,out);
134			l2c(tout1,out);
135			xor0=tin0;
136			xor1=tin1;
137			}
138		if (l != -8)
139			{
140			c2l(in,tin0); tin[0]=tin0;
141			c2l(in,tin1); tin[1]=tin1;
142			RC5_32_decrypt(tin,ks);
143			tout0=tin[0]^xor0;
144			tout1=tin[1]^xor1;
145			l2cn(tout0,tout1,out,l+8);
146			xor0=tin0;
147			xor1=tin1;
148			}
149		l2c(xor0,iv);
150		l2c(xor1,iv);
151		}
152	tin0=tin1=tout0=tout1=xor0=xor1=0;
153	tin[0]=tin[1]=0;
154	}
155
156#endif
157
158#ifdef	_OPENSSL_APPLE_CDSA_
159void RC5_32_encrypt(RC5_32_INT *d, RC5_32_KEY *key)
160#else
161void RC5_32_encrypt(unsigned long *d, RC5_32_KEY *key)
162#endif	/* _OPENSSL_APPLE_CDSA_ */
163	{
164	RC5_32_INT a,b,*s;
165
166	s=key->data;
167
168	a=d[0]+s[0];
169	b=d[1]+s[1];
170	E_RC5_32(a,b,s, 2);
171	E_RC5_32(a,b,s, 4);
172	E_RC5_32(a,b,s, 6);
173	E_RC5_32(a,b,s, 8);
174	E_RC5_32(a,b,s,10);
175	E_RC5_32(a,b,s,12);
176	E_RC5_32(a,b,s,14);
177	E_RC5_32(a,b,s,16);
178	if (key->rounds == 12)
179		{
180		E_RC5_32(a,b,s,18);
181		E_RC5_32(a,b,s,20);
182		E_RC5_32(a,b,s,22);
183		E_RC5_32(a,b,s,24);
184		}
185	else if (key->rounds == 16)
186		{
187		/* Do a full expansion to avoid a jump */
188		E_RC5_32(a,b,s,18);
189		E_RC5_32(a,b,s,20);
190		E_RC5_32(a,b,s,22);
191		E_RC5_32(a,b,s,24);
192		E_RC5_32(a,b,s,26);
193		E_RC5_32(a,b,s,28);
194		E_RC5_32(a,b,s,30);
195		E_RC5_32(a,b,s,32);
196		}
197	d[0]=a;
198	d[1]=b;
199	}
200
201#ifdef	_OPENSSL_APPLE_CDSA_
202void RC5_32_decrypt(RC5_32_INT *d, RC5_32_KEY *key)
203#else
204void RC5_32_decrypt(unsigned long *d, RC5_32_KEY *key)
205#endif	/* _OPENSSL_APPLE_CDSA_*/
206	{
207	RC5_32_INT a,b,*s;
208
209	s=key->data;
210
211	a=d[0];
212	b=d[1];
213	if (key->rounds == 16)
214		{
215		D_RC5_32(a,b,s,32);
216		D_RC5_32(a,b,s,30);
217		D_RC5_32(a,b,s,28);
218		D_RC5_32(a,b,s,26);
219		/* Do a full expansion to avoid a jump */
220		D_RC5_32(a,b,s,24);
221		D_RC5_32(a,b,s,22);
222		D_RC5_32(a,b,s,20);
223		D_RC5_32(a,b,s,18);
224		}
225	else if (key->rounds == 12)
226		{
227		D_RC5_32(a,b,s,24);
228		D_RC5_32(a,b,s,22);
229		D_RC5_32(a,b,s,20);
230		D_RC5_32(a,b,s,18);
231		}
232	D_RC5_32(a,b,s,16);
233	D_RC5_32(a,b,s,14);
234	D_RC5_32(a,b,s,12);
235	D_RC5_32(a,b,s,10);
236	D_RC5_32(a,b,s, 8);
237	D_RC5_32(a,b,s, 6);
238	D_RC5_32(a,b,s, 4);
239	D_RC5_32(a,b,s, 2);
240	d[0]=a-s[0];
241	d[1]=b-s[1];
242	}
243
244