1/*
2 * Copyright (c) 2000-2001,2011-2012,2014 Apple 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_locl.h */
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 <stdlib.h>
78
79#undef c2l
80#define c2l(c,l)	(l =((RC5_32_INT)(*((c)++)))    , \
81			 l|=((RC5_32_INT)(*((c)++)))<< 8L, \
82			 l|=((RC5_32_INT)(*((c)++)))<<16L, \
83			 l|=((RC5_32_INT)(*((c)++)))<<24L)
84
85/* NOTE - c is not incremented as per c2l */
86#undef c2ln
87#define c2ln(c,l1,l2,n)	{ \
88			c+=n; \
89			l1=l2=0; \
90			switch (n) { \
91			case 8: l2 =((RC5_32_INT)(*(--(c))))<<24L; \
92			case 7: l2|=((RC5_32_INT)(*(--(c))))<<16L; \
93			case 6: l2|=((RC5_32_INT)(*(--(c))))<< 8L; \
94			case 5: l2|=((RC5_32_INT)(*(--(c))));     \
95			case 4: l1 =((RC5_32_INT)(*(--(c))))<<24L; \
96			case 3: l1|=((RC5_32_INT)(*(--(c))))<<16L; \
97			case 2: l1|=((RC5_32_INT)(*(--(c))))<< 8L; \
98			case 1: l1|=((RC5_32_INT)(*(--(c))));     \
99				} \
100			}
101
102#undef l2c
103#define l2c(l,c)	(*((c)++)=(unsigned char)(((l)     )&0xff), \
104			 *((c)++)=(unsigned char)(((l)>> 8L)&0xff), \
105			 *((c)++)=(unsigned char)(((l)>>16L)&0xff), \
106			 *((c)++)=(unsigned char)(((l)>>24L)&0xff))
107
108/* NOTE - c is not incremented as per l2c */
109#undef l2cn
110#define l2cn(l1,l2,c,n)	{ \
111			c+=n; \
112			switch (n) { \
113			case 8: *(--(c))=(unsigned char)(((l2)>>24L)&0xff); \
114			case 7: *(--(c))=(unsigned char)(((l2)>>16L)&0xff); \
115			case 6: *(--(c))=(unsigned char)(((l2)>> 8L)&0xff); \
116			case 5: *(--(c))=(unsigned char)(((l2)     )&0xff); \
117			case 4: *(--(c))=(unsigned char)(((l1)>>24L)&0xff); \
118			case 3: *(--(c))=(unsigned char)(((l1)>>16L)&0xff); \
119			case 2: *(--(c))=(unsigned char)(((l1)>> 8L)&0xff); \
120			case 1: *(--(c))=(unsigned char)(((l1)     )&0xff); \
121				} \
122			}
123
124/* NOTE - c is not incremented as per n2l */
125#define n2ln(c,l1,l2,n)	{ \
126			c+=n; \
127			l1=l2=0; \
128			switch (n) { \
129			case 8: l2 =((RC5_32_INT)(*(--(c))))    ; \
130			case 7: l2|=((RC5_32_INT)(*(--(c))))<< 8; \
131			case 6: l2|=((RC5_32_INT)(*(--(c))))<<16; \
132			case 5: l2|=((RC5_32_INT)(*(--(c))))<<24; \
133			case 4: l1 =((RC5_32_INT)(*(--(c))))    ; \
134			case 3: l1|=((RC5_32_INT)(*(--(c))))<< 8; \
135			case 2: l1|=((RC5_32_INT)(*(--(c))))<<16; \
136			case 1: l1|=((RC5_32_INT)(*(--(c))))<<24; \
137				} \
138			}
139
140/* NOTE - c is not incremented as per l2n */
141#define l2nn(l1,l2,c,n)	{ \
142			c+=n; \
143			switch (n) { \
144			case 8: *(--(c))=(unsigned char)(((l2)    )&0xff); \
145			case 7: *(--(c))=(unsigned char)(((l2)>> 8)&0xff); \
146			case 6: *(--(c))=(unsigned char)(((l2)>>16)&0xff); \
147			case 5: *(--(c))=(unsigned char)(((l2)>>24)&0xff); \
148			case 4: *(--(c))=(unsigned char)(((l1)    )&0xff); \
149			case 3: *(--(c))=(unsigned char)(((l1)>> 8)&0xff); \
150			case 2: *(--(c))=(unsigned char)(((l1)>>16)&0xff); \
151			case 1: *(--(c))=(unsigned char)(((l1)>>24)&0xff); \
152				} \
153			}
154
155#undef n2l
156#define n2l(c,l)        (l =((RC5_32_INT)(*((c)++)))<<24L, \
157                         l|=((RC5_32_INT)(*((c)++)))<<16L, \
158                         l|=((RC5_32_INT)(*((c)++)))<< 8L, \
159                         l|=((RC5_32_INT)(*((c)++))))
160
161#undef l2n
162#define l2n(l,c)        (*((c)++)=(unsigned char)(((l)>>24L)&0xff), \
163                         *((c)++)=(unsigned char)(((l)>>16L)&0xff), \
164                         *((c)++)=(unsigned char)(((l)>> 8L)&0xff), \
165                         *((c)++)=(unsigned char)(((l)     )&0xff))
166
167#if defined(WIN32) && defined(_MSC_VER)
168#define ROTATE_l32(a,n)     _lrotl(a,n)
169#define ROTATE_r32(a,n)     _lrotr(a,n)
170#else
171#define ROTATE_l32(a,n)     (((a)<<(n&0x1f))|(((a)&0xffffffff)>>(32-(n&0x1f))))
172#define ROTATE_r32(a,n)     (((a)<<(32-(n&0x1f)))|(((a)&0xffffffff)>>(n&0x1f)))
173#endif
174
175#define RC5_32_MASK	0xffffffffL
176
177#define RC5_16_P	0xB7E1
178#define RC5_16_Q	0x9E37
179#define RC5_32_P	0xB7E15163L
180#define RC5_32_Q	0x9E3779B9L
181#define RC5_64_P	0xB7E151628AED2A6BLL
182#define RC5_64_Q	0x9E3779B97F4A7C15LL
183
184#define E_RC5_32(a,b,s,n) \
185	a^=b; \
186	a=ROTATE_l32(a,b); \
187	a+=s[n]; \
188	a&=RC5_32_MASK; \
189	b^=a; \
190	b=ROTATE_l32(b,a); \
191	b+=s[n+1]; \
192	b&=RC5_32_MASK;
193
194#define D_RC5_32(a,b,s,n) \
195	b-=s[n+1]; \
196	b&=RC5_32_MASK; \
197	b=ROTATE_r32(b,a); \
198	b^=a; \
199	a-=s[n]; \
200	a&=RC5_32_MASK; \
201	a=ROTATE_r32(a,b); \
202	a^=b;
203
204
205
206