desaes.cpp

Aes和DES加密算法

//---------------------------------------------------------------------------

#include <windows.h>
//---------------------------------------------------------------------------
//   Important note about DLL memory management when your DLL uses the
//   static version of the RunTime Library:
//
//   If your DLL exports any functions that pass String objects (or structs/
//   classes containing nested Strings) as parameter or function results,
//   you will need to add the library MEMMGR.LIB to both the DLL project and
//   any other projects that use the DLL.  You will also need to use MEMMGR.LIB
//   if any other projects which use the DLL will be performing new or delete
//   operations on any non-TObject-derived classes which are exported from the
//   DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling
//   EXE's to use the BORLNDMM.DLL as their memory manager.  In these cases,
//   the file BORLNDMM.DLL should be deployed along with your DLL.
//
//   To avoid using BORLNDMM.DLL, pass string information using "char *" or
//   ShortString parameters.
//
//   If your DLL uses the dynamic version of the RTL, you do not need to
//   explicitly add MEMMGR.LIB as this will be done implicitly for you
//---------------------------------------------------------------------------

#pragma argsused

static BYTE SBox[256]={
	0x63,0x7c,0x77,0x7b,0xf2,0x6b,0x6f,0xc5,0x30,0x01,0x67,0x2b,0xfe,0xd7,0xab,0x76,
	0xca,0x82,0xc9,0x7d,0xfa,0x59,0x47,0xf0,0xad,0xd4,0xa2,0xaf,0x9c,0xa4,0x72,0xc0,
	0xb7,0xfd,0x93,0x26,0x36,0x3f,0xf7,0xcc,0x34,0xa5,0xe5,0xf1,0x71,0xd8,0x31,0x15,
	0x04,0xc7,0x23,0xc3,0x18,0x96,0x05,0x9a,0x07,0x12,0x80,0xe2,0xeb,0x27,0xb2,0x75,
	0x09,0x83,0x2c,0x1a,0x1b,0x6e,0x5a,0xa0,0x52,0x3b,0xd6,0xb3,0x29,0xe3,0x2f,0x84,
	0x53,0xd1,0x00,0xed,0x20,0xfc,0xb1,0x5b,0x6a,0xcb,0xbe,0x39,0x4a,0x4c,0x58,0xcf,
	0xd0,0xef,0xaa,0xfb,0x43,0x4d,0x33,0x85,0x45,0xf9,0x02,0x7f,0x50,0x3c,0x9f,0xa8,
	0x51,0xa3,0x40,0x8f,0x92,0x9d,0x38,0xf5,0xbc,0xb6,0xda,0x21,0x10,0xff,0xf3,0xd2,
	0xcd,0x0c,0x13,0xec,0x5f,0x97,0x44,0x17,0xc4,0xa7,0x7e,0x3d,0x64,0x5d,0x19,0x73,
	0x60,0x81,0x4f,0xdc,0x22,0x2a,0x90,0x88,0x46,0xee,0xb8,0x14,0xde,0x5e,0x0b,0xdb,
	0xe0,0x32,0x3a,0x0a,0x49,0x06,0x24,0x5c,0xc2,0xd3,0xac,0x62,0x91,0x95,0xe4,0x79,
	0xe7,0xc8,0x37,0x6d,0x8d,0xd5,0x4e,0xa9,0x6c,0x56,0xf4,0xea,0x65,0x7a,0xae,0x08,
	0xba,0x78,0x25,0x2e,0x1c,0xa6,0xb4,0xc6,0xe8,0xdd,0x74,0x1f,0x4b,0xbd,0x8b,0x8a,
	0x70,0x3e,0xb5,0x66,0x48,0x03,0xf6,0x0e,0x61,0x35,0x57,0xb9,0x86,0xc1,0x1d,0x9e,
	0xe1,0xf8,0x98,0x11,0x69,0xd9,0x8e,0x94,0x9b,0x1e,0x87,0xe9,0xce,0x55,0x28,0xdf,
	0x8c,0xa1,0x89,0x0d,0xbf,0xe6,0x42,0x68,0x41,0x99,0x2d,0x0f,0xb0,0x54,0xbb,0x16};

