mydes.cpp

Visual C++ 实现DES算法

// MyDes.cpp : implementation file
//

#include "stdafx.h"
#include "DES.h"
#include "MyDes.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif


/////////////////////////////////////////////////////////////////////////////
// MyDes

IMPLEMENT_DYNCREATE(CMyDes, CCmdTarget)

CMyDes::CMyDes()
{
}

CMyDes::~CMyDes()
{
}


BEGIN_MESSAGE_MAP(CMyDes, CCmdTarget)
	//{{AFX_MSG_MAP(MyDes)
		// NOTE - the ClassWizard will add and remove mapping macros here.
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// MyDes message handlers



CString CMyDes::DecryStrHex(CString StrHex,CString Key)
{
	CString Str,Temp;
	int I,StrHexLen;
	StrHexLen = strlen(StrHex);
	Str.Empty();
	for (I=0;I<(StrHexLen / 2);I++)
	{
		Temp.Empty();
		Temp = Temp +StrHex[(I * 2)];
		Temp = Temp +StrHex[(I * 2+1)];
		
		Str = Str + (char)(HexToByte(Temp));
	}

  return DecryStr(Str, Key);


}

CString CMyDes::DecryStr(CString Str, CString Key)
{ 
	BYTE KeyByte[8],StrByte[8],OutByte[8];
	CString StrResult;
	
	int J,I;
	//不足八个字符的密码补齐
	while (strlen(Key)<8) {
		Key = Key + ' ';
		};
	for (J=0;J<8;J++)
		KeyByte[J] = Key[J];
	makeKey(KeyByte,subKey);
	
	for (I = 0; I<(int)(strlen(Str))/8;I++)
	{
		for (J=0;J<8;J++)
			StrByte[J] = Str[I * 8 + J];
		desData(dmDecry, StrByte, OutByte);
		for (J=0;J<8;J++) 
		StrResult = StrResult + (char)OutByte[J];

	}
	

	return StrResult;

}

void CMyDes::makeKey(BYTE inkey[], KEYBYTE outkey[])
{
	//左移次数的规定
	const BYTE bitDisplace[16] = { 1,1,2,2, 2,2,2,2, 1,2,2,2, 2,2,2,1 };
	BYTE outData56[7],outkey56[7];
	BYTE key28l[4],key28r[4];
	int  j,i;

	permutationChoose1(inkey,outData56);

	key28l[0] = outData56[0] >> 4;
	key28l[1] = (outData56[0] << 4) | (outData56[1] >> 4);
	key28l[2] = (outData56[1] << 4) | (outData56[2] >> 4);
	key28l[3] = (outData56[2] << 4) | (outData56[3] >> 4);
	key28r[0] = outData56[3] & 0x0f;
	key28r[1] = outData56[4];
	key28r[2] = outData56[5];
	key28r[3] = outData56[6];
	//16轮迭代产成16个子密码
	for (j = 0 ;j<16; j++)
	{
		i = j;
		cycleMove(key28l, bitDisplace[i]);
		cycleMove(key28r, bitDisplace[i]);
		outkey56[0] = (key28l[0] << 4) | (key28l[1] >> 4);
		outkey56[1] = (key28l[1] << 4) | (key28l[2] >> 4);
		outkey56[2] = (key28l[2] << 4) | (key28l[3] >> 4);
		outkey56[3] = (key28l[3] << 4) | (key28r[0]);
		outkey56[4] = key28r[1];
		outkey56[5] = key28r[2];
		outkey56[6] = key28r[3];
		permutationChoose2(outkey56, outkey[i]);
	};

}

void CMyDes::permutationChoose1(BYTE inData[], BYTE outData[])
{
	int i;
	for (i = 0 ; i<7; i++)
		outData[i] = 0;
	
	for (i = 0 ; i<56; i++)
	{
		if ((inData[BitPMC1[i] >> 3] & (1 << (7-(BitPMC1[i] & 7)))) !=0) 
			outData[i >> 3] = outData[i >> 3] | (1 << (7-(i & 7)));	
 	}
}

void CMyDes::permutationChoose2(BYTE inData[], BYTE outData[])
{
	int i;
	for (i = 0 ; i<6; i++) outData[i] = 0;
	
	for (i = 0 ; i<48; i++)
	{
		if ((inData[BitPMC2[i] >> 3] & (1 << (7-(BitPMC2[i] & 7)))) !=0) 
			outData[i >> 3] = outData[i >> 3] | (1 << (7-(i & 7)));	
 	}
}

void CMyDes::cycleMove(BYTE inData[], BYTE bitMove)
{
	for (int i = 0; i<bitMove;i++) 
	{
		inData[0] = (inData[0] << 1) | (inData[1] >> 7);
		inData[1] = (inData[1] << 1) | (inData[2] >> 7);
		inData[2] = (inData[2] << 1) | (inData[3] >> 7);
		inData[3] = (inData[3] << 1) | ((inData[0] & 0x10) >> 4);
		inData[0] = (inData[0] & 0x0f);
	};

}


