keygen.c

RSA.EXE文件注册机C编写源程序简单明了

/*-------------------------------------------------------
/*  《加密与解密》 第6章 加密算法   
/*   RSA.EXE文件注册机
/*  (c) www.PEDIY.com  by 段钢 2002.12
-------------------------------------------------------*/
/*-----------------------------------------------------------*/
/* 本程序调用了MIRACL v4.74 大数运算库，编译前请参考MIRACL目 */
/* 录里的说明文件MSVISUAL.TXT安装 MIRACL 。                  */
/* MIRACL官方主页：http://indigo.ie/~mscott/                 */
/*-----------------------------------------------------------*/

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

#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_TXT0));
			GenRegCode(hDlg);

			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)));
		SendDlgItemMessage(hDlg, IDC_TXT0, EM_LIMITTEXT,16, 0);      //初始化edit控件IDC_TXT0字符长度
		                                                             //要保证szName<=16，这样生成szSerial才能比n小

		break;
	}
     return 0;
}


/*-------------------------------------------------------------*/
/* GenRegCode － 注册算法主函数                                */
/*-------------------------------------------------------------*/
BOOL GenRegCode( HWND hWnd) 
{
	int  len;	
	big n,d,c,m;
	miracl *mip=mirsys(100,0);

	TCHAR szName[MAXINPUTLEN]={0};
	TCHAR szSerial[MAXINPUTLEN]={0};
	TCHAR szBuffer[MAXINPUTLEN]={0};

	len=GetDlgItemText(hWnd, IDC_TXT0, szName, sizeof(szName)/sizeof(TCHAR)+1); // 取姓名
	if (strlen(szName)==0)
	{
		SetDlgItemText(hWnd, IDC_TXT1, "请输入字符");
		return FALSE;
	}
									
// MIRACL大数运算库运算 
//===================================================================================
// p=0xC75CB54BEDFA30AB
// q=0xA554665CC62120D3
// n=0x80C07AFC9D25404D6555B9ACF3567CF1
// d=0x651A40B9739117EF505DBC33EB8F442D
// e=0x10001
// 128 bit RSA
	   	
	mip->IOBASE=16;                                // 16进制模式
	c=mirvar(0);                                   // MIRACL的大数类型
	n=mirvar(0);
	d=mirvar(0);
	m=mirvar(0);

	bytes_to_big(len,szName,c);                    // 将姓名转换成大数
	cinstr(n,"80C07AFC9D25404D6555B9ACF3567CF1");  // 初始化模数n	 
	cinstr(d,"651A40B9739117EF505DBC33EB8F442D");  // 初始化私钥d
	powmod(c,d,n,m);	         	               // 计算m = (c ^ d) mod n
	cotstr(m,szSerial);                            // 将m的16进制串表示写入szSerial中，即为注册码

	mirkill(c);
	mirkill(n);
	mirkill(d);
	mirkill(m);
	mirexit();
 	SetDlgItemText(hWnd, IDC_TXT1,szSerial);       // 显示正确的序列号

	return TRUE;
}