108 		14,  4, 13,  1,  2, 15, 11,  8,  3, 10,  6, 12,  5,  9,  0,  7,
109 		 0, 15,  7,  4, 14,  2, 13,  1, 10,  6, 12, 11,  9,  5,  3,  8,
110 		 4,  1, 14,  8, 13,  6,  2, 11, 15, 12,  9,  7,  3, 10,  5,  0,
111 		15, 12,  8,  2,  4,  9,  1,  7,  5, 11,  3, 14, 10,  0,  6, 13
114 		15,  1,  8, 14,  6, 11,  3,  4,  9,  7,  2, 13, 12,  0,  5, 10,
115 		 3, 13,  4,  7, 15,  2,  8, 14, 12,  0,  1, 10,  6,  9, 11,  5,
116 		 0, 14,  7, 11, 10,  4, 13,  1,  5,  8, 12,  6,  9,  3,  2, 15,
117 		13,  8, 10,  1,  3, 15,  4,  2, 11,  6,  7, 12,  0,  5, 14,  9
120 		10,  0,  9, 14,  6,  3, 15,  5,  1, 13, 12,  7, 11,  4,  2,  8,
121 		13,  7,  0,  9,  3,  4,  6, 10,  2,  8,  5, 14, 12, 11, 15,  1,
122 		13,  6,  4,  9,  8, 15,  3,  0, 11,  1,  2, 12,  5, 10, 14,  7,
123 		 1, 10, 13,  0,  6,  9,  8,  7,  4, 15, 14,  3, 11,  5,  2, 12
126 		 7, 13, 14,  3,  0,  6,  9, 10,  1,  2,  8,  5, 11, 12,  4, 15,
127 		13,  8, 11,  5,  6, 15,  0,  3,  4,  7,  2, 12,  1, 10, 14,  9,
128 		10,  6,  9,  0, 12, 11,  7, 13, 15,  1,  3, 14,  5,  2,  8,  4,
129 		 3, 15,  0,  6, 10,  1, 13,  8,  9,  4,  5, 11, 12,  7,  2, 14
132 		 2, 12,  4,  1,  7, 10, 11,  6,  8,  5,  3, 15, 13,  0, 14,  9,
133 		14, 11,  2, 12,  4,  7, 13,  1,  5,  0, 15, 10,  3,  9,  8,  6,
134 		 4,  2,  1, 11, 10, 13,  7,  8, 15,  9, 12,  5,  6,  3,  0, 14,
135 		11,  8, 12,  7,  1, 14,  2, 13,  6, 15,  0,  9, 10,  4,  5,  3
138 		12,  1, 10, 15,  9,  2,  6,  8,  0, 13,  3,  4, 14,  7,  5, 11,
139 		10, 15,  4,  2,  7, 12,  9,  5,  6,  1, 13, 14,  0, 11,  3,  8,
140 		 9, 14, 15,  5,  2,  8, 12,  3,  7,  0,  4, 10,  1, 13, 11,  6,
141 		 4,  3,  2, 12,  9,  5, 15, 10, 11, 14,  1,  7,  6,  0,  8, 13
144 		 4, 11,  2, 14, 15,  0,  8, 13,  3, 12,  9,  7,  5, 10,  6,  1,
145 		13,  0, 11,  7,  4,  9,  1, 10, 14,  3,  5, 12,  2, 15,  8,  6,
146 		 1,  4, 11, 13, 12,  3,  7, 14, 10, 15,  6,  8,  0,  5,  9,  2,
147 		 6, 11, 13,  8,  1,  4, 10,  7,  9,  5,  0, 15, 14,  2,  3, 12
150 		13,  2,  8,  4,  6, 15, 11,  1, 10,  9,  3, 14,  5,  0, 12,  7,
151 		 1, 15, 13,  8, 10,  3,  7,  4, 12,  5,  6, 11,  0, 14,  9,  2,
152 		 7, 11,  4,  1,  9, 12, 14,  2,  0,  6, 10, 13, 15,  3,  5,  8,
153 		 2,  1, 14,  7,  4, 10,  8, 13, 15, 12,  9,  0,  3,  5,  6, 11
165 	0x80000000, 0x40000000, 0x20000000, 0x10000000,
166 	0x08000000, 0x04000000, 0x02000000, 0x01000000,
167 	0x00800000, 0x00400000, 0x00200000, 0x00100000,
168 	0x00080000, 0x00040000, 0x00020000, 0x00010000,
169 	0x00008000, 0x00004000, 0x00002000, 0x00001000,
170 	0x00000800, 0x00000400, 0x00000200, 0x00000100,
171 	0x00000080, 0x00000040, 0x00000020, 0x00000010,
172 	0x00000008, 0x00000004, 0x00000002, 0x00000001
175 static const u_char	bits8[8] = { 0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01 };
183 static __thread int		des_initialised = 0;
201 		return(0);  in ascii_to_bin()
205 		return(0);  in ascii_to_bin()
209 		return(0);  in ascii_to_bin()
212 	return(0);  in ascii_to_bin()
221 	old_rawkey0 = old_rawkey1 = 0L;  in des_init()
222 	saltbits = 0L;  in des_init()
223 	old_salt = 0L;  in des_init()
229 	for (i = 0; i < 8; i++)  in des_init()
230 		for (j = 0; j < 64; j++) {  in des_init()
231 			b = (j & 0x20) | ((j & 1) << 4) | ((j >> 1) & 0xf);  in des_init()
239 	for (b = 0; b < 4; b++)  in des_init()
240 		for (i = 0; i < 64; i++)  in des_init()
241 			for (j = 0; j < 64; j++)  in des_init()
250 	for (i = 0; i < 64; i++) {  in des_init()
259 	for (i = 0; i < 56; i++) {  in des_init()
267 	for (i = 0; i < 48; i++) {  in des_init()
275 	for (k = 0; k < 8; k++) {  in des_init()
276 		for (i = 0; i < 256; i++) {  in des_init()
277 			*(il = &ip_maskl[k][i]) = 0L;  in des_init()
278 			*(ir = &ip_maskr[k][i]) = 0L;  in des_init()
279 			*(fl = &fp_maskl[k][i]) = 0L;  in des_init()
280 			*(fr = &fp_maskr[k][i]) = 0L;  in des_init()
281 			for (j = 0; j < 8; j++) {  in des_init()
295 		for (i = 0; i < 128; i++) {  in des_init()
296 			*(il = &key_perm_maskl[k][i]) = 0L;  in des_init()
297 			*(ir = &key_perm_maskr[k][i]) = 0L;  in des_init()
298 			for (j = 0; j < 7; j++) {  in des_init()
309 			*(il = &comp_maskl[k][i]) = 0L;  in des_init()
310 			*(ir = &comp_maskr[k][i]) = 0L;  in des_init()
311 			for (j = 0; j < 7; j++) {  in des_init()
329 	for (i = 0; i < 32; i++)  in des_init()
332 	for (b = 0; b < 4; b++)  in des_init()
333 		for (i = 0; i < 256; i++) {  in des_init()
334 			*(p = &psbox[b][i]) = 0L;  in des_init()
335 			for (j = 0; j < 8; j++) {  in des_init()
354 	saltbits = 0L;  in setup_salt()
356 	obit = 0x800000;  in setup_salt()
357 	for (i = 0; i < 24; i++) {  in setup_salt()
386 		return(0);  in des_setkey()
394 	k0 = key_perm_maskl[0][rawkey0 >> 25]  in des_setkey()
395 	   | key_perm_maskl[1][(rawkey0 >> 17) & 0x7f]  in des_setkey()
396 	   | key_perm_maskl[2][(rawkey0 >> 9) & 0x7f]  in des_setkey()
397 	   | key_perm_maskl[3][(rawkey0 >> 1) & 0x7f]  in des_setkey()
399 	   | key_perm_maskl[5][(rawkey1 >> 17) & 0x7f]  in des_setkey()
400 	   | key_perm_maskl[6][(rawkey1 >> 9) & 0x7f]  in des_setkey()
401 	   | key_perm_maskl[7][(rawkey1 >> 1) & 0x7f];  in des_setkey()
402 	k1 = key_perm_maskr[0][rawkey0 >> 25]  in des_setkey()
403 	   | key_perm_maskr[1][(rawkey0 >> 17) & 0x7f]  in des_setkey()
404 	   | key_perm_maskr[2][(rawkey0 >> 9) & 0x7f]  in des_setkey()
405 	   | key_perm_maskr[3][(rawkey0 >> 1) & 0x7f]  in des_setkey()
407 	   | key_perm_maskr[5][(rawkey1 >> 17) & 0x7f]  in des_setkey()
408 	   | key_perm_maskr[6][(rawkey1 >> 9) & 0x7f]  in des_setkey()
409 	   | key_perm_maskr[7][(rawkey1 >> 1) & 0x7f];  in des_setkey()
413 	shifts = 0;  in des_setkey()
414 	for (round = 0; round < 16; round++) {  in des_setkey()
423 		en_keysl[round] = comp_maskl[0][(t0 >> 21) & 0x7f]  in des_setkey()
424 				| comp_maskl[1][(t0 >> 14) & 0x7f]  in des_setkey()
425 				| comp_maskl[2][(t0 >> 7) & 0x7f]  in des_setkey()
426 				| comp_maskl[3][t0 & 0x7f]  in des_setkey()
427 				| comp_maskl[4][(t1 >> 21) & 0x7f]  in des_setkey()
428 				| comp_maskl[5][(t1 >> 14) & 0x7f]  in des_setkey()
429 				| comp_maskl[6][(t1 >> 7) & 0x7f]  in des_setkey()
430 				| comp_maskl[7][t1 & 0x7f];  in des_setkey()
433 		en_keysr[round] = comp_maskr[0][(t0 >> 21) & 0x7f]  in des_setkey()
434 				| comp_maskr[1][(t0 >> 14) & 0x7f]  in des_setkey()
435 				| comp_maskr[2][(t0 >> 7) & 0x7f]  in des_setkey()
436 				| comp_maskr[3][t0 & 0x7f]  in des_setkey()
437 				| comp_maskr[4][(t1 >> 21) & 0x7f]  in des_setkey()
438 				| comp_maskr[5][(t1 >> 14) & 0x7f]  in des_setkey()
439 				| comp_maskr[6][(t1 >> 7) & 0x7f]  in des_setkey()
440 				| comp_maskr[7][t1 & 0x7f];  in des_setkey()
442 	return(0);  in des_setkey()
455 	if (count == 0) {  in do_des()
457 	} else if (count > 0) {  in do_des()
475 	l = ip_maskl[0][l_in >> 24]  in do_des()
476 	  | ip_maskl[1][(l_in >> 16) & 0xff]  in do_des()
477 	  | ip_maskl[2][(l_in >> 8) & 0xff]  in do_des()
478 	  | ip_maskl[3][l_in & 0xff]  in do_des()
480 	  | ip_maskl[5][(r_in >> 16) & 0xff]  in do_des()
481 	  | ip_maskl[6][(r_in >> 8) & 0xff]  in do_des()
482 	  | ip_maskl[7][r_in & 0xff];  in do_des()
483 	r = ip_maskr[0][l_in >> 24]  in do_des()
484 	  | ip_maskr[1][(l_in >> 16) & 0xff]  in do_des()
485 	  | ip_maskr[2][(l_in >> 8) & 0xff]  in do_des()
486 	  | ip_maskr[3][l_in & 0xff]  in do_des()
488 	  | ip_maskr[5][(r_in >> 16) & 0xff]  in do_des()
489 	  | ip_maskr[6][(r_in >> 8) & 0xff]  in do_des()
490 	  | ip_maskr[7][r_in & 0xff];  in do_des()
503 			r48l	= ((r & 0x00000001) << 23)  in do_des()
504 				| ((r & 0xf8000000) >> 9)  in do_des()
505 				| ((r & 0x1f800000) >> 11)  in do_des()
506 				| ((r & 0x01f80000) >> 13)  in do_des()
507 				| ((r & 0x001f8000) >> 15);  in do_des()
509 			r48r	= ((r & 0x0001f800) << 7)  in do_des()
510 				| ((r & 0x00001f80) << 5)  in do_des()
511 				| ((r & 0x000001f8) << 3)  in do_des()
512 				| ((r & 0x0000001f) << 1)  in do_des()
513 				| ((r & 0x80000000) >> 31);  in do_des()
525 			f = psbox[0][m_sbox[0][r48l >> 12]]  in do_des()
526 			  | psbox[1][m_sbox[1][r48l & 0xfff]]  in do_des()
528 			  | psbox[3][m_sbox[3][r48r & 0xfff]];  in do_des()
542 	*l_out	= fp_maskl[0][l >> 24]  in do_des()
543 		| fp_maskl[1][(l >> 16) & 0xff]  in do_des()
544 		| fp_maskl[2][(l >> 8) & 0xff]  in do_des()
545 		| fp_maskl[3][l & 0xff]  in do_des()
547 		| fp_maskl[5][(r >> 16) & 0xff]  in do_des()
548 		| fp_maskl[6][(r >> 8) & 0xff]  in do_des()
549 		| fp_maskl[7][r & 0xff];  in do_des()
550 	*r_out	= fp_maskr[0][l >> 24]  in do_des()
551 		| fp_maskr[1][(l >> 16) & 0xff]  in do_des()
552 		| fp_maskr[2][(l >> 8) & 0xff]  in do_des()
553 		| fp_maskr[3][l & 0xff]  in do_des()
555 		| fp_maskr[5][(r >> 16) & 0xff]  in do_des()
556 		| fp_maskr[6][(r >> 8) & 0xff]  in do_des()
557 		| fp_maskr[7][r & 0xff];  in do_des()
558 	return(0);  in do_des()
605 		if (*key != '\0')  in crypt_des()
617 		for (i = 1, count = 0L; i < 5; i++)  in crypt_des()
620 		for (i = 5, salt = 0L; i < 9; i++)  in crypt_des()
627 			if (des_cipher((char *)keybuf, (char *)keybuf, 0L, 1))  in crypt_des()
649 		     |  ascii_to_bin(setting[0]);  in crypt_des()
651 		*buffer++ = setting[0];  in crypt_des()
658 		*buffer++ = setting[1] ? setting[1] : setting[0];  in crypt_des()
664 	if (do_des(0L, 0L, &r0, &r1, (int)count))  in crypt_des()
670 	*buffer++ = ascii64[(l >> 18) & 0x3f];  in crypt_des()
671 	*buffer++ = ascii64[(l >> 12) & 0x3f];  in crypt_des()
672 	*buffer++ = ascii64[(l >> 6) & 0x3f];  in crypt_des()
673 	*buffer++ = ascii64[l & 0x3f];  in crypt_des()
675 	l = (r0 << 16) | ((r1 >> 16) & 0xffff);  in crypt_des()
676 	*buffer++ = ascii64[(l >> 18) & 0x3f];  in crypt_des()
677 	*buffer++ = ascii64[(l >> 12) & 0x3f];  in crypt_des()
678 	*buffer++ = ascii64[(l >> 6) & 0x3f];  in crypt_des()
679 	*buffer++ = ascii64[l & 0x3f];  in crypt_des()
682 	*buffer++ = ascii64[(l >> 12) & 0x3f];  in crypt_des()
683 	*buffer++ = ascii64[(l >> 6) & 0x3f];  in crypt_des()
684 	*buffer++ = ascii64[l & 0x3f];  in crypt_des()
685 	*buffer = '\0';  in crypt_des()
687 	return (0);  in crypt_des()