void CMyDes::initPermutation(BYTE inData[])
{
	BYTE newData[8];
	int i;
	for ( i = 0 ; i<8 ;i++ ) newData[i] = 0; 
	for (i = 0; i<64; i++)
		if ((inData[BitIP[i] >> 3] & (1 << (7- (BitIP[i] & 0x07)))) != 0)
			newData[i >> 3] = newData[i >> 3] | (1 << (7-(i & 0x07)));
	for ( i = 0 ; i<8 ;i++ ) inData[i] = newData[i];

}

void CMyDes::encry(BYTE inData[], BYTE subKey[], BYTE outData[])
{
	BYTE outBuf[6],buf[8];
	int i;

	expand(inData, outBuf);
	for (i = 0;i<6;i++)  outBuf[i] = outBuf[i] ^ subKey[i];
	buf[0] = outBuf[0] >> 2;
	buf[1] = ((outBuf[0] & 0x03) << 4) | (outBuf[1] >> 4);
	buf[2] = ((outBuf[1] & 0x0f) << 2) | (outBuf[2] >> 6);
	buf[3] = outBuf[2] & 0x3f;
	buf[4] = outBuf[3] >> 2;
	buf[5] = ((outBuf[3] & 0x03) << 4) | (outBuf[4] >> 4);
	buf[6] = ((outBuf[4] & 0x0f) << 2) | (outBuf[5] >> 6);
	buf[7] = outBuf[5] & 0x3f;
	for (i = 0;i<8;i++)  buf[i] = si(i, buf[i]);
	for (i = 0;i<4;i++)  outBuf[i] = (buf[i*2] << 4) | buf[i*2+1];
	permutation(outBuf);
	for (i = 0;i<4;i++)  outData[i] = outBuf[i];

}

void CMyDes::expand(BYTE inData[], BYTE outData[])
{
	int i;
	for (i = 0; i<6;i++) outData[i] = 0;
	for (i = 0; i<48;i++) 
		if ((inData[BitExp[i] >> 3] & (1 << (7-(BitExp[i] & 0x07)))) != 0) 
			outData[i >> 3] = outData[i >> 3] | (1 << (7-(i & 0x07)));

}

BYTE CMyDes::si(BYTE s, BYTE inByte)
{
	BYTE c;
	c = (inByte & 0x20) | ((inByte & 0x1e) >> 1) | ((inByte & 0x01) << 4);
	return  (sBox[s][c] & 0x0f);

}

void CMyDes::permutation(BYTE inData[])
{
	BYTE newData[8];
	BYTE bTemp[8];
	int i;
	for (i = 0;i<8;i++)	newData[i] =0;
	for (i = 0;i<6;i++) bTemp[i] = inData[i];
	bTemp[6] = 0;
	bTemp[7] = 0;
	for (i = 0;i<64;i++) 
	{

		if ((bTemp[BitIP[i] >> 3] & (1 << (7- (BitIP[i] & 0x07)))) != 0 )
			newData[i >> 3] = newData[i >> 3] | (1 << (7-(i & 0x07)));

	};
	for (i = 0;i<8;i++)	 inData[i] = newData[i];

}

void CMyDes::conversePermutation(BYTE inData[])
{
	BYTE newData[8];
	int i;
	for (i=0;i<8;i++) newData[i] = 0;
	for (i=0;i<64;i++) 
		if ((inData[BitCP[i] >> 3] & (1 << (7-(BitCP[i] & 0x07)))) != 0) 
			newData[i >> 3] = newData[i >> 3] | (1 << (7-(i & 0x07)));
	for (i=0;i<8;i++) inData[i] = newData[i];

}

void CMyDes::desData(DESMODE desMode, BYTE inData[], BYTE outData[])
{
	int i,j;
	BYTE temp[4],buf[4];
	BYTE bTemp[8];
	
	for (i=0;i<8;i++) outData[i] = inData[i];

	for (i=0;i<8;i++) bTemp[i] = outData[i];

	//初始变换
	initPermutation(outData);

	for (i=0;i<8;i++) bTemp[i] = outData[i];

	if (desMode == dmEncry) 
	{
		for (i=0;i<16;i++)
		{
			for (j=0;j<4;j++) temp[j] = outData[j];
			for (j=0;j<4;j++) outData[j] = outData[j + 4];
			encry(outData, subKey[i], buf);
			for (int k=0;k<8;k++) bTemp[k] = outData[k];

			for (j=0;j<4;j++) outData[j + 4] = temp[j] ^ buf[j];
		}
		for (j=0;j<4;j++) temp[j] = outData[j + 4];
		for (j=0;j<4;j++) outData[j + 4] = outData[j];
		for (j=0;j<4;j++) outData[j] = temp[j];

	}
	else if (desMode == dmDecry)
	{
		for(i=15;i>=0;i--)
		{
			for (j=0;j<4;j++) temp[j] = outData[j];
			for (j=0;j<4;j++) outData[j] = outData[j + 4];
			encry(outData, subKey[i], buf);
			for (j=0;j<4;j++) outData[j + 4] = temp[j] ^ buf[j];
		}
		    
		for (j=0;j<4;j++) temp[j] = outData[j + 4];
		for (j=0;j<4;j++) outData[j + 4] = outData[j];
		for (j=0;j<4;j++) outData[j] = temp[j];

	}
	conversePermutation(outData);

}