static BYTE InvSBox[256]={
	0x52,0x09,0x6a,0xd5,0x30,0x36,0xa5,0x38,0xbf,0x40,0xa3,0x9e,0x81,0xf3,0xd7,0xfb,
	0x7c,0xe3,0x39,0x82,0x9b,0x2f,0xff,0x87,0x34,0x8e,0x43,0x44,0xc4,0xde,0xe9,0xcb,
	0x54,0x7b,0x94,0x32,0xa6,0xc2,0x23,0x3d,0xee,0x4c,0x95,0x0b,0x42,0xfa,0xc3,0x4e,
	0x08,0x2e,0xa1,0x66,0x28,0xd9,0x24,0xb2,0x76,0x5b,0xa2,0x49,0x6d,0x8b,0xd1,0x25,
	0x72,0xf8,0xf6,0x64,0x86,0x68,0x98,0x16,0xd4,0xa4,0x5c,0xcc,0x5d,0x65,0xb6,0x92,
	0x6c,0x70,0x48,0x50,0xfd,0xed,0xb9,0xda,0x5e,0x15,0x46,0x57,0xa7,0x8d,0x9d,0x84,
	0x90,0xd8,0xab,0x00,0x8c,0xbc,0xd3,0x0a,0xf7,0xe4,0x58,0x05,0xb8,0xb3,0x45,0x06,
	0xd0,0x2c,0x1e,0x8f,0xca,0x3f,0x0f,0x02,0xc1,0xaf,0xbd,0x03,0x01,0x13,0x8a,0x6b,
	0x3a,0x91,0x11,0x41,0x4f,0x67,0xdc,0xea,0x97,0xf2,0xcf,0xce,0xf0,0xb4,0xe6,0x73,
	0x96,0xac,0x74,0x22,0xe7,0xad,0x35,0x85,0xe2,0xf9,0x37,0xe8,0x1c,0x75,0xdf,0x6e,
	0x47,0xf1,0x1a,0x71,0x1d,0x29,0xc5,0x89,0x6f,0xb7,0x62,0x0e,0xaa,0x18,0xbe,0x1b,
	0xfc,0x56,0x3e,0x4b,0xc6,0xd2,0x79,0x20,0x9a,0xdb,0xc0,0xfe,0x78,0xcd,0x5a,0xf4,
	0x1f,0xdd,0xa8,0x33,0x88,0x07,0xc7,0x31,0xb1,0x12,0x10,0x59,0x27,0x80,0xec,0x5f,
	0x60,0x51,0x7f,0xa9,0x19,0xb5,0x4a,0x0d,0x2d,0xe5,0x7a,0x9f,0x93,0xc9,0x9c,0xef,
	0xa0,0xe0,0x3b,0x4d,0xae,0x2a,0xf5,0xb0,0xc8,0xeb,0xbb,0x3c,0x83,0x53,0x99,0x61,
	0x17,0x2b,0x04,0x7e,0xba,0x77,0xd6,0x26,0xe1,0x69,0x14,0x63,0x55,0x21,0x0c,0x7d};

static  DWORD Rcon[29] = {
		0x01000000, 0x02000000, 0x04000000, 0x08000000,	0x10000000,
		0x20000000, 0x40000000, 0x80000000,	0x1B000000, 0x36000000,
		0x6c000000,	0xd8000000,	0xab000000, 0x4d000000, 0x9a000000,
		0x2f000000,	0x5e000000, 0xbc000000, 0x63000000, 0xc6000000,
		0x97000000, 0x35000000, 0x6a000000, 0xd4000000,	0xb3000000,
		0x7d000000, 0xfa000000, 0xef000000,	0xc5000000	};

DWORD SubWord(DWORD W)
{
	DWORD	W1;
	W1=SBox[(W&0xff000000)>>24];    W1=W1<<8;
	W1=W1+SBox[(W&0xff0000)>>16];	W1=W1<<8;
	W1=W1+SBox[(W&0xff00)>>8];  	W1=W1<<8;
	W1=W1+SBox[W&0xff];
	return W1;
}

void ByteSub(BYTE * state, BYTE Nb)
{
	int		i;
	for(i=0;i<Nb*4;i++) state[i]=SBox[state[i]];
}

void InvByteSub(BYTE * state, BYTE Nb)
{
	int		i;
	for(i=0;i<Nb*4;i++) state[i]=InvSBox[state[i]];
}

