Signing XML with a X509 Certificate

[Gustavo Quinteros]

I'm trying to sign a XML with a X509 Certificate (Like an email), and store
it in a database. I want to include the certificate in the XML in order to
display the certificate properties (like click in the red insignia in a
signed email message)
for this purpose I'm using Visual Basic .Net 2003 with WSE 2.0 preview
edition

I succefully signed the XML with a certificate installed in my repository

the next step (for I am asking help) is to include certificate properties in
XML for displaying purposes, and any way to call the certificate properties
dialog with this info.
This is the code I use:

Imports System
Imports System.IO
Imports System.Security.Cryptography
Imports System.Security.Cryptography.Xml
Imports System.Xml
Imports Microsoft.Web.Services.Security.X509
Imports Microsoft.Web.Services.Security

Public Class Form1
Inherits System.Windows.Forms.Form

Private Sub SignXML
Dim store As X509CertificateStore
store =
X509CertificateStore.CurrentUserStore(X509Certific ateStore.MyStore)
Dim open As Boolean = store.OpenRead()

Dim oCertif As X509Certificate
Dim oCertificado As X509Certificate

For Each oCertif In store.Certificates
If InStr(oCertif.GetName, "Gustavo") <> 0 Then
oCertificado = oCertif
End If
Next
Dim signedXml As New System.security.Cryptography.xml.SignedXml
Dim key As RSA = oCertificado.Key
signedXml.SigningKey = key
Dim document As New XmlDocument
Dim node As XmlNode = document.CreateNode(XmlNodeType.Element, "",
"MyElement", "samples")
node.InnerText = "This is some text"
document.AppendChild(node)
Dim dataObject As New DataObject

dataObject.Data = document.ChildNodes
dataObject.Id = "MyObjectId"

' Add the data object to the signature.
signedXml.AddObject(dataObject)

' Create a reference to be able to package everything into the
' message.
Dim reference As New System.security.Cryptography.xml.Reference
reference.Uri = "#MyObjectId"

' Add it to the message.
signedXml.AddReference(reference)
' Add a KeyInfo.
Dim keyInfo As New KeyInfo
keyInfo.AddClause(New RSAKeyValue(key))
signedXml.KeyInfo = keyInfo
' Compute the signature.

signedXml.ComputeSignature()

' Get the XML representation of the signature.
Dim xmlSignature As XmlElement = signedXml.GetXml()
Debug.Write(xmlSignature.OuterXml)

Dim oWriter As New XmlTextWriter("C:\1.xml",
System.Text.Encoding.UTF8)
xmlSignature.WriteTo(oWriter)
oWriter.Close()
End Sub

[Muzzy Co]

"Gustavo Quinteros" <gu*********@yahoo.com.ar> wrote in message
news:es**************@TK2MSFTNGP09.phx.gbl...

' Add a KeyInfo.
Dim keyInfo As New KeyInfo
keyInfo.AddClause(New RSAKeyValue(key))
signedXml.KeyInfo = keyInfo

Hi Gustavo, I am just beginer with XML Signature, but during last 3 dys a
managed to to what you intend to do.

try this, just after the code above
keyInfo.AddClause(New KeyInfoX509Data(oCertificado))

Muzzy