#include"stdio.h"
void endes(unsigned char a[8], unsigned char b[8], unsigned char c[8]) ;
void undes(unsigned char a[8], unsigned char b[8], unsigned char c[8]) ;
unsigned char *byte2bit(unsigned char a[8], unsigned char b[8]) ;
unsigned char *bit2byte(unsigned char a[8], unsigned char b[8]) ;
void keychange(unsigned char x[8], unsigned char y[16][8]) ;
void s_replace(unsigned char a[8]) ;


void main()
{
/*Sample Data*/
unsigned char m_bit[9]={'J','i','n','h','o','n','d','a','g'} ;/*uncode初始化*/
unsigned char k_bit[9]={'g','o','o','d','l','u','c','k','f'} ; /*key初始化*/
unsigned char e_bit[9]={0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0} ;/*encode初始化*/
/*Sample Data*/
int i=0 ;

printf("\nThis is a sample for DES function by 金洪達 2006/9/5") ;
printf("請輸入您想要加密的8個字符，按回車確認:\n");
scanf("%s",m_bit);
printf("請輸入您的密鑰8個字符，按回車確認:\n");
scanf("%s",k_bit);
printf("\nPassword is : %s", k_bit) ;
printf("\nUncryption Data:") ;
for(i=0 ; i<=7 ; i++) printf("%c",m_bit[i]) ;

endes(m_bit , k_bit , e_bit) ;

printf("\nEncryption Data:") ;
for(i=0 ; i<=7 ; i++) 
	printf("%c",e_bit[i]) ;
/*clear m_bit*/
for(i=0 ; i<=7 ; i++) 
	m_bit[i] = 0x0 ;

undes(e_bit , k_bit , m_bit) ;

printf("\nUncryption Data:") ;
for(i=0 ; i<=7 ; i++) 
	printf("%c",m_bit[i]) ;
printf("\n");
}/*end of main sample*/

/*---下面是函數的定義---*/

