|
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Create SOAP with one VeriFactu Digitally Signed Registration RecordSee more Verifactu ExamplesCreates a SOAP message containing a single digitally signed invoice registration record, formatted according to the specifications for Spain's Veri*Factu system.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% 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 = Server.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 = Server.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 = Server.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 = Server.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 = Server.CreateObject("Chilkat.StringBuilder") success = sbObjectRefId.AppendSb(sbSigId) success = sbObjectRefId.Append("-ref0") set gen = Server.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 = Server.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 = Server.CreateObject("Chilkat.Cert") success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") If (success = 0) 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 = xml.GetXmlSb(sbXml) gen.Behaviors = "IndentedSignature,Base64Cr13Entity" ' Sign the XML... success = gen.CreateXmlDSigSb(sbXml) If (success = 0) 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/signedSoapXml1.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 = 0) 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> |
||||
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.