Classic ASP
SII XML Digital Signature

Example for SII XML Digital Signature.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

success = 1

' Load the XML to be signed.
set xmlToSign = Server.CreateObject("Chilkat.Xml")
success = xmlToSign.LoadXmlFile("c:/aaworkarea/eduardo/sii_unsigned.xml")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( xmlToSign.LastErrorText) & "</pre>"
    Response.End
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>

set gen = Server.CreateObject("Chilkat.XmlDSigGen")

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 --------
set xml1 = Server.CreateObject("Chilkat.Xml")
xml1.Tag = "Transforms"
success = xml1.UpdateAttrAt("Transform",1,"Algorithm","http://www.w3.org/TR/2001/REC-xml-c14n-20010315")

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

' Provide a certificate + private key. (PFX password is test123)
set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

success = gen.SetX509Cert(cert,1)

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

' Load XML to be signed...
set sbXml = Server.CreateObject("Chilkat.StringBuilder")
success = xmlToSign.GetXmlSb(sbXml)

gen.Behaviors = "IndentedSignature"

' Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( gen.LastErrorText) & "</pre>"
    Response.End
End If

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

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

Response.Write "<pre>" & Server.HTMLEncode( sbXml.GetAsString()) & "</pre>"

' ----------------------------------------
' Verify the signatures we just produced...
set verifier = Server.CreateObject("Chilkat.XmlDSig")
success = verifier.LoadSignatureSb(sbXml)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( verifier.LastErrorText) & "</pre>"
    Response.End
End If

numSigs = verifier.NumSignatures
verifyIdx = 0
Do While verifyIdx < numSigs
    verifier.Selector = verifyIdx
    verified = verifier.VerifySignature(1)
    If (verified <> 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( verifier.LastErrorText) & "</pre>"
        Response.End
    End If

    verifyIdx = verifyIdx + 1
Loop
Response.Write "<pre>" & Server.HTMLEncode( "All signatures were successfully verified.") & "</pre>"

%>
</body>
</html>