des.zip_3des

byte ip_table[64] = { 57, 49, 41, 33, 25, 17, 9, 1, 59, 51, 43, 35, 27, 19, 11, 3, 61, 53, 45, 37, 29, 21, 13, 5, 63, 55, 47, 39, 31, 23, 15, 7, 56, 48, 40, 32, 24, 16, 8, 0, 58, 50, 42, 34, 26, 18, 10, 2, 60, 52, 44, 36, 28, 20, 12, 4, 62, 54, 46, 38, 30, 22, 14, 6}; byte inv_ip_table[64] = { 39, 7, 47, 15, 55, 23, 63, 31, 38, 6, 46, 14, 54, 22, 62, 30, 37, 5, 45, 13, 53, 21, 61, 29, 36, 4, 44, 12, 52, 20, 60, 28, 35, 3, 43, 11, 51, 19, 59, 27, 34, 2, 42, 10, 50, 18, 58, 26, 33, 1, 41, 9, 49, 17, 57, 25, 32, 0, 40, 8, 48, 16, 56, 24}; byte exp_table[48] = { 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}; byte perm_table[48] = { 15, 6, 19, 20, 28, 11, 27, 16, 0, 14, 22, 25, 4, 17, 30, 9, 1, 7, 23, 13, 31, 26, 2, 8, 18, 12, 29, 5, 21, 10, 3, 24}; byte perm_choice1_C[28] = { 56, 48, 40, 32, 24, 16, 8, 0, 57, 49, 41, 33, 25, 17, 9, 1, 58, 50, 42, 34, 26, 18, 10, 2, 59, 51, 43, 35}; byte perm_choice1_D[28] = { 62, 54, 46, 38, 30, 22, 14, 6, 61, 53, 45, 37, 29, 21, 13, 5, 60, 52, 44, 36, 28, 20, 12, 4, 27, 19, 11, 3}; byte perm_choice2[48] = { 13, 16, 10, 23, 0, 4, 2, 27, 14, 5, 20, 9, 22, 18, 11, 3, 25, 7, 15, 6, 26, 19, 12, 1, 40, 51, 30, 36, 46, 54, 29, 39, 50, 44, 32, 47, 43, 48, 38, 55, 33, 52, 45, 41, 49, 35, 28, 31}; byte shifts_table[16] = { 1,1,2,2,2,2,2,2,1,2,2,2,2,2,2,1}; byte sel_table[512] = { /* s1 */ 14, 4, 13, 1, 2, 15, 11, 8, 3, 10, 6, 12, 5, 9, 0, 7, 0, 15, 7, 4, 14, 2, 13, 1, 10, 6, 12, 11, 9, 5, 3, 8, 4, 1, 14, 8, 13, 6, 2, 11, 15, 12, 9, 7, 3, 10, 5, 0, 15, 12, 8, 2, 4, 9, 1, 7, 5, 11, 3, 14, 10, 0, 6, 13, /* s2 */ 15, 1, 8, 14, 6, 11, 3, 4, 9, 7, 2, 13, 12, 0, 5, 10, 3, 13, 4, 7, 15, 2, 8, 14, 12, 0, 1, 10, 6, 9, 11, 5, 0, 14, 7, 11, 10, 4, 13, 1, 5, 8, 12, 6, 9, 3, 2, 15, 13, 8, 10, 1, 3, 15, 4, 2, 11, 6, 7, 12, 0, 5, 14, 9, /* s3 */ 10, 0, 9, 14, 6, 3, 15, 5, 1, 13, 12, 7, 11, 4, 2, 8, 13, 7, 0, 9, 3, 4, 6, 10, 2, 8, 5, 14, 12, 11, 15, 1, 13, 6, 4, 9, 8, 15, 3, 0, 11, 1, 2, 12, 5, 10, 14, 7, 1, 10, 13, 0, 6, 9, 8, 7, 4, 15, 14, 3, 11, 5, 2, 12, /* s4 */ 7, 13, 14, 3, 0, 6, 9, 10, 1, 2, 8, 5, 11, 12, 4, 15, 13, 8, 11, 5, 6, 15, 0, 3, 4, 7, 2, 12, 1, 10, 14, 9, 10, 6, 9, 0, 12, 11, 7, 13, 15, 1, 3, 14, 5, 2, 8, 4, 3, 15, 0, 6, 10, 1, 13, 8, 9, 4, 5, 11, 12, 7, 2, 14, /* s5 */ 2, 12, 4, 1, 7, 10, 11, 6, 8, 5, 3, 15, 13, 0, 14, 9, 14, 11, 2, 12, 4, 7, 13, 1, 5, 0, 15, 10, 3, 9, 8, 6, 4, 2, 1, 11, 10, 13, 7, 8, 15, 9, 12, 5, 6, 3, 0, 14, 11, 8, 12, 7, 1, 14, 2, 13, 6, 15, 0, 9, 10, 4, 5, 3, /* s6 */ 12, 1, 10, 15, 9, 2, 6, 8, 0, 13, 3, 4, 14, 7, 5, 11, 10, 15, 4, 2, 7, 12, 9, 5, 6, 1, 13, 14, 0, 11, 3, 8, 9, 14, 15, 5, 2, 8, 12, 3, 7, 0, 4, 10, 1, 13, 11, 6, 4, 3, 2, 12, 9, 5, 15, 10, 11, 14, 1, 7, 6, 0, 8, 13, /* s7 */ 4, 11, 2, 14, 15, 0, 8, 13, 3, 12, 9, 7, 5, 10, 6, 1, 13, 0, 11, 7, 4, 9, 1, 10, 14, 3, 5, 12, 2, 15, 8, 6, 1, 4, 11, 13, 12, 3, 7, 14, 10, 15, 6, 8, 0, 5, 9, 2, 6, 11, 13, 8, 1, 4, 10, 7, 9, 5, 0, 15, 14, 2, 3, 12, /* s8 */ 13, 2, 8, 4, 6, 15, 11, 1, 10, 9, 3, 14, 5, 0, 12, 7, 1, 15, 13, 8, 10, 3, 7, 4, 12, 5, 6, 11, 0, 14, 9, 2, 7, 11, 4, 1, 9, 12, 14, 2, 0, 6, 10, 13, 15, 3, 5, 8, 2, 1, 14, 7, 4, 10, 8, 13, 15, 12, 9, 0, 3, 5, 6, 11}; byte bitmapx[64] = { 0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01, 0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01, 0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01, 0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01, 0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01, 0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01, 0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01, 0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01}; byte perm_keys[16][6]; byte key[8] /*= {0x012,0x34,0x45,0x67,0x89,0xab,0xcd,0xef}*/; byte card_data[9] /*= {0x68,0x65,0x20,0x74,0x69,0x6d,0x65,0x20,0}*/; byte card_data1[9]; void do_ip(byte *input, byte *output, byte *table); void function_rk(byte *input, byte *output, byte *key); void rotate(byte* ptr, byte times); void gen_keys(void); void cipher(byte *input, byte *output, byte mode); void DES(byte *dg,byte *key_ptr); void DESDEC(byte *dg,byte *key_ptr); void _DES(byte *dg,byte *key_ptr); unsigned long MACC( unsigned long ltyp,byte *ptyp, // 类型 PBOC unsigned long lkey,byte *pkey, // 密钥 unsigned long lini,byte *pini, // 初始值 unsigned long lrnd,byte *prnd, // 随机数 unsigned long ldat,byte *pdat, // mac原始数据 unsigned long lmac,byte *pmac // mac结果 为了反向计算检验,结果为8字节 ); /********************************************************************** function : Performs 'Initial Permutation' on input data block. input : Pointer to first of 4 input words (64 bits), pointer to first of 4 output words, pointer to bit-translation table. output : none. call by : user **********************************************************************/ void do_ip(byte *input, byte *output, byte *table){ byte i,j; for (i=0; i<8; i++) output[i] = 0; /* clear output array area */ for (i=0; i<64; i++) { j = table[i]; if (input[j>>3] & bitmapx[j]) output[i>>3] |= bitmapx[i]; /* set bit if needed */ } } /* do_ip() */ /********************************************************************** function : Performs 'Cipher Function f' on input data block. input : Pointer to first of 2 input words (32 bits), pointer to first of 2 output words, pointer to 3 word permuted key (48 bits). output : none. call by : user **********************************************************************/ void function_rk(byte *input, byte *output, byte *key){ byte temp[6]; byte hold[4]; register byte i; byte row, column; byte bits; for (i=0; i<6; i++) temp[i] = 0; /* clear temp array area */ output[0] = output[1] = output[2] = output[3] = 0; /* clear output words */ /* expand 32 bit input */ for (i=0; i<48; i++){ row = exp_table[i]; if (input[row>>3] & bitmapx[row]) temp[i>>3] |= bitmapx[i]; /* set bit if needed */ } /* XOR expanded data with permuted key */ for (i=0; i<6; i++) temp[i] ^= key[i]; /* calc 'select functions' */ hold[0] = hold[1] = hold[2] = hold[3] = 0; for (i=0; i<8; i++){ row = 0; switch (i){ case 0: if (temp[0] & 0x80) row = 2; if (temp[0] & 0x04) row++; column = (byte)((temp[0] & 0x78)>>3); break; case 1: if (temp[0] & 0x02) row = 2; if (temp[1] & 0x10) row++; column = (byte)((temp[1] & 0xe0) >> 5); if (temp[0] & 0x01) column += 8; break; case 2: if (temp[1] & 0x08) row = 2; if (temp[2] & 0x40) row++; column = (byte)((temp[1] & 0x07) << 1); if (temp[2] & 0x80) column++; break; case 3: if (temp[2] & 0x20) row = 2; if (temp[2] & 0x01) row++; column = (byte)((temp[2] & 0x1e) >> 1); break; case 4: if (temp[3] & 0x80) row = 2; if (temp[3] & 0x04) row++; column = (byte)((temp[3] & 0x78)>>3); break; case 5: if (temp[3] & 0x02) row = 2; if (temp[4] & 0x10) row++; column = (byte)((temp[4] & 0xe0) >> 5); if (temp[3] & 0x01) column += 8; break; case 6: if (temp[4] & 0x08) row = 2; if (temp[5] & 0x40) row++; colum