void ShiftRow(BYTE * state, BYTE Nb)
{
	BYTE	temp,temp1,temp2,temp3;
	int		i;
	temp=state[1];
	for(i=1;i<Nb*4-3;i=i+4) state[i]=state[i+4];
	state[i]=temp;
	if(Nb==8)
	{
		temp=state[2];	  	    temp1=state[6];
		temp2=state[10];		state[2]=state[14];
		state[6]=state[18];		state[10]=state[22];
		state[14]=state[26];	state[18]=state[30];
		state[22]=temp; 		state[26]=temp1;
		state[30]=temp2;

		temp=state[3];  		temp1=state[7];
		temp2=state[11];		temp3=state[15];
		state[3]=state[19];		state[7]=state[23];
		state[11]=state[27];	state[15]=state[31];
		state[19]=temp; 		state[23]=temp1;
		state[27]=temp2;		state[31]=temp3;
	}
	else
	{
		temp=state[2];  		temp1=state[6];
		for(i=2;i<Nb*4-6;i=i+4) state[i]=state[i+8];
		state[i]=temp;  		state[i+4]=temp1;

		temp=state[3];  		temp1=state[7];
		temp2=state[11];
		for(i=3;i<Nb*4-9;i=i+4) state[i]=state[i+12];
		state[i]=temp;  		state[i+4]=temp1;
		state[i+8]=temp2;
	}
}

void InvShiftRow(BYTE * state, BYTE Nb)
{
	BYTE	temp,temp1,temp2,temp3;
	int		i;

	temp=state[Nb*4-3];
	for(i=Nb*4-3;i>1;i=i-4) state[i]=state[i-4];
	state[1]=temp;
	if(Nb==8)
	{
		temp=state[30]; 		temp1=state[26];
		temp2=state[22];		state[30]=state[18];
		state[26]=state[14];	state[22]=state[10];
		state[18]=state[6];		state[14]=state[2];
		state[10]=temp; 		state[6]=temp1;
		state[2]=temp2;

		temp=state[31]; 		temp1=state[27];
		temp2=state[23];		temp3=state[19];
		state[31]=state[15];	state[27]=state[11];
		state[23]=state[7];		state[19]=state[3];
		state[15]=temp; 		state[11]=temp1;
		state[7]=temp2; 		state[3]=temp3;
	}
	else
	{
		temp=state[Nb*4-2];		temp1=state[Nb*4-6];
		for(i=Nb*4-2;i>6;i=i-4) state[i]=state[i-8];
		state[6]=temp;		    state[2]=temp1;

		temp=state[Nb*4-1];		temp1=state[Nb*4-5];
		temp2=state[Nb*4-9];
		for(i=Nb*4-1;i>11;i=i-4) state[i]=state[i-12];
		state[11]=temp; 		state[7]=temp1;
		state[3]=temp2;
	}
}

BYTE XMul( BYTE a, BYTE b )
{
	WORD	ab, c = 0 , i ;

	ab = a ;
	ab = ab << 3 ;
	for( i = 0 ; i < 4 ; i++ )
	{
		if(( b & 0x8 ) != 0 ) c ^= ab ;
		ab = ab >> 1 ;
		b = b << 1 ;
	}
	if( c & 0x800 ) c ^= 0x8d8 ;
	if( c & 0x400 ) c ^= 0x46c ;
	if( c & 0x200 ) c ^= 0x236 ;
	if( c & 0x100 ) c ^= 0x11b ;
	return ( BYTE ) c ;
}

void MixColumn(BYTE * state, BYTE Nb)
{
	int		i;
	BYTE	b1,b2,b3,b4;

	for(i=0;i<Nb*4;i=i+4)
	{
		b1=XMul(state[i],2)^XMul(state[i+1],3)^state[i+2]^state[i+3];
		b2=state[i]^XMul(state[i+1],2)^XMul(state[i+2],3)^state[i+3];
		b3=state[i]^state[i+1]^XMul(state[i+2],2)^XMul(state[i+3],3);
		b4=XMul(state[i],3)^state[i+1]^state[i+2]^XMul(state[i+3],2);
		state[i]=b1;
		state[i+1]=b2;
		state[i+2]=b3;
		state[i+3]=b4;
	}
}

