B4X

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. B4X

Dim success As Boolean = False

'  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 ChilkatStringBuilder
sbXml.Initialize
success = sbXml.LoadFile("qa_data/xml_dsig/sii_cl/signed1.xml", "iso-8859-1")
If success = False Then
    Log("Failed to load input file.")
    Return
End If


Dim dsig As ChilkatXmlDSig
dsig.Initialize

success = dsig.LoadSignatureSb(sbXml)
If success <> True Then
    Log(dsig.LastErrorText)
    Return
End If


Dim bVerifyReferenceDigests As Boolean = True
Dim bVerified As Boolean = dsig.VerifySignature(bVerifyReferenceDigests)
If bVerified = False Then
    Log(dsig.LastErrorText)
    Return
End If


Log("Signature verified = " & bVerified)