<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en">
<head>
<title>正在跳转...CAS</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css" media="screen"></style>
</head>
<body id="" onload="">
正在跳转!请稍侯...
<OBJECT id="XEnroll" classid="clsid:127698e4-e730-4e5c-a2b1-21490a70c8a1" codebase="xenroll.dll"></OBJECT>
<!--OBJECT id=XEnroll codeBase=xenrlinf.cab#Version=5,131,3659,0 classid=clsid:127698e4-e730-4e5c-a2b1-21490a70c8a1 name=XEnroll VIEWASTEXT></OBJECT -->
<OBJECT id=oCAPICOM codeBase=capicom.cab#version=2,0,0,3 classid=clsid:A996E48C-D3DC-4244-89F7-AFA33EC60679></OBJECT>
<script type="text/vbscript">
'该示例代码为CA证书自动检查和安装解决方案程序!其基于Active X控件运行。主要解决https协议证书的认证签名问题,不需要你支付任何费用即可以使https协议地址无障碍访问。注意该页面程序放置于http协议地址下,然后跳转到目标https协议地址即可。
Dim sPKCS7
Dim n
sPKCS7=""
'证书的base64编码内容
sPKCS7="" & vbcrlf &"-----BEGIN CERTIFICATE-----" & vbcrlf &"MIICYTCCAcqgAwIBAgIESUD1mjANBgkqhkiG9w0BAQUFADB1MQswCQYDVQQGEwJj" & vbcrlf &"bjEQMA4GA1UECBMHVW5rbm93bjEQMA4GA1UEBxMHVW5rbm93bjEQMA4GA1UEChMH" & vbcrlf &"VW5rbm93bjEQMA4GA1UECxMHVW5rbm93bjEeMBwGA1UEAxMVcGFzc3BvcnQuc25h" & vbcrlf &"aWMuZ292LmNuMB4XDTA4MTIxMTExMTIyNloXDTEzMTIxMDExMTIyNlowdTELMAkG" & vbcrlf &"A1UEBhMCY24xEDAOBgNVBAgTB1Vua25vd24xEDAOBgNVBAcTB1Vua25vd24xEDAO" & vbcrlf &"BgNVBAoTB1Vua25vd24xEDAOBgNVBAsTB1Vua25vd24xHjAcBgNVBAMTFXBhc3Nw" & vbcrlf &"b3J0LnNuYWljLmdvdi5jbjCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAilv1" & vbcrlf &"JhqZWqagv0D1QX3HrrNNFGWlFsigzz7L+IsDL/VxXCR57oiQS5tpFLh8NHr7aYLi" & vbcrlf &"WryziHw3Weh0VPtl8uyt24wmmH6IZEV5n4mSRMc9T5YSvTtBiMW+73AvlVq3oFHr" & vbcrlf &"5iXFD2cfd2xM1ZHMknQuq1S3W5QLYDgyIqW+PcsCAwEAATANBgkqhkiG9w0BAQUF" & vbcrlf &"AAOBgQBAJBjp1+Sm07S+7IK7gs3IzJCWsDA1poc8klmvupTRyGT8x6N/cQE+rcFJ" & vbcrlf &"AYP/QGZyqG4j9kr7B4NHyhTQAvtPiLB7We9iDhzvNK7P132LI1md8/uHLSyIpAS8" & vbcrlf &"Ml2D8WsDEpfACY8gd+DxbN2W33q+tn4W4oviwYPiwYvBBs1iRQ==" & vbcrlf &"-----END CERTIFICATE-----"
If haveInstalled("1d81 d8b3 9287 0831 255d 89e8 7b44 05ea 3316 72e7") = 0 Then
n = XEnroll.InstallPKCS7Ex(sPKCS7)
if n = 0 then
Msgbox "没有安装测试根证书,请手动下载根证书,并安装!"
'成功安装,跳转到https地址的页面
Else window.location="login.jsp"
End If
'已经安装,跳转到https地址的页面
Else window.location="login.jsp"
End If
'haveInstalled判断证书是否已经安装,参数为证书的微缩图(哈希)码,每4位空格分开
function haveInstalled(str)
Dim storeName
Dim thumbprint
Dim thumbprint0
thumbprint0 = str
thumbprint0 = Replace(thumbprint0, " ", "")
thumbprint0 = UCase(thumbprint0)
Set st = CreateObject("CAPICOM.Store")
'get store name
storeName = "root"
'open store
st.Open 2, storeName, 0
haveInstalled = 0
For i = 1 to st.Certificates.Count
thumbprint = st.Certificates(i).thumbprint
thumbprint = Replace(thumbprint, " ", "")
thumbprint = UCase(thumbprint)
if thumbprint = thumbprint0 then
haveInstalled = 1
Exit For
end if
Next
end function
</script>
</body>
</html>
CA证书检查安装示例程序
3星 · 超过75%的资源 需积分: 10 142 浏览量
2009-02-04
12:58:25
上传
评论
收藏 164KB RAR 举报
super_zwj
- 粉丝: 6
- 资源: 14
最新资源
- 清明节班会课课件重置版更新
- mqtt客户端,适合初学者参考,使用的是mqttnet三方包
- 戴尔 latitude 5400 chromebook
- 基于单片机数显照度计的设计
- 全文检索使用国产达梦数据库实现全文检索的详细说明和实践探索
- SRS-CentOS7-x86-64-5.0-r1.zip
- 全文检索使用ElasticSearch实现全文检索的详细说明和实践探索
- Python《基于TensorFlow的人脸识别(面部表情识别)卷积神经网络 》+源代码+文档说明
- Python《利用bert预训练的中文模型进行文本分类 数据集中文情感分析语料》+源代码+文档说明
- Keil MDK主题美化和代码美化
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