(AutoIt) SII XML Digital Signature

Example for SII XML Digital Signature.

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

Local $bSuccess = True

; Load the XML to be signed.
$oXmlToSign = ObjCreate("Chilkat.Xml")
$bSuccess = $oXmlToSign.LoadXmlFile("c:/aaworkarea/eduardo/sii_unsigned.xml")
If ($bSuccess = False) Then
    ConsoleWrite($oXmlToSign.LastErrorText & @CRLF)
    Exit
EndIf

; 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>

$oGen = ObjCreate("Chilkat.XmlDSigGen")

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

; -------- Reference 1 --------
$oXml1 = ObjCreate("Chilkat.Xml")
$oXml1.Tag = "Transforms"
$oXml1.UpdateAttrAt("Transform",True,"Algorithm","http://www.w3.org/TR/2001/REC-xml-c14n-20010315")

$oGen.AddSameDocRef2("F511T33","sha1",$oXml1,"")

; Provide a certificate + private key. (PFX password is test123)
$oCert = ObjCreate("Chilkat.Cert")
$bSuccess = $oCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If ($bSuccess <> True) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

$oGen.SetX509Cert($oCert,True)

$oGen.KeyInfoType = "X509Data+KeyValue"
$oGen.X509Type = "Certificate"

; Load XML to be signed...
$oSbXml = ObjCreate("Chilkat.StringBuilder")
$oXmlToSign.GetXmlSb($oSbXml)

$oGen.Behaviors = "IndentedSignature"

; Sign the XML...
$bSuccess = $oGen.CreateXmlDSigSb($oSbXml)
If ($bSuccess <> True) Then
    ConsoleWrite($oGen.LastErrorText & @CRLF)
    Exit
EndIf

; -----------------------------------------------

; Save the signed XML to a file.
$bSuccess = $oSbXml.WriteFile("c:/temp/qa_output/signedXml.xml","utf-8",False)

ConsoleWrite($oSbXml.GetAsString() & @CRLF)

; ----------------------------------------
; Verify the signatures we just produced...
$oVerifier = ObjCreate("Chilkat.XmlDSig")
$bSuccess = $oVerifier.LoadSignatureSb($oSbXml)
If ($bSuccess <> True) Then
    ConsoleWrite($oVerifier.LastErrorText & @CRLF)
    Exit
EndIf

Local $iNumSigs = $oVerifier.NumSignatures
Local $iVerifyIdx = 0
While $iVerifyIdx < $iNumSigs
    $oVerifier.Selector = $iVerifyIdx
Local $bVerified = $oVerifier.VerifySignature(True)
    If ($bVerified <> True) Then
        ConsoleWrite($oVerifier.LastErrorText & @CRLF)
        Exit
    EndIf

    $iVerifyIdx = $iVerifyIdx + 1
Wend
ConsoleWrite("All signatures were successfully verified." & @CRLF)