CString CMyDes::EncryStr(CString Str, CString Key)
{
	BYTE KeyByte[8]={0},StrByte[8]={0},OutByte[8]={0};
	int J,I;
	int Strlength;
	
	//if ((Strlength > 0) && (Str[Strlength]) == 0) return "";
	while (strlen(Key) < 8)  Key = Key + ' ' ;
	while (strlen(Str) % 8 != 0)  Str = Str +' ';
	Strlength = (int)strlen(Str);
	
	for (J=0;J<8;J++)  KeyByte[J] = (Key[J]);
	makeKey(KeyByte, subKey);

	CString StrResult;
	StrResult.Empty();

	for (I = 0;I< Strlength/8;I++) 
	{
		for (J=0;J<8;J++) 
			StrByte[J] = Str[I * 8 + J];
		desData(dmEncry, StrByte, OutByte);
		for (J=0;J<8;J++) 
			StrResult = StrResult+(char)OutByte[J];
	};

	return StrResult;

}

CString CMyDes::EncryStrHex(CString Str, CString Key)
{
	int I;
	  
	CString TempResult,StrResult;
	BYTE Temp;
	TempResult = EncryStr(Str, Key);
	StrResult.Empty();
	for (I=0;(I<(int)strlen(TempResult));I++)
	{
		Temp = TempResult[I];
		
		StrResult = StrResult + ByteToHex(Temp);	
	}

  return StrResult;

}

CString CMyDes::ByteToHex(BYTE inByte)
{
	CString ResultStr;
	BYTE bTemp;
	int iTemp;
	ResultStr.Empty();
	bTemp = inByte;
	bTemp = bTemp & 0x0f;
	iTemp = (int)bTemp;
	switch (bTemp)
	{
	case 10:
		ResultStr = "A";
		break;
	case 11:
		ResultStr = "B";
		break;
	case 12:
		ResultStr = "C";
		break;
	case 13:
		ResultStr = "D";
		break;
	case 14:
		ResultStr = "E";
		break;
	case 15:
		ResultStr = "F";
		break;
	default:
		ResultStr = (char)(bTemp+'0');
	};

	bTemp = inByte>>4;
	switch (bTemp)
	{
	case 10:
		ResultStr =  "A"+ResultStr ;
		break;
	case 11:
		ResultStr = "B"+ResultStr  ;
		break;
	case 12:
		ResultStr = "C"+ResultStr  ;
		break;
	case 13:
		ResultStr = "D"+ResultStr  ;
		break;
	case 14:
		ResultStr = "E"+ResultStr  ;
		break;
	case 15:
		ResultStr = "F"+ResultStr  ;
		break;
	default:
		ResultStr =  (char)(bTemp+'0')+ResultStr ;
	};
	
	return ResultStr;



}

BYTE CMyDes::HexToByte(CString inHex)
{
	BYTE bTemp,bTempH,bTempL;
	bTempH = inHex[0];
	bTempL = inHex[1];
	if ((bTempL>='A') && (bTempL<='F')) 
		bTempL = bTempL-'A'+10;
	if ((bTempL>='0') && (bTempL<='9')) 
		bTempL = bTempL-'0';

	if ((bTempH>='A') && (bTempH<='F')) 
		bTempH = bTempH-'A'+10;
	if ((bTempH>='0') && (bTempH<='9')) 
		bTempH = bTempH-'0';
	bTemp = (bTempH<<4) | bTempL;
	return bTemp;

}

CString CMyDes::BitToStr(BYTE inData)
{
	CString ResultStr;
	BYTE bTemp;
	ResultStr.Empty();
	for (int i=7; i>=0; i--)
	{
		bTemp = (inData>>i) & 1;
		if (bTemp==0)
			ResultStr = ResultStr + '0';
		else
			ResultStr = ResultStr + '1';

	
	}
	return ResultStr;
	

}

CString CMyDes::ByteToStr(BYTE inData[], int iLength)
{
	CString ResultStr;
	ResultStr.Empty();
	int i;
	for (i=0; i<iLength; i++)
	{
		ResultStr = ResultStr + BitToStr(inData[i]);
	}
	return ResultStr;

}