des.cpp

DES加密解密的源码,我对其进行了封装与处理,很好用.

#include "stdafx.h"
#include "des.h"
#include "iostream.h"
#include "string.h"
#include "iostream.h"
#include "stdio.h"
#include <stdlib.h> 

int *enKey;
char keyString[8];
int key[64];
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,
};

static 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);
void toChar(int *binary, char *out);
void initialize(int * binary);	
void extendRight(int *etRight, int *right);
void initKey(int *key, int *sKey);
void shift(int *s);
void generateKey(int *sKey, int *xKey, int r);
void xor(int *etRight, int *key);
void substitute(int *etRight, int *right);
void permute(int *binary);
void swap(int *binary, int *right);
void final(int *binary);
void enDes(char * in, char *out, int *key);
void deDes(char *in, char *out, int *key);
void setKey(int *oKey);
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,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);
}
void setKey(int *oKey)
{
	enKey = oKey;
}

int DesEnc(char *e_instr,char *&e_outstr,char *keyStr,int len)
{
	toBinary(keyStr, key);
	setKey(key);
	FILE *fpPlain, *fpCipher,*f;
	char *iPath,*oPath;
	iPath="temp_in";
	oPath="temp.out";
	f=fopen(iPath,"wb");
	if(NULL==f)
	{
		return -1;
	}
	else
	{
		fprintf(f,e_instr);
		fclose(f);
	}

	int flag=1;
	char in[8], out[8];
	

	fpPlain = fopen(iPath, "rb");
	if(NULL==fpPlain)return -2;
	fpCipher = fopen(oPath, "wb");
	if(NULL==fpCipher)return -3;
	int t=0;
	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++;
		}	
		for(i=0; i<8; i++)
		{
			if(!feof(fpPlain))
				in[i] = getc(fpPlain);
			else 
			{
				flag = 0;
				break;
			}
		}

		while(i<8)
		{
			in[i]=' ';
			i++;
		}
		enDes(in, out, enKey);
		for(i=0; i<8; i++)
			putc(out[i], fpCipher);
	}while(flag);

	fclose(fpPlain);
	fclose(fpCipher);
	
	f=fopen(oPath,"rb");
	if(NULL==f)return -4;
	fread(e_outstr,sizeof(char)*len,1,f);
	fclose(f);
	remove(iPath);
	remove(oPath);
	return 0;
}

int DesDec(char *d_instr,char *&d_outstr,char *keyStr,int len)
{
	toBinary(keyStr, key);
	setKey(key);
	FILE *fpPlain, *fpCipher,*f;
	char *iPath,*oPath;
	iPath="temp_in";
	oPath="temp.out";
	f=fopen(iPath,"wb");
	if(NULL==f)return -1;
	fprintf(f,d_instr);
	fclose(f);
	int flag=1;
	char in[8], out[8];

	fpCipher = fopen(iPath, "rb");
	if(fpCipher==NULL)return -2;
	fpPlain = fopen(oPath, "wb");
	if(fpPlain==NULL)return -3;
	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);
	f=fopen(oPath,"rb");
	if(NULL==f)return -4;
	fread(d_outstr,sizeof(char)*len,1,f);
	fclose(f);
	remove(iPath);
	remove(oPath);
	return 0;
}