Context Navigation

source: trunk/third/ssh/crypt.c @ 10564

Visit:

Revision 10564, 20.5 KB checked in by danw, 27 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r10563, which included commits to RCS files with non-trunk default branches.

Line
1	/* This file is fcrypt.c taken from SSLeay-0.4.3a. This file is only compiled
2	in on those systems that don't have crypt() in the system libraries.
3	//ylo */
4
5	/* fcrypt.c */
6	/* Copyright (C) 1995 Eric Young (eay@mincom.oz.au).
7	* All rights reserved.
8	* Copyright remains Eric Young's, and as such any Copyright notices in
9	* the code are not to be removed.
10	* See the COPYRIGHT file in the libdes distribution for more details.
11	*/
12
13	#include <stdio.h>
14
15	/* Eric Young.
16	* This version of crypt has been developed from my MIT compatable
17	* DES library.
18	* The library is available at pub/Crypto/DES at ftp.psy.uq.oz.au
19	* eay@mincom.oz.au or eay@psych.psy.uq.oz.au
20	*/
21
22	#if !defined(_LIBC) \|\| defined(NOCONST)
23	#define const
24	#endif
25
26	typedef unsigned char des_cblock[8];
27
28	typedef struct des_ks_struct
29	{
30	union {
31	des_cblock _;
32	/* make sure things are correct size on machines with
33	* 8 byte longs */
34	unsigned long pad[2];
35	} ks;
36	#define _ ks._
37	} des_key_schedule[16];
38
39	#define DES_KEY_SZ (sizeof(des_cblock))
40	#define DES_ENCRYPT 1
41	#define DES_DECRYPT 0
42
43	#define ITERATIONS 16
44	#define HALF_ITERATIONS 8
45
46	#define c2l(c,l) (l =((unsigned long)(*((c)++))) , \
47	l\|=((unsigned long)(*((c)++)))<< 8, \
48	l\|=((unsigned long)(*((c)++)))<<16, \
49	l\|=((unsigned long)(*((c)++)))<<24)
50
51	#define l2c(l,c) (*((c)++)=(unsigned char)(((l) )&0xff), \
52	*((c)++)=(unsigned char)(((l)>> 8)&0xff), \
53	*((c)++)=(unsigned char)(((l)>>16)&0xff), \
54	*((c)++)=(unsigned char)(((l)>>24)&0xff))
55
56	static const unsigned long SPtrans[8][64]={
57	/* nibble 0 */
58	0x00820200, 0x00020000, 0x80800000, 0x80820200,
59	0x00800000, 0x80020200, 0x80020000, 0x80800000,
60	0x80020200, 0x00820200, 0x00820000, 0x80000200,
61	0x80800200, 0x00800000, 0x00000000, 0x80020000,
62	0x00020000, 0x80000000, 0x00800200, 0x00020200,
63	0x80820200, 0x00820000, 0x80000200, 0x00800200,
64	0x80000000, 0x00000200, 0x00020200, 0x80820000,
65	0x00000200, 0x80800200, 0x80820000, 0x00000000,
66	0x00000000, 0x80820200, 0x00800200, 0x80020000,
67	0x00820200, 0x00020000, 0x80000200, 0x00800200,
68	0x80820000, 0x00000200, 0x00020200, 0x80800000,
69	0x80020200, 0x80000000, 0x80800000, 0x00820000,
70	0x80820200, 0x00020200, 0x00820000, 0x80800200,
71	0x00800000, 0x80000200, 0x80020000, 0x00000000,
72	0x00020000, 0x00800000, 0x80800200, 0x00820200,
73	0x80000000, 0x80820000, 0x00000200, 0x80020200,
74	/* nibble 1 */
75	0x10042004, 0x00000000, 0x00042000, 0x10040000,
76	0x10000004, 0x00002004, 0x10002000, 0x00042000,
77	0x00002000, 0x10040004, 0x00000004, 0x10002000,
78	0x00040004, 0x10042000, 0x10040000, 0x00000004,
79	0x00040000, 0x10002004, 0x10040004, 0x00002000,
80	0x00042004, 0x10000000, 0x00000000, 0x00040004,
81	0x10002004, 0x00042004, 0x10042000, 0x10000004,
82	0x10000000, 0x00040000, 0x00002004, 0x10042004,
83	0x00040004, 0x10042000, 0x10002000, 0x00042004,
84	0x10042004, 0x00040004, 0x10000004, 0x00000000,
85	0x10000000, 0x00002004, 0x00040000, 0x10040004,
86	0x00002000, 0x10000000, 0x00042004, 0x10002004,
87	0x10042000, 0x00002000, 0x00000000, 0x10000004,
88	0x00000004, 0x10042004, 0x00042000, 0x10040000,
89	0x10040004, 0x00040000, 0x00002004, 0x10002000,
90	0x10002004, 0x00000004, 0x10040000, 0x00042000,
91	/* nibble 2 */
92	0x41000000, 0x01010040, 0x00000040, 0x41000040,
93	0x40010000, 0x01000000, 0x41000040, 0x00010040,
94	0x01000040, 0x00010000, 0x01010000, 0x40000000,
95	0x41010040, 0x40000040, 0x40000000, 0x41010000,
96	0x00000000, 0x40010000, 0x01010040, 0x00000040,
97	0x40000040, 0x41010040, 0x00010000, 0x41000000,
98	0x41010000, 0x01000040, 0x40010040, 0x01010000,
99	0x00010040, 0x00000000, 0x01000000, 0x40010040,
100	0x01010040, 0x00000040, 0x40000000, 0x00010000,
101	0x40000040, 0x40010000, 0x01010000, 0x41000040,
102	0x00000000, 0x01010040, 0x00010040, 0x41010000,
103	0x40010000, 0x01000000, 0x41010040, 0x40000000,
104	0x40010040, 0x41000000, 0x01000000, 0x41010040,
105	0x00010000, 0x01000040, 0x41000040, 0x00010040,
106	0x01000040, 0x00000000, 0x41010000, 0x40000040,
107	0x41000000, 0x40010040, 0x00000040, 0x01010000,
108	/* nibble 3 */
109	0x00100402, 0x04000400, 0x00000002, 0x04100402,
110	0x00000000, 0x04100000, 0x04000402, 0x00100002,
111	0x04100400, 0x04000002, 0x04000000, 0x00000402,
112	0x04000002, 0x00100402, 0x00100000, 0x04000000,
113	0x04100002, 0x00100400, 0x00000400, 0x00000002,
114	0x00100400, 0x04000402, 0x04100000, 0x00000400,
115	0x00000402, 0x00000000, 0x00100002, 0x04100400,
116	0x04000400, 0x04100002, 0x04100402, 0x00100000,
117	0x04100002, 0x00000402, 0x00100000, 0x04000002,
118	0x00100400, 0x04000400, 0x00000002, 0x04100000,
119	0x04000402, 0x00000000, 0x00000400, 0x00100002,
120	0x00000000, 0x04100002, 0x04100400, 0x00000400,
121	0x04000000, 0x04100402, 0x00100402, 0x00100000,
122	0x04100402, 0x00000002, 0x04000400, 0x00100402,
123	0x00100002, 0x00100400, 0x04100000, 0x04000402,
124	0x00000402, 0x04000000, 0x04000002, 0x04100400,
125	/* nibble 4 */
126	0x02000000, 0x00004000, 0x00000100, 0x02004108,
127	0x02004008, 0x02000100, 0x00004108, 0x02004000,
128	0x00004000, 0x00000008, 0x02000008, 0x00004100,
129	0x02000108, 0x02004008, 0x02004100, 0x00000000,
130	0x00004100, 0x02000000, 0x00004008, 0x00000108,
131	0x02000100, 0x00004108, 0x00000000, 0x02000008,
132	0x00000008, 0x02000108, 0x02004108, 0x00004008,
133	0x02004000, 0x00000100, 0x00000108, 0x02004100,
134	0x02004100, 0x02000108, 0x00004008, 0x02004000,
135	0x00004000, 0x00000008, 0x02000008, 0x02000100,
136	0x02000000, 0x00004100, 0x02004108, 0x00000000,
137	0x00004108, 0x02000000, 0x00000100, 0x00004008,
138	0x02000108, 0x00000100, 0x00000000, 0x02004108,
139	0x02004008, 0x02004100, 0x00000108, 0x00004000,
140	0x00004100, 0x02004008, 0x02000100, 0x00000108,
141	0x00000008, 0x00004108, 0x02004000, 0x02000008,
142	/* nibble 5 */
143	0x20000010, 0x00080010, 0x00000000, 0x20080800,
144	0x00080010, 0x00000800, 0x20000810, 0x00080000,
145	0x00000810, 0x20080810, 0x00080800, 0x20000000,
146	0x20000800, 0x20000010, 0x20080000, 0x00080810,
147	0x00080000, 0x20000810, 0x20080010, 0x00000000,
148	0x00000800, 0x00000010, 0x20080800, 0x20080010,
149	0x20080810, 0x20080000, 0x20000000, 0x00000810,
150	0x00000010, 0x00080800, 0x00080810, 0x20000800,
151	0x00000810, 0x20000000, 0x20000800, 0x00080810,
152	0x20080800, 0x00080010, 0x00000000, 0x20000800,
153	0x20000000, 0x00000800, 0x20080010, 0x00080000,
154	0x00080010, 0x20080810, 0x00080800, 0x00000010,
155	0x20080810, 0x00080800, 0x00080000, 0x20000810,
156	0x20000010, 0x20080000, 0x00080810, 0x00000000,
157	0x00000800, 0x20000010, 0x20000810, 0x20080800,
158	0x20080000, 0x00000810, 0x00000010, 0x20080010,
159	/* nibble 6 */
160	0x00001000, 0x00000080, 0x00400080, 0x00400001,
161	0x00401081, 0x00001001, 0x00001080, 0x00000000,
162	0x00400000, 0x00400081, 0x00000081, 0x00401000,
163	0x00000001, 0x00401080, 0x00401000, 0x00000081,
164	0x00400081, 0x00001000, 0x00001001, 0x00401081,
165	0x00000000, 0x00400080, 0x00400001, 0x00001080,
166	0x00401001, 0x00001081, 0x00401080, 0x00000001,
167	0x00001081, 0x00401001, 0x00000080, 0x00400000,
168	0x00001081, 0x00401000, 0x00401001, 0x00000081,
169	0x00001000, 0x00000080, 0x00400000, 0x00401001,
170	0x00400081, 0x00001081, 0x00001080, 0x00000000,
171	0x00000080, 0x00400001, 0x00000001, 0x00400080,
172	0x00000000, 0x00400081, 0x00400080, 0x00001080,
173	0x00000081, 0x00001000, 0x00401081, 0x00400000,
174	0x00401080, 0x00000001, 0x00001001, 0x00401081,
175	0x00400001, 0x00401080, 0x00401000, 0x00001001,
176	/* nibble 7 */
177	0x08200020, 0x08208000, 0x00008020, 0x00000000,
178	0x08008000, 0x00200020, 0x08200000, 0x08208020,
179	0x00000020, 0x08000000, 0x00208000, 0x00008020,
180	0x00208020, 0x08008020, 0x08000020, 0x08200000,
181	0x00008000, 0x00208020, 0x00200020, 0x08008000,
182	0x08208020, 0x08000020, 0x00000000, 0x00208000,
183	0x08000000, 0x00200000, 0x08008020, 0x08200020,
184	0x00200000, 0x00008000, 0x08208000, 0x00000020,
185	0x00200000, 0x00008000, 0x08000020, 0x08208020,
186	0x00008020, 0x08000000, 0x00000000, 0x00208000,
187	0x08200020, 0x08008020, 0x08008000, 0x00200020,
188	0x08208000, 0x00000020, 0x00200020, 0x08008000,
189	0x08208020, 0x00200000, 0x08200000, 0x08000020,
190	0x00208000, 0x00008020, 0x08008020, 0x08200000,
191	0x00000020, 0x08208000, 0x00208020, 0x00000000,
192	0x08000000, 0x08200020, 0x00008000, 0x00208020};
193	static const unsigned long skb[8][64]={
194	/* for C bits (numbered as per FIPS 46) 1 2 3 4 5 6 */
195	0x00000000,0x00000010,0x20000000,0x20000010,
196	0x00010000,0x00010010,0x20010000,0x20010010,
197	0x00000800,0x00000810,0x20000800,0x20000810,
198	0x00010800,0x00010810,0x20010800,0x20010810,
199	0x00000020,0x00000030,0x20000020,0x20000030,
200	0x00010020,0x00010030,0x20010020,0x20010030,
201	0x00000820,0x00000830,0x20000820,0x20000830,
202	0x00010820,0x00010830,0x20010820,0x20010830,
203	0x00080000,0x00080010,0x20080000,0x20080010,
204	0x00090000,0x00090010,0x20090000,0x20090010,
205	0x00080800,0x00080810,0x20080800,0x20080810,
206	0x00090800,0x00090810,0x20090800,0x20090810,
207	0x00080020,0x00080030,0x20080020,0x20080030,
208	0x00090020,0x00090030,0x20090020,0x20090030,
209	0x00080820,0x00080830,0x20080820,0x20080830,
210	0x00090820,0x00090830,0x20090820,0x20090830,
211	/* for C bits (numbered as per FIPS 46) 7 8 10 11 12 13 */
212	0x00000000,0x02000000,0x00002000,0x02002000,
213	0x00200000,0x02200000,0x00202000,0x02202000,
214	0x00000004,0x02000004,0x00002004,0x02002004,
215	0x00200004,0x02200004,0x00202004,0x02202004,
216	0x00000400,0x02000400,0x00002400,0x02002400,
217	0x00200400,0x02200400,0x00202400,0x02202400,
218	0x00000404,0x02000404,0x00002404,0x02002404,
219	0x00200404,0x02200404,0x00202404,0x02202404,
220	0x10000000,0x12000000,0x10002000,0x12002000,
221	0x10200000,0x12200000,0x10202000,0x12202000,
222	0x10000004,0x12000004,0x10002004,0x12002004,
223	0x10200004,0x12200004,0x10202004,0x12202004,
224	0x10000400,0x12000400,0x10002400,0x12002400,
225	0x10200400,0x12200400,0x10202400,0x12202400,
226	0x10000404,0x12000404,0x10002404,0x12002404,
227	0x10200404,0x12200404,0x10202404,0x12202404,
228	/* for C bits (numbered as per FIPS 46) 14 15 16 17 19 20 */
229	0x00000000,0x00000001,0x00040000,0x00040001,
230	0x01000000,0x01000001,0x01040000,0x01040001,
231	0x00000002,0x00000003,0x00040002,0x00040003,
232	0x01000002,0x01000003,0x01040002,0x01040003,
233	0x00000200,0x00000201,0x00040200,0x00040201,
234	0x01000200,0x01000201,0x01040200,0x01040201,
235	0x00000202,0x00000203,0x00040202,0x00040203,
236	0x01000202,0x01000203,0x01040202,0x01040203,
237	0x08000000,0x08000001,0x08040000,0x08040001,
238	0x09000000,0x09000001,0x09040000,0x09040001,
239	0x08000002,0x08000003,0x08040002,0x08040003,
240	0x09000002,0x09000003,0x09040002,0x09040003,
241	0x08000200,0x08000201,0x08040200,0x08040201,
242	0x09000200,0x09000201,0x09040200,0x09040201,
243	0x08000202,0x08000203,0x08040202,0x08040203,
244	0x09000202,0x09000203,0x09040202,0x09040203,
245	/* for C bits (numbered as per FIPS 46) 21 23 24 26 27 28 */
246	0x00000000,0x00100000,0x00000100,0x00100100,
247	0x00000008,0x00100008,0x00000108,0x00100108,
248	0x00001000,0x00101000,0x00001100,0x00101100,
249	0x00001008,0x00101008,0x00001108,0x00101108,
250	0x04000000,0x04100000,0x04000100,0x04100100,
251	0x04000008,0x04100008,0x04000108,0x04100108,
252	0x04001000,0x04101000,0x04001100,0x04101100,
253	0x04001008,0x04101008,0x04001108,0x04101108,
254	0x00020000,0x00120000,0x00020100,0x00120100,
255	0x00020008,0x00120008,0x00020108,0x00120108,
256	0x00021000,0x00121000,0x00021100,0x00121100,
257	0x00021008,0x00121008,0x00021108,0x00121108,
258	0x04020000,0x04120000,0x04020100,0x04120100,
259	0x04020008,0x04120008,0x04020108,0x04120108,
260	0x04021000,0x04121000,0x04021100,0x04121100,
261	0x04021008,0x04121008,0x04021108,0x04121108,
262	/* for D bits (numbered as per FIPS 46) 1 2 3 4 5 6 */
263	0x00000000,0x10000000,0x00010000,0x10010000,
264	0x00000004,0x10000004,0x00010004,0x10010004,
265	0x20000000,0x30000000,0x20010000,0x30010000,
266	0x20000004,0x30000004,0x20010004,0x30010004,
267	0x00100000,0x10100000,0x00110000,0x10110000,
268	0x00100004,0x10100004,0x00110004,0x10110004,
269	0x20100000,0x30100000,0x20110000,0x30110000,
270	0x20100004,0x30100004,0x20110004,0x30110004,
271	0x00001000,0x10001000,0x00011000,0x10011000,
272	0x00001004,0x10001004,0x00011004,0x10011004,
273	0x20001000,0x30001000,0x20011000,0x30011000,
274	0x20001004,0x30001004,0x20011004,0x30011004,
275	0x00101000,0x10101000,0x00111000,0x10111000,
276	0x00101004,0x10101004,0x00111004,0x10111004,
277	0x20101000,0x30101000,0x20111000,0x30111000,
278	0x20101004,0x30101004,0x20111004,0x30111004,
279	/* for D bits (numbered as per FIPS 46) 8 9 11 12 13 14 */
280	0x00000000,0x08000000,0x00000008,0x08000008,
281	0x00000400,0x08000400,0x00000408,0x08000408,
282	0x00020000,0x08020000,0x00020008,0x08020008,
283	0x00020400,0x08020400,0x00020408,0x08020408,
284	0x00000001,0x08000001,0x00000009,0x08000009,
285	0x00000401,0x08000401,0x00000409,0x08000409,
286	0x00020001,0x08020001,0x00020009,0x08020009,
287	0x00020401,0x08020401,0x00020409,0x08020409,
288	0x02000000,0x0A000000,0x02000008,0x0A000008,
289	0x02000400,0x0A000400,0x02000408,0x0A000408,
290	0x02020000,0x0A020000,0x02020008,0x0A020008,
291	0x02020400,0x0A020400,0x02020408,0x0A020408,
292	0x02000001,0x0A000001,0x02000009,0x0A000009,
293	0x02000401,0x0A000401,0x02000409,0x0A000409,
294	0x02020001,0x0A020001,0x02020009,0x0A020009,
295	0x02020401,0x0A020401,0x02020409,0x0A020409,
296	/* for D bits (numbered as per FIPS 46) 16 17 18 19 20 21 */
297	0x00000000,0x00000100,0x00080000,0x00080100,
298	0x01000000,0x01000100,0x01080000,0x01080100,
299	0x00000010,0x00000110,0x00080010,0x00080110,
300	0x01000010,0x01000110,0x01080010,0x01080110,
301	0x00200000,0x00200100,0x00280000,0x00280100,
302	0x01200000,0x01200100,0x01280000,0x01280100,
303	0x00200010,0x00200110,0x00280010,0x00280110,
304	0x01200010,0x01200110,0x01280010,0x01280110,
305	0x00000200,0x00000300,0x00080200,0x00080300,
306	0x01000200,0x01000300,0x01080200,0x01080300,
307	0x00000210,0x00000310,0x00080210,0x00080310,
308	0x01000210,0x01000310,0x01080210,0x01080310,
309	0x00200200,0x00200300,0x00280200,0x00280300,
310	0x01200200,0x01200300,0x01280200,0x01280300,
311	0x00200210,0x00200310,0x00280210,0x00280310,
312	0x01200210,0x01200310,0x01280210,0x01280310,
313	/* for D bits (numbered as per FIPS 46) 22 23 24 25 27 28 */
314	0x00000000,0x04000000,0x00040000,0x04040000,
315	0x00000002,0x04000002,0x00040002,0x04040002,
316	0x00002000,0x04002000,0x00042000,0x04042000,
317	0x00002002,0x04002002,0x00042002,0x04042002,
318	0x00000020,0x04000020,0x00040020,0x04040020,
319	0x00000022,0x04000022,0x00040022,0x04040022,
320	0x00002020,0x04002020,0x00042020,0x04042020,
321	0x00002022,0x04002022,0x00042022,0x04042022,
322	0x00000800,0x04000800,0x00040800,0x04040800,
323	0x00000802,0x04000802,0x00040802,0x04040802,
324	0x00002800,0x04002800,0x00042800,0x04042800,
325	0x00002802,0x04002802,0x00042802,0x04042802,
326	0x00000820,0x04000820,0x00040820,0x04040820,
327	0x00000822,0x04000822,0x00040822,0x04040822,
328	0x00002820,0x04002820,0x00042820,0x04042820,
329	0x00002822,0x04002822,0x00042822,0x04042822,
330	};
331
332	/* See ecb_encrypt.c for a pseudo description of these macros. */
333	#define PERM_OP(a,b,t,n,m) ((t)=((((a)>>(n))^(b))&(m)),\
334	(b)^=(t),\
335	(a)^=((t)<<(n)))
336
337	#define HPERM_OP(a,t,n,m) ((t)=((((a)<<(16-(n)))^(a))&(m)),\
338	(a)=(a)^(t)^(t>>(16-(n))))\
339
340	static const char shifts2[16]={0,0,1,1,1,1,1,1,0,1,1,1,1,1,1,0};
341
342	#ifdef PROTO
343	static int body(unsigned long out0, unsigned long out1, des_key_schedule ks, unsigned long Eswap0, unsigned long Eswap1);
344	static int des_set_key(des_cblock (key), struct des_ks_struct schedule);
345	#else
346	static int body();
347	static int des_set_key();
348	#endif
349
350	static int des_set_key(key, schedule)
351	des_cblock (*key);
352	struct des_ks_struct *schedule;
353	{
354	register unsigned long c,d,t,s;
355	register unsigned char *in;
356	register unsigned long *k;
357	register int i;
358
359	k=(unsigned long *)schedule;
360	in=(unsigned char *)key;
361
362	c2l(in,c);
363	c2l(in,d);
364
365	/* I now do it in 47 simple operations :-)
366	* Thanks to John Fletcher (john_fletcher@lccmail.ocf.llnl.gov)
367	* for the inspiration. :-) */
368	PERM_OP (d,c,t,4,0x0f0f0f0f);
369	HPERM_OP(c,t,-2,0xcccc0000);
370	HPERM_OP(d,t,-2,0xcccc0000);
371	PERM_OP (d,c,t,1,0x55555555);
372	PERM_OP (c,d,t,8,0x00ff00ff);
373	PERM_OP (d,c,t,1,0x55555555);
374	d= (((d&0x000000ff)<<16)\| (d&0x0000ff00) \|
375	((d&0x00ff0000)>>16)\|((c&0xf0000000)>>4));
376	c&=0x0fffffff;
377
378	for (i=0; i<ITERATIONS; i++)
379	{
380	if (shifts2[i])
381	{ c=((c>>2)\|(c<<26)); d=((d>>2)\|(d<<26)); }
382	else
383	{ c=((c>>1)\|(c<<27)); d=((d>>1)\|(d<<27)); }
384	c&=0x0fffffff;
385	d&=0x0fffffff;
386	/* could be a few less shifts but I am to lazy at this
387	* point in time to investigate */
388	s= skb[0][ (c )&0x3f ]\|
389	skb[1][((c>> 6)&0x03)\|((c>> 7)&0x3c)]\|
390	skb[2][((c>>13)&0x0f)\|((c>>14)&0x30)]\|
391	skb[3][((c>>20)&0x01)\|((c>>21)&0x06) \|
392	((c>>22)&0x38)];
393	t= skb[4][ (d )&0x3f ]\|
394	skb[5][((d>> 7)&0x03)\|((d>> 8)&0x3c)]\|
395	skb[6][ (d>>15)&0x3f ]\|
396	skb[7][((d>>21)&0x0f)\|((d>>22)&0x30)];
397
398	/* table contained 0213 4657 */
399	*(k++)=((t<<16)\|(s&0x0000ffff))&0xffffffff;
400	s= ((s>>16)\|(t&0xffff0000));
401
402	s=(s<<4)\|(s>>28);
403	*(k++)=s&0xffffffff;
404	}
405	return(0);
406	}
407
408	/******************************************************************
409	* modified stuff for crypt.
410	******************************************************************/
411
412	/* The changes to this macro may help or hinder, depending on the
413	* compiler and the achitecture. gcc2 always seems to do well :-).
414	* Inspired by Dana How <how@isl.stanford.edu>
415	* DO NOT use the alternative version on machines with 8 byte longs.
416	*/
417	#ifdef ALT_ECB
418	#define D_ENCRYPT(L,R,S) \
419	t=(R^(R>>16)); \
420	u=(t&E0); \
421	t=(t&E1); \
422	u=((u^(u<<16))^R^s[S ])<<2; \
423	t=(t^(t<<16))^R^s[S+1]; \
424	t=(t>>2)\|(t<<30); \
425	L^= \
426	(unsigned long )(des_SP+0x0100+((t )&0xfc))+ \
427	(unsigned long )(des_SP+0x0300+((t>> 8)&0xfc))+ \
428	(unsigned long )(des_SP+0x0500+((t>>16)&0xfc))+ \
429	(unsigned long )(des_SP+0x0700+((t>>24)&0xfc))+ \
430	(unsigned long )(des_SP+ ((u )&0xfc))+ \
431	(unsigned long )(des_SP+0x0200+((u>> 8)&0xfc))+ \
432	(unsigned long )(des_SP+0x0400+((u>>16)&0xfc))+ \
433	(unsigned long )(des_SP+0x0600+((u>>24)&0xfc));
434	#else /* original version */
435	#define D_ENCRYPT(L,R,S) \
436	t=(R^(R>>16)); \
437	u=(t&E0); \
438	t=(t&E1); \
439	u=(u^(u<<16))^R^s[S ]; \
440	t=(t^(t<<16))^R^s[S+1]; \
441	t=(t>>4)\|(t<<28); \
442	L^= SPtrans[1][(t )&0x3f]\| \
443	SPtrans[3][(t>> 8)&0x3f]\| \
444	SPtrans[5][(t>>16)&0x3f]\| \
445	SPtrans[7][(t>>24)&0x3f]\| \
446	SPtrans[0][(u )&0x3f]\| \
447	SPtrans[2][(u>> 8)&0x3f]\| \
448	SPtrans[4][(u>>16)&0x3f]\| \
449	SPtrans[6][(u>>24)&0x3f];
450	#endif
451
452	static unsigned const char con_salt[128]={
453	0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
454	0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
455	0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
456	0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
457	0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
458	0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,
459	0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,
460	0x0A,0x0B,0x05,0x06,0x07,0x08,0x09,0x0A,
461	0x0B,0x0C,0x0D,0x0E,0x0F,0x10,0x11,0x12,
462	0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,
463	0x1B,0x1C,0x1D,0x1E,0x1F,0x20,0x21,0x22,
464	0x23,0x24,0x25,0x20,0x21,0x22,0x23,0x24,
465	0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,
466	0x2D,0x2E,0x2F,0x30,0x31,0x32,0x33,0x34,
467	0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,
468	0x3D,0x3E,0x3F,0x00,0x00,0x00,0x00,0x00,
469	};
470
471	static unsigned const char cov_2char[64]={
472	0x2E,0x2F,0x30,0x31,0x32,0x33,0x34,0x35,
473	0x36,0x37,0x38,0x39,0x41,0x42,0x43,0x44,
474	0x45,0x46,0x47,0x48,0x49,0x4A,0x4B,0x4C,
475	0x4D,0x4E,0x4F,0x50,0x51,0x52,0x53,0x54,
476	0x55,0x56,0x57,0x58,0x59,0x5A,0x61,0x62,
477	0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6A,
478	0x6B,0x6C,0x6D,0x6E,0x6F,0x70,0x71,0x72,
479	0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7A
480	};
481
482	#ifdef PERL5
483	char *des_crypt(buf,salt)
484	#else
485	char *crypt(buf, salt)
486	char *buf;
487	char *salt;
488
489
490	#endif
491
492
493	{
494	unsigned int i,j,x,y;
495	unsigned long Eswap0=0,Eswap1=0;
496	unsigned long out[2],ll;
497	des_cblock key;
498	des_key_schedule ks;
499	static unsigned char buff[20];
500	unsigned char bb[9];
501	unsigned char *b=bb;
502	unsigned char c,u;
503
504	/* eay 25/08/92
505	* If you call crypt("pwd","*") as often happens when you
506	* have * as the pwd field in /etc/passwd, the function
507	* returns *\0XXXXXXXXX
508	* The \0 makes the string look like * so the pwd "*" would
509	* crypt to "*". This was found when replacing the crypt in
510	* our shared libraries. People found that the disbled
511	* accounts effectivly had no passwd :-(. */
512	x=buff[0]=((salt[0] == '\0')?'A':salt[0]);
513	Eswap0=con_salt[x];
514	x=buff[1]=((salt[1] == '\0')?'A':salt[1]);
515	Eswap1=con_salt[x]<<4;
516
517	for (i=0; i<8; i++)
518	{
519	c= *(buf++);
520	if (!c) break;
521	key[i]=(c<<1);
522	}
523	for (; i<8; i++)
524	key[i]=0;
525
526	des_set_key((des_cblock *)(key),ks);
527	body(&(out[0]),&(out[1]),ks,Eswap0,Eswap1);
528
529	ll=out[0]; l2c(ll,b);
530	ll=out[1]; l2c(ll,b);
531	y=0;
532	u=0x80;
533	bb[8]=0;
534	for (i=2; i<13; i++)
535	{
536	c=0;
537	for (j=0; j<6; j++)
538	{
539	c<<=1;
540	if (bb[y] & u) c\|=1;
541	u>>=1;
542	if (!u)
543	{
544	y++;
545	u=0x80;
546	}
547	}
548	buff[i]=cov_2char[c];
549	}
550	buff[13]='\0';
551	return((char *)buff);
552	}
553
554	static int body(out0, out1, ks, Eswap0, Eswap1)
555	unsigned long *out0;
556	unsigned long *out1;
557	des_key_schedule ks;
558	unsigned long Eswap0;
559	unsigned long Eswap1;
560	{
561	register unsigned long l,r,t,u;
562	#ifdef ALT_ECB
563	register unsigned char des_SP=(unsigned char )SPtrans;
564	#endif
565	register unsigned long *s;
566	register int i,j;
567	register unsigned long E0,E1;
568
569	l=0;
570	r=0;
571
572	s=(unsigned long *)ks;
573	E0=Eswap0;
574	E1=Eswap1;
575
576	for (j=0; j<25; j++)
577	{
578	for (i=0; i<(ITERATIONS*2); i+=4)
579	{
580	D_ENCRYPT(l,r, i); /* 1 */
581	D_ENCRYPT(r,l, i+2); /* 2 */
582	}
583	t=l;
584	l=r;
585	r=t;
586	}
587	t=r;
588	r=(l>>1)\|(l<<31);
589	l=(t>>1)\|(t<<31);
590	/* clear the top bits on machines with 8byte longs */
591	l&=0xffffffff;
592	r&=0xffffffff;
593
594	PERM_OP(r,l,t, 1,0x55555555);
595	PERM_OP(l,r,t, 8,0x00ff00ff);
596	PERM_OP(r,l,t, 2,0x33333333);
597	PERM_OP(l,r,t,16,0x0000ffff);
598	PERM_OP(r,l,t, 4,0x0f0f0f0f);
599
600	*out0=l;
601	*out1=r;
602	return(0);
603	}
604

Note: See TracBrowser for help on using the repository browser.

Download in other formats: