RSA.rar_RSA 程序_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; } }