VBScript
VBScript
Create SOAP with one VeriFactu Digitally Signed Registration Record
See more Verifactu Examples
Creates a SOAP message containing a single digitally signed invoice registration record, formatted according to the specifications for Spain's Veri*Factu system.Chilkat VBScript Downloads
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)
success = 0
success = 1
' Create the following SOAP XML containing one Veri*Factu record to be signed...
' <?xml version="1.0" encoding="UTF-8"?>
' <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:sum="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd" xmlns:sum1="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd" xmlns:xd="http://www.w3.org/2000/09/xmldsig#">
' <soapenv:Header/>
' <soapenv:Body>
' <sum:RegFactuSistemaFacturacion>
' <sum:Cabecera>
' <sum1:ObligadoEmision>
' <sum1:NombreRazon>XYZ STORE SL</sum1:NombreRazon>
' <sum1:NIF>B99999999</sum1:NIF>
' </sum1:ObligadoEmision>
' <sum1:RemisionRequerimiento>
' <sum1:RefRequerimiento>3333333333</sum1:RefRequerimiento>
' <sum1:FinRequerimiento>S</sum1:FinRequerimiento>
' </sum1:RemisionRequerimiento>
' </sum:Cabecera>
' <sum:RegistroFactura>
' <sum1:RegistroAlta Id="001-2020003408">
' <sum1:IDVersion>1.0</sum1:IDVersion>
' <sum1:IDFactura>
' <sum1:IDEmisorFactura>89890001K</sum1:IDEmisorFactura>
' <sum1:NumSerieFactura>12345678-G66</sum1:NumSerieFactura>
' <sum1:FechaExpedicionFactura>03-02-2025</sum1:FechaExpedicionFactura>
' </sum1:IDFactura>
' <sum1:NombreRazonEmisor>certificado uno telematicas</sum1:NombreRazonEmisor>
' <sum1:Subsanacion>N</sum1:Subsanacion>
' <sum1:RechazoPrevio>N</sum1:RechazoPrevio>
' <sum1:TipoFactura>R3</sum1:TipoFactura>
' <sum1:TipoRectificativa>I</sum1:TipoRectificativa>
' <sum1:FacturasRectificadas>
' <sum1:IDFacturaRectificada>
' <sum1:IDEmisorFactura>89890001K</sum1:IDEmisorFactura>
' <sum1:NumSerieFactura>12345600-G66</sum1:NumSerieFactura>
' <sum1:FechaExpedicionFactura>01-04-2024</sum1:FechaExpedicionFactura>
' </sum1:IDFacturaRectificada>
' </sum1:FacturasRectificadas>
' <sum1:FechaOperacion>03-02-2025</sum1:FechaOperacion>
' <sum1:DescripcionOperacion>fecha entrega</sum1:DescripcionOperacion>
' <sum1:Destinatarios>
' <sum1:IDDestinatario>
' <sum1:NombreRazon>certificado dos telematicas</sum1:NombreRazon>
' <sum1:NIF>89890002E</sum1:NIF>
' </sum1:IDDestinatario>
' </sum1:Destinatarios>
' <sum1:Desglose>
' <sum1:DetalleDesglose>
' <sum1:ClaveRegimen>01</sum1:ClaveRegimen>
' <sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
' <sum1:TipoImpositivo>4</sum1:TipoImpositivo>
' <sum1:BaseImponibleOimporteNoSujeto>10</sum1:BaseImponibleOimporteNoSujeto>
' <sum1:CuotaRepercutida>0.4</sum1:CuotaRepercutida>
' </sum1:DetalleDesglose>
' <sum1:DetalleDesglose>
' <sum1:ClaveRegimen>01</sum1:ClaveRegimen>
' <sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
' <sum1:TipoImpositivo>21</sum1:TipoImpositivo>
' <sum1:BaseImponibleOimporteNoSujeto>100</sum1:BaseImponibleOimporteNoSujeto>
' <sum1:CuotaRepercutida>21</sum1:CuotaRepercutida>
' </sum1:DetalleDesglose>
' <sum1:DetalleDesglose>
' <sum1:ClaveRegimen>05</sum1:ClaveRegimen>
' <sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
' <sum1:TipoImpositivo>10</sum1:TipoImpositivo>
' <sum1:BaseImponibleOimporteNoSujeto>100</sum1:BaseImponibleOimporteNoSujeto>
' <sum1:CuotaRepercutida>10</sum1:CuotaRepercutida>
' </sum1:DetalleDesglose>
' </sum1:Desglose>
' <sum1:CuotaTotal>41.4</sum1:CuotaTotal>
' <sum1:ImporteTotal>241.4</sum1:ImporteTotal>
' <sum1:Encadenamiento>
' <sum1:RegistroAnterior>
' <sum1:IDEmisorFactura>89890001K</sum1:IDEmisorFactura>
' <sum1:NumSerieFactura>12345677-G33</sum1:NumSerieFactura>
' <sum1:FechaExpedicionFactura>15-04-2024</sum1:FechaExpedicionFactura>
' <sum1:Huella>C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5</sum1:Huella>
' </sum1:RegistroAnterior>
' </sum1:Encadenamiento>
' <sum1:SistemaInformatico>
' <sum1:NombreRazon>CERTIFICADO UNO TELEMATICAS</sum1:NombreRazon>
' <sum1:NIF>89890001K</sum1:NIF>
' <sum1:NombreSistemaInformatico>NombreSistemaInformatico</sum1:NombreSistemaInformatico>
' <sum1:IdSistemaInformatico>77</sum1:IdSistemaInformatico>
' <sum1:Version>1.0.03</sum1:Version>
' <sum1:NumeroInstalacion>383</sum1:NumeroInstalacion>
' <sum1:TipoUsoPosibleSoloVerifactu>S</sum1:TipoUsoPosibleSoloVerifactu>
' <sum1:TipoUsoPosibleMultiOT>N</sum1:TipoUsoPosibleMultiOT>
' <sum1:IndicadorMultiplesOT>N</sum1:IndicadorMultiplesOT>
' </sum1:SistemaInformatico>
' <sum1:FechaHoraHusoGenRegistro>2025-02-03T14:30:00+01:00</sum1:FechaHoraHusoGenRegistro>
' <sum1:TipoHuella>01</sum1:TipoHuella>
' <sum1:Huella>FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA</sum1:Huella>
' </sum1:RegistroAlta>
' </sum:RegistroFactura>
' </sum:RegFactuSistemaFacturacion>
' </soapenv:Body>
' </soapenv:Envelope>
registroAlta_id = "001-2020003408"
set xml = CreateObject("Chilkat.Xml")
xml.Tag = "soapenv:Envelope"
success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
success = xml.AddAttribute("xmlns:sum","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd")
success = xml.AddAttribute("xmlns:sum1","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd")
success = xml.AddAttribute("xmlns:xd","http://www.w3.org/2000/09/xmldsig#")
xml.UpdateChildContent "soapenv:Header",""
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NombreRazon","XYZ STORE SL"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NIF","B99999999"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:RefRequerimiento","3333333333"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:FinRequerimiento","S"
' This Id is URI in the XML digital signature Reference.
success = xml.UpdateAttrAt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta",1,"Id",registroAlta_id)
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDVersion","1.0"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:IDEmisorFactura","89890001K"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:NumSerieFactura","12345678-G66"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:FechaExpedicionFactura","03-02-2025"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:NombreRazonEmisor","certificado uno telematicas"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Subsanacion","N"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:RechazoPrevio","N"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoFactura","R3"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoRectificativa","I"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:IDEmisorFactura","89890001K"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:NumSerieFactura","12345600-G66"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:FechaExpedicionFactura","01-04-2024"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaOperacion","03-02-2025"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:DescripcionOperacion","fecha entrega"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NombreRazon","certificado dos telematicas"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NIF","89890002E"
i = 0
xml.I = i
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1"
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",4
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",10
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida","0.4"
i = i + 1
xml.I = i
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1"
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",21
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",21
i = i + 1
xml.I = i
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",05
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1"
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",10
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",10
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:CuotaTotal","41.4"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:ImporteTotal","241.4"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:IDEmisorFactura","89890001K"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:NumSerieFactura","12345677-G33"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:FechaExpedicionFactura","15-04-2024"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:Huella","C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreRazon","CERTIFICADO UNO TELEMATICAS"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NIF","89890001K"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreSistemaInformatico","NombreSistemaInformatico"
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IdSistemaInformatico",77
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:Version","1.0.03"
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NumeroInstalacion",383
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleSoloVerifactu","S"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleMultiOT","N"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IndicadorMultiplesOT","N"
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaHoraHusoGenRegistro","2025-02-03T14:30:00+01:00"
xml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoHuella",01
xml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Huella","FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA"
' Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
set sbSigId = CreateObject("Chilkat.StringBuilder")
success = sbSigId.Append("xmldsig-")
success = sbSigId.AppendUuid(1)
' Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue"
set sbSigValueId = CreateObject("Chilkat.StringBuilder")
success = sbSigValueId.AppendSb(sbSigId)
success = sbSigValueId.Append("-sigvalue")
' Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops"
set sbSignedPropsId = CreateObject("Chilkat.StringBuilder")
success = sbSignedPropsId.AppendSb(sbSigId)
success = sbSignedPropsId.Append("-signedprops")
' Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0"
set sbObjectRefId = CreateObject("Chilkat.StringBuilder")
success = sbObjectRefId.AppendSb(sbSigId)
success = sbObjectRefId.Append("-ref0")
set gen = CreateObject("Chilkat.XmlDSigGen")
gen.SigLocation = "soapenv:Envelope|soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta"
gen.SigLocationMod = 0
gen.SigId = sbSigId.GetAsString()
gen.SigNamespacePrefix = "ds"
gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
gen.SigValueId = sbSigValueId.GetAsString()
gen.SignedInfoCanonAlg = "C14N"
gen.SignedInfoDigestMethod = "sha256"
' Create an Object to be added to the Signature.
set object1 = CreateObject("Chilkat.Xml")
object1.Tag = "xades:QualifyingProperties"
success = object1.AddAttribute("xmlns:xades","http://uri.etsi.org/01903/v1.3.2#")
success = object1.AddAttribute("xmlns:xades141","http://uri.etsi.org/01903/v1.4.1#")
' "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
success = sbSigId.Prepend("#")
success = object1.AddAttribute("Target",sbSigId.GetAsString())
success = object1.UpdateAttrAt("xades:SignedProperties",1,"Id",sbSignedPropsId.GetAsString())
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT"
success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT"
success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT"
success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier","urn:oid:2.16.724.1.3.1.1.2.1.9"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description",""
success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue","G7roucf600+f03r/o0bAOQ6WAs0="
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyQualifiers|xades:SigPolicyQualifier|xades:SPURI","https://sede.administracion.gob.es/politica_de_firma_anexo_1.pdf"
success = sbObjectRefId.Prepend("#")
success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",1,"ObjectReference",sbObjectRefId.GetAsString())
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml"
success = gen.AddObject("",object1.GetXml(),"","")
' -------- Reference 1 --------
' The URI for this Reference is the registroAlta_id
success = gen.AddSameDocRef(registroAlta_id,"sha256","","","")
' Remove the "#"
success = sbObjectRefId.RemoveCharsAt(0,1)
success = gen.SetRefIdAttr(registroAlta_id,sbObjectRefId.GetAsString())
' -------- Reference 2 --------
success = gen.AddObjectRef(sbSignedPropsId.GetAsString(),"sha256","C14N","","http://uri.etsi.org/01903#SignedProperties")
' Provide a certificate + private key. (PFX password is test123)
set cert = CreateObject("Chilkat.Cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success = 0) Then
outFile.WriteLine(cert.LastErrorText)
WScript.Quit
End If
success = gen.SetX509Cert(cert,1)
gen.KeyInfoType = "X509Data+KeyValue"
gen.X509Type = "Certificate"
' Load XML to be signed...
set sbXml = CreateObject("Chilkat.StringBuilder")
success = xml.GetXmlSb(sbXml)
gen.Behaviors = "IndentedSignature,Base64Cr13Entity"
' Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If (success = 0) Then
outFile.WriteLine(gen.LastErrorText)
WScript.Quit
End If
' -----------------------------------------------
' Save the signed XML to a file.
success = sbXml.WriteFile("c:/temp/qa_output/signedSoapXml1.xml","utf-8",0)
outFile.WriteLine(sbXml.GetAsString())
' ----------------------------------------
' Verify the signatures we just produced...
set verifier = CreateObject("Chilkat.XmlDSig")
success = verifier.LoadSignatureSb(sbXml)
If (success = 0) Then
outFile.WriteLine(verifier.LastErrorText)
WScript.Quit
End If
numSigs = verifier.NumSignatures
verifyIdx = 0
Do While verifyIdx < numSigs
verifier.Selector = verifyIdx
verified = verifier.VerifySignature(1)
If (verified <> 1) Then
outFile.WriteLine(verifier.LastErrorText)
WScript.Quit
End If
verifyIdx = verifyIdx + 1
Loop
outFile.WriteLine("All signatures were successfully verified.")
outFile.Close