B4X

SII XML Digital Signature

See more uncategorized Examples

Example for SII XML Digital Signature. B4X

Dim success As Boolean = False

success = True

'  Load the XML to be signed.
Dim xmlToSign As ChilkatXml
xmlToSign.Initialize
success = xmlToSign.LoadXmlFile("c:/aaworkarea/eduardo/sii_unsigned.xml")
If success = False Then
    Log(xmlToSign.LastErrorText)
    Return
End If


'  The sample XML to be signed looks like this:

'  <?xml version="1.0" encoding="ISO-8859-1"?>
'  <EnvioDTE xmlns="http://www.sii.cl/SiiDte" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sii.cl/SiiDte EnvioDTE_v10.xsd" version="1.0">
'  <SetDTE ID="SetDocF0T33_20240425_170512">
'   <Caratula version="1.0">
'    <RutEmisor>99999999-4</RutEmisor>
'    <RutEnvia>12345678-6</RutEnvia>
'    <RutReceptor>888888000-K</RutReceptor>
'    <FchResol>2014-08-22</FchResol>
'    <NroResol>80</NroResol>
'    <TmstFirmaEnv>2024-04-25T17:05:13</TmstFirmaEnv>
'    <SubTotDTE>
'     <TpoDTE>33</TpoDTE>
'     <NroDTE>1</NroDTE>
'    </SubTotDTE>
'   </Caratula>
'  <DTE version="1.0">
'  <Documento ID="F555T55">
'  ...
'  </Documento>
'  </EnvioDTE>

Dim gen As ChilkatXmlDSigGen
gen.Initialize("gen")

gen.SigLocation = "EnvioDTE|SetDTE|DTE"
gen.SigLocationMod = 0
gen.SigNamespacePrefix = ""
gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
gen.SignedInfoCanonAlg = "C14N"
gen.SignedInfoDigestMethod = "sha1"

'  -------- Reference 1 --------
Dim xml1 As ChilkatXml
xml1.Initialize
xml1.Tag = "Transforms"
xml1.UpdateAttrAt("Transform", True, "Algorithm", "http://www.w3.org/TR/2001/REC-xml-c14n-20010315")

gen.AddSameDocRef2("F511T33", "sha1", xml1, "")

'  Provide a certificate + private key. (PFX password is test123)
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
If success <> True Then
    Log(cert.LastErrorText)
    Return
End If

gen.SetX509Cert(cert, True)

gen.KeyInfoType = "X509Data+KeyValue"
gen.X509Type = "Certificate"

'  Load XML to be signed...
Dim sbXml As ChilkatStringBuilder
sbXml.Initialize
xmlToSign.GetXmlSb(sbXml)

gen.Behaviors = "IndentedSignature"

'  Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If success <> True Then
    Log(gen.LastErrorText)
    Return
End If


'  -----------------------------------------------

'  Save the signed XML to a file.
success = sbXml.WriteFile("c:/temp/qa_output/signedXml.xml", "utf-8", False)

Log(sbXml.GetAsString)

'  ----------------------------------------
'  Verify the signatures we just produced...
Dim verifier As ChilkatXmlDSig
verifier.Initialize
success = verifier.LoadSignatureSb(sbXml)
If success <> True Then
    Log(verifier.LastErrorText)
    Return
End If


Dim numSigs As Int = verifier.NumSignatures
Dim verifyIdx As Int = 0
Do While verifyIdx < numSigs
    verifier.Selector = verifyIdx
    Dim verified As Boolean = verifier.VerifySignature(True)
    If verified <> True Then
        Log(verifier.LastErrorText)
        Return
    End If

    verifyIdx = verifyIdx + 1
Loop
Log("All signatures were successfully verified.")