desidea.c

一个可以加密解密的算法

#include <windows.h>
#include <stdlib.h>
#include <stdio.h>
#include <math.h>

#define IDB_EXECUTE		0
#define	IDB_CLEAR		1
#define IDB_EXIT		2

#define maxim		65537
#define	fuyi		65536
#define	one			65535
#define round		8

LRESULT CALLBACK  WndProc(HWND,UINT,WPARAM,LPARAM);
BOOL WINAPI Char2Dword(HWND hCtrl);
void WINAPI Dword2Char(HWND hCtrl);
void WINAPI GetZhMask(void);
void WINAPI ZHIP(DWORD *inputh,DWORD *inputl);
void WINAPI ZHIP1(DWORD *inputh,DWORD *inputl);
void WINAPI ZHE(DWORD *input,DWORD *outputh,DWORD *outputl);
void WINAPI ZHP(DWORD *input);
void WINAPI ZHPC1(DWORD *inputh,DWORD *inputl);
void WINAPI ZHPC2(DWORD *inputh,DWORD *inputl,DWORD *outputh,DWORD *outputl);
void WINAPI LeftShift1(DWORD *input);
void WINAPI LeftShift2(DWORD *input);
void WINAPI GetSubKey(void);
DWORD WINAPI GetFunc(DWORD Ri,int cnt);
void WINAPI endes(void);
void WINAPI dedes(void);
//IDEA
void WINAPI key(void);
void WINAPI dekey(void);
WORD WINAPI mul(WORD x,WORD y);
WORD WINAPI inv(WORD xin);
void WINAPI enIDEA(void);
void WINAPI deIDEA(void);
void WINAPI getfile(void);

	HWND hExc,hCls,hExt;							//按钮句柄
	HWND hMesS,hMesE;								//明文句柄
	HWND hCryS,hCryE;								//密文句柄
	HWND hKeyS,hKeyE;								//密钥句柄
	HWND hGroup,hEnDes,hDeDes,hEnIdea,hDeIdea;		//
	char Buf[50];
	int type;			//1(DES加密);2(DES解密);3(IDEA加密);4(IDEA解密)
	HWND hwnd;	
	HINSTANCE hCurInst;
	DWORD ZhMask[33];		//置换屏蔽数组
	DWORD Msgh,Msgl;		//明文64bit(Msgh为前32bit,Msgl为后32bit)
	DWORD Keyh,Keyl;		//DES密钥64bit(Keyh为前32bit,Keyl为后32bit)
	DWORD IDEAKey[4];		//IDEA密钥128bit
	DWORD Cryh,Cryl;		//密文64bit(Cryh为前32bit,Cryl为后32bit)
	DWORD SubKey[16][2];	//DES子密钥16个,每个48bit(前24bit在SubKey[i][0]中,后24bit在SubKey[i][1]中)
	WORD Z[7][10],DK[7][10];//IDEA的加密子密钥和解密子密钥
	WORD uskey[16];
	//左移位数
	BYTE lshift[]={1,1,2,2,2,2,2,2,1,2,2,2,2,2,2,1};
	//E置换表
	BYTE etable[]={32,1,2,3,4,5,4,5,6,7,8,9,8,9,10,11,12,13,12,13,14,15,16,17,
		16,17,18,19,20,21,20,21,22,23,24,25,24,25,26,27,28,29,28,29,30,31,32,1};
	//P置换表
	BYTE ptable[]={16,7,20,21,29,12,28,17,1,15,23,26,5,18,31,10,
					2,8,24,14,32,27,3,9,19,13,30,6,22,11,4,25};
	//PC-1置换表
	BYTE pc1table[]={57,49,41,33,25,17,9,1,58,50,42,34,26,18,
					 10,2,59,51,43,35,27,19,11,3,60,52,44,36,
					 63,55,47,39,31,23,15,7,62,54,46,38,30,22,
					 14,6,61,53,45,37,29,21,13,5,28,20,12,4};
	//PC-2置换表
	BYTE pc2table[]={14,17,11,24,1,5,3,28,15,6,21,10,
					 23,19,12,4,26,8,16,7,27,20,13,2,
		             41,52,31,37,47,55,30,40,51,45,33,48,
		             44,49,39,56,34,53,46,42,50,36,29,32};
	//S盒置换表
	BYTE SBOX[8][64]={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,
				   12,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 WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInst,LPSTR lpszCmdLine,int nCmdShow)
{

	MSG Msg;
	WNDCLASS wndclass;
	char lpszClassName[]="分组密码加解密";
	char lpszTitle[]="分组密码加解密";

	hCurInst=hInstance;

	wndclass.style          =0;
	wndclass.lpfnWndProc    =WndProc;
	wndclass.cbClsExtra     =0;
	wndclass.cbWndExtra     =0;
	wndclass.hInstance      =hInstance;
	wndclass.hIcon          =LoadIcon(NULL,IDI_APPLICATION);
	wndclass.hCursor        =LoadCursor(NULL,IDC_ARROW);
	wndclass.hbrBackground  =GetStockObject(LTGRAY_BRUSH);
	wndclass.lpszMenuName   =NULL;
	wndclass.lpszClassName  =lpszClassName;

	if(!RegisterClass(&wndclass))
	{
		MessageBeep(0);
		return FALSE;
	}

	hwnd= CreateWindow(lpszClassName,lpszTitle,WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU|WS_THICKFRAME|WS_MINIMIZEBOX,
		40,40,490,260,NULL,NULL,hInstance,NULL);
	
	ShowWindow(hwnd,nCmdShow);
	UpdateWindow(hwnd);
	while(GetMessage(&Msg,NULL,0,0))
	{
		TranslateMessage(&Msg);
		DispatchMessage(&Msg);
	}
	return Msg.wParam;
}