void InvMixColumn(BYTE * state, BYTE Nb)
{
	int		i;
	BYTE	b1,b2,b3,b4;

	for(i=0;i<Nb*4;i=i+4)
	{
		b1=XMul(state[i],0xe)^XMul(state[i+1],0xb)^XMul(state[i+2],0xd)^XMul(state[i+3],0x9);
		b2=XMul(state[i],0x9)^XMul(state[i+1],0xe)^XMul(state[i+2],0xb)^XMul(state[i+3],0xd);
		b3=XMul(state[i],0xd)^XMul(state[i+1],0x9)^XMul(state[i+2],0xe)^XMul(state[i+3],0xb);
		b4=XMul(state[i],0xb)^XMul(state[i+1],0xd)^XMul(state[i+2],0x9)^XMul(state[i+3],0xe);
		state[i]=b1;
		state[i+1]=b2;
		state[i+2]=b3;
		state[i+3]=b4;
	}
}

void AddRoundKey( BYTE * state, BYTE Nb, DWORD * W )
{
	int		i ;

	for(i=0;i<Nb;i++)
	{
		state[i*4] ^= W[i]>>24 ;
		state[i*4+1] ^= (W[i]>>16)&0xff ;
		state[i*4+2] ^= (W[i]>>8)&0xff ;
		state[i*4+3] ^= W[i]&0xff ;
	}
}

void KeyExpansion(BYTE * Key, BYTE Nk, DWORD *W, BYTE Nb, BYTE Nr)
{
	int		i;
	DWORD	temp;

	for(i = 0; i < Nk; i++)
	{
		W[i] = Key[4*i] ;		W[i] = W[i] << 8 ;
		W[i] +=	Key[4*i+1] ;	W[i] = W[i] << 8 ;
		W[i] +=	Key[4*i+2] ;	W[i] = W[i] << 8 ;
		W[i] +=	Key[4*i+3] ;
	}
	for(i = Nk; i < Nb * (Nr + 1); i++)
	{
		temp = W[i - 1];
		if (i % Nk == 0) temp = SubWord(temp<<8|temp>>24) ^ Rcon[i / Nk-1];
		else if((Nk == 8)&&(i % Nk == 4)) temp = SubWord(temp);
		W[i] = W[i - Nk] ^ temp;
	}
}

void Round( BYTE * state, BYTE Nb, DWORD * W )
{
	ByteSub( state, Nb ) ;
	ShiftRow( state, Nb ) ;
	MixColumn( state, Nb ) ;
	AddRoundKey( state, Nb, W ) ;
}

void InvRound( BYTE * state, BYTE Nb, DWORD * W )
{
	AddRoundKey( state, Nb, W ) ;
	InvMixColumn( state, Nb ) ;
	InvShiftRow( state, Nb ) ;
	InvByteSub( state, Nb ) ;
}

void FinalRound(BYTE * state, BYTE Nb, DWORD * W )
{
	ByteSub( state, Nb ) ;
	ShiftRow( state, Nb ) ;
	AddRoundKey( state, Nb, W ) ;
}

void InvFinalRound(BYTE * state, BYTE Nb, DWORD * W )
{
	AddRoundKey( state, Nb, W ) ;
	InvShiftRow( state, Nb ) ;
	InvByteSub( state, Nb ) ;
}
extern "C"
{
__declspec(dllexport)  void __stdcall  Aes(BYTE *state, BYTE Nb, BYTE *key, BYTE Nk, BOOL Encrypt)
{
	DWORD	* W ;
	BYTE	i,Nr=12;

	if((Nb!=4&&Nb!=6&&Nb!=8)||(Nk!=4&&Nk!=6&&Nk!=8)) return ;
	if((Nk==8)||(Nb==8)) Nr=14;
	if((Nk==4)&&(Nb==4)) Nr=10;
	W = (unsigned long *)malloc( Nb*(Nr+1)*4 ) ;
	KeyExpansion(key, Nk, W, Nb, Nr);
	if(Encrypt)
	{
		AddRoundKey(state, Nb, W);
		for(i=1;i<Nr;i++) Round(state, Nb, &W[i*Nb]);
		FinalRound(state, Nb, &W[Nr*Nb]);
	}
	else
	{
		InvFinalRound(state, Nb, &W[Nr*Nb]);
		for(i=Nr-1;i>0;i--) InvRound(state, Nb, &W[i*Nb]);