unsigned char *byte2bit(unsigned char byte[64] , unsigned char bit[8])
/*change 64byte to 64bit(8byte)*/
{
int i = 0 ;

 /*byte1*/
 for(i = 0;i <= 7;i++)
 {
  if(byte[0] == 0x1) bit[0] = bit[0] | 0x80 ;
  else bit[0] = bit[0] & 0x7f ;
  if(byte[1] == 0x1) bit[0] = bit[0] | 0x40 ;
  else bit[0] = bit[0] & 0xbf ;
  if(byte[2] == 0x1) bit[0] = bit[0] | 0x20 ;
  else bit[0] = bit[0] & 0xdf ;
  if(byte[3] == 0x1) bit[0] = bit[0] | 0x10 ;
  else bit[0] = bit[0] & 0xef ;
  if(byte[4] == 0x1) bit[0] = bit[0] | 0x08 ;
  else bit[0] = bit[0] & 0xf7 ;
  if(byte[5] == 0x1) bit[0] = bit[0] | 0x04 ;
  else bit[0] = bit[0] & 0xfb ;
  if(byte[6] == 0x1) bit[0] = bit[0] | 0x02 ;
  else bit[0] = bit[0] & 0xfd ;
  if(byte[7] == 0x1) bit[0] = bit[0] | 0x01 ;
  else bit[0] = bit[0] & 0xfe ;
 }
 /*byte2*/
 for(i = 8;i <= 15;i++)
 {
  if(byte[8] == 0x1) bit[1] = bit[1] | 0x80 ;
  else bit[1] = bit[1] & 0x7f ;
  if(byte[9] == 0x1) bit[1] = bit[1] | 0x40 ;
  else bit[1] = bit[1] & 0xbf ;
  if(byte[10] == 0x1) bit[1] = bit[1] | 0x20 ;
  else bit[1] = bit[1] & 0xdf ;
  if(byte[11] == 0x1) bit[1] = bit[1] | 0x10 ;
  else bit[1] = bit[1] & 0xef ;
  if(byte[12] == 0x1) bit[1] = bit[1] | 0x08 ;
  else bit[1] = bit[1] & 0xf7 ;
  if(byte[13] == 0x1) bit[1] = bit[1] | 0x04 ;
  else bit[1] = bit[1] & 0xfb ;
  if(byte[14] == 0x1) bit[1] = bit[1] | 0x02 ;
  else bit[1] = bit[1] & 0xfd ;
  if(byte[15] == 0x1) bit[1] = bit[1] | 0x01 ;
  else bit[1] = bit[1] & 0xfe ;
 }
 /*byte3*/
 for(i = 16;i <= 23 ;i++)
 {
  if(byte[16] == 0x1) bit[2] = bit[2] | 0x80 ;
  else bit[2] = bit[2] & 0x7f ;
  if(byte[17] == 0x1) bit[2] = bit[2] | 0x40 ;
  else bit[2] = bit[2] & 0xbf ;
  if(byte[18] == 0x1) bit[2] = bit[2] | 0x20 ;
  else bit[2] = bit[2] & 0xdf ;
  if(byte[19] == 0x1) bit[2] = bit[2] | 0x10 ;
  else bit[2] = bit[2] & 0xef ;
  if(byte[20] == 0x1) bit[2] = bit[2] | 0x08 ;
  else bit[2] = bit[2] & 0xf7 ;
  if(byte[21] == 0x1) bit[2] = bit[2] | 0x04 ;
  else bit[2] = bit[2] & 0xfb ;
  if(byte[22] == 0x1) bit[2] = bit[2] | 0x02 ;
  else bit[2] = bit[2] & 0xfd ;
  if(byte[23] == 0x1) bit[2] = bit[2] | 0x01 ;
  else bit[2] = bit[2] & 0xfe ;
 }
 /*byte4*/
 for(i = 24;i <= 31 ;i++)
 {
  if(byte[24] == 0x1) bit[3] = bit[3] | 0x80 ;
  else bit[3] = bit[3] & 0x7f ;
  if(byte[25] == 0x1) bit[3] = bit[3] | 0x40 ;
  else bit[3] = bit[3] & 0xbf ;
  if(byte[26] == 0x1) bit[3] = bit[3] | 0x20 ;
  else bit[3] = bit[3] & 0xdf ;
  if(byte[27] == 0x1) bit[3] = bit[3] | 0x10 ;
  else bit[3] = bit[3] & 0xef ;
  if(byte[28] == 0x1) bit[3] = bit[3] | 0x08 ;
  else bit[3] = bit[3] & 0xf7 ;
  if(byte[29] == 0x1) bit[3] = bit[3] | 0x04 ;
  else bit[3] = bit[3] & 0xfb ;
  if(byte[30] == 0x1) bit[3] = bit[3] | 0x02 ;
  else bit[3] = bit[3] & 0xfd ;
  if(byte[31] == 0x1) bit[3] = bit[3] | 0x01 ;
  else bit[3] = bit[3] & 0xfe ;
 }
 /*byte5*/
 for(i = 32;i <= 39 ;i++)
 {
  if(byte[32] == 0x1) bit[4] = bit[4] | 0x80 ;
  else bit[4] = bit[4] & 0x7f ;
  if(byte[33] == 0x1) bit[4] = bit[4] | 0x40 ;
  else bit[4] = bit[4] & 0xbf ;
  if(byte[34] == 0x1) bit[4] = bit[4] | 0x20 ;
  else bit[4] = bit[4] & 0xdf ;
  if(byte[35] == 0x1) bit[4] = bit[4] | 0x10 ;
  else bit[4] = bit[4] & 0xef ;
  if(byte[36] == 0x1) bit[4] = bit[4] | 0x08 ;
  else bit[4] = bit[4] & 0xf7 ;
  if(byte[37] == 0x1) bit[4] = bit[4] | 0x04 ;
  else bit[4] = bit[4] & 0xfb ;
  if(byte[38] == 0x1) bit[4] = bit[4] | 0x02 ;
  else bit[4] = bit[4] & 0xfd ;
  if(byte[39] == 0x1) bit[4] = bit[4] | 0x01 ;
  else bit[4] = bit[4] & 0xfe ;
 }
 /*byte6*/
 for(i = 40;i <= 47 ;i++)
 {
  if(byte[40] == 0x1) bit[5] = bit[5] | 0x80 ;
  else bit[5] = bit[5] & 0x7f ;
  if(byte[41] == 0x1) bit[5] = bit[5] | 0x40 ;
  else bit[5] = bit[5] & 0xbf ;
  if(byte[42] == 0x1) bit[5] = bit[5] | 0x20 ;
  else bit[5] = bit[5] & 0xdf ;
  if(byte[43] == 0x1) bit[5] = bit[5] | 0x10 ;
  else bit[5] = bit[5] & 0xef ;
  if(byte[44] == 0x1) bit[5] = bit[5] | 0x08 ;
  else bit[5] = bit[5] & 0xf7 ;
  if(byte[45] == 0x1) bit[5] = bit[5] | 0x04 ;
  else bit[5] = bit[5] & 0xfb ;
  if(byte[46] == 0x1) bit[5] = bit[5] | 0x02 ;
  else bit[5] = bit[5] & 0xfd ;
  if(byte[47] == 0x1) bit[5] = bit[5] | 0x01 ;
  else bit[5] = bit[5] & 0xfe ;
 }
 /*byte7*/
 for(i = 48;i <= 55 ;i++)
 {
  if(byte[48] == 0x1) bit[6] = bit[6] | 0x80 ;
  else bit[6] = bit[6] & 0x7f ;
  if(byte[49] == 0x1) bit[6] = bit[6] | 0x40 ;
  else bit[6] = bit[6] & 0xbf ;
  if(byte[50] == 0x1) bit[6] = bit[6] | 0x20 ;
  else bit[6] = bit[6] & 0xdf ;
  if(byte[51] == 0x1) bit[6] = bit[6] | 0x10 ;
  else bit[6] = bit[6] & 0xef ;
  if(byte[52] == 0x1) bit[6] = bit[6] | 0x08 ;
  else bit[6] = bit[6] & 0xf7;
  if(byte[53] == 0x1) bit[6] = bit[6] | 0x04 ;
  else bit[6] = bit[6] & 0xfb ;
  if(byte[54] == 0x1) bit[6] = bit[6] | 0x02 ;
  else bit[6] = bit[6] & 0xfd ;
  if(byte[55] == 0x1) bit[6] = bit[6] | 0x01 ;
  else bit[6] = bit[6] & 0xfe ;
 }
 /*byte8*/
 for(i = 56;i <= 63 ;i++)
 {
  if(byte[56] == 0x1) bit[7] = bit[7] | 0x80 ;
  else bit[7] = bit[7] & 0x7f ;
  if(byte[57] == 0x1) bit[7] = bit[7] | 0x40 ;
  else bit[7] = bit[7] & 0xbf ;
  if(byte[58] == 0x1) bit[7] = bit[7] | 0x20 ;
  else bit[7] = bit[7] & 0xdf ;
  if(byte[59] == 0x1) bit[7] = bit[7] | 0x10 ;
  else bit[7] = bit[7] & 0xef ;
  if(byte[60] == 0x1) bit[7] = bit[7] | 0x08 ;
  else bit[7] = bit[7] & 0xf7 ;
  if(byte[61] == 0x1) bit[7] = bit[7] | 0x04 ;
  else bit[7] = bit[7] & 0xfb ;
  if(byte[62] == 0x1) bit[7] = bit[7] | 0x02 ;
  else bit[7] = bit[7] & 0xfd ;
  if(byte[63] == 0x1) bit[7] = bit[7] | 0x01 ;
  else bit[7] = bit[7] & 0xfe ;
 }
 return bit ;
}/*end of byte2bit*/

