(Visual Basic 6.0) Verify an XML Signature with Multiple References

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' 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 New ChilkatHttp
Dim sbXml As New ChilkatStringBuilder
Dim success As Long
success = http.QuickGetSb("https://www.chilkatsoft.com/exampleData/envelopedMultipleRefs.xml",sbXml)
If (success <> 1) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

' Load the XML containing the signature to be verified.
Dim verifier As New ChilkatXmlDSig
success = verifier.LoadSignatureSb(sbXml)
If (success <> 1) Then
    Debug.Print verifier.LastErrorText
    Exit Sub
End If

Dim verifyReferenceDigests As Long
verifyReferenceDigests = 1

' The quick way to validate all references and the signature over the SignedInfo
' is to call VerifySignature with verifyReferenceDigests equal to 1.
Dim verified As Long
verified = verifier.VerifySignature(verifyReferenceDigests)
Debug.Print "Signature and all reference digests verified = " & verified

' Let's pretend the call to VerifySignature returned 0.  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 0 to VerifySignature.
' This allows us to skip the hashing and checking each Reference.  
verifyReferenceDigests = 0
Dim signedInfoVerified As Long
signedInfoVerified = verifier.VerifySignature(verifyReferenceDigests)
Debug.Print "Neglecting the reference hashes, the SignedInfo validation result = " & signedInfoVerified

' We can also verify each reference digest separately
Dim numRefs As Long
numRefs = verifier.NumReferences
Dim i As Long
i = 0
Do While i < numRefs
    Dim refDigestVerified As Long
    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