(Excel) Verify an XML Signature with Multiple References

Demonstrates how to verify an XML digital signature that contains multiple references.

Download Excel Class Modules Chilkat Excel Class Modules

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

' An example of an enveloping XML signature with mulitple references is available at
' https://www.chilkatsoft.com/exampleData/envelopedMultipleRefs.xml

' This example will show how to verify the signature and all references, and also how
' to verify each reference individually.  This is useful to distinguish which part
' of the XML signature validation failed.  It could be that one or more of the references
' failed because of a hash computation mismatch.  Or it could be that the signature over
' the SignedInfo failed.  

' First, let's grab the sample XML signature.
Dim http As Chilkat.Http
Set http = Chilkat.NewHttp
Dim sbXml As Chilkat.StringBuilder
Set sbXml = Chilkat.NewStringBuilder

success = http.QuickGetSb("https://www.chilkatsoft.com/exampleData/envelopedMultipleRefs.xml",sbXml)
If (success <> True) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

' Load the XML containing the signature to be verified.
Dim verifier As Chilkat.XmlDSig
Set verifier = Chilkat.NewXmlDSig
success = verifier.LoadSignatureSb(sbXml)
If (success <> True) Then
    Debug.Print verifier.LastErrorText
    Exit Sub
End If


verifyReferenceDigests = True

' The quick way to validate all references and the signature over the SignedInfo
' is to call VerifySignature with verifyReferenceDigests equal to True.

verified = verifier.VerifySignature(verifyReferenceDigests)
Debug.Print "Signature and all reference digests verified = "; verified

' Let's pretend the call to VerifySignature returned False.  Something did not validate.
' Was it one or more of the References that did not hash to the correct value?
' Or was it the signature over the SignedInfo that failed?
' We can check just the signature over the SignedInfo by passing False to VerifySignature.
' This allows us to skip the hashing and checking each Reference.  
verifyReferenceDigests = False

signedInfoVerified = verifier.VerifySignature(verifyReferenceDigests)
Debug.Print "Neglecting the reference hashes, the SignedInfo validation result = "; signedInfoVerified

' We can also verify each reference digest separately

numRefs = verifier.NumReferences

i = 0
Do While i < numRefs

    refDigestVerified = verifier.VerifyReferenceDigest(i)
    Debug.Print "Reference "; i; " digest verified = "; refDigestVerified
    i = i + 1
Loop

' For this sample XML signature with 3 References, we get the following output:

' Signature and all reference digests verified = True
' Neglecting the reference hashes, the SignedInfo validation result = True
' Reference 0 digest verified = True
' Reference 1 digest verified = True
' Reference 2 digest verified = Tru