AutoIt
AutoIt
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 AutoIt Downloads
Local $bSuccess = False
$bSuccess = True
; 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>
Local $sRegistroAlta_id = "001-2020003408"
$oXml = ObjCreate("Chilkat.Xml")
$oXml.Tag = "soapenv:Envelope"
$oXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
$oXml.AddAttribute("xmlns:sum","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd")
$oXml.AddAttribute("xmlns:sum1","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd")
$oXml.AddAttribute("xmlns:xd","http://www.w3.org/2000/09/xmldsig#")
$oXml.UpdateChildContent "soapenv:Header",""
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NombreRazon","XYZ STORE SL"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NIF","B99999999"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:RefRequerimiento","3333333333"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:FinRequerimiento","S"
; This Id is URI in the XML digital signature Reference.
$oXml.UpdateAttrAt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta",True,"Id",$sRegistroAlta_id)
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDVersion","1.0"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:IDEmisorFactura","89890001K"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:NumSerieFactura","12345678-G66"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:FechaExpedicionFactura","03-02-2025"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:NombreRazonEmisor","certificado uno telematicas"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Subsanacion","N"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:RechazoPrevio","N"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoFactura","R3"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoRectificativa","I"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:IDEmisorFactura","89890001K"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:NumSerieFactura","12345600-G66"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:FechaExpedicionFactura","01-04-2024"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaOperacion","03-02-2025"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:DescripcionOperacion","fecha entrega"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NombreRazon","certificado dos telematicas"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NIF","89890002E"
Local $i = 0
$oXml.I = $i
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1"
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",4
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",10
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida","0.4"
$i = $i + 1
$oXml.I = $i
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1"
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",21
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",21
$i = $i + 1
$oXml.I = $i
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",05
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1"
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",10
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",10
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:CuotaTotal","41.4"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:ImporteTotal","241.4"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:IDEmisorFactura","89890001K"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:NumSerieFactura","12345677-G33"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:FechaExpedicionFactura","15-04-2024"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:Huella","C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreRazon","CERTIFICADO UNO TELEMATICAS"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NIF","89890001K"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreSistemaInformatico","NombreSistemaInformatico"
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IdSistemaInformatico",77
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:Version","1.0.03"
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NumeroInstalacion",383
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleSoloVerifactu","S"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleMultiOT","N"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IndicadorMultiplesOT","N"
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaHoraHusoGenRegistro","2025-02-03T14:30:00+01:00"
$oXml.UpdateChildContentInt "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoHuella",01
$oXml.UpdateChildContent "soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Huella","FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA"
; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
$oSbSigId = ObjCreate("Chilkat.StringBuilder")
$oSbSigId.Append("xmldsig-")
$oSbSigId.AppendUuid(True)
; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue"
$oSbSigValueId = ObjCreate("Chilkat.StringBuilder")
$oSbSigValueId.AppendSb($oSbSigId)
$oSbSigValueId.Append("-sigvalue")
; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops"
$oSbSignedPropsId = ObjCreate("Chilkat.StringBuilder")
$oSbSignedPropsId.AppendSb($oSbSigId)
$oSbSignedPropsId.Append("-signedprops")
; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0"
$oSbObjectRefId = ObjCreate("Chilkat.StringBuilder")
$oSbObjectRefId.AppendSb($oSbSigId)
$oSbObjectRefId.Append("-ref0")
$oGen = ObjCreate("Chilkat.XmlDSigGen")
$oGen.SigLocation = "soapenv:Envelope|soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta"
$oGen.SigLocationMod = 0
$oGen.SigId = $oSbSigId.GetAsString()
$oGen.SigNamespacePrefix = "ds"
$oGen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
$oGen.SigValueId = $oSbSigValueId.GetAsString()
$oGen.SignedInfoCanonAlg = "C14N"
$oGen.SignedInfoDigestMethod = "sha256"
; Create an Object to be added to the Signature.
$oObject1 = ObjCreate("Chilkat.Xml")
$oObject1.Tag = "xades:QualifyingProperties"
$oObject1.AddAttribute("xmlns:xades","http://uri.etsi.org/01903/v1.3.2#")
$oObject1.AddAttribute("xmlns:xades141","http://uri.etsi.org/01903/v1.4.1#")
; "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
$oSbSigId.Prepend("#")
$oObject1.AddAttribute("Target",$oSbSigId.GetAsString())
$oObject1.UpdateAttrAt("xades:SignedProperties",True,"Id",$oSbSignedPropsId.GetAsString())
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT"
$oObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod",True,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT"
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT"
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT"
$oObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestMethod",True,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT"
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT"
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT"
$oObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestMethod",True,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT"
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT"
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT"
$oObject1.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"
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description",""
$oObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",True,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue","G7roucf600+f03r/o0bAOQ6WAs0="
$oObject1.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"
$oSbObjectRefId.Prepend("#")
$oObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",True,"ObjectReference",$oSbObjectRefId.GetAsString())
$oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml"
$oGen.AddObject("",$oObject1.GetXml(),"","")
; -------- Reference 1 --------
; The URI for this Reference is the registroAlta_id
$oGen.AddSameDocRef($sRegistroAlta_id,"sha256","","","")
; Remove the "#"
$oSbObjectRefId.RemoveCharsAt(0,1)
$oGen.SetRefIdAttr($sRegistroAlta_id,$oSbObjectRefId.GetAsString())
; -------- Reference 2 --------
$oGen.AddObjectRef($oSbSignedPropsId.GetAsString(),"sha256","C14N","","http://uri.etsi.org/01903#SignedProperties")
; 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 = False) 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")
$oXml.GetXmlSb($oSbXml)
$oGen.Behaviors = "IndentedSignature,Base64Cr13Entity"
; Sign the XML...
$bSuccess = $oGen.CreateXmlDSigSb($oSbXml)
If ($bSuccess = False) Then
ConsoleWrite($oGen.LastErrorText & @CRLF)
Exit
EndIf
; -----------------------------------------------
; Save the signed XML to a file.
$bSuccess = $oSbXml.WriteFile("c:/temp/qa_output/signedSoapXml1.xml","utf-8",False)
ConsoleWrite($oSbXml.GetAsString() & @CRLF)
; ----------------------------------------
; Verify the signatures we just produced...
$oVerifier = ObjCreate("Chilkat.XmlDSig")
$bSuccess = $oVerifier.LoadSignatureSb($oSbXml)
If ($bSuccess = False) 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)