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