//窗口处理函数
LRESULT CALLBACK  WndProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam)
{
	static int bw=60,bh=25;
	UINT nc;

	switch(message)
	{
		case WM_CREATE:
			GetZhMask();
			hExc=CreateWindow("BUTTON","运行",WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON,
				170,170,bw,bh,hwnd,(HMENU)IDB_EXECUTE,hCurInst,NULL);
			
			hCls=CreateWindow("BUTTON","清除",WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON,
				270,170,bw,bh,hwnd,(HMENU)IDB_CLEAR,hCurInst,NULL);

			hExt=CreateWindow("BUTTON","退出",WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON,
				370,170,bw,bh,hwnd,(HMENU)IDB_EXIT,hCurInst,NULL);

			hMesS=CreateWindow("STATIC","明文(8字节16进制)",WS_CHILD|WS_VISIBLE|SS_RIGHT,
				140,40,130,25,hwnd,(HMENU)3,hCurInst,NULL);
			hMesE=CreateWindowEx(WS_EX_CLIENTEDGE,"EDIT",0,WS_CHILD|WS_VISIBLE|ES_UPPERCASE,
				290,35,160,25,hwnd,(HMENU)4,hCurInst,NULL);

			hCryS=CreateWindow("STATIC","密文(8字节16进制)",WS_CHILD|WS_VISIBLE|SS_RIGHT,
				140,80,130,25,hwnd,(HMENU)5,hCurInst,NULL);
			hCryE=CreateWindowEx(WS_EX_CLIENTEDGE,"EDIT",0,WS_CHILD|WS_VISIBLE|ES_UPPERCASE,
				290,75,160,25,hwnd,(HMENU)6,hCurInst,NULL);

			hKeyS=CreateWindow("STATIC","密钥(X字节16进制)",WS_CHILD|WS_VISIBLE|SS_RIGHT,
				140,120,130,25,hwnd,(HMENU)7,hCurInst,NULL);
			hKeyE=CreateWindowEx(WS_EX_CLIENTEDGE,"EDIT",0,WS_CHILD|WS_VISIBLE|ES_UPPERCASE|ES_AUTOHSCROLL,
				290,115,160,25,hwnd,(HMENU)8,hCurInst,NULL);

			hGroup=CreateWindow("BUTTON","算法选择",WS_CHILD|WS_VISIBLE|BS_GROUPBOX,
				20,20,100,160,hwnd,(HMENU)9,hCurInst,NULL);
			hEnDes=CreateWindow("BUTTON","DES加密",WS_CHILD|WS_VISIBLE|BS_AUTORADIOBUTTON,
				10,30,80,25,hGroup,(HMENU)10,hCurInst,NULL);
			SendMessage(hEnDes,BM_SETCHECK,1,0L);
			hDeDes=CreateWindow("BUTTON","DES解密",WS_CHILD|WS_VISIBLE|BS_AUTORADIOBUTTON,
				10,60,80,25,hGroup,(HMENU)11,hCurInst,NULL);
			hEnIdea=CreateWindow("BUTTON","IDEA加密",WS_CHILD|WS_VISIBLE|BS_AUTORADIOBUTTON,
				10,90,80,25,hGroup,(HMENU)12,hCurInst,NULL);
			hDeIdea=CreateWindow("BUTTON","IDEA解密",WS_CHILD|WS_VISIBLE|BS_AUTORADIOBUTTON,
				10,120,80,25,hGroup,(HMENU)13,hCurInst,NULL);
			return 0;

		case WM_COMMAND:
			if(wParam==IDB_EXECUTE)		//按"执行"按钮
			{
				nc=(WORD)SendMessage(hEnDes,BM_GETCHECK,0,0L);
				if(nc==TRUE)
				{
					type=1;				//DES加密
					if(!Char2Dword(hMesE))
					{
						MessageBox(hwnd,"明文输入字符必须在0-9,A-F之间","明文报警",MB_OK);
						return 0;
					}
					if(!Char2Dword(hKeyE))
					{
						MessageBox(hwnd,"密钥输入字符必须在0-9,A-F之间","密钥报警",MB_OK);
						return 0;
					}
					endes();
					Dword2Char(hCryE);
					return 0;
				}
				nc=(WORD)SendMessage(hDeDes,BM_GETCHECK,0,0L);
				if(nc==TRUE)
				{
					type=2;				//DES解密
					if(!Char2Dword(hCryE))
					{
						MessageBox(hwnd,"密文输入字符必须在0-9,A-F之间","密文报警",MB_OK);
						return 0;
					}
					if(!Char2Dword(hKeyE))
					{
						MessageBox(hwnd,"密钥输入字符必须在0-9,A-F之间","密钥报警",MB_OK);
						return 0;
					}
					dedes();
					Dword2Char(hMesE);
					return 0;		
				}
				nc=(WORD)SendMessage(hEnIdea,BM_GETCHECK,0,0L);
				if(nc==TRUE)
				{
					type=3;				//IDEA加密
					if(!Char2Dword(hMesE))
					{
						MessageBox(hwnd,"明文输入字符必须在0-9,A-F之间","明文报警",MB_OK);
						return 0;
					}
					if(!Char2Dword(hKeyE))
					{
						MessageBox(hwnd,"密钥输入字符必须在0-9,A-F之间","密钥报警",MB_OK);
						return 0;
					}
					enIDEA();
					Dword2Char(hCryE);
					return 0;		
				}
				nc=(WORD)SendMessage(hDeIdea,BM_GETCHECK,0,0L);
				if(nc==TRUE)
				{
					type=4;				//IDEA解密
					if(!Char2Dword(hCryE))
					{
						MessageBox(hwnd,"密文输入字符必须在0-9,A-F之间","密文报警",MB_OK);
						return 0;
					}
					if(!Char2Dword(hKeyE))
					{
						MessageBox(hwnd,"密钥输入字符必须在0-9,A-F之间","密钥报警",MB_OK);
						return 0;
					}
					deIDEA();
					Dword2Char(hMesE);
					return 0;		
				}
			}
			if(wParam==IDB_CLEAR)		//按"清除"按钮
			{
				SetWindowText(hMesE,"");
				SetWindowText(hCryE,"");
				SetWindowText(hKeyE,"");
			}
			if(wParam==IDB_EXIT)		//按"退出"按钮
				DestroyWindow(hwnd);
			return 0;
		
		case WM_DESTROY:
			PostQuitMessage(0);
            return 0;
		default:
			return DefWindowProc(hwnd,message,wParam,lParam);
	}
}

