Create a new instance of the CipherData class using CipherReference information. : CipherData « Security « VB.Net Tutorial

1. VB.Net Tutorial
2. Security
3. CipherData

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