des.h

des在windows平台下得实现

//相关数据
int ip[] =
{	
	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
};

int fp[] =
{
	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
};
	
int et[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
};

int sBox[8][4][16] = 
{
	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,

	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,

	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,

	 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,

	 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,

	2,  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,

	 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,

	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	
};

int pBox[]	= 
{
	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,
};

int kP1[] = 
{
	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,
	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	
};

int kP2[] =
{
	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,
};

int kR[] =
{
	1,2,4,6,8,10,12,14,15,17,19,21,23,25,27,28
};


//操作
void toBinary(char *in, int *binary)
{
	unsigned int temp[8];
	int i,j;
	for(i=0; i<8; i++)
		temp[i] = (unsigned int)in[i];
	for(i = 0;i < 8;i++)
		for(j = 0;j < 8;j++)
		{
			binary[i*8+j] = temp[i] % 2;
			temp[i] /= 2;
		}
}

void toChar(int *binary, char *out)
{
	int i, j;
	for(i=0; i<8; i++)
	{
		out[i] = 0;
		for(j=7; j>=0;j--)
		{
			out[i] *= 2;
			out[i] += binary[i*8+j];			
		}
	}
}

void initialize(int * binary)
{
	int i;
	int temp[64];
	for(i=0;i<64;i++)
		temp[i] = binary[ip[i]];
	for(i=0;i<64;i++)
		binary[i]=temp[i];
}
		
void extendRight(int *etRight, int *right)
{
	int i;
	for(i=0;i<48;i++)
		etRight[i]= right[et[i]];
}

void initKey(int *key, int *sKey)
{	
	int i;
	for(i=0;i<56;i++)
		sKey[i] = key[kP1[i]];
}

void shift(int *s)
{
	int i,t;
	t = s[0];
	for(i=0; i<27;i++)
		s[i]=s[i+1];
	s[27]=t;

	t = s[28];
	for(i=28; i<55;i++)
		s[i]=s[i+1];
	s[55]=t;
}

void generateKey(int *sKey, int *xKey, int r)
{
	int i;
	shift(sKey);
	if(!(r==1||r==2||r==9||r==16))
		shift(sKey);

	for(i=0;i<48;i++)
		xKey[i] = sKey[kP2[i]];
}

void xor(int *etRight, int *key)
{
	int i;
	for(i=0; i<48;i++)
		etRight[i]==key[i] ? etRight[i]=0 : etRight[i]=1;
}

void substitute(int *etRight, int *right)
{
	int i,j,temp,row,column;
	for(i=0;i<8;i++)
	{
		row = 2*etRight[i*6] + etRight[i*6+5];
		column = 8*etRight[i*6+1] + 4*etRight[i*6+2] + 2*etRight[i*6+3] + etRight[i*6+4];		
		temp = sBox[i][row][column];
		for(j = 3;j >= 0;j--)
		{
			right[i*4+j] = temp % 2;
			temp /= 2;
		}
	}
}

void permute(int *binary)
{
	int i;
	int temp[32];
	for(i=0;i<32;i++)
		temp[i] = binary[pBox[i]];
	for(i=0;i<32;i++)
		binary[i]=temp[i];
}

void swap(int *binary, int *right)
{
	int i;
	int temp[32];
	for(i=0;i<32;i++)
	{
		temp[i] = binary[i];
		binary[i] = binary[i+32];
	}

	for(i=0;i<32;i++)
		binary[i+32] = (temp[i]+right[i]) % 2;
}

void final(int *binary)
{
	int i;
	int temp[64];
	for(i=0;i<64;i++)
		temp[i] = binary[fp[i]];
	for(i=0;i<64;i++)
		binary[i]=temp[i];
}


//加密和解密
void enDes(char * in, char *out, int *key)
{
	int r,i;
	int binary[64], sKey[56], etRight[48], xKey[48];
	int right[32];
	toBinary(in, binary);

	initialize(binary);
	initKey(key, sKey);

	for(r=0; r<16; r++)
	{
		extendRight(etRight, &binary[32]);
		generateKey(sKey, xKey, r+1);
		xor(etRight, xKey);
		substitute(etRight, right);
		permute(right);
		if(r!=15)
			swap(binary, right);
		else
			for(i=0;i<32;i++)
				binary[i] = (binary[i]+right[i] ) % 2;
	}
	final(binary);

	toChar(binary, out);
}

void deDes(char *in, char *out, int *key)
{
	int r,i;
	int binary[64], sKey[56], etRight[48], xKey[16][48];
	int right[32];
	toBinary(in, binary);
	initialize(binary);
	initKey(key, sKey);
	for(i=0; i<16; i++)
		generateKey(sKey, xKey[i], i+1);

	for(r=0; r<16; r++)
	{
		extendRight(etRight, &binary[32]);
		xor(etRight, xKey[15-r]);
		substitute(etRight, right);
		permute(right);
		if(r!=15)
			swap(binary, right);
		else
			for(i=0;i<32;i++)
				binary[i] = (binary[i]+right[i] ) % 2;
	}
	final(binary);

	toChar(binary, out);
}


////////////////////////////////////////////////////////////////////////////////////////////////
//                                         Interface                                          //
////////////////////////////////////////////////////////////////////////////////////////////////
#include "iostream.h"
#include "stdio.h"
int *enKey;
void encypher(char *iPath, char *oPath)
{
	FILE *fpPlain, *fpCipher;
	int flag=1,i;
	char in[8], out[8];
	fpPlain = fopen(iPath, "rb");
	fpCipher = fopen(oPath, "wb");

	cout<<"Encrypting............................";
	do
	{
		if((i=fread(in,1,8,fpPlain))<8)
			flag=0;
		while(i<8)
		{
			in[i]=' ';
			i++;
		}
		enDes(in, out, enKey);
		fwrite(out,1,8,fpCipher);
	}while(flag);

	fclose(fpPlain);
	fclose(fpCipher);
	cout<<"\bOK!"<<endl;	
}

void decypher(char *iPath, char *oPath)
{
	FILE *fpCipher, *fpPlain;
	int flag=1;
	char in[8], out[8];

	fpCipher = fopen(iPath, "rb");
	fpPlain = fopen(oPath, "wb");

	int t=0;
	cout<<"Decrypting............................";
	do
	{
		
		int i;
		if(((t/2000)%4)==0)
		{
			cout<<"\b\\";
			t++;
		}
		else if(((t/2000)%4)==1)
		{
			cout<<"\b|";
			t++;
		}
		else if(((t/2000)%4)==2)
		{
			cout<<"\b/";
			t++;
		}
		else if(((t/2000)%4)==3)
		{
			cout<<"\b-";
			t++;
		}
		if(feof(fpCipher))
			flag = 0;
		
		for(i=0; i<8; i++)
			in[i] = getc(fpCipher);

		deDes(in, out, enKey);
		for(i=0; i<8; i++)
			putc(out[i],fpPlain);

	}while(flag);

	fclose(fpPlain);
	fclose(fpCipher);
	cout<<"\bOK!"<<endl;	
}

void setKey(int *oKey)
{
	enKey = oKey;
}