Xbase++

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. Xbase++

LOCAL nSuccess
LOCAL oSbXml
LOCAL oDsig
LOCAL nBVerifyReferenceDigests
LOCAL nBVerified

nSuccess := 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 
oSbXml := CreateObject("Chilkat.StringBuilder")
nSuccess := oSbXml:LoadFile("qa_data/xml_dsig/sii_cl/signed1.xml", "iso-8859-1")
IF (nSuccess == 0)
    ? "Failed to load input file."
    oSbXml:destroy()
    RETURN
ENDIF

oDsig := CreateObject("Chilkat.XmlDSig")

nSuccess := oDsig:LoadSignatureSb(oSbXml)
IF (nSuccess != 1)
    ? oDsig:LastErrorText
    oSbXml:destroy()
    oDsig:destroy()
    RETURN
ENDIF

nBVerifyReferenceDigests := 1
nBVerified := oDsig:VerifySignature(nBVerifyReferenceDigests)
IF (nBVerified == 0)
    ? oDsig:LastErrorText
    oSbXml:destroy()
    oDsig:destroy()
    RETURN
ENDIF

? "Signature verified = " + Str(nBVerified)

oSbXml:destroy()
oDsig:destroy()