(Excel) Verify Factura Electronica Chile SII (iso-8859-1)

Demonstrates how to verify SII XML stored as iso-8859-1 having just a single signature.

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.

' The signed XML to be verified in this example contains the following:

' <?xml version="1.0" encoding="ISO-8859-1"?>
' <DTE version="1.0" xmlns="http://www.sii.cl/SiiDte">
' <Documento ID="F13T34">
' ...
' </Documento>
' <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
' ....
' </Signature>
' </DTE>

' Load the signed XML into sbXml -- telling Chilkat to interpret the bytes as iso-8859-1 
Dim sbXml As Chilkat.StringBuilder
Set sbXml = Chilkat.NewStringBuilder

success = sbXml.LoadFile("qa_data/xml_dsig/sii_cl/signed1.xml","iso-8859-1")
If (success = False) Then
    Debug.Print "Failed to load input file."
    Exit Sub
End If

Dim dsig As Chilkat.XmlDSig
Set dsig = Chilkat.NewXmlDSig

success = dsig.LoadSignatureSb(sbXml)
If (success <> True) Then
    Debug.Print dsig.LastErrorText
    Exit Sub
End If


bVerifyReferenceDigests = True

bVerified = dsig.VerifySignature(bVerifyReferenceDigests)
If (bVerified = False) Then
    Debug.Print dsig.LastErrorText
    Exit Sub
End If

Debug.Print "Signature verified = "; bVerified