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

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

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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 
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbXml = CreateObject("Chilkat.StringBuilder")
success = sbXml.LoadFile("qa_data/xml_dsig/sii_cl/signed1.xml","iso-8859-1")
If (success = 0) Then
    outFile.WriteLine("Failed to load input file.")
    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.XmlDSig")
set dsig = CreateObject("Chilkat.XmlDSig")

success = dsig.LoadSignatureSb(sbXml)
If (success <> 1) Then
    outFile.WriteLine(dsig.LastErrorText)
    WScript.Quit
End If

bVerifyReferenceDigests = 1
bVerified = dsig.VerifySignature(bVerifyReferenceDigests)
If (bVerified = 0) Then
    outFile.WriteLine(dsig.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Signature verified = " & bVerified)

outFile.Close