/* INTERNET WORM CRYPT() ROUTINEnotes from 'Password Cracking: A Game of Wits' by Donn Seeley CACM,June89 v32n6 pp700-703 : The Worm's crypt algorithm appears to be acompramise between time	and space: the time needed to encrypt onepassword guess verses the substantial extra table space	needed tosqueeze	performance out	of the algorithm...The traditional UNIXalgorithm stores each bit of the password in a byte, while the wormsalgorithm packs	packs the bits into into two 32-bit words. Thispermits	the worms algorithm to use bitfield and	shift operations onthe password data. (also saves a little	space!)  Other	speedups include unrolling loops, combining tables,precomputing shifts and	masks, and eliminating redundant initial andfinal permutations when	performing the 25 applications of modifiedDES that the password encryption algorithm uses.  The biggest performance improvement comes from combiningpermutations: the worm uses expanded arrays which are indexed bygroups of bits rather than single bits.  Bishops DESZIP.c does	all these things and also precomputes morefunctions yielding twice the performance of the	worms algorithm, butrequiring nearly 200KB of initialized data as opposed to the 6KBused by	the worm, and the less than 2KB	used by	the normal crypt().  The worms version of crypt ran 9 times faster	than the normal	cryptwhile DESZIP runs about	20 time	faster (FDES + DESZIP are aboutequivalent). on	a VAX 6800 encrypting 271 passwords it took the	wormscrypt less than	6 seconds or 45	passwords per sec, and the normalcrypt took 54 seconds or 5 passwords per second. - Tangent */static	char	e[48] =	{			/* 0x20404 */    31,	 0,  1,	 2,  3,	 4,  3,	 4,    5,	 6,  7,	 8,  7,	 8,  9,	10,    11,	12, 11,	12, 13,	14, 15,	16,    15,	16, 17,	18, 19,	20, 19,	20,    21,	22, 23,	24, 23,	24, 25,	26,    27,	28, 27,	28, 29,	30, 31,	 0,}; int shift[16] =	{					/* 0x20434 */	1,1,2,2, 2,2,2,2, 1,2,2,2, 2,2,2,1,};int ip_L0[] = {   0x00000008,	 0x00000008,   0x08000808,   0x08000808,   0x00000008,	 0x00000008,   0x08000808,   0x08000808,};int ip_L1[] = {   0x00000000,	 0x00080000,   0x00000000,   0x00080000,   0x08000000,	 0x08080000,   0x08000000,   0x08080000,   0x00000000,	 0x00080000,   0x00000000,   0x00080000,   0x08000000,	 0x08080000,   0x08000000,   0x08080000,};int ip_L2[] = {   0x00000004,	 0x00000004,   0x04000404,   0x04000404,   0x00000004,	 0x00000004,   0x04000404,   0x04000404,};int ip_L3[] = {   0x00000000,	 0x00040000,   0x00000000,   0x00040000,   0x04000000,	 0x04040000,   0x04000000,   0x04040000,   0x00000000,	 0x00040000,   0x00000000,   0x00040000,   0x04000000,	 0x04040000,   0x04000000,   0x04040000,};int ip_L4[] = {   0x00000002,	 0x00000002,   0x02000202,   0x02000202,   0x00000002,	 0x00000002,   0x02000202,   0x02000202,};int ip_L5[] = {   0x00000000,	 0x00020000,   0x00000000,   0x00020000,   0x02000000,	 0x02020000,   0x02000000,   0x02020000,   0x00000000,	 0x00020000,   0x00000000,   0x00020000,   0x02000000,	 0x02020000,   0x02000000,   0x02020000,};int ip_L6[] = {   0x00000001,	 0x00000001,   0x01000101,   0x01000101,   0x00000001,	 0x00000001,   0x01000101,   0x01000101,};int ip_L7[] = {   0x00000000,	 0x00010000,   0x00000000,   0x00010000,   0x01000000,	 0x01010000,   0x01000000,   0x01010000,   0x00000000,	 0x00010000,   0x00000000,   0x00010000,   0x01000000,	 0x01010000,   0x01000000,   0x01010000,};int ip_L8[] = {   0x00000080,	 0x00000080,   0x80008080,   0x80008080,   0x00000080,	 0x00000080,   0x80008080,   0x80008080,};int ip_L9[] = {   0x00000000,	 0x00800000,   0x00000000,   0x00800000,   0x80000000,	 0x80800000,   0x80000000,   0x80800000,   0x00000000,	 0x00800000,   0x00000000,   0x00800000,   0x80000000,	 0x80800000,   0x80000000,   0x80800000,};int ip_La[] = {   0x00000040,	 0x00000040,   0x40004040,   0x40004040,   0x00000040,	 0x00000040,   0x40004040,   0x40004040,};int ip_Lb[] = {   0x00000000,	 0x00400000,   0x00000000,   0x00400000,   0x40000000,	 0x40400000,   0x40000000,   0x40400000,   0x00000000,	 0x00400000,   0x00000000,   0x00400000,   0x40000000,	 0x40400000,   0x40000000,   0x40400000,};int ip_Lc[] = {   0x00000020,	 0x00000020,   0x20002020,   0x20002020,   0x00000020,	 0x00000020,   0x20002020,   0x20002020,};int ip_Ld[] = {   0x00000000,	 0x00200000,   0x00000000,   0x00200000,   0x20000000,	 0x20200000,   0x20000000,   0x20200000,   0x00000000,	 0x00200000,   0x00000000,   0x00200000,   0x20000000,	 0x20200000,   0x20000000,   0x20200000,};int ip_Le[] = {   0x00000010,	 0x00000010,   0x10001010,   0x10001010,   0x00000010,	 0x00000010,   0x10001010,   0x10001010,};int ip_Lf[] = {   0x00000000,	 0x00100000,   0x00000000,   0x00100000,   0x10000000,	 0x10100000,   0x10000000,   0x10100000,   0x00000000,	 0x00100000,   0x00000000,   0x00100000,   0x10000000,	 0x10100000,   0x10000000,   0x10100000,};int ip_H0[] = {   0x00000000,	 0x00080008,   0x00000000,   0x00080008,   0x08000800,	 0x08080808,   0x08000800,   0x08080808,};int ip_H1[] = {   0x00000000,	 0x00000000,   0x00080000,   0x00080000,   0x00000000,	 0x00000000,   0x00080000,   0x00080000,   0x08000000,	 0x08000000,   0x08080000,   0x08080000,   0x08000000,	 0x08000000,   0x08080000,   0x08080000,};int ip_H2[] = {   0x00000000,	 0x00040004,   0x00000000,   0x00040004,   0x04000400,	 0x04040404,   0x04000400,   0x04040404,};int ip_H3[] = {   0x00000000,	 0x00000000,   0x00040000,   0x00040000,   0x00000000,	 0x00000000,   0x00040000,   0x00040000,   0x04000000,	 0x04000000,   0x04040000,   0x04040000,   0x04000000,	 0x04000000,   0x04040000,   0x04040000,};int ip_H4[] = {   0x00000000,	 0x00020002,   0x00000000,   0x00020002,   0x02000200,	 0x02020202,   0x02000200,   0x02020202,};int ip_H5[] = {   0x00000000,	 0x00000000,   0x00020000,   0x00020000,   0x00000000,	 0x00000000,   0x00020000,   0x00020000,   0x02000000,	 0x02000000,   0x02020000,   0x02020000,   0x02000000,	 0x02000000,   0x02020000,   0x02020000,};int ip_H6[] = {   0x00000000,	 0x00010001,   0x00000000,   0x00010001,   0x01000100,	 0x01010101,   0x01000100,   0x01010101,};int ip_H7[] = {   0x00000000,	 0x00000000,   0x00010000,   0x00010000,   0x00000000,	 0x00000000,   0x00010000,   0x00010000,   0x01000000,	 0x01000000,   0x01010000,   0x01010000,   0x01000000,	 0x01000000,   0x01010000,   0x01010000,};int ip_H8[] = {   0x00000000,	 0x00800080,   0x00000000,   0x00800080,   0x80008000,	 0x80808080,   0x80008000,   0x80808080,};int ip_H9[] = {   0x00000000,	 0x00000000,   0x00800000,   0x00800000,   0x00000000,	 0x00000000,   0x00800000,   0x00800000,   0x80000000,	 0x80000000,   0x80800000,   0x80800000,   0x80000000,	 0x80000000,   0x80800000,   0x80800000,};int ip_Ha[] = {   0x00000000,	 0x00400040,   0x00000000,   0x00400040,   0x40004000,	 0x40404040,   0x40004000,   0x40404040,};int ip_Hb[] = {   0x00000000,	 0x00000000,   0x00400000,   0x00400000,   0x00000000,	 0x00000000,   0x00400000,   0x00400000,   0x40000000,	 0x40000000,   0x40400000,   0x40400000,   0x40000000,	 0x40000000,   0x40400000,   0x40400000,};int ip_Hc[] = {   0x00000000,	 0x00200020,   0x00000000,   0x00200020,   0x20002000,	 0x20202020,   0x20002000,   0x20202020,};int ip_Hd[] = {   0x00000000,	 0x00000000,   0x00200000,   0x00200000,   0x00000000,	 0x00000000,   0x00200000,   0x00200000,   0x20000000,	 0x20000000,   0x20200000,   0x20200000,   0x20000000,	 0x20000000,   0x20200000,   0x20200000,};int ip_He[] = {   0x00000000,	 0x00100010,   0x00000000,   0x00100010,   0x10001000,	 0x10101010,   0x10001000,   0x10101010,};int ip_Hf[] = {   0x00000000,	 0x00000000,   0x00100000,   0x00100000,   0x00000000,	 0x00000000,   0x00100000,   0x00100000,   0x10000000,	 0x10000000,   0x10100000,   0x10100000,   0x10000000,	 0x10000000,   0x10100000,   0x10100000,};int ipi_L0[] = {   0x00000000,	 0x01000000,   0x00010000,   0x01010000,   0x00000100,	 0x01000100,   0x00010100,   0x01010100,   0x00000001,	 0x01000001,   0x00010001,   0x01010001,   0x00000101,	 0x01000101,   0x00010101,   0x01010101,};int ipi_L2[] = {   0x00000000,	 0x04000000,   0x00040000,   0x04040000,   0x00000400,	 0x04000400,   0x00040400,   0x04040400,   0x00000004,	 0x04000004,   0x00040004,   0x04040004,   0x00000404,	 0x04000404,   0x00040404,   0x04040404,};int ipi_L4[] = {   0x00000000,	 0x10000000,   0x00100000,   0x10100000,   0x00001000,	 0x10001000,   0x00101000,   0x10101000,   0x00000010,	 0x10000010,   0x00100010,   0x10100010,   0x00001010,	 0x10001010,   0x00101010,   0x10101010,};int ipi_L6[] = {   0x00000000,	 0x40000000,   0x00400000,   0x40400000,   0x00004000,	 0x40004000,   0x00404000,   0x40404000,   0x00000040,	 0x40000040,   0x00400040,   0x40400040,   0x00004040,	 0x40004040,   0x00404040,   0x40404040,};int ipi_L8[] = {   0x00000000,	 0x02000000,   0x00020000,   0x02020000,   0x00000200,	 0x02000200,   0x00020200,   0x02020200,   0x00000002,	 0x02000002,   0x00020002,   0x02020002,   0x00000202,	 0x02000202,   0x00020202,   0x02020202,};int ipi_La[] = {   0x00000000,	 0x08000000,   0x00080000,   0x08080000,   0x00000800,	 0x08000800,   0x00080800,   0x08080800,   0x00000008,	 0x08000008,   0x00080008,   0x08080008,   0x00000808,	 0x08000808,   0x00080808,   0x08080808,};int ipi_Lc[] = {   0x00000000,	 0x20000000,   0x00200000,   0x20200000,   0x00002000,	 0x20002000,   0x00202000,   0x20202000,   0x00000020,	 0x20000020,   0x00200020,   0x20200020,   0x00002020,	 0x20002020,   0x00202020,   0x20202020,};int ipi_Le[] = {   0x00000000,	 0x80000000,   0x00800000,   0x80800000,   0x00008000,	 0x80008000,   0x00808000,   0x80808000,   0x00000080,	 0x80000080,   0x00800080,   0x80800080,   0x00008080,	 0x80008080,   0x00808080,   0x80808080,};int ipi_H1[] = {   0x00000000,	 0x01000000,   0x00010000,   0x01010000,   0x00000100,	 0x01000100,   0x00010100,   0x01010100,   0x00000001,	 0x01000001,   0x00010001,   0x01010001,   0x00000101,	 0x01000101,   0x00010101,   0x01010101,};int ipi_H3[] = {   0x00000000,	 0x04000000,   0x00040000,   0x04040000,   0x00000400,	 0x04000400,   0x00040400,   0x04040400,   0x00000004,	 0x04000004,   0x00040004,   0x04040004,   0x00000404,	 0x04000404,   0x00040404,   0x04040404,};int ipi_H5[] = {   0x00000000,	 0x10000000,   0x00100000,   0x10100000,   0x00001000,	 0x10001000,   0x00101000,   0x10101000,   0x00000010,	 0x10000010,   0x00100010,   0x10100010,   0x00001010,	 0x10001010,   0x00101010,   0x10101010,};int ipi_H7[] = {   0x00000000,	 0x40000000,   0x00400000,   0x40400000,   0x00004000,	 0x40004000,   0x00404000,   0x40404000,   0x00000040,	 0x40000040,   0x00400040,   0x40400040,   0x00004040,	 0x40004040,   0x00404040,   0x40404040,};int ipi_H9[] = {   0x00000000,	 0x02000000,   0x00020000,   0x02020000,   0x00000200,	 0x02000200,   0x00020200,   0x02020200,   0x00000002,	 0x02000002,   0x00020002,   0x02020002,   0x00000202,	 0x02000202,   0x00020202,   0x02020202,};int ipi_Hb[] = {   0x00000000,	 0x08000000,   0x00080000,   0x08080000,   0x00000800,	 0x08000800,   0x00080800,   0x08080800,   0x00000008,	 0x08000008,   0x00080008,   0x08080008,   0x00000808,	 0x08000808,   0x00080808,   0x08080808,};int ipi_Hd[] = {   0x00000000,	 0x20000000,   0x00200000,   0x20200000,   0x00002000,	 0x20002000,   0x00202000,   0x20202000,   0x00000020,	 0x20000020,   0x00200020,   0x20200020,   0x00002020,	 0x20002020,   0x00202020,   0x20202020,};int ipi_Hf[] = {   0x00000000,	 0x80000000,   0x00800000,   0x80800000,   0x00008000,	 0x80008000,   0x00808000,   0x80808000,   0x00000080,	 0x80000080,   0x00800080,   0x80800080,   0x00008080,	 0x80008080,   0x00808080,   0x80808080,};int SP0[] = {   0x08000820,	 0x00000800,   0x00020000,   0x08020820,   0x08000000,	 0x08000820,   0x00000020,   0x08000000,   0x00020020,	 0x08020000,   0x08020820,   0x00020800,   0x08020800,	 0x00020820,   0x00000800,   0x00000020,   0x08020000,	 0x08000020,   0x08000800,   0x00000820,   0x00020800,	 0x00020020,   0x08020020,   0x08020800,   0x00000820,	 0x00000000,   0x00000000,   0x08020020,   0x08000020,	 0x08000800,   0x00020820,   0x00020000,   0x00020820,	 0x00020000,   0x08020800,   0x00000800,   0x00000020,	 0x08020020,   0x00000800,   0x00020820,   0x08000800,	 0x00000020,   0x08000020,   0x08020000,   0x08020020,	 0x08000000,   0x00020000,   0x08000820,   0x00000000,	 0x08020820,   0x00020020,   0x08000020,   0x08020000,	 0x08000800,   0x08000820,   0x00000000,   0x08020820,	 0x00020800,   0x00020800,   0x00000820,   0x00000820,	 0x00020020,   0x08000000,   0x08020800,};int SP1[] = {   0x00100000,	 0x02100001,   0x02000401,   0x00000000,   0x00000400,	 0x02000401,   0x00100401,   0x02100400,   0x02100401,	 0x00100000,   0x00000000,   0x02000001,   0x00000001,	 0x02000000,   0x02100001,   0x00000401,   0x02000400,	 0x00100401,   0x00100001,   0x02000400,   0x02000001,	 0x02100000,   0x02100400,   0x00100001,   0x02100000,	 0x00000400,   0x00000401,   0x02100401,   0x00100400,	 0x00000001,   0x02000000,   0x00100400,   0x02000000,	 0x00100400,   0x00100000,   0x02000401,   0x02000401,	 0x02100001,   0x02100001,   0x00000001,   0x00100001,	 0x02000000,   0x02000400,   0x00100000,   0x02100400,	 0x00000401,   0x00100401,   0x02100400,   0x00000401,	 0x02000001,   0x02100401,   0x02100000,   0x00100400,	 0x00000000,   0x00000001,   0x02100401,   0x00000000,	 0x00100401,   0x02100000,   0x00000400,   0x02000001,	 0x02000400,   0x00000400,   0x00100001,};int SP2[] = {   0x10000008,	 0x10200000,   0x00002000,   0x10202008,   0x10200000,	 0x00000008,   0x10202008,   0x00200000,   0x10002000,	 0x00202008,   0x00200000,   0x10000008,   0x00200008,	 0x10002000,   0x10000000,   0x00002008,   0x00000000,	 0x00200008,   0x10002008,   0x00002000,   0x00202000,	 0x10002008,   0x00000008,   0x10200008,   0x10200008,	 0x00000000,   0x00202008,   0x10202000,   0x00002008,	 0x00202000,   0x10202000,   0x10000000,   0x10002000,	 0x00000008,   0x10200008,   0x00202000,   0x10202008,	 0x00200000,   0x00002008,   0x10000008,   0x00200000,	 0x10002000,   0x10000000,   0x00002008,   0x10000008,	 0x10202008,   0x00202000,   0x10200000,   0x00202008,	 0x10202000,   0x00000000,   0x10200008,   0x00000008,	 0x00002000,   0x10200000,   0x00202008,   0x00002000,	 0x00200008,   0x10002008,   0x00000000,   0x10202000,	 0x10000000,   0x00200008,   0x10002008,};int SP3[] = {   0x00000080,	 0x01040080,   0x01040000,   0x21000080,   0x00040000,	 0x00000080,   0x20000000,   0x01040000,   0x20040080,	 0x00040000,   0x01000080,   0x20040080,   0x21000080,	 0x21040000,   0x00040080,   0x20000000,   0x01000000,	 0x20040000,   0x20040000,   0x00000000,   0x20000080,	 0x21040080,   0x21040080,   0x01000080,   0x21040000,	 0x20000080,   0x00000000,   0x21000000,   0x01040080,	 0x01000000,   0x21000000,   0x00040080,   0x00040000,	 0x21000080,   0x00000080,   0x01000000,   0x20000000,	 0x01040000,   0x21000080,   0x20040080,   0x01000080,	 0x20000000,   0x21040000,   0x01040080,   0x20040080,	 0x00000080,   0x01000000,   0x21040000,   0x21040080,	 0x00040080,   0x21000000,   0x21040080,   0x01040000,	 0x00000000,   0x20040000,   0x21000000,   0x00040080,	 0x01000080,   0x20000080,   0x00040000,   0x00000000,	 0x20040000,   0x01040080,   0x20000080,};int SP4[] = {   0x80401000,	 0x80001040,   0x80001040,   0x00000040,   0x00401040,	 0x80400040,   0x80400000,   0x80001000,   0x00000000,	 0x00401000,   0x00401000,   0x80401040,   0x80000040,	 0x00000000,   0x00400040,   0x80400000,   0x80000000,	 0x00001000,   0x00400000,   0x80401000,   0x00000040,	 0x00400000,   0x80001000,   0x00001040,   0x80400040,	 0x80000000,   0x00001040,   0x00400040,   0x00001000,	 0x00401040,   0x80401040,   0x80000040,   0x00400040,	 0x80400000,   0x00401000,   0x80401040,   0x80000040,	 0x00000000,   0x00000000,   0x00401000,   0x00001040,	 0x00400040,   0x80400040,   0x80000000,   0x80401000,	 0x80001040,   0x80001040,   0x00000040,   0x80401040,	 0x80000040,   0x80000000,   0x00001000,   0x80400000,	 0x80001000,   0x00401040,   0x80400040,   0x80001000,	 0x00001040,   0x00400000,   0x80401000,   0x00000040,	 0x00400000,   0x00001000,   0x00401040,};int SP5[] = {   0x00000104,	 0x04010100,   0x00000000,   0x04010004,   0x04000100,	 0x00000000,   0x00010104,   0x04000100,   0x00010004,	 0x04000004,   0x04000004,   0x00010000,   0x04010104,	 0x00010004,   0x04010000,   0x00000104,   0x04000000,	 0x00000004,   0x04010100,   0x00000100,   0x00010100,	 0x04010000,   0x04010004,   0x00010104,   0x04000104,	 0x00010100,   0x00010000,   0x04000104,   0x00000004,	 0x04010104,   0x00000100,   0x04000000,   0x04010100,	 0x04000000,   0x00010004,   0x00000104,   0x00010000,	 0x04010100,   0x04000100,   0x00000000,   0x00000100,	 0x00010004,   0x04010104,   0x04000100,   0x04000004,	 0x00000100,   0x00000000,   0x04010004,   0x04000104,	 0x00010000,   0x04000000,   0x04010104,   0x00000004,	 0x00010104,   0x00010100,   0x04000004,   0x04010000,	 0x04000104,   0x00000104,   0x04010000,   0x00010104,	 0x00000004,   0x04010004,   0x00010100,};int SP6[] = {   0x40084010,	 0x40004000,   0x00004000,   0x00084010,   0x00080000,	 0x00000010,   0x40080010,   0x40004010,   0x40000010,	 0x40084010,   0x40084000,   0x40000000,   0x40004000,	 0x00080000,   0x00000010,   0x40080010,   0x00084000,	 0x00080010,   0x40004010,   0x00000000,   0x40000000,	 0x00004000,   0x00084010,   0x40080000,   0x00080010,	 0x40000010,   0x00000000,   0x00084000,   0x00004010,	 0x40084000,   0x40080000,   0x00004010,   0x00000000,	 0x00084010,   0x40080010,   0x00080000,   0x40004010,	 0x40080000,   0x40084000,   0x00004000,   0x40080000,	 0x40004000,   0x00000010,   0x40084010,   0x00084010,	 0x00000010,   0x00004000,   0x40000000,   0x00004010,	 0x40084000,   0x00080000,   0x40000010,   0x00080010,	 0x40004010,   0x40000010,   0x00080010,   0x00084000,	 0x00000000,   0x40004000,   0x00004010,   0x40000000,	 0x40080010,   0x40084010,   0x00084000,};int SP7[] = {   0x00808200,	 0x00000000,   0x00008000,   0x00808202,   0x00808002,	 0x00008202,   0x00000002,   0x00008000,   0x00000200,	 0x00808200,   0x00808202,   0x00000200,   0x00800202,	 0x00808002,   0x00800000,   0x00000002,   0x00000202,	 0x00800200,   0x00800200,   0x00008200,   0x00008200,	 0x00808000,   0x00808000,   0x00800202,   0x00008002,	 0x00800002,   0x00800002,   0x00008002,   0x00000000,	 0x00000202,   0x00008202,   0x00800000,   0x00008000,	 0x00808202,   0x00000002,   0x00808000,   0x00808200,	 0x00800000,   0x00800000,   0x00000200,   0x00808002,	 0x00008000,   0x00008200,   0x00800002,   0x00000200,	 0x00000002,   0x00800202,   0x00008202,   0x00808202,	 0x00008002,   0x00808000,   0x00800202,