Visual Basic 6.0

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

See more XAdES Examples

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

Dim success As Long
success = 0

' 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 New ChilkatStringBuilder
success = sbXml.LoadFile("qa_data/xml_dsig/sii_cl/signed1.xml","iso-8859-1")
If (success = 0) Then
    Debug.Print "Failed to load input file."
    Exit Sub
End If

Dim dsig As New ChilkatXmlDSig

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

Dim bVerifyReferenceDigests As Long
bVerifyReferenceDigests = 1
Dim bVerified As Long
bVerified = dsig.VerifySignature(bVerifyReferenceDigests)
If (bVerified = 0) Then
    Debug.Print dsig.LastErrorText
    Exit Sub
End If

Debug.Print "Signature verified = " & bVerified