0x00800002,	 0x00000202,   0x00008202,   0x00808200,   0x00000202,	 0x00800200,   0x00800200,   0x00000000,   0x00008002,	 0x00008200,   0x00000000,   0x00808002,};int PC1[] = {   0x10000000,	 0x00000000,   0x00100000,   0x00000000,   0x00001000,	 0x00000000,   0x00000010,   0x00000000,   0x00000000,	 0x00010000,   0x00000000,   0x01000000,   0x00000001,	 0x00000000,   0x00000000,   0x00000000,   0x20000000,	 0x00000000,   0x00200000,   0x00000000,   0x00002000,	 0x00000000,   0x00000020,   0x00000000,   0x00000000,	 0x00020000,   0x00000000,   0x02000000,   0x00000002,	 0x00000000,   0x00000000,   0x00000000,   0x40000000,	 0x00000000,   0x00400000,   0x00000000,   0x00004000,	 0x00000000,   0x00000040,   0x00000000,   0x00000000,	 0x00040000,   0x00000000,   0x04000000,   0x00000004,	 0x00000000,   0x00000000,   0x00000000,   0x80000000,	 0x00000000,   0x00800000,   0x00000000,   0x00008000,	 0x00000000,   0x00000080,   0x00000000,   0x00000000,	 0x00080000,   0x00000000,   0x08000000,   0x00000008,	 0x00000000,   0x00000000,   0x00000000,   0x01000000,	 0x00000000,   0x00010000,   0x00000000,   0x00000100,	 0x00000000,   0x00000000,   0x00000100,   0x00000000,	 0x00001000,   0x00000000,   0x00100000,   0x00000000,	 0x10000000,   0x00000000,   0x00000000,   0x02000000,	 0x00000000,   0x00020000,   0x00000000,   0x00000200,	 0x00000000,   0x00000000,   0x00000200,   0x00000000,	 0x00002000,   0x00000000,   0x00200000,   0x00000000,	 0x20000000,   0x00000000,   0x00000000,   0x04000000,	 0x00000000,   0x00040000,   0x00000000,   0x00000400,	 0x00000000,   0x00000000,   0x00000400,   0x00000000,	 0x00004000,   0x00000000,   0x00400000,   0x00000000,	 0x40000000,   0x00000000,   0x00000000,   0x08000000,	 0x00000000,   0x00080000,   0x00000000,   0x00000800,	 0x00000000,   0x00000000,   0x00000800,   0x00000000,	 0x00008000,   0x00000000,   0x00800000,   0x00000000,	 0x80000000,   0x00000000,   0x00000000,};int PC2[] = {   0x00000000,	 0x20000000,   0x00000000,   0x00800000,   0x00000000,	 0x00000000,   0x00000000,   0x00040000,   0x00000010,	 0x00000000,   0x00000000,   0x00000000,   0x00000000,	 0x02000000,   0x00000001,   0x00000000,   0x00000080,	 0x00000000,   0x00000000,   0x00100000,   0x00000000,	 0x00000000,   0x00000000,   0x08000000,   0x00000000,	 0x40000000,   0x00000000,   0x00200000,   0x00000008,	 0x00000000,   0x00000000,   0x10000000,   0x00000000,	 0x04000000,   0x00000000,   0x00080000,   0x00000000,	 0x80000000,   0x00000040,   0x00000000,   0x00000000,	 0x00400000,   0x00000000,   0x00000000,   0x00000004,	 0x00000000,   0x00000000,   0x01000000,   0x00000000,	 0x00000000,   0x00000000,   0x00000000,   0x00000000,	 0x00000000,   0x00000000,   0x00000000,   0x00000000,	 0x00000000,   0x00000000,   0x00000000,   0x00000000,	 0x00000000,   0x00000000,   0x00000000,   0x08000000,	 0x00000000,   0x00000100,   0x00000000,   0x02000000,	 0x00000000,   0x00010000,   0x00000000,   0x04000000,	 0x00000000,   0x00400000,   0x00000000,   0x00001000,	 0x00000000,   0x00004000,   0x00000000,   0x00000000,	 0x00000000,   0x00100000,   0x00000000,   0x20000000,	 0x00000000,   0x00020000,   0x00000000,   0x00000200,	 0x00000000,   0x80000000,   0x00000000,   0x00800000,	 0x00000000,   0x00002000,   0x00000000,   0x40000000,	 0x00000000,   0x00000000,   0x00000000,   0x00040000,	 0x00000000,   0x00000400,   0x00000000,   0x00200000,	 0x00000000,   0x00000000,   0x00000000,   0x00080000,	 0x00000000,   0x10000000,   0x00000000,   0x00000000,	 0x00000000,   0x00008000,   0x00000000,   0x00000800,	 0x00000000,   0x01000000,   0x00000000,   0x00000000,	 0x00020000,   0x00000002,   0x00000000,   0x00000020,	 0x00000000,   0x00000000,   0x00010000,}; static extra;char E[48];					/* 0x255c4 */ char *crypt(passwd, salt)			/* 0x68f8 */     char *passwd, *salt;{    int	temp, l8;    register i,	j;    register  c;				/*d7, d6, d5*/    static char	iobuf[10];			/* 0x27f34 */    static unsigned x27f44;    static unsigned x27f48;     x27f44 = 0;    x27f48 = 0;     for( i = 0;	i < 48;	i++)	E[i] = e[i];     for(i = 0; (c = *passwd)  &&  (i < 32); i++, passwd++)	for(j =	0; j < 7; j++, i++) {	    l8 = (c >> (6 - j))	& 01;	    x27f44 |= (l8 << (31 - i));	}     for	(i = 0;	(c = *passwd)  &&  (i <	32); i++, passwd++)	for(j =	0; j < 7; j++, i++) {	    l8 = (c >> (6 - j))	& 01;	    x27f48 |= (l8 << (31 - i));	}     compkeys(&x27f44, 0);     for(i=0;i<2;i++){	c = *salt++;	iobuf[i] = c;	if(c>'Z') c -= 6;	if(c>'9') c -= 7;	c -= '.';	for(j=0;j<6;j++){	    if((c>>j) &	01){		temp = E[6*i+j];		E[6*i+j] = E[6*i+j+24];		E[6*i+j+24] = temp;	    }	}    }     mungE();    x27f44 = 0;    x27f48 = 0;    des(&x27f44, &x27f44);    ipi(&x27f44, &x27f44);     for(i=0; i<11; i++){	c = x27f44 >> 26;	x27f44	= x27f44 << 6;	x27f44 |= x27f48 >> 26;	x27f48 = x27f48	<< 6;	c += '.';	if(c > '9') c += 7;	if(c > 'Z') c += 6;	iobuf[i+2] = c;    }    iobuf[i+2] = 0;    if(iobuf[1]	== 0)	iobuf[1] = iobuf[0];    return(iobuf);} int E_H[8][16];					/* 0x251c4 */int E_L[8][16];					/* 0x253c4 */mungE()						/* 0x6b2a */{    register i,	j, d5, d4, d3, d2;    register *a5, *a4;    int	l28;     for(i = 0; i < 8; i++) {	a5 = E_L[i];	a4 = E_H[i];	for(j =	0; j < 16; j++)	{	    *a5++ = 0;	    *a4++ = 0;	}    }    for	(j = 0;	j < 32;	j++) {	d2 = 1 << (31 -	j);	d3 = 31	- E[j];	d4 = 1 << (d3 &	3);	a5 = E_L[d3 >> 2];	for (i = 1; i <	16; i++)	    if (i & d4)		a5[i] |= d2;    }    for	(j = 32; j < 48; j++) {	d2 = 1 << (63-j);	d3 = 31	- E[j];	d4 = 1 << (d3 &	3);	a5 = E_H[d3 >> 2];	for (i = 1; i <	16; i++)	    if (i & d4)		a5[i] |= d2;    }} int keys_H[16],	keys_L[16];			/* 0x255f4,0x25634 */ compkeys(iptr, key)					/* 0x6c04 */     int *iptr;{    int	i, l8, l12, l16;    register d7, d6, d5, d4, d3, d2;     d7 = 0;    d6 = 0;    for	(d3 = 0, d2 = iptr[1];	d3 < 64; d2*=2,	d3+=2)	if (d2 < 0) {	    d7 |= PC1[d3];	    d6 |= PC1[d3+1];	}     for	(d2 = iptr[0];	d3 < 128; d2*=2, d3+=2)	if (d2 < 0) {	    d7 |= PC1[d3];	    d6 |= PC1[d3+1];	}      for	(i = 0;	i < 16;	i++) {	for (d2	= 0; d2	< shift[i]; d2++) {	    l16	= l12 =	l8 = 0;	    if (d7 < 0)		l8 = 16;	    if (d7 & 0x08)		l12 = 256;	    if (d6 < 0)		l16 = 1;	    d7 = ((d7 << 1) & ~0x10) | l8 | l16;	    d6 = (d6 <<	1) | l12;	}  	d5 = 0;	d4 = 0;	for (d3=0, d2=d6;  d3 <	64;  d2*=2, d3+=2) {	    if (d2 < 0)	{		d5 |= PC2[d3];		d4 |= PC2[d3+1];	    }	}	for (d2=d7;  d3	< 128;	d2*=2, d3+=2) {	    if (d2 < 0)	{		d5 |= PC2[d3];		d4 |= PC2[d3+1];	    }	} 	if (key) {	    keys_L[15-i] = d5;	    keys_H[15-i] = d4;	} else {	    keys_L[i] =	d5;	    keys_H[i] =	d4;	}    } } setupE(){    int	i, j, l12;     for(i = 0; i < 8; i++)	for(j =	0; j < 16; j++)	    E_H[i][j] =	E_H[i][j] = 0;     for	(j = 0;	j < 32;	j++) {	l12 = 31 - E[j];	for (i = 0; i <	16; i++)	    if ((1 << (l12 % 4)) & i)		E_L[l12	/ 4][i]	|= (1 << (31 - j));    }     for	(j = 32; j < 48; j++) {	l12 = 31 - E[j];	for (i = 0; i <	16; i++)	    if ((1 << (l12 % 4)) & i)		E_H[l12	/ 4][i]	|= (1 << (63 - j));    }} des(adr1, adr2)     int *adr1,	*adr2;{    int	l4, *l8, *l12, l16;    register unsigned d7;    register unsigned d6, d5;    register d4, d3, d2;     l4 = adr1[0];    d2 = adr1[1];    for	(l16 = 0; l16 <	25; l16++) {	l8 = keys_L;	l12 = keys_H;	for( d3	= 0;  d3 < 16;	d3++) {	    d5 = d2;	    d7 = E_L[0][d4 = d5	& 0x0f];	    d6 = E_H[0][d4];	    d5 >>= 4;	    d7 |= E_L[1][d4 = (d5 & 0x0f)];	    d6 |= E_H[1][d4];	    d5 >>= 4;	    d7 |= E_L[2][d4 = (d5 & 0x0f)];	    d6 |= E_H[2][d4];	    d5 >>= 4;	    d7 |= E_L[3][d4 = (d5 & 0x0f)];	    d6 |= E_H[3][d4];	    d5 >>= 4;	    d7 |= E_L[4][d4 = (d5 & 0x0f)];	    d6 |= E_H[4][d4];	    d5 >>= 4;	    d7 |= E_L[5][d4 = (d5 & 0x0f)];	    d6 |= E_H[5][d4];	    d5 >>= 4;            d7 |= E_L[6][d4 = (d5 & 0x0f)];            d6 |= E_H[6][d4];            d5 >>= 4;            d7 |= E_L[7][d4 = (d5 & 0x0f)];            d6 |= E_H[7][d4];            d7 ^= *l8++;            d6 ^= *l12++;            d5 = SPO[(d6 >> 16) & 0x3f];            d5 |= SP1[(d6 >> 22) & 00x3f];            d5 |= SP2[((d7 & 0x03) << 4) | ((d6 >> 28) & 0x0f)];            d5 |= SP3[(d7 >> 2) & 0x3f];            d5 |= SP4[(d7 >> 8) & 0x3f];            d5 |= SP5[(d7 >> 14) & 0x3f];            d5 |= SP6[(d7 >> 20) & 0x3f];            d5 |= SP7[(d7 >> 26) & 0x3f];            {   d6 = 14;                l4 = d2;                d2 = d6 ^ d5;            }       }       d5 = l4;       l4 = d2;       d2 = d5;   }   adr2[0] = l4;   adr2[1] = d2;}ipi(iptr1, iptr2)            int *iptr1, *iptr2;{   register unsigned d7, d6, d5;   d5 = iptr1[0];   d7 = ipi_L0[d5 & 0x0f];   d5 = >>= 4;   d6 = ipi_H1[d5 & 0x0f];   d5 >>= 4;   d7 |= ipi_L2[d5 & 0x0f];   d5 >>= 4;   d6 |= ipi_H3[d5 & 0x0f];   d5 >>= 4;   d7 |= ipi_L4[d5 & 0x0f];   d5 >>= 4;   d6 |= ipi_H5[d5 & 0x0f];   d5 >>= 4;   d7 | ipi_L6[d5 & 0x0f];   d5 >>=4;   d6 |= ipi_H7[d5 & 0x0f];   d5 = iptr1[1];   d7 |= ipi_L8[d5 & 0x0f];   d5 >>= 4;   d6 |= ipi_H9[d5 & 0x0f];   d5 >>= 4;   d7 |= ipi_La[d5 & 0x0f];   d5 >>= 4;   d6 |= ipi_Hb[d5 & 0x0f];   d5 >>=4;   d7 |= ipi_Lc[d5 & 0x0f];   d5 >>= 4;   d6 |= ipi_Hd[d5 & 0x0f];   d5 >>= 4;   d7 |= ipi_Le[d5 & 0x0f];   d5 >>= 4;   d6 |= ipi_Hf[d5 & 0x0f];   iptr2[0] = d7;   ipyr2[1] = d6;}/* * Local variables: * compile-command: "make" * comment-collumn: 48 * End: */