//将明文,密文,密钥等转换为DWORD型数据
BOOL WINAPI Char2Dword(HWND hCtrl)
{
	int i,j,k;
	DWORD xh=0,xl=0,yh=0,yl=0;
	
	j=16;					//64bit(16*4)
	if(hCtrl==hKeyE)
		if(type==3|type==4)
			j=32;			//IDEA密钥为128bit(32*4)
	
	k=GetWindowText(hCtrl,Buf,j+1);
	if(k<j)					//若输入字符不足j补0
		for(;k<j;k++)
			Buf[k]='0';

	//判断输入的字符是否合法
	for(i=0;i<j;i++)
	{
		if(Buf[i]>='0'&&Buf[i]<='9')
			continue;
		if(Buf[i]>='A'&&Buf[i]<='F')
			continue;
		return FALSE;
	}
	
	for(i=0;i<8;i++)
	{
		xh<<=4;	
		Buf[i]-='0';
		if(Buf[i]>9)
			Buf[i]-=7;
		xh|=Buf[i];
	}

	for(i=8;i<16;i++)
	{
		xl<<=4;	
		Buf[i]-='0';
		if(Buf[i]>9)
			Buf[i]-=7;
		xl|=Buf[i];
	}
	
	if(j==32)
	{
		for(i=16;i<24;i++)
		{
			yh<<=4;	
			Buf[i]-='0';
			if(Buf[i]>9)
				Buf[i]-=7;
			yh|=Buf[i];
		}
		for(i=24;i<32;i++)
		{
			yl<<=4;	
			Buf[i]-='0';
			if(Buf[i]>9)
				Buf[i]-=7;
			yl|=Buf[i];
		}	
	}
	
	if(hCtrl==hKeyE)
	{
		if(j==16)
		{
			Keyh=xh;
			Keyl=xl;
		}
		else
		{
			IDEAKey[0]=xh;
			IDEAKey[1]=xl;
			IDEAKey[2]=yh;
			IDEAKey[3]=yl;
		}
	}
	else if(hCtrl==hCryE)
	{
		Cryh=xh;
		Cryl=xl;
	}
	else
	{
		Msgh=xh;
		Msgl=xl;
	}
	return TRUE;
}