/*----------------------------------------------------*/
/*                     bit2byte                       */
/*----------------------------------------------------*/
unsigned char *bit2byte(unsigned char bit[8] , unsigned char byte[64])
/*change 64bit(8byte) to 64byte*/
{
int i=0 ;

 for(i=0 ; i<=63 ; i++)
 {
  byte[i] = 0x0 ;
 }
 for(i=0 ; i<=7 ; i++)
 {
  if((bit[i] & 0x80) == 0x80) byte[i*8+0] = 0x01 ;
  if((bit[i] & 0x40) == 0x40) byte[i*8+1] = 0x01 ;
  if((bit[i] & 0x20) == 0x20) byte[i*8+2] = 0x01 ;
  if((bit[i] & 0x10) == 0x10) byte[i*8+3] = 0x01 ;
  if((bit[i] & 0x08) == 0x08) byte[i*8+4] = 0x01 ;
  if((bit[i] & 0x04) == 0x04) byte[i*8+5] = 0x01 ;
  if((bit[i] & 0x02) == 0x02) byte[i*8+6] = 0x01 ;
  if((bit[i] & 0x01) == 0x01) byte[i*8+7] = 0x01 ;
 }
 return byte;
}/* end of bit2byte */


 /*--------------------------------------------------*/
/*                  change the key                  */
/*--------------------------------------------------*/
void keychange(unsigned char oldkey[8] , unsigned char newkey[16][8])
{
int i=0,j=0,k=0 ;
int pc_1[56] = {57,49,41,33,25,17,9,
  1,58,50,42,34,26,18,
  10,2,59,51,43,35,27,
  19,11,3,60,52,44,36,
  63,55,47,39,31,23,15,
  7,62,54,46,38,30,22,
  14,6,61,53,45,37,29,
  21,13,5,28,20,12,4} ;
int pc_2[48] = {14,17,11,24,1,5,
  3,28,15,6,21,10,
  23,19,12,4,26,8,
  16,7,27,20,13,2,
  41,52,31,37,47,55,
  30,40,51,45,33,48,
  44,49,39,56,34,53,
  46,42,50,36,29,32} ;
int ccmovebit[16] = {1,1,2,2,2,2,2,2,1,2,2,2,2,2,2,1} ;
unsigned char oldkey_byte[64] ;
unsigned char oldkey_byte1[64] ;
unsigned char oldkey_byte2[64] ;
unsigned char oldkey_c[28] ;
unsigned char oldkey_d[28] ;
unsigned char cc_temp ;
unsigned char newkey_byte[16][64] ;

bit2byte(oldkey,oldkey_byte) ;/*change to byte*/
for(i=0;i<=55;i++) oldkey_byte1[i] = oldkey_byte[pc_1[i] - 1] ;/*goto PC-1*/
for(i=0;i<=27;i++) oldkey_c[i] = oldkey_byte1[i] ;/*move 28bit -> c0*/
for(i=28;i<=55;i++) oldkey_d[i -28] = oldkey_byte1[i] ;/*move other 28bit -> d0*/

/*cc_movebit : get c1-16,d1-16*/
for(i=0;i<=15;i++)
{
 for(j=1;j<=ccmovebit[i];j++)
 {
  cc_temp = oldkey_c[0] ; /*move out the first bit*/
  for(k=0;k<=26;k++)
  {
   oldkey_c[k] = oldkey_c[k+1] ;
  }
  oldkey_c[27] = cc_temp ; /*move the first bit to the last bit*/

  cc_temp = oldkey_d[0] ; /*move out the first bit*/
                for(k=0;k<=26;k++)
  {
   oldkey_d[k] = oldkey_d[k+1] ;
  }
  oldkey_d[27] = cc_temp ; /*move the first bit to the last bit*/
 }  /*cc_movebit*/
 /*goto pc-2 change bit*/
 for(k=0;k<=27;k++) oldkey_byte2[k] = oldkey_c[k] ;
 for(k=28;k<=55;k++) oldkey_byte2[k] = oldkey_d[k-28] ;
 /*add c(i)+d(i) -> for pc-2 change 56bit to 48bit k(i)*/
 for(k=0;k<=47;k++) newkey_byte[i][k] = oldkey_byte2[pc_2[k] - 1] ;

 /*ready to next k(i)*/
}/*end of one of change the 48bit key*/
/*byte to bit for 48bit newkey*/
for(i=0;i<=15;i++) byte2bit(newkey_byte[i],newkey[i]) ;
}/*end of keychange*/


/*--------------------------------------------------*/
/*                  data encryption                 */
/*--------------------------------------------------*/
void endes(unsigned char m_bit[8] , unsigned char k_bit[8] , unsigned char e_bit[8])
{
int ip[64] = {  58,50,42,34,26,18,10,2,
  60,52,44,36,28,20,12,4,
  62,54,46,38,30,22,14,6,
  64,56,48,40,32,24,16,8,
  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