255 #define DES_IP(X,Y)                                             \  argument
257     T = ((X >>  4) ^ Y) & 0x0F0F0F0F; Y ^= T; X ^= (T <<  4);   \
258     T = ((X >> 16) ^ Y) & 0x0000FFFF; Y ^= T; X ^= (T << 16);   \
259     T = ((Y >>  2) ^ X) & 0x33333333; X ^= T; Y ^= (T <<  2);   \
260     T = ((Y >>  8) ^ X) & 0x00FF00FF; X ^= T; Y ^= (T <<  8);   \
262     T = (X ^ Y) & 0xAAAAAAAA; Y ^= T; X ^= T;                   \
263     X = ((X << 1) | (X >> 31)) & 0xFFFFFFFF;                    \
269 #define DES_FP(X,Y)                                             \  argument
271     X = ((X << 31) | (X >> 1)) & 0xFFFFFFFF;                    \
272     T = (X ^ Y) & 0xAAAAAAAA; X ^= T; Y ^= T;                   \
274     T = ((Y >>  8) ^ X) & 0x00FF00FF; X ^= T; Y ^= (T <<  8);   \
275     T = ((Y >>  2) ^ X) & 0x33333333; X ^= T; Y ^= (T <<  2);   \
276     T = ((X >> 16) ^ Y) & 0x0000FFFF; Y ^= T; X ^= (T << 16);   \
277     T = ((X >>  4) ^ Y) & 0x0F0F0F0F; Y ^= T; X ^= (T <<  4);   \
283 #define DES_ROUND(X,Y)                          \  argument
285     T = *SK++ ^ X;                              \
291     T = *SK++ ^ ((X << 28) | (X >> 4));         \
303     unsigned long X, Y, T;  in des_setkey()  local
305     GET_ULONG_BE( X, key, 0 );  in des_setkey()
311     T =  ((Y >>  4) ^ X) & 0x0F0F0F0F;  X ^= T; Y ^= (T <<  4);  in des_setkey()
312     T =  ((Y      ) ^ X) & 0x10101010;  X ^= T; Y ^= (T      );  in des_setkey()
314     X =   (LHs[ (X      ) & 0xF] << 3) | (LHs[ (X >>  8) & 0xF ] << 2)  in des_setkey()
315         | (LHs[ (X >> 16) & 0xF] << 1) | (LHs[ (X >> 24) & 0xF ]     )  in des_setkey()
316         | (LHs[ (X >>  5) & 0xF] << 7) | (LHs[ (X >> 13) & 0xF ] << 6)  in des_setkey()
317         | (LHs[ (X >> 21) & 0xF] << 5) | (LHs[ (X >> 29) & 0xF ] << 4);  in des_setkey()
324     X &= 0x0FFFFFFF;  in des_setkey()
334             X = ((X <<  1) | (X >> 27)) & 0x0FFFFFFF;  in des_setkey()
339             X = ((X <<  2) | (X >> 26)) & 0x0FFFFFFF;  in des_setkey()
343         *SK++ =   ((X <<  4) & 0x24000000) | ((X << 28) & 0x10000000)  in des_setkey()
344                 | ((X << 14) & 0x08000000) | ((X << 18) & 0x02080000)  in des_setkey()
345                 | ((X <<  6) & 0x01000000) | ((X <<  9) & 0x00200000)  in des_setkey()
346                 | ((X >>  1) & 0x00100000) | ((X << 10) & 0x00040000)  in des_setkey()
347                 | ((X <<  2) & 0x00020000) | ((X >> 10) & 0x00010000)  in des_setkey()
355         *SK++ =   ((X << 15) & 0x20000000) | ((X << 17) & 0x10000000)  in des_setkey()
356                 | ((X << 10) & 0x08000000) | ((X << 22) & 0x04000000)  in des_setkey()
357                 | ((X >>  2) & 0x02000000) | ((X <<  1) & 0x01000000)  in des_setkey()
358                 | ((X << 16) & 0x00200000) | ((X << 11) & 0x00100000)  in des_setkey()
359                 | ((X <<  3) & 0x00080000) | ((X >>  6) & 0x00040000)  in des_setkey()
360                 | ((X << 15) & 0x00020000) | ((X >>  4) & 0x00010000)  in des_setkey()
401     unsigned long X, Y, T, *SK;  in des_crypt_ecb()  local
405     GET_ULONG_BE( X, input, 0 );  in des_crypt_ecb()
408     DES_IP( X, Y );  in des_crypt_ecb()
412         DES_ROUND( Y, X );  in des_crypt_ecb()
413         DES_ROUND( X, Y );  in des_crypt_ecb()
416     DES_FP( Y, X );  in des_crypt_ecb()
419     PUT_ULONG_BE( X, output, 4 );  in des_crypt_ecb()