rsa.c

RSA的可视化程序

/*-------------------------------------------------------
/*  《加密与解密》 第6章 加密算法   
/*   RSA算法应用
/*  (c) www.PEDIY.com  by 段钢 2002.12
-------------------------------------------------------*/
/*-----------------------------------------------------------*/
/* 本程序调用了MIRACL v4.74 大数运算库，编译前请参考MIRACL目 */
/* 录里的说明文件MSVISUAL.TXT安装 MIRACL 。                  */
/* MIRACL官方主页：http://indigo.ie/~mscott/                 */
/* 在实际应用中，建议模数至少为512位，并与SHA、MD5等算法结合 */
/* 起来。                                                    */
/*-----------------------------------------------------------*/

////////////////////////////////////////////////////////////////////

#include <stdio.h>
#include <windows.h>
#include <miracl.h>
#include "resource.h"
/*-------------------------------------------------------------*/
/* 定义子程序与全局变量、常量                                  */
/*-------------------------------------------------------------*/
HINSTANCE	hInst;
#define MAXINPUTLEN 200

/*-------------------------------------------------------------*/
/*  函数声明                                                   */
/*-------------------------------------------------------------*/
BOOL    CALLBACK MainDlg   (HWND, UINT, WPARAM, LPARAM) ;
BOOL    CALLBACK AboutDlgProc (HWND, UINT, WPARAM, LPARAM) ;
BOOL GenRegCode( HWND) ;

/*-------------------------------------------------------------*/
/* WinMain － 基于WIN32的程序的入口                            */
/*-------------------------------------------------------------*/

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow)
{
	hInst=hInstance;
	DialogBoxParam(hInstance, MAKEINTRESOURCE(IDD_MAINDLG), NULL, (DLGPROC)MainDlg,0);
	return 0;
}

/*-------------------------------------------------------------*/
/* AboutDlgProc － 关于窗口                                    */
/*-------------------------------------------------------------*/

BOOL CALLBACK AboutDlgProc (HWND hDlg, UINT message, 
                            WPARAM wParam, LPARAM lParam)
{
	switch (message)
	{
	case  WM_LBUTTONDOWN:
		PostMessage(hDlg, WM_NCLBUTTONDOWN, HTCAPTION, 0);
		return TRUE ;
        
	case WM_COMMAND :
		switch (LOWORD (wParam))  		            
		{
		case IDOK :
		case IDCANCEL :
			EndDialog (hDlg, 0) ;
			return TRUE ;
		 }
		  break ;
	 }
     return FALSE ;
}


/*-------------------------------------------------------------*/
/*  MainDlg － 主对话窗口                                      */
/*-------------------------------------------------------------*/
BOOL CALLBACK MainDlg(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{	

	switch (message)
	{    
	case WM_CLOSE:
		EndDialog(hDlg,0);
		break;
	case WM_COMMAND:
		switch (LOWORD(wParam))
		{ 
		case IDC_OK:
			SetFocus (GetDlgItem(hDlg,IDC_TXT1));
			if(GenRegCode(hDlg))                                       // GenRegCode(hDlg)为序列号计算子程序
			{
				MessageBoxA (NULL, TEXT ("注册成功！!"), TEXT ("恭喜！"), 0) ;
			}
			else
			{
				MessageBoxA (NULL, TEXT ("注册失败！!"), TEXT ("错误！"), 0) ;
			}

			break;

		case IDC_ABOUT :
		case IDM_HELP_ABOUT :
			DialogBox (hInst, MAKEINTRESOURCE (IDD_ABOUT), hDlg, AboutDlgProc) ;
			break;	

		case IDC_EXIT:
			PostQuitMessage(0);
		}
		break;
	case WM_INITDIALOG:
		SendMessage(hDlg,WM_SETICON,(WPARAM) 1,(LPARAM) LoadIconA(hInst,MAKEINTRESOURCE(IDI_ICON))); // 显示图标
		break;
	}
     return 0;
}


/*-------------------------------------------------------------*/
/* GenRegCode － RSA算法计算主函数                            */
/*-------------------------------------------------------------*/
BOOL GenRegCode( HWND hWnd) 
{
	int i;
	big n,e,c,m;             // 定义MIRACL的大数类型
	miracl *mip=mirsys(100,0);
	TCHAR szName[MAXINPUTLEN]= {0};
	TCHAR szSerial[MAXINPUTLEN]= {0};
	TCHAR szBuffer[MAXINPUTLEN]= {0}; // 初始化0很重要，否则big_to_bytes(0,C,&szBuffer,0)函数得到结果可能不正确
		
	GetDlgItemText(hWnd, IDC_TXT0, szName, sizeof(szName)/sizeof(TCHAR)+1);  // 取姓名
	if (strlen(szName)==0)                                                   
	{	
		return FALSE;
	}

	GetDlgItemText(hWnd, IDC_TXT1, szSerial, sizeof(szName)/sizeof(TCHAR)+1); // 取序列号

	for(i=0;szSerial[i]!=0;i++)                   // 检查输入的序列号是否为16进制数，为cinstr(M,szSerial)使用做准备
	{
		if(isxdigit(szSerial[i])==0)
		return FALSE;
	}

// MIRACL大数运算库运算 
//===================================================================================
// p=C75CB54BEDFA30AB
// q=A554665CC62120D3
// n=80C07AFC9D25404D6555B9ACF3567CF1
// d=651A40B9739117EF505DBC33EB8F442D
// e=10001
// 128 bit
	mip->IOBASE=16;               // 设定16进制模式	                            
	n=mirvar(0);                  // 初始化变量 
	e=mirvar(0);     
	m=mirvar(0);                  // m 放明文：注册码
	c=mirvar(0);                  // c 放密文
	
	cinstr(m,szSerial);	                           // 将输入的序列号转换成大数 ，这里szSerial	
	cinstr(n,"80C07AFC9D25404D6555B9ACF3567CF1");  // 初始化模数n	 
	cinstr(e,"10001");                             // 初始化公钥e

	if(compare(m,n) ==-1)                           // m < n ,才能对消息m加密
	{
		powmod(m,e,n,c);                               // 计算明文 c= m ^ e mod n

		big_to_bytes(0,c,&szBuffer,0);                 // 将 c 从大数转换成字节数组    
                              
		mirkill(n);
		mirkill(e);
		mirkill(m);
		mirkill(c);  
		mirexit();

		if(lstrcmp(szName, szBuffer)!=0)               // 比较姓名与序列号加密后数据的是否相等？
		{
			return FALSE;
		}
		else
		{
			return TRUE;
		}
	}
	else
	{
		return FALSE;
	}

}