Imports System
Imports System.Security.Cryptography.Xml
Imports System.Xml
Imports System.IO
Module Module1
Sub Main()
Dim uri As String = "http://www.host.com/document.xml"
Dim base64 As Transform = New XmlDsigBase64Transform
Dim tc As New TransformChain
tc.Add(base64)
Dim reference As CipherReference = New CipherReference(uri, tc)
Dim cd As CipherData = New CipherData(Reference)
Dim ed As New EncryptedData
ed.Id = "ID"
ed.EncryptionMethod = New EncryptionMethod("http://www.w3.org/2001/04/xmlenc#aes128-cbc")
ed.CipherData = cd
Dim ki As New KeyInfo
ki.AddClause(New KeyInfoRetrievalMethod("#EK", "http://www.w3.org/2001/04/xmlenc#EncryptedKey"))
ed.KeyInfo = ki
Dim doc As New XmlDocument
Dim encryptionPropertyElement As XmlElement = CType(doc.CreateElement("EncryptionProperty", EncryptedXml.XmlEncNamespaceUrl), XmlElement)
Dim ep As New EncryptionProperty(encryptionPropertyElement)
ed.AddProperty(ep)
File.WriteAllText("c:\d.xml", ed.GetXml().OuterXml)
End Sub
End Module
|