开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 加密解密 > CA认证 > 查看源码
CaCertWizardSheet.cpp
资源名称：MiniCA2.rar　[点击查看]
上传用户：dengkfang
上传日期：2008-12-30
资源大小：5233k
文件大小：28k
源码类别：

CA认证

开发平台：

Visual C++

CaCertWizardSheet.cpp：源码内容
  1. // CaCertWizardSheet.cpp : implementation file
  2. //
  4. #include "stdafx.h"
  5. #include "minica.h"
  6. #define _WIN32_WINNT  0x0400
  7. #include "wincrypt.h"
  8. #include "CaCertWizardSheet.h"
  9. #include "MiniMainDlg.h"
  10. #include ".GenericClassLanguage.h"
  11. #include "minict.h"
  13. #ifdef _DEBUG
  14. #define new DEBUG_NEW
  15. #undef THIS_FILE
  16. static char THIS_FILE[] = __FILE__;
  17. #endif
  19. /////////////////////////////////////////////////////////////////////////////
  20. // CCaCertWizardSheet property page
  22. IMPLEMENT_DYNCREATE(CCaCertWizardSheet, CPropertyPage)
  24. CCaCertWizardSheet::CCaCertWizardSheet() : CPropertyPage(CCaCertWizardSheet::IDD)
  25. {
  26. //{{AFX_DATA_INIT(CCaCertWizardSheet)
  27. // NOTE: the ClassWizard will add member initialization here
  28. //}}AFX_DATA_INIT
  29. m_HinstLib = LoadLibrary(TEXT("Cryptui.dll"));
  30. }
  32. CCaCertWizardSheet::~CCaCertWizardSheet()
  33. {
  34.     FreeLibrary(m_HinstLib); 
  35. m_ImgList.DeleteImageList();
  36. }
  38. void CCaCertWizardSheet::DoDataExchange(CDataExchange* pDX)
  39. {
  40. CPropertyPage::DoDataExchange(pDX);
  41. //{{AFX_DATA_MAP(CCaCertWizardSheet)
  42. DDX_Control(pDX, IDC_B_V, m_BV);
  43. DDX_Control(pDX, IDC_B_NEXT, m_BNext);
  44. DDX_Control(pDX, IDC_B_MADE, m_BMade);
  45. DDX_Control(pDX, IDC_B_LAST, m_BLast);
  46. DDX_Control(pDX, IDC_TAB_SHEET, m_CaWizardSheet);
  47. //}}AFX_DATA_MAP
  48. }
  51. BEGIN_MESSAGE_MAP(CCaCertWizardSheet, CPropertyPage)
  52. //{{AFX_MSG_MAP(CCaCertWizardSheet)
  53. ON_BN_CLICKED(IDC_B_V, OnBV)
  54. ON_BN_CLICKED(IDC_B_MADE, OnBMade)
  55. ON_NOTIFY(TCN_SELCHANGE, IDC_TAB_SHEET, OnSelchangeTabSheet)
  56. ON_BN_CLICKED(IDC_B_LAST, OnBLast)
  57. ON_BN_CLICKED(IDC_B_NEXT, OnBNext)
  58. ON_WM_DESTROY()
  59. //}}AFX_MSG_MAP
  60. ON_NOTIFY_EX(TTN_NEEDTEXT, 0, OnToolTipNotify)
  61. END_MESSAGE_MAP()
  63. /////////////////////////////////////////////////////////////////////////////
  64. // CCaCertWizardSheet message handlers
  65. BOOL CCaCertWizardSheet::OnToolTipNotify( UINT id, NMHDR * pTTTStruct, LRESULT * pResult )
  66. {
  67. TOOLTIPTEXT *pTTT = (TOOLTIPTEXT *)pTTTStruct;    
  68.     UINT nID = pTTTStruct->idFrom;
  69. CString strText;
  70. switch(nID)
  71. {
  72. case IDC_B_MADE:
  73. CCaCertInfoPage::stuCERTINFO CERTINFO;
  74. stuSUBJECT * pCERT = NULL;
  75. m_PageInfo.GetCert(pCERT,CERTINFO);
  76. pCERT->RemoveAll(pCERT); //释放证书结构
  77. CString strFormat;
  78. strFormat = (CERTINFO.uCertFormat == 1) ? "DER" : "PEM";
  79. strText.Format("制作数字证书r密钥长度:%dn 有效期:%dn 证书格式%s", 
  80. CERTINFO.uCertLen, CERTINFO.uCertDay, strFormat);
  81. _tcscpy(pTTT->szText, strText);//设置
  82. return TRUE;
  83. }
  84. return FALSE;
  85. }
  87. BOOL CCaCertWizardSheet::OnInitDialog() 
  88. {
  89. CPropertyPage::OnInitDialog();
  90. // TODO: Add extra initialization here
  92. CXPStyleButtonST::SetAllThemeHelper(this, ((CMiniCaApp *)AfxGetApp())->GetThemeHelperST());
  94. m_BLast.SetIcon(IDI_ICON_LAST);//上一步
  95. m_BLast.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, 30);
  97. m_BNext.SetIcon(IDI_ICON_NEXT);//下一步
  98. m_BNext.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, 30);
  100. m_BV.SetIcon(IDI_ICON13);//预览
  101. m_BV.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, 30);
  103. m_BMade.SetIcon(IDI_ICON12);//制作
  104. m_BMade.OffsetColor(CButtonST::BTNST_COLOR_BK_IN, 30);
  108. // TODO: Add extra initialization here
  109. // CG: The following block was added by the ToolTips component.
  110. {
  111. // Create the ToolTip control.
  112. m_toolTip.Create(this);
  113. m_toolTip.AddTool(GetDlgItem(IDC_B_LAST), CMiniCaApp::NormalCode("返回上一步操作"));
  114. m_toolTip.AddTool(GetDlgItem(IDC_B_NEXT), CMiniCaApp::NormalCode("进入下一步操作"));
  115. m_toolTip.AddTool(GetDlgItem(IDC_B_V), CMiniCaApp::NormalCode("预览数字证书r密钥长度:384n 有效期:1天n 序号100"));
  116. m_toolTip.AddTool(GetDlgItem(IDC_B_MADE), LPSTR_TEXTCALLBACK);
  118. // TODO: Use one of the following forms to add controls:
  119. }
  120. // Tree initialization
  123. m_ImgList.Create(16,16,TRUE|ILC_COLOR24,16,1);
  125. HICON hIcon =  NULL;
  127. hIcon =  (HICON)::LoadImage(::AfxGetInstanceHandle(), 
  128. MAKEINTRESOURCE(IDI_ICON_CERTYPE), IMAGE_ICON, 16, 16, 0);
  129. m_ImgList.Add(hIcon);//0
  130. DestroyIcon(hIcon);
  133. hIcon = (HICON)::LoadImage(::AfxGetInstanceHandle(), 
  134. MAKEINTRESOURCE(IDI_ICON_CERTINFO), IMAGE_ICON, 16, 16, 0);
  135. m_ImgList.Add(hIcon);//1
  136. DestroyIcon(hIcon);
  138. hIcon = (HICON)::LoadImage(::AfxGetInstanceHandle(), 
  139. MAKEINTRESOURCE(IDI_ICON_CERTEXT), IMAGE_ICON, 16, 16, 0);
  140. m_ImgList.Add(hIcon);//2
  141. DestroyIcon(hIcon);
  143. hIcon = (HICON)::LoadImage(::AfxGetInstanceHandle(), 
  144. MAKEINTRESOURCE(IDI_ICON_CERTREPORT), IMAGE_ICON, 16, 16, 0);
  145. m_ImgList.Add(hIcon);//3
  146. DestroyIcon(hIcon);
  148. hIcon = (HICON)::LoadImage(::AfxGetInstanceHandle(), 
  149. MAKEINTRESOURCE(IDI_ICON_CERTSETUP), IMAGE_ICON, 16, 16, 0);
  150. m_ImgList.Add(hIcon);//4
  151. DestroyIcon(hIcon);
  153. hIcon = (HICON)::LoadImage(::AfxGetInstanceHandle(), 
  154. MAKEINTRESOURCE(IDI_ICON_CERTMAN), IMAGE_ICON, 16, 16, 0);
  155. m_ImgList.Add(hIcon);//5
  156. DestroyIcon(hIcon);
  158. m_CaWizardSheet.SetImageList(&m_ImgList);
  159. m_CaWizardSheet.AddPage(MiniCT_0200, 0, &m_PageType, IDD_PROPPAGE_CATYPE); //MiniCT_0200 "类型"
  160. m_CaWizardSheet.AddPage(MiniCT_0201, 1, &m_PageInfo, IDD_PROPPAGE_CAINFO); //MiniCT_0201 "信息"
  161. m_CaWizardSheet.AddPage(MiniCT_0202, 2, &m_PageExt, IDD_PROPPAGE_CAEXT); //MiniCT_0202 "扩展"
  162. m_CaWizardSheet.AddPage(MiniCT_0203, 3, &m_PageReport, IDD_PROPPAGE_CAREPORT);//MiniCT_0203 "报告"
  163. m_CaWizardSheet.AddPage(MiniCT_0204, 4, &m_PageIniSet, IDD_PROPPAGE_CAINI); //MiniCT_0204 "配置"
  164. m_CaWizardSheet.AddPage(MiniCT_0205, 5, &m_PageMan, IDD_PROPPAGE_CAMAN); //MiniCT_0205 "管理"
  166. m_CaWizardSheet.Show();
  167. m_PageReport.GetWizard(&m_PageType, &m_PageInfo, &m_PageExt);
  169. //这里没有报告,原因在于CCertDB中会进行报告,并且对存储路径赋值
  170. //这里报告可能因为路径未赋值而出现报告显示错误的情况
  171. //m_PageReport.ViewWizardInfo();
  173. return TRUE;  // return TRUE unless you set the focus to a control
  174.               // EXCEPTION: OCX Property Pages should return FALSE
  175. }
  177. void CCaCertWizardSheet::OnBV() //數證预览,只生成DER格式的证书
  178. {
  179. // TODO: Add your control notification handler code here
  180. int type = -1;
  181. char out[256] = {0};
  182. char certBuf[10240] = {0};
  183. char keyBuf[10240] = {0};
  184. char p12Buf[10240] = {0};
  186. UINT certLen = 10240,
  187.  keyLen = 10240,
  188.  p12Len = 10240;
  190. DWORD lenCert=0,lenKey=0;//公钥长度,私钥长度
  191. CString strCert,strKey,strPwd;//公私钥路径或内容,p12密钥
  193. CString KUSAGE,EKUSAGE;
  194. m_PageType.GetCert(KUSAGE,EKUSAGE,type);
  196. stuSUBJECT * pCERT = NULL;
  197. CCaCertInfoPage::stuCERTINFO CERTINFO;
  198. m_PageInfo.GetCert(pCERT,CERTINFO);
  200. stuCERTEXT * pCertExt = NULL;
  201. m_PageExt.GetCert(pCertExt);
  203. AddMsg(MiniCT_0206, M_WARING); //MiniCT_0206 "生成数证预览,证书密钥长度384,证书序号100,有效期1........"
  205. if(type == 0)//根证书
  206. {
  207. if(MakeRoot(pCERT,"(MiniCA)",384,100,0,
  208. "",NULL,NULL,pCertExt,certBuf,
  209. &certLen,keyBuf,&keyLen,p12Buf,
  210. &p12Len,out, DER))
  211. {
  212. SelectViewCert(certBuf,certLen);
  213. }
  214. else
  215. AddMsg(out,M_ERROR);
  216. }
  217. else
  218. {
  219. char strCert[10240] = {0};
  220. char strKey[10240] = {0};
  222. if(((CMiniCaApp *)AfxGetApp())->GetRootCert(strCert, lenCert, strKey, lenKey,strPwd))
  223. {
  224. stuCertPair RootPair(strCert,lenCert,strKey,lenKey,strPwd.GetBuffer(0));
  226. strPwd.ReleaseBuffer();
  228. if(DirectCert(RootPair,384,100,0,1,"",pCERT,"(MiniCA)",KUSAGE.GetBuffer(0),
  229. EKUSAGE.GetBuffer(0),pCertExt,
  230. certBuf,&certLen,keyBuf,&keyLen,p12Buf,&p12Len,out, DER))
  231. {
  232. SelectViewCert(certBuf,certLen);
  233. }
  234. else
  235. AddMsg(out,M_ERROR);
  237. KUSAGE.ReleaseBuffer();
  238. EKUSAGE.ReleaseBuffer();
  239. }
  240. }
  241. pCERT->RemoveAll(pCERT); //删除证书结构
  242. pCertExt->RemoveAll(pCertExt); //删除扩展结构
  244. }
  246. void CCaCertWizardSheet::OnBMade() 
  247. {
  248. // TODO: Add your control notification handler code here
  249. int type = -1;
  251. CString KUSAGE,EKUSAGE;
  252. m_PageType.GetCert(KUSAGE,EKUSAGE,type);
  254. stuSUBJECT *pCERT = NULL;
  255. CCaCertInfoPage::stuCERTINFO CERTINFO;
  256. m_PageInfo.GetCert(pCERT,CERTINFO);
  258. stuCERTEXT * pCertExt = NULL;
  259. m_PageExt.GetCert(pCertExt);
  262. switch(type)
  263. {
  264. case 0://根证书
  265. MakeRootCert(pCERT,CERTINFO);
  266. break;
  267. default:
  268. MakeCert(pCERT,CERTINFO,type,KUSAGE,EKUSAGE, pCertExt);
  269. break;
  270. }
  272. pCERT->RemoveAll(pCERT); //释放证书结构
  273. pCertExt->RemoveAll(pCertExt); //释放证书扩展结构
  274. }
  276. BOOL CCaCertWizardSheet::ViewCert(char * cert,UINT uCertLen)
  277. {
  278. //首先获得函数地址 GetProcAddress
  279. //BOOL WINAPI CryptUIDlgViewContext(
  280. //DWORD dwContextType,
  281. //const void* pvContext,
  282. //HWND hwnd,
  283. //LPCWSTR pwszTitle,
  284. //DWORD dwFlags,
  285. //void* pvReserved
  286. //);
  288. typedef BOOL (WINAPI *ViewContext) (DWORD , const void * ,HWND , LPCWSTR , DWORD , void* ); //注意此地的WINAPI
  289. ViewContext CryptUIDlgViewContext; 
  290. if(m_HinstLib)
  291. {
  292. CryptUIDlgViewContext = (ViewContext) GetProcAddress(m_HinstLib, TEXT("CryptUIDlgViewContext")); 
  293.         // If the function address is valid, call the function.
  294.         if (NULL != CryptUIDlgViewContext) 
  295.         {
  296. PCCERT_CONTEXT pCertContext = NULL; //证书上下文 张凯棠 commer  (卡门) 台中县
  297. pCertContext = CertCreateCertificateContext(
  298. X509_ASN_ENCODING, // The encoding type.
  299. (UCHAR *)cert, // The encoded data from
  300. uCertLen// the certificate retrieved.
  301. );
  302. if (pCertContext == NULL)
  303. {
  304. return FALSE;
  305. }
  308. BSTR bstrTitle = MiniCT_0207.AllocSysString();
  310. (CryptUIDlgViewContext)(CERT_STORE_CERTIFICATE_CONTEXT,   // Display a certificate.
  311.  pCertContext,                     // Pointer to the certificate
  312.  m_hWnd,
  313.  bstrTitle, //MiniCT_0207 "MiniCA 证书预览"
  314.  0,
  315.  NULL);
  317. ::SysFreeString(bstrTitle);
  319. if (pCertContext != NULL)
  320. CertFreeCertificateContext(pCertContext);
  321.         }
  322. else 
  323. {
  324. ((CMiniMainDlg *)GetParent())->ViewCertInfo(cert,uCertLen);
  325. AddMsg(MiniCT_0208, M_WARING); //MiniCT_0208 "此操作系统不支持外部数证预览,已转入内部预览"
  326. }
  327. }
  328. return TRUE;
  329. }
  331. void CCaCertWizardSheet::SelectViewCert(char * pCert,UINT uLenCert)
  332. {
  333. if(m_HinstLib)
  334. {
  335. CRect Rect;
  336. GetDlgItem(IDC_B_V)->GetWindowRect(&Rect);
  337. // CPoint point;
  338. // GetCursorPos(&point); // 当前鼠标坐标
  339. BCMenu menu;
  340. menu.LoadMenu(IDR_MENU_VIEWCERT);
  341. menu.LoadToolbar(IDR_MINICAMENU);
  343. CLanguage::TranslateMenu(&menu, MAKEINTRESOURCE(IDR_MENU_VIEWCERT));
  345. CMenu* pPopup = menu.GetSubMenu(0);
  346. ASSERT(pPopup);
  347. UINT nSelection = pPopup->TrackPopupMenu(TPM_LEFTALIGN|TPM_LEFTBUTTON|TPM_VERTICAL|
  348. TPM_NONOTIFY|TPM_RETURNCMD,Rect.left + Rect.Width()/2, Rect.top + Rect.Height()/2,
  349. this, NULL);
  350. menu.DestroyMenu();
  351. //返回菜单id
  352. if(nSelection == ID_MENUITEM_INSIDE)//MiniCA预览
  353. {
  354. AddMsg(MiniCT_0207); //MiniCT_0207 "MiniCA数证预览"
  355. ((CMiniMainDlg *)GetParent())->ViewCertInfo(pCert,uLenCert,0);
  356. }
  357. else if(nSelection == ID_MENUITEM_OUTSIDE)//系统预览
  358. {
  359. AddMsg(MiniCT_0209); //MiniCT_0209 "外部数证预览"
  360. ViewCert(pCert,uLenCert);
  361. }
  362. }
  363. else
  364. {
  365. AddMsg(MiniCT_0207); //MiniCT_0207 "MiniCA数证预览"
  366. ((CMiniMainDlg *)GetParent())->ViewCertInfo(pCert,uLenCert,0);
  367. }
  368. }
  370. void CCaCertWizardSheet::MakeRootCert(stuSUBJECT * pSUBJECT,CCaCertInfoPage::stuCERTINFO & CERTINFO)
  371. {
  372. CString m_Path(CERTINFO.cCertDir),m_ExtName(".cer");
  373. char out[256] = {0};
  374. char certBuf[10240] = {0};
  375. char keyBuf[10240] = {0};
  376. char p12Buf[10240] = {0};
  378. UINT certLen = 10240,
  379.  keyLen = 10240,
  380.  p12Len = 10240;
  382. //得到证书序号
  383. DWORD dCertSn = m_PageMan.GetCertSn();
  385. if(MakeRoot(pSUBJECT, "(MiniCA)",CERTINFO.uCertLen, dCertSn, CERTINFO.uCertDay,
  386. CERTINFO.cCertPwd, NULL, NULL, NULL, certBuf,
  387. &certLen, keyBuf, &keyLen, p12Buf, &p12Len, out, CERTINFO.uCertFormat))
  388. {
  390. UINT m_NameType = 0;
  391. CMiniMainDlg * pMain = (CMiniMainDlg *)AfxGetMainWnd();
  392. CCertDbPage * pDb = (CCertDbPage *)(pMain->GetPage("CCertDbPage"));
  393. if(pDb)
  394. {
  395. m_NameType = pDb->GetNameType();
  396. }
  398. CString strName;
  399. if(0 == m_NameType)//用户名
  400. {
  401. strName.Format("\R%s", pSUBJECT->GetCN());
  402. }
  403. else if(1 == m_NameType)//序号
  404. {
  405. strName.Format("\R%d", dCertSn);
  406. }
  407. else if(2 == m_NameType)//用户名 + 序号
  408. {
  409. strName.Format("\R%s%d", pSUBJECT->GetCN(), dCertSn);
  410. }
  411. else if(3 == m_NameType)//序号 + 用户名
  412. {
  413. strName.Format("\R%d%s", dCertSn, pSUBJECT->GetCN());
  414. }
  416. CString outCert = m_Path + strName + "Cert";
  417. outCert += m_ExtName;
  419. CString outKey = m_Path + strName + "Key";
  420. outKey += m_ExtName;
  422. CString p12 = m_Path  + strName + ".Pfx";
  424. FILE * pfc = fopen(outCert,"wb");
  425. if(pfc != NULL)
  426. {
  427. fwrite(certBuf,sizeof(char),certLen,pfc);
  428. fclose(pfc);
  429. pfc = fopen(outKey,"wb");
  430. if(pfc)
  431. {
  432. fwrite(keyBuf,sizeof(char),keyLen,pfc);
  433. fclose(pfc);
  434. AddMsg(MiniCT_0117); //MiniCT_0117
  435. }
  436. else
  437. {
  438. AddMsg(MiniCT_0116,M_ERROR); //MiniCT_0116
  439. return;
  440. }
  442. if(CERTINFO.bCertP12)
  443. {
  444. pfc = fopen(p12,"wb");
  445. if(pfc != 0)
  446. {
  447. fwrite(p12Buf,sizeof(char),p12Len,pfc);
  448. fclose(pfc);
  449. AddMsg(MiniCT_0119); //MiniCT_0119
  450. }
  451. else
  452. {
  453. AddMsg(MiniCT_0118); //MiniCT_0118
  454. return;
  455. }
  456. }
  457. }
  458. else
  459. {
  460. AddMsg(MiniCT_0115,M_ERROR); //MiniCT_0115
  461. return;
  462. }
  464. //证书信息保存进数据库
  465. m_PageMan.SaveDb(pSUBJECT, CERTINFO.uCertLen, 0, 
  466. CERTINFO.uCertDay, p12Buf, p12Len, CERTINFO.cCertPwd);
  467. }
  468. }
  470. void CCaCertWizardSheet::MakeCert(stuSUBJECT * pCERT,
  471.  CCaCertInfoPage::stuCERTINFO & CERTINFO,
  472.  const int type,
  473.  CString KUSAGE,CString EKUSAGE,
  474.  const stuCERTEXT * pCertExt)
  475. {
  477. DWORD lenCert=0,lenKey=0;//公钥长度,私钥长度
  478. CString strPwd;//公私钥路径或内容,p12密钥
  479. char cert[10240]={0},key[10240]={0},p12[10240]={0};
  480. UINT certl=10240,keyl=10240,p12l=10240;
  481. char out[256] = {0};
  482. int save = 0;
  483. CString m_Path(CERTINFO.cCertDir);
  484. CString pwd,path;
  485. char strCert[10240] = {0};
  486. char strKey[10240] = {0};
  487. if(((CMiniCaApp *)AfxGetApp())->GetRootCert(strCert, lenCert, strKey, lenKey,strPwd))
  488. {
  489. if(strlen(CERTINFO.cCertDir) == 0)//CSP
  490. {
  491. pwd = "";
  492. save = 0;
  493. }
  494. else
  495. {
  496. pwd.Format("%s",CERTINFO.cCertPwd);
  497. path.Format("%s",CERTINFO.cCertDir);
  498. save = 1;
  499. }
  502. stuCertPair RootPair(strCert,lenCert,strKey,lenKey,strPwd.GetBuffer(0));
  504. //是否生成证书成功了,如果成功则写入数据库,否则不写入
  505. DWORD dCertSn = m_PageMan.GetCertSn();
  506. if(dCertSn == -1)
  507. {
  508. AddMsg(MiniCT_0210,M_ERROR); //MiniCT_0210 "查询证书序号失败" 
  509. return;
  510. }
  512. //首先得到数据库里面的序号
  513. if(DirectCert(RootPair,CERTINFO.uCertLen,
  514. dCertSn,0,CERTINFO.uCertDay,pwd.GetBuffer(0),pCERT,"(MiniCA)",KUSAGE.GetBuffer(0),
  515. EKUSAGE.GetBuffer(0),pCertExt,
  516. cert,&certl,key,&keyl,p12,&p12l,out,CERTINFO.uCertFormat))
  517. {
  519. if(save)//磁盘
  520. {
  521. UINT m_NameType = 0;
  522. CMiniMainDlg * pMain = (CMiniMainDlg *)AfxGetMainWnd();
  523. CCertDbPage * pDb = (CCertDbPage *)(pMain->GetPage("CCertDbPage"));
  524. if(pDb)
  525. {
  526. m_NameType = pDb->GetNameType();
  527. }
  529. CString strName;
  530. if(0 == m_NameType)//用户名
  531. {
  532. strName.Format("\%s", pCERT->GetCN());
  533. }
  534. else if(1 == m_NameType)//序号
  535. {
  536. strName.Format("\%d", dCertSn);
  537. }
  538. else if(2 == m_NameType)//用户名 + 序号
  539. {
  540. strName.Format("\%s%d", pCERT->GetCN(), dCertSn);
  541. }
  542. else if(3 == m_NameType)//序号 + 用户名
  543. {
  544. strName.Format("\%d%s", dCertSn, pCERT->GetCN());
  545. }
  547. CString outCert = path + strName + "Cert.Cer";
  548. CString outKey = path + strName + "Key.Cer";
  549. CString p12path = path + strName + ".Pfx";
  551. FILE * pfc = fopen(outCert,"wb");
  552. if(!pfc)
  553. {
  554. AddMsg(MiniCT_0128,M_ERROR); //MiniCT_0128 "保存公钥文件失败"
  555. return;
  556. }
  558. fwrite(cert,sizeof(char),certl,pfc);
  559. fclose(pfc);
  561. pfc = fopen(outKey,"wb");
  562. if(!pfc)
  563. {
  564. AddMsg(MiniCT_0127,M_ERROR); //MiniCT_0127 "保存私钥文件失败"
  565. return;
  566. }
  568. fwrite(key,sizeof(char),keyl,pfc);
  569. fclose(pfc);
  570. AddMsg(MiniCT_0124); //MiniCT_0124 "生成证书成功"
  573. if(CERTINFO.bCertP12)
  574. {
  575. pfc = fopen(p12path,"wb");
  576. if(!pfc)
  577. {
  578. AddMsg(MiniCT_0126,M_ERROR); //MiniCT_0126 "保存PFX文件失败"
  579. return;
  580. }
  581. fwrite(p12,sizeof(char),p12l,pfc);
  582. fclose(pfc);
  583. AddMsg(MiniCT_0125); //MiniCT_0125 "证书PFX包制作成功"
  584. }
  585. }
  586. else//CSP
  587. {
  588. ImportCSP(p12,p12l,CERTINFO.cCertCsp,CERTINFO.cCertCon);
  589. //GetCspCertInfo(CERTINFO.cCertCsp,CERTINFO.cCertCon,0);
  590. }
  591. //证书信息保存进数据库
  592. m_PageMan.SaveDb(pCERT, CERTINFO.uCertLen, type, 
  593. CERTINFO.uCertDay, p12, p12l, pwd.GetBuffer(0));
  595. }
  596. else
  597. AddMsg(out,M_ERROR);
  598. }
  599. else
  600. AddMsg(MiniCT_0123,M_ERROR); //MiniCT_0123 "加载根证书失败"
  601. }
  604. void CCaCertWizardSheet::AddMsg(CString info, DWORD type)
  605. {
  606. ((CMiniMainDlg *)GetParent())->AddMsg(MiniCT_0000,info, type); //MiniCT_0000 "数证向导"
  607. }
  609. void  CCaCertWizardSheet::ShowError()
  610. {
  611. char Buffer[200];
  612. memset(Buffer,0,200);
  613. FormatMessage(                                                                                                                                                                                                                                                                                                                                                                                                     
  614. FORMAT_MESSAGE_FROM_SYSTEM,     // source and processing options
  615. NULL, // pointer to  message source
  616. GetLastError(), // requested message identifier
  617. 0, // language identifier for requested message
  618. Buffer, // pointer to message buffer
  619. 200, // maximum size of message buffer
  620. NULL // pointer to array of message inserts
  621. );
  622. AddMsg(Buffer,M_ERROR);
  623. }
  625. BOOL CCaCertWizardSheet::ImportCSP(char * memP12,UINT lenP12,CString szCSPName,CString szKeycon)
  626. {
  627. // TODO: Add your control notification handler code here
  628. long ret = 0;
  630. HCRYPTPROV hCryptProv = NULL; //指定CSP句柄
  631. BYTE  *szContainerName = NULL; //CONTAINER名称
  632. HCRYPTKEY hCryptKey = NULL ; //密钥句柄
  633. PCCERT_CONTEXT pCertContext = NULL; //证书上下文
  634. DWORD dwKeySpec;
  636. CRYPT_DATA_BLOB pPFX;
  637. HCERTSTORE hStore;
  638. HCRYPTKEY hUser;
  639. BYTE bData[10240];
  640. DWORD cbData = 10240;
  642. pPFX.cbData = lenP12;
  643. pPFX.pbData = (UCHAR *)memP12;
  645. // //new 改为动态调用
  647. //从PFX BLOB导入到指定证书库
  648. hStore = PFXImportCertStore(
  649. &pPFX,
  650. L"",  //Password
  651. CRYPT_EXPORTABLE); //得到证书库句柄
  653. if (hStore == NULL)
  654. {
  655. ShowError();
  656. return FALSE;
  657. }
  659. // search any certificate 通过证书库得到证书上下文 ---  也就是察看上面的文件中是否有证书信息
  660. if (!(pCertContext=CertFindCertificateInStore(
  661. hStore,
  662. X509_ASN_ENCODING,
  663. 0,
  664. CERT_FIND_ANY,
  665. NULL,
  666. NULL))) 
  667. {
  668. ShowError();
  669. return FALSE;
  670. }
  672. //new 改为动态调用
  673. // 对于指定证书上下文得到一个HCRYPTPROV句柄和 dwKeySpec 
  674. ret = CryptAcquireCertificatePrivateKey(//通过证书上下文得到CSP句柄
  675. pCertContext,
  676. CRYPT_ACQUIRE_CACHE_FLAG,
  677. NULL,
  678. &hCryptProv,//CSP句柄
  679. &dwKeySpec,//加密还是签名 AT_KEYEXCHANGE 1 AT_SIGNATURE 2 
  680. NULL
  681. );
  682. // CString strType;
  683. // strType.Format("密钥类型%d",dwKeySpec);
  684. // AfxMessageBox(strType);
  686. if (!ret)
  687. {
  688. ShowError();
  689. return FALSE;
  690. }
  692. ret = CryptGetUserKey(//得到密钥对句柄
  693. hCryptProv,
  694. dwKeySpec,
  695. &hUser
  696. );
  698. if (!ret)
  699. {
  700. ShowError();
  701. return FALSE;
  702. }
  704. ret = CryptExportKey( //将CSP中的密钥导出
  705. hUser,
  706. 0,
  707. PUBLICKEYBLOB,
  708. 0,
  709. bData,
  710. &cbData
  711. );  //PUBLICKEYBLOB -148         PRIVATEKEYBLOB - 596
  713. if (!ret)
  714. {
  715. ShowError();
  716. return FALSE;
  717. }
  719. CryptDestroyKey(hUser);
  721. CryptReleaseContext(hCryptProv, 0);
  724. hCryptProv = 0;
  726. if (RCRYPT_FAILED(CryptAcquireContext(&hCryptProv, szKeycon,
  727. szCSPName, PROV_RSA_FULL, CRYPT_NEWKEYSET)))
  728. {
  729. long err = GetLastError();
  730. if(0x8009000f == err)//对象已经存在 
  731. {
  732. if(::MessageBox(this->m_hWnd,MiniCT_0211, MiniCT_0212,MB_ICONQUESTION | MB_YESNO)==IDYES)
  733. //MiniCT_0211 "证书对象已经存在,是否覆盖"
  734. //MiniCT_0212 ,"CSP提示"
  735. {
  736. if (CryptAcquireContext(&hCryptProv, szKeycon,
  737. szCSPName, PROV_RSA_FULL, CRYPT_DELETEKEYSET))//删除对象
  738. {
  739. if (RCRYPT_FAILED(CryptAcquireContext(&hCryptProv, szKeycon,
  740. szCSPName, PROV_RSA_FULL, CRYPT_NEWKEYSET)))//重新创建
  741. {
  742. ShowError();
  743. return FALSE;
  744. }
  746. }
  747. }
  748. else
  749. {
  750. return FALSE;
  751. }
  753. }
  754. else
  755. {
  756. ShowError();
  757. return FALSE;
  758. }
  760. }
  762. if (RCRYPT_FAILED(CryptImportKey(
  763. hCryptProv,
  764. bData,
  765. cbData,
  766. 0,
  767. 0,
  768. &hUser)))
  769. {
  771. ShowError();
  772. return FALSE;
  773. }
  775. CryptDestroyKey(hUser);
  777. /* if (RCRYPT_FAILED(CryptGetUserKey(hCryptProv,
  778. dwKeySpec,
  779. &hUser)))
  780. {
  781. if (GetLastError() == ERROR_INVALID_PARAMETER)
  782. {
  783. }
  784. else
  785. {
  786. }
  787. }
  789. if (RCRYPT_FAILED(CryptSetKeyParam(
  790. hUser,
  791. KP_CERTIFICATE,
  792. pCertContext->pbCertEncoded,
  793. 0)))
  794. {
  795. ShowError();
  796. return FALSE;
  797. }
  799. CryptDestroyKey(hUser);
  800. */
  801. if (RCRYPT_FAILED(CryptReleaseContext(hCryptProv, 0)))
  802. {
  803. ShowError();
  804. return FALSE;
  805. }
  807. CertFreeCertificateContext(pCertContext);
  809. CertCloseStore(hStore,0);
  810. AddMsg(MiniCT_0213); //MiniCT_0213 "证书导入CSP成功"
  811. return TRUE;
  812. }
  814. long CCaCertWizardSheet::GetCspCertInfo(LPTSTR szCSPName, LPTSTR ContainerName, DWORD KeySpec)
  815. {
  816. long ret = 0;
  817. HCRYPTPROV hCryptProv = NULL; //指定CSP句柄
  818. BYTE  *szContainerName = NULL; //CONTAINER名称
  819. /// DWORD cbContainerName, maxcbContainerName;//CONTAINER长度
  820. BYTE CertBuff[4096]; //证书信息
  821. HCRYPTKEY hCryptKey = NULL; //密钥句柄
  822. PCCERT_CONTEXT pCertContext = NULL; //证书上下文
  823. // DWORD dwKeySpec;
  824. // DWORD dwFlags;
  825. DWORD dwCertLength;
  826. // char PIN[10];
  828. __try
  829. {
  830. //取得指定CSP的访问句柄
  831. ret = CryptAcquireContext(&hCryptProv,
  832. ContainerName,
  833. szCSPName,
  834. PROV_RSA_FULL,
  835. 0);
  836. if (ret == 0)
  837. {
  838.  ShowError();
  839. __leave;
  840. }
  842. //取得CONTAINER的名字列表中最大长度
  843. /* ret = CryptGetProvParam(hCryptProv,
  844. PP_ENUMCONTAINERS,
  845. NULL, //取得最大的名称长度
  846. &cbContainerName, 
  847. 0);
  848. if (ret == 0)
  849. {
  850. ShowError();
  851. __leave;
  852. }
  854. maxcbContainerName = cbContainerName;
  855. szContainerName = (BYTE*)malloc(cbContainerName);
  857. // 读取第一个CONTAINER名字
  858. dwFlags = CRYPT_FIRST;
  859. cbContainerName = maxcbContainerName;
  860. ret = CryptGetProvParam(hCryptProv,
  861. PP_ENUMCONTAINERS,
  862. szContainerName,
  863. &cbContainerName,
  864. dwFlags);
  865. if (ret == 0)
  866. {
  867. ShowError();
  868. __leave;
  869. }
  871. memset(PIN, 0, 10);
  872. PIN[0]='0';
  873. PIN[1]='0';
  874. PIN[2]='0';
  875. PIN[3]='0';
  876. //设置PIN值
  877. ret = CryptSetProvParam(hCryptProv,
  878. PP_KEYEXCHANGE_PIN,
  879. (unsigned char *)PIN,
  880. 0);
  881. if (ret == 0)
  882. {
  883. ShowError();
  884. __leave;
  885. }
  886. */
  887. //读取CONTAINER中的KEY
  888. ret = CryptGetUserKey(hCryptProv,
  889. AT_KEYEXCHANGE, 
  890. &hCryptKey);
  891. if (ret == 0)
  892. {
  893. ShowError();
  894. __leave;
  895. }
  897. //取得指定密钥相关的证书
  898. dwCertLength = sizeof(CertBuff);
  899. ret = CryptGetKeyParam(hCryptKey,
  900. KP_CERTIFICATE,
  901. CertBuff,
  902. &dwCertLength,
  903. 0);
  904. if (ret == 0)
  905. {
  906. ShowError();
  907. __leave;
  908. }
  910. char temp[100] = {0};
  911. pCertContext = CertCreateCertificateContext(
  912. X509_ASN_ENCODING, // The encoding type.
  913. CertBuff, // The encoded data from
  914. // the certificate retrieved.
  915. dwCertLength );
  916. if (pCertContext == NULL) 
  917. {//Not X.509 Certification
  918. __leave;
  919. }
  921. //new 改为动态调用
  922. /* CertGetNameString(   
  923.    pCertContext,   
  924.    CERT_NAME_SIMPLE_DISPLAY_TYPE,   
  925.    0,
  926.    NULL,   
  927.    (char *)temp,   
  928.    128);
  930. CertGetNameString(   
  931.    pCertContext,   
  932.    CERT_NAME_EMAIL_TYPE,   
  933.    0,
  934.    NULL,   
  935.    (char *)temp,   
  936.    128);
  938. CertGetNameString(   
  939.    pCertContext,   
  940.    CERT_NAME_SIMPLE_DISPLAY_TYPE,   
  941.    CERT_NAME_ISSUER_FLAG,
  942.    NULL,   
  943.    (char *)temp,   
  944.    128);*/
  946. /* CryptUIDlgViewContext(
  947. CERT_STORE_CERTIFICATE_CONTEXT,   // Display a certificate.
  948. pCertContext,                     // Pointer to the certificate
  949. m_hWnd,
  950. L"MiniCA 证书预览",
  951. 0,
  952. NULL);*/
  955. __leave;
  957. }
  958. __finally
  959. {
  960. if(pCertContext)
  961. CertFreeCertificateContext(pCertContext);
  962. if (hCryptKey)
  963. CryptDestroyKey(hCryptKey);
  964. if (hCryptProv)
  965. CryptReleaseContext(hCryptProv,0);
  966. if (szContainerName)
  967. free(szContainerName);
  968. return ret;
  969. }
  970. }
  972. void CCaCertWizardSheet::OnSelchangeTabSheet(NMHDR* pNMHDR, LRESULT* pResult) 
  973. {
  974. // TODO: Add your control notification handler code here
  975. //NM_TREEVIEW* pNMTreeView = (NM_TREEVIEW*)pNMHDR;
  976. int iSelect = m_CaWizardSheet.GetCurSel();
  977. if(iSelect > 3)//屏蔽
  978. {
  979. GetDlgItem(IDC_B_LAST)->EnableWindow(FALSE);
  980. GetDlgItem(IDC_B_NEXT)->EnableWindow(FALSE);
  981. }
  982. else
  983. {
  984. GetDlgItem(IDC_B_LAST)->EnableWindow(TRUE);
  985. GetDlgItem(IDC_B_NEXT)->EnableWindow(TRUE);
  986. }
  988. m_PageReport.ViewWizardInfo();
  989. *pResult = 0;
  990. }
  992. void CCaCertWizardSheet::OnBLast() 
  993. {
  994. // TODO: Add your control notification handler code here
  995. int iSelect = m_CaWizardSheet.GetCurSel();
  996. if(iSelect >= 4)
  997. {
  998. return;
  999. }
  1000. m_CaWizardSheet.SetCurSel(iSelect - 1);
  1001. m_PageReport.ViewWizardInfo();
  1002. }
  1004. void CCaCertWizardSheet::OnBNext() 
  1005. {
  1006. // TODO: Add your control notification handler code here
  1007. int iSelect = m_CaWizardSheet.GetCurSel();
  1008. if(iSelect >= 3)
  1009. return;
  1010. m_CaWizardSheet.SetCurSel(iSelect + 1);
  1011. m_PageReport.ViewWizardInfo();
  1012. }
  1014. //通过类名，返回制定属性页的对象指针
  1015. CWnd * CCaCertWizardSheet::GetPage(CString strPageName)
  1016. {
  1017. //枚举属性页
  1018. CRuntimeClass * prt = NULL;
  1020. prt = m_PageType.GetRuntimeClass();
  1021. if(strcmp( prt->m_lpszClassName, strPageName )  == 0 )
  1022. return &m_PageType;
  1024. prt = m_PageInfo.GetRuntimeClass();
  1025. if(strcmp( prt->m_lpszClassName, strPageName )  == 0 )
  1026. return &m_PageInfo;
  1028. prt = m_PageExt.GetRuntimeClass();
  1029. if(strcmp( prt->m_lpszClassName, strPageName )  == 0 )
  1030. return &m_PageExt;
  1033. prt = m_PageReport.GetRuntimeClass();
  1034. if(strcmp( prt->m_lpszClassName, strPageName )  == 0 )
  1035. return &m_PageReport;
  1037. prt = m_PageIniSet.GetRuntimeClass();
  1038. if(strcmp( prt->m_lpszClassName, strPageName )  == 0 )
  1039. return &m_PageIniSet;
  1041. prt = m_PageMan.GetRuntimeClass();
  1042. if(strcmp( prt->m_lpszClassName, strPageName )  == 0 )
  1043. return &m_PageMan;
  1045. return NULL;
  1046. }
  1048. void CCaCertWizardSheet::OnDestroy() 
  1049. {
  1050. CPropertyPage::OnDestroy();
  1051. // TODO: Add your message handler code here
  1052. m_PageType.DestroyWindow();
  1053. m_PageInfo.DestroyWindow();
  1054. m_PageExt.DestroyWindow();
  1055. m_PageMan.DestroyWindow();
  1056. m_PageReport.DestroyWindow();
  1057. m_PageIniSet.DestroyWindow();
  1058. }
  1060. void CCaCertWizardSheet::Language()
  1061. {
  1062. CLanguage::TranslateDialog(m_PageType.m_hWnd, MAKEINTRESOURCE(IDD_PROPPAGE_CATYPE));
  1063. m_PageType.TranslateCT();
  1065. CLanguage::TranslateDialog(m_PageInfo.m_hWnd, MAKEINTRESOURCE(IDD_PROPPAGE_CAINFO));
  1066. m_PageInfo.TranslateCT();
  1068. CLanguage::TranslateDialog(m_PageExt.m_hWnd, MAKEINTRESOURCE(IDD_PROPPAGE_CAEXT));
  1069. m_PageExt.TranslateCT();
  1071. CLanguage::TranslateDialog(m_PageReport.m_hWnd, MAKEINTRESOURCE(IDD_PROPPAGE_CAREPORT));
  1072. m_PageReport.ViewWizardInfo();
  1074. CLanguage::TranslateDialog(m_PageMan.m_hWnd, MAKEINTRESOURCE(IDD_PROPPAGE_CAMAN));
  1075. m_PageMan.TranslateCT();
  1077. CLanguage::TranslateDialog(m_PageIniSet.m_hWnd, MAKEINTRESOURCE(IDD_PROPPAGE_CAINI));
  1078. m_PageIniSet.TranslateCT();
  1080. CLanguage::TranslateDialog(this->m_hWnd, MAKEINTRESOURCE(IDD_PROPPAGE_CASHEET));
  1082. m_CaWizardSheet.SetPageName(0, MiniCT_0200);
  1083. m_CaWizardSheet.SetPageName(1, MiniCT_0201);
  1084. m_CaWizardSheet.SetPageName(2, MiniCT_0202);
  1085. m_CaWizardSheet.SetPageName(3, MiniCT_0203);
  1086. m_CaWizardSheet.SetPageName(4, MiniCT_0204);
  1087. m_CaWizardSheet.SetPageName(5, MiniCT_0205);
  1089. //翻译STATIC
  1090. SetDlgItemText(IDC_B_NEXT, MiniCT_10701);
  1091. SetDlgItemText(IDC_B_LAST, MiniCT_10702);
  1092. SetDlgItemText(IDC_B_MADE, MiniCT_10703);
  1093. SetDlgItemText(IDC_B_V, MiniCT_10704);
  1094. }
  1095. BOOL CCaCertWizardSheet::PreTranslateMessage(MSG* pMsg) 
  1096. {
  1097. // TODO: Add your specialized code here and/or call the base class
  1098. m_toolTip.RelayEvent(pMsg);
  1099. return CPropertyPage::PreTranslateMessage(pMsg);
  1100. }