高手进，如何注册（安装）证书

[chayedanwc]

我有一个“.p7b”证书，用于Excel的VBA授权，想写个程序安装该证书，需要安装到“受信任的根证书颁发机构”和“受信任的发布者”中，如何写程序实现？
求大神帮忙。

下面有一段代码，但是CertCreateCertificateContext调用失败。

void CInstallCertificateDlg::OnBnClickedButtonInstall()
{
	HCERTSTORE pfxStore = 0;
	HCERTSTORE myStore = 0;
	HCERTSTORE hFileStore = 0;
	HANDLE hsection = 0;
	void* pfx = NULL;
	HANDLE hfile = INVALID_HANDLE_VALUE;
	PCCERT_CONTEXT pctx = NULL;

	// Get path of the CA certificate from the edit box
	// Open it...
	hfile = CreateFile(_T("excel.p7b"), FILE_READ_DATA, FILE_SHARE_READ, 0, OPEN_EXISTING, 0, 0);
	if (INVALID_HANDLE_VALUE == hfile)
	{
		::MessageBox(NULL,_T("Certificate not found. Check that the path indicated is correct."),_T("information"), MB_ICONERROR);
		return;
	}
	hsection = CreateFileMapping(hfile, 0, PAGE_READONLY, 0, 0, 0);
	if (!hsection)
	{
		goto EXIT;
	}
	pfx = MapViewOfFile(hsection, FILE_MAP_READ, 0, 0, 0);
	if (!pfx)
	{
		goto EXIT;
	}
	int nFilesize=GetFileSize(hfile,0);
	pctx = CertCreateCertificateContext(MY_ENCODING_TYPE, (BYTE*)pfx,nFilesize );
	DWORD dwError = GetLastError();
	if(pctx == NULL)
	{
		goto EXIT;
	}
	// we open the store for the CA
	hFileStore = CertOpenStore(CERT_STORE_PROV_SYSTEM, 0, 0, CERT_STORE_OPEN_EXISTING_FLAG | CERT_SYSTEM_STORE_LOCAL_MACHINE, L"Root" );

	if (!hFileStore)
	{
		goto EXIT;
	}
	if(!CertAddCertificateContextToStore(hFileStore, pctx, CERT_STORE_ADD_NEW, 0))
	{

		DWORD err = GetLastError();
		if (CRYPT_E_EXISTS == err)
		{
			if(::MessageBox(NULL,_T("An equivalent previous personal certificate already exists. Overwrite ? (Yes/No)"),_T("Prompt"), MB_YESNO) == IDYES)
			{
				if (!CertAddCertificateContextToStore(hFileStore, pctx, CERT_STORE_ADD_REPLACE_EXISTING, 0))
				{
					goto EXIT;
				}
			}
		}
		else
		{
			goto EXIT;
		}
	}
	return;
EXIT:
	return;

}

[chayedanwc]

问题解决了，跟大家分享一下方法 上述的代码是完整的安装root证书的代码，问题在于证书的类型，将证书“excel.p7b”设置为X509类型的证书就正常了。

[oyljerry]

感谢分享.

[liuli7786]

自己动手，丰衣足食，不错不错！感谢分享。

[傻X]

收藏了，感觉这个帖子可以推荐下。

[jimette]