2 /* Copyright (C) 1993 Eric Young - see README for more details */
6 * This version of crypt has been developed from my MIT compatable
8 * The library is available at pub/DES at ftp.psy.uq.oz.au
9 * eay@psych.psy.uq.oz.au
12 #if defined(__BORLANDC__)
13 #pragma warn -8004 /* "'foo' is assigned a value that is never used" */
16 typedef unsigned char des_cblock[8];
18 typedef struct des_ks_struct
22 /* make sure things are correct size on machines with
27 } des_key_schedule[16];
29 #define DES_KEY_SZ (sizeof(des_cblock))
34 #define HALF_ITERATIONS 8
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)
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))
46 static unsigned long SPtrans[8][64]={
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},
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},
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},
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},
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},
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},
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},
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}
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}
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)),\
328 #define HPERM_OP(a,t,n,m) ((t)=((((a)<<(16-(n)))^(a))&(m)),\
329 (a)=(a)^(t)^(t>>(16-(n))))\
331 static char shifts2[16]={0,0,1,1,1,1,1,1,0,1,1,1,1,1,1,0};
337 unsigned long Eswap0,
338 unsigned long Eswap1);
341 des_set_key(des_cblock *key, des_key_schedule schedule)
343 register unsigned long c,d,t,s;
344 register unsigned char *in;
345 register unsigned long *k;
348 k=(unsigned long *)schedule;
349 in=(unsigned char *)key;
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));
367 for (i=0; i<ITERATIONS; i++)
370 { c=((c>>2)|(c<<26)); d=((d>>2)|(d<<26)); }
372 { c=((c>>1)|(c<<27)); d=((d>>1)|(d<<27)); }
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) |
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)];
387 /* table contained 0213 4657 */
388 *(k++)=((t<<16)|(s&0x0000ffff))&0xffffffff;
389 s= ((s>>16)|(t&0xffff0000));
397 /******************************************************************
398 * modified stuff for crypt.
399 ******************************************************************/
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.
407 #define D_ENCRYPT(L,R,S) \
411 u=((u^(u<<16))^R^s[S ])<<2; \
412 t=(v^(v<<16))^R^s[S+1]; \
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) \
428 u=(u^(u<<16))^R^s[S ]; \
429 t=(v^(v<<16))^R^s[S+1]; \
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];
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,
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
472 des_fcrypt(const char *buf, const char *salt, char *buff)
474 unsigned int i,j,x,y;
475 unsigned long Eswap0,Eswap1;
476 unsigned long out[2],ll;
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]);
493 x=buff[1]=((salt[1] == '\0')?(char)'A':salt[1]);
494 Eswap1=con_salt[x]<<4;
505 des_set_key((des_cblock *)(key),ks);
506 body(&out[0],&out[1],ks,Eswap0,Eswap1);
508 ll=out[0]; l2c(ll,b);
509 ll=out[1]; l2c(ll,b);
527 buff[i]=cov_2char[c];
534 body( unsigned long *out0,
537 unsigned long Eswap0,
538 unsigned long Eswap1)
540 register unsigned long l,r,t,u,v;
542 register unsigned char *des_SP=(unsigned char *)SPtrans;
544 register unsigned long *s;
546 register unsigned long E0,E1;
551 s=(unsigned long *)ks;
557 for (i=0; i<(ITERATIONS*2); i+=4)
559 D_ENCRYPT(l,r, i); /* 1 */
560 D_ENCRYPT(r,l, i+2); /* 2 */
569 /* clear the top bits on machines with 8byte longs */
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);