des.cpp

一个RSA加密算法

		_lwrite(fh_out,databuf,len);
	}
	// 设置解密文件长度
	_llseek(fh_out,deshead.TLen,SEEK_SET);
	SetEndOfFile((HANDLE)fh_out);

	// 结束等待光标
	wnd.EndWaitCursor();
	return true;
}
/******************************************************************************/
//	名称：Encrypt
//	功能：加密
//  参数：len—数据长度，必须是8的倍数；KeyStr为0结尾的密钥串，长度<=16，可为任意字符
//        KeyStr默认值为0，如果你在调用前设置过子密钥，则可省略该参数。例:
//        SetSubKey(KeyStr);Encrypt(data,data,len);或:Encrypt(data,data,len,KeyStr);
//	返回：加密成功返回true，否则返回false
//  备注：当密钥长度>8时，系统自动使用3次DES加密
//	更新：2002/12/25
//	作者：0200980胡德华
/******************************************************************************/
bool CDes::Encrypt(char *Out,char *In,UINT len,const char *KeyStr)
{
    CHECK( Out && In && !(len&0x7) )

	if( KeyStr )
		CHECK( SetSubKey(KeyStr) )

	if( !Is3DES )
	{   // 1次DES
		for(int i=0,j=len>>3; i<j; ++i)
		{
			DES(Out,In,&SubKey[0],ENCRYPT);
			Out += 8; In += 8;
		}
	}
	else
	{   // 3次DES E-D-E
		for(int i=0,j=len>>3; i<j; ++i)
		{
			DES(Out,In, &SubKey[0],ENCRYPT);
			DES(Out,Out,&SubKey[1],DECRYPT);
			DES(Out,Out,&SubKey[0],ENCRYPT);
			Out += 8; In += 8;
		}
	}

	return true;
}
/******************************************************************************/
//	名称：Decrypt
//	功能：解密
//  参数：len—数据长度，必须是8的倍数；KeyStr为0结尾的密钥串，长度<=16，可为任意字符
//        KeyStr默认值为0，如果你在调用前设置过子密钥，则可省略该参数。例:
//        SetSubKey(KeyStr);Decrypt(data,data,len);或:Decrypt(data,data,len,KeyStr);
//	返回：解密成功返回true，否则返回false
//  备注：当密钥长度>8时，系统自动使用3次DES解密
//	更新：2002/12/25
//	作者：0200980胡德华
/******************************************************************************/
bool CDes::Decrypt(char *Out,char *In,UINT len,const char *KeyStr)
{
    CHECK( Out && In && !(len&0x7) )

	if( KeyStr )
		CHECK( SetSubKey(KeyStr) )
    if( !Is3DES )
	{   // 1次DES
		for(int i=0,j=len>>3; i<j; ++i)
		{
			DES(Out,In,&SubKey[0],DECRYPT);
			Out += 8; In += 8;
		}
	}
	else
	{   // 3次DES D-E-D
		for(int i=0,j=len>>3; i<j; ++i)
		{
			DES(Out,In, &SubKey[0],DECRYPT);
			DES(Out,Out,&SubKey[1],ENCRYPT);
			DES(Out,Out,&SubKey[0],DECRYPT);
			Out += 8; In += 8;
		}
	}

	return true;
}
/******************************************************************************/
//	名称：SetSubKey
//	功能：由输入密钥串设置子密钥
//  参数：KeyStr为0结尾的密钥串，长度<=16，可为任意字符
//	返回：设置成功返回true，否则返回false
//  备注：当密钥长度>8时，将设置第2密钥，且置3次DES标志
//	更新：2002/12/25
//	作者：0200980胡德华
/******************************************************************************/
bool CDes::SetSubKey(const char *KeyStr)
{
    int		len;

	CHECK_MSG( KeyStr && (len=strlen(KeyStr))<=16 && len>0, 
		       "设置DES密钥出错：空密钥，或密钥太长!" )
	memset(deskey,0,16);
	memcpy(deskey,KeyStr,len);
	// 设置第1密钥
	SetSubKey(&SubKey[0],deskey);
	Is3DES = false;
	if( len>8 )
	{   // 置3次DES标志
		Is3DES = true;
		// 设置第2密钥
		SetSubKey(&SubKey[1],&deskey[8]);
	}
	return true;
}
/******************************************************************************/
//	名称：RandKeyStr
//	功能：产生随机密钥串
//  参数：
//	返回：KeyStr地址
//  备注：
//	更新：2002/12/25
//	作者：0200980胡德华
/******************************************************************************/
char* CDes::RandKeyStr(char KeyStr[9])
{
    CHECK( KeyStr )

	srand(GetTickCount());
    for(int i=0; i<8; ++i)
	{
        KeyStr[i] = rand()%256;
	}
	while( !( KeyStr[7] && 0xf0 ) )
        KeyStr[7] = rand()%256;
	KeyStr[8] = '\0';
    // 这样可以进行连接操作
	return KeyStr;
}
/******************************************************************************/
//	名称：DES
//	功能：加/解密
//  参数：Type—ENCRYPT:加密,DECRYPT:解密
//	返回：
//  备注：私有函数，不用检查指针是否为空
//	更新：2002/12/25
//	作者：0200935王俊川
/******************************************************************************/
void CDes::DES(char Out[8],char In[8],const PSubKey pSubKey,bool Type)
{
    static bool M[64],Tmp[32],*Li,*Ri;

    // 将输入字节组分解成位组
   	CGfL::ByteToBit(M,In,8);
    // 初始变换
    CGfL::Transform(M,M,IP_Table,64);

	if( Type == ENCRYPT )
		Li=&M[0],Ri=&M[32];
	else
		Li=&M[32],Ri=&M[0];

    for(int i=0; i<16; ++i)
    {
        memcpy(Tmp,Ri,32);
		if( Type == ENCRYPT )
			F_func(Ri,(*pSubKey)[i]);
		else
			F_func(Ri,(*pSubKey)[15-i]);
        CGfL::Xor(Ri,Li,32);
        memcpy(Li,Tmp,32);
    }
    // 逆初始变换
    CGfL::Transform(M,M,IPR_Table,64);
	// 将位组合并成输出字节组
	CGfL::BitToByte(Out,M,64);
}
/******************************************************************************/
//	名称：SetSubKey
//	功能：由输入密钥设置16圈子密钥
//  参数：
//	返回：
//  备注：私有函数，不用检查指针是否为空
//	更新：2002/12/25
//	作者：0200980胡德华
/******************************************************************************/
void CDes::SetSubKey(PSubKey pSubKey,const char Key[8])
{
    static  bool K[64],*KL=&K[0],*KR=&K[28];

    // 将密钥字节组分解成密钥位组
	CGfL::ByteToBit(K,Key,8);
	// 密钥变换
    CGfL::Transform(K,K,PC1_Table,56);
    for(int i=0; i<16; ++i)
    {	// 循环左移
        CGfL::RotateL((char*)KL,28,LOOP_Table[i]);
        CGfL::RotateL((char*)KR,28,LOOP_Table[i]);
		// 压缩变换
        CGfL::Transform((*pSubKey)[i],K,PC2_Table,48);
    }
}
/******************************************************************************/
//	名称：F_func
//	功能：f 函数
//  参数：
//	返回：
//  备注：私有函数，不用检查指针是否为空
//	更新：2002/12/25
//	作者：0200980胡德华
/******************************************************************************/
void CDes::F_func(bool In[32],const bool Ki[48])
{
    static bool MR[48];

	// 扩展变换
    CGfL::Transform(MR,In,E_Table,48);
    CGfL::Xor(MR,Ki,48);
    S_func(In,MR);
	// P 变换
    CGfL::Transform(In,In,P_Table,32);
}
/******************************************************************************/
//	名称：S_func
//	功能：S 盒代替
//  参数：
//	返回：
//  备注：私有函数，不用检查指针是否为空
//	更新：2002/12/25
//	作者：0200980胡德华
/******************************************************************************/
void CDes::S_func(bool Out[32],const bool In[48])
{
    for(char i=0,j,k; i<8; ++i)
    {
        j = (In[0]<<1) + In[5];
        k = (In[1]<<3) + (In[2]<<2) + (In[3]<<1) + In[4];
		CGfL::ByteToBit(Out,&S_Box[i][j][k],1,4);
		Out +=4; In += 6;
    }
}

///////////////////////////////////////////////////////////////////////////////
// End of Files
///////////////////////////////////////////////////////////////////////////////