|
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
(PureBasic) 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.
IncludeFile "CkXmlDSigGen.pb" IncludeFile "CkXml.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkXmlDSig.pb" IncludeFile "CkCert.pb" Procedure ChilkatExample() success.i = 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.s = "001-2020003408" xml.i = CkXml::ckCreate() If xml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::setCkTag(xml, "soapenv:Envelope") CkXml::ckAddAttribute(xml,"xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") CkXml::ckAddAttribute(xml,"xmlns:sum","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd") CkXml::ckAddAttribute(xml,"xmlns:sum1","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd") CkXml::ckAddAttribute(xml,"xmlns:xd","http://www.w3.org/2000/09/xmldsig#") CkXml::ckUpdateChildContent(xml,"soapenv:Header","") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NombreRazon","XYZ STORE SL") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NIF","B99999999") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:RefRequerimiento","3333333333") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:FinRequerimiento","S") ; This Id is URI in the XML digital signature Reference. CkXml::ckUpdateAttrAt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta",1,"Id",registroAlta_id) CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDVersion","1.0") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:IDEmisorFactura","89890001K") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:NumSerieFactura","12345678-G66") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:FechaExpedicionFactura","03-02-2025") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:NombreRazonEmisor","certificado uno telematicas") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Subsanacion","N") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:RechazoPrevio","N") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoFactura","R3") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoRectificativa","I") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:IDEmisorFactura","89890001K") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:NumSerieFactura","12345600-G66") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:FechaExpedicionFactura","01-04-2024") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaOperacion","03-02-2025") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:DescripcionOperacion","fecha entrega") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NombreRazon","certificado dos telematicas") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NIF","89890002E") i.i = 0 CkXml::setCkI(xml, i) CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01) CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1") CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",4) CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",10) CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida","0.4") i = i + 1 CkXml::setCkI(xml, i) CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01) CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1") CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",21) CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100) CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",21) i = i + 1 CkXml::setCkI(xml, i) CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",05) CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1") CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",10) CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100) CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",10) CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:CuotaTotal","41.4") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:ImporteTotal","241.4") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:IDEmisorFactura","89890001K") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:NumSerieFactura","12345677-G33") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:FechaExpedicionFactura","15-04-2024") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:Huella","C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreRazon","CERTIFICADO UNO TELEMATICAS") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NIF","89890001K") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreSistemaInformatico","NombreSistemaInformatico") CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IdSistemaInformatico",77) CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:Version","1.0.03") CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NumeroInstalacion",383) CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleSoloVerifactu","S") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleMultiOT","N") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IndicadorMultiplesOT","N") CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaHoraHusoGenRegistro","2025-02-03T14:30:00+01:00") CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoHuella",01) CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Huella","FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA") ; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a" sbSigId.i = CkStringBuilder::ckCreate() If sbSigId.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkStringBuilder::ckAppend(sbSigId,"xmldsig-") CkStringBuilder::ckAppendUuid(sbSigId,1) ; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue" sbSigValueId.i = CkStringBuilder::ckCreate() If sbSigValueId.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkStringBuilder::ckAppendSb(sbSigValueId,sbSigId) CkStringBuilder::ckAppend(sbSigValueId,"-sigvalue") ; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops" sbSignedPropsId.i = CkStringBuilder::ckCreate() If sbSignedPropsId.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkStringBuilder::ckAppendSb(sbSignedPropsId,sbSigId) CkStringBuilder::ckAppend(sbSignedPropsId,"-signedprops") ; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0" sbObjectRefId.i = CkStringBuilder::ckCreate() If sbObjectRefId.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkStringBuilder::ckAppendSb(sbObjectRefId,sbSigId) CkStringBuilder::ckAppend(sbObjectRefId,"-ref0") gen.i = CkXmlDSigGen::ckCreate() If gen.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXmlDSigGen::setCkSigLocation(gen, "soapenv:Envelope|soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta") CkXmlDSigGen::setCkSigLocationMod(gen, 0) CkXmlDSigGen::setCkSigId(gen, CkStringBuilder::ckGetAsString(sbSigId)) CkXmlDSigGen::setCkSigNamespacePrefix(gen, "ds") CkXmlDSigGen::setCkSigNamespaceUri(gen, "http://www.w3.org/2000/09/xmldsig#") CkXmlDSigGen::setCkSigValueId(gen, CkStringBuilder::ckGetAsString(sbSigValueId)) CkXmlDSigGen::setCkSignedInfoCanonAlg(gen, "C14N") CkXmlDSigGen::setCkSignedInfoDigestMethod(gen, "sha256") ; Create an Object to be added to the Signature. object1.i = CkXml::ckCreate() If object1.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::setCkTag(object1, "xades:QualifyingProperties") CkXml::ckAddAttribute(object1,"xmlns:xades","http://uri.etsi.org/01903/v1.3.2#") CkXml::ckAddAttribute(object1,"xmlns:xades141","http://uri.etsi.org/01903/v1.4.1#") ; "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a" CkStringBuilder::ckPrepend(sbSigId,"#") CkXml::ckAddAttribute(object1,"Target",CkStringBuilder::ckGetAsString(sbSigId)) CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties",1,"Id",CkStringBuilder::ckGetAsString(sbSignedPropsId)) CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT") CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT") CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT") CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier","urn:oid:2.16.724.1.3.1.1.2.1.9") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description","") CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1") CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue","G7roucf600+f03r/o0bAOQ6WAs0=") CkXml::ckUpdateChildContent(object1,"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") CkStringBuilder::ckPrepend(sbObjectRefId,"#") CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",1,"ObjectReference",CkStringBuilder::ckGetAsString(sbObjectRefId)) CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml") CkXmlDSigGen::ckAddObject(gen,"",CkXml::ckGetXml(object1),"","") ; -------- Reference 1 -------- ; The URI for this Reference is the registroAlta_id CkXmlDSigGen::ckAddSameDocRef(gen,registroAlta_id,"sha256","","","") ; Remove the "#" CkStringBuilder::ckRemoveCharsAt(sbObjectRefId,0,1) CkXmlDSigGen::ckSetRefIdAttr(gen,registroAlta_id,CkStringBuilder::ckGetAsString(sbObjectRefId)) ; -------- Reference 2 -------- CkXmlDSigGen::ckAddObjectRef(gen,CkStringBuilder::ckGetAsString(sbSignedPropsId),"sha256","C14N","","http://uri.etsi.org/01903#SignedProperties") ; Provide a certificate + private key. (PFX password is test123) cert.i = CkCert::ckCreate() If cert.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkCert::ckLoadPfxFile(cert,"qa_data/pfx/cert_test123.pfx","test123") If success = 0 Debug CkCert::ckLastErrorText(cert) CkXml::ckDispose(xml) CkStringBuilder::ckDispose(sbSigId) CkStringBuilder::ckDispose(sbSigValueId) CkStringBuilder::ckDispose(sbSignedPropsId) CkStringBuilder::ckDispose(sbObjectRefId) CkXmlDSigGen::ckDispose(gen) CkXml::ckDispose(object1) CkCert::ckDispose(cert) ProcedureReturn EndIf CkXmlDSigGen::ckSetX509Cert(gen,cert,1) CkXmlDSigGen::setCkKeyInfoType(gen, "X509Data+KeyValue") CkXmlDSigGen::setCkX509Type(gen, "Certificate") ; Load XML to be signed... sbXml.i = CkStringBuilder::ckCreate() If sbXml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::ckGetXmlSb(xml,sbXml) CkXmlDSigGen::setCkBehaviors(gen, "IndentedSignature,Base64Cr13Entity") ; Sign the XML... success = CkXmlDSigGen::ckCreateXmlDSigSb(gen,sbXml) If success = 0 Debug CkXmlDSigGen::ckLastErrorText(gen) CkXml::ckDispose(xml) CkStringBuilder::ckDispose(sbSigId) CkStringBuilder::ckDispose(sbSigValueId) CkStringBuilder::ckDispose(sbSignedPropsId) CkStringBuilder::ckDispose(sbObjectRefId) CkXmlDSigGen::ckDispose(gen) CkXml::ckDispose(object1) CkCert::ckDispose(cert) CkStringBuilder::ckDispose(sbXml) ProcedureReturn EndIf ; ----------------------------------------------- ; Save the signed XML to a file. success = CkStringBuilder::ckWriteFile(sbXml,"c:/temp/qa_output/signedSoapXml1.xml","utf-8",0) Debug CkStringBuilder::ckGetAsString(sbXml) ; ---------------------------------------- ; Verify the signatures we just produced... verifier.i = CkXmlDSig::ckCreate() If verifier.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkXmlDSig::ckLoadSignatureSb(verifier,sbXml) If success = 0 Debug CkXmlDSig::ckLastErrorText(verifier) CkXml::ckDispose(xml) CkStringBuilder::ckDispose(sbSigId) CkStringBuilder::ckDispose(sbSigValueId) CkStringBuilder::ckDispose(sbSignedPropsId) CkStringBuilder::ckDispose(sbObjectRefId) CkXmlDSigGen::ckDispose(gen) CkXml::ckDispose(object1) CkCert::ckDispose(cert) CkStringBuilder::ckDispose(sbXml) CkXmlDSig::ckDispose(verifier) ProcedureReturn EndIf numSigs.i = CkXmlDSig::ckNumSignatures(verifier) verifyIdx.i = 0 While verifyIdx < numSigs CkXmlDSig::setCkSelector(verifier, verifyIdx) verified.i = CkXmlDSig::ckVerifySignature(verifier,1) If verified <> 1 Debug CkXmlDSig::ckLastErrorText(verifier) CkXml::ckDispose(xml) CkStringBuilder::ckDispose(sbSigId) CkStringBuilder::ckDispose(sbSigValueId) CkStringBuilder::ckDispose(sbSignedPropsId) CkStringBuilder::ckDispose(sbObjectRefId) CkXmlDSigGen::ckDispose(gen) CkXml::ckDispose(object1) CkCert::ckDispose(cert) CkStringBuilder::ckDispose(sbXml) CkXmlDSig::ckDispose(verifier) ProcedureReturn EndIf verifyIdx = verifyIdx + 1 Wend Debug "All signatures were successfully verified." CkXml::ckDispose(xml) CkStringBuilder::ckDispose(sbSigId) CkStringBuilder::ckDispose(sbSigValueId) CkStringBuilder::ckDispose(sbSignedPropsId) CkStringBuilder::ckDispose(sbObjectRefId) CkXmlDSigGen::ckDispose(gen) CkXml::ckDispose(object1) CkCert::ckDispose(cert) CkStringBuilder::ckDispose(sbXml) CkXmlDSig::ckDispose(verifier) ProcedureReturn EndProcedure |
||||
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.