登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>XML教程>>XML应用>>设置和验证XML文档的数字签名
设置和验证XML文档的数字签名
来源:不详 ‖ 作者:佚名 ‖ 点击: ‖ 时间:13-07-06 11:05:08 ‖ 【 】‖ 我要投稿
Imports System
Imports System.Security.Cryptography
Imports System.Security.Cryptography.Xml
Imports System.Xml
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ’ Create a new CspParameters object to specify
        ’ a key container.
        Dim cspParams As New CspParameters()
        cspParams.KeyContainerName = "XML_DSIG_RSA_KEY"
        ’ Create a new RSA signing key and save it in the container. 
        Dim rsaKey As New RSACryptoServiceProvider(cspParams)
        ’ Create a new XML document.
        Dim xmlDoc As New XmlDocument()
        ’ Load an XML file into the XmlDocument object.
        xmlDoc.PreserveWhitespace = True
        xmlDoc.LoadXml("可以使用 System.Security.Cryptography.Xml 命名空间中的类通过数字签名对XML   ``` 文档或 XML 文档的部分进行签名")
        ’ Sign the XML document. 
        SignXml(xmlDoc, rsaKey)
        MsgBox("XML file signed.")
        ’ Save the document.
        xmlDoc.Save("c:\ok.xml")
        MsgBox(VerifyXml(xmlDoc, rsaKey))
    End Sub

    ’ Sign an XML file. 
    ’ This document cannot be verified unless the verifying 
    ’ code has the key with which it was signed.
    Sub SignXml(ByVal Doc As XmlDocument, ByVal Key As RSA)
        ’ Check arguments.
        If Doc Is Nothing Then
            Throw New ArgumentException("Doc")
|<< << < 1 2 3 > >> >>|
加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
  • 上一篇:如何实现XML+XSL+javascript数据排序
  • 下一篇:无
  • 相关文章列表
    请文明参与讨论,禁止漫骂攻击。  
    网友评论