Mega Code Archive

 

Categories / VB.Net Tutorial / Security

 

Create a new instance of the CipherData class using CipherReference information

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