//将DWORD型数据转换为明文或密文字符显示
void WINAPI Dword2Char(HWND hCtrl)
{
	int i;
	DWORD xh,xl;
	char ch;

	if(hCtrl==hCryE)
	{
		xh=Cryh;
		xl=Cryl;
	}
	else if(hCtrl==hMesE)
	{
		xh=Msgh;
		xl=Msgl;
	}
	
	for(i=7;i>=0;i--)
	{
		ch=(char)xh&0x0000000f;
		if(ch>9)
			ch+=0x37;
		else
			ch+=0x30;
		Buf[i]=ch;
		xh>>=4;
	}
	for(i=15;i>=8;i--)
	{
		ch=(char)xl&0x0000000f;
		if(ch>9)
			ch+=0x37;
		else
			ch+=0x30;
		Buf[i]=ch;
		xl>>=4;
	}
	Buf[16]='\0';
	SetWindowText(hCtrl,Buf);
}

/*******以下为DES函数***********/
//取得置换表中位标的屏蔽位
void WINAPI GetZhMask(void)
{
	int i;
	DWORD mask=0x80000000;

	for(i=1;i<33;i++)
	{
		ZhMask[i]=mask;
		mask>>=1;	
	}
}

//DES中的IP置换(64bit->64bit)
void WINAPI ZHIP(DWORD *inputh,DWORD *inputl)
{
	int i,j;
	DWORD resulth=0,resultl=0,shift;
	DWORD IpShift[]={0x00000040,0x00000010,0x00000004,0x00000001,
					 0x00000080,0x00000020,0x00000008,0x00000002};
	DWORD mask=0x80000000;

	for(j=0;j<4;j++)			//转换前4行		
	{
		shift=IpShift[j];
		for(i=0;i<4;i++)		//置换表每行前4个
		{
			if((*inputl&shift)!=0)
				resulth|=mask;
			mask>>=1;
			shift<<=8;
		}
		
		shift=IpShift[j];
		for(i=0;i<4;i++)		//置换表每行后4个
		{
			if((*inputh&shift)!=0)
				resulth|=mask;
			mask>>=1;
			shift<<=8;
		}
	}
	
	mask=0x80000000;
	for(j=4;j<8;j++)			//转换后4行
	{
		shift=IpShift[j];
		for(i=0;i<4;i++)
		{
			if((*inputl&shift)!=0)
				resultl|=mask;
			mask>>=1;
			shift<<=8;
		}
		
		shift=IpShift[j];
		for(i=0;i<4;i++)
		{
			if((*inputh&shift)!=0)
				resultl|=mask;
			mask>>=1;
			shift<<=8;
		}
	}

	*inputh=resulth;
	*inputl=resultl;
}

//DES中的IP-1置换(64bit->64bit)
void WINAPI ZHIP1(DWORD *inputh,DWORD *inputl)
{
	int i,j;
	DWORD resulth=0,resultl=0,shift;
	DWORD Ip1Shift[]={0x01000000,0x02000000,0x04000000,0x08000000,
					  0x10000000,0x20000000,0x40000000,0x80000000};
	DWORD mask=0x80000000;

	for(j=0;j<4;j++)			//转换前4行
	{
		shift=Ip1Shift[j];
		for(i=0;i<4;i++)
		{
			if((*inputl&shift)!=0)
				resulth|=mask;
			mask>>=1;
			if((*inputh&shift)!=0)
				resulth|=mask;
			mask>>=1;
			shift>>=8;
		}
	}
	
	mask=0x80000000;
	for(j=4;j<8;j++)			//转换后4行
	{
		shift=Ip1Shift[j];
		for(i=0;i<4;i++)
		{
			if((*inputl&shift)!=0)
				resultl|=mask;
			mask>>=1;
			if((*inputh&shift)!=0)
				resultl|=mask;
			mask>>=1;
			shift>>=8;
		}
	}

	*inputh=resulth;
	*inputl=resultl;
}

//DES中的E置换(32bit->48bit)
void WINAPI ZHE(DWORD *input,DWORD *outputh,DWORD *outputl)
{
	int i;
	DWORD resulth=0,resultl=0;
	BYTE index;
	DWORD mask=0x80000000;
	
	for(i=0;i<24;i++)
	{
		index=etable[i];
		if((*input&ZhMask[index])!=0)
			resulth|=mask;
		mask>>=1;
	}
	
	mask=0x80000000;
	for(i=24;i<48;i++)