Xojo Plugin

Verify XML Digital Signature

See more XML Digital Signatures Examples

Verifies XML signatures in an XML file. Xojo Plugin

Dim success As Boolean
success = False

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

Dim sbXml As New Chilkat.StringBuilder
success = sbXml.LoadFile("qa_data/xml_dsig_verify/csioz_sample.xml","utf-8")
If (success <> True) Then
    System.DebugLog("Failed to load XML file.")
    Return
End If

Dim dsig As New Chilkat.XmlDSig

// First load the XML containing the signatures to be verified.
success = dsig.LoadSignatureSb(sbXml)
If (success <> True) Then
    System.DebugLog(dsig.LastErrorText)
    Return
End If

// It's possible that an XML document can contain multiple signatures.
// Each can be verified as follows:
Dim i As Int32
i = 0
While i < dsig.NumSignatures
    // Select the Nth signature by setting the Selector property.
    dsig.Selector = i

    // The bVerifyReferenceDigests argument determines if we want
    // to also verify each reference digest.  If set to False,
    // then only the SignedInfo part of the Signature is verified.
    Dim bVerifyReferenceDigests As Boolean
    bVerifyReferenceDigests = True
    Dim bVerified As Boolean
    bVerified = dsig.VerifySignature(bVerifyReferenceDigests)
    System.DebugLog("Signature " + Str(i + 1) + " verified = " + Str(bVerified))

    i = i + 1
Wend