Unicode C
Unicode C
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 Unicode C Downloads
#include <C_CkXmlW.h>
#include <C_CkStringBuilderW.h>
#include <C_CkXmlDSigGenW.h>
#include <C_CkCertW.h>
#include <C_CkXmlDSigW.h>
void ChilkatSample(void)
{
BOOL success;
const wchar_t *registroAlta_id;
HCkXmlW xml;
int i;
HCkStringBuilderW sbSigId;
HCkStringBuilderW sbSigValueId;
HCkStringBuilderW sbSignedPropsId;
HCkStringBuilderW sbObjectRefId;
HCkXmlDSigGenW gen;
HCkXmlW object1;
HCkCertW cert;
HCkStringBuilderW sbXml;
HCkXmlDSigW verifier;
int numSigs;
int verifyIdx;
BOOL verified;
success = FALSE;
success = 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>
registroAlta_id = L"001-2020003408";
xml = CkXmlW_Create();
CkXmlW_putTag(xml,L"soapenv:Envelope");
CkXmlW_AddAttribute(xml,L"xmlns:soapenv",L"http://schemas.xmlsoap.org/soap/envelope/");
CkXmlW_AddAttribute(xml,L"xmlns:sum",L"https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd");
CkXmlW_AddAttribute(xml,L"xmlns:sum1",L"https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd");
CkXmlW_AddAttribute(xml,L"xmlns:xd",L"http://www.w3.org/2000/09/xmldsig#");
CkXmlW_UpdateChildContent(xml,L"soapenv:Header",L"");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NombreRazon",L"XYZ STORE SL");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NIF",L"B99999999");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:RefRequerimiento",L"3333333333");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:FinRequerimiento",L"S");
// This Id is URI in the XML digital signature Reference.
CkXmlW_UpdateAttrAt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta",TRUE,L"Id",registroAlta_id);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDVersion",L"1.0");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:IDEmisorFactura",L"89890001K");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:NumSerieFactura",L"12345678-G66");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:FechaExpedicionFactura",L"03-02-2025");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:NombreRazonEmisor",L"certificado uno telematicas");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Subsanacion",L"N");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:RechazoPrevio",L"N");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoFactura",L"R3");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoRectificativa",L"I");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:IDEmisorFactura",L"89890001K");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:NumSerieFactura",L"12345600-G66");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:FechaExpedicionFactura",L"01-04-2024");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaOperacion",L"03-02-2025");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:DescripcionOperacion",L"fecha entrega");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NombreRazon",L"certificado dos telematicas");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NIF",L"89890002E");
i = 0;
CkXmlW_putI(xml,i);
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion",L"S1");
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",4);
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",10);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",L"0.4");
i = i + 1;
CkXmlW_putI(xml,i);
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion",L"S1");
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",21);
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100);
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",21);
i = i + 1;
CkXmlW_putI(xml,i);
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",05);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion",L"S1");
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",10);
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100);
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",10);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:CuotaTotal",L"41.4");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:ImporteTotal",L"241.4");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:IDEmisorFactura",L"89890001K");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:NumSerieFactura",L"12345677-G33");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:FechaExpedicionFactura",L"15-04-2024");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:Huella",L"C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreRazon",L"CERTIFICADO UNO TELEMATICAS");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NIF",L"89890001K");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreSistemaInformatico",L"NombreSistemaInformatico");
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IdSistemaInformatico",77);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:Version",L"1.0.03");
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NumeroInstalacion",383);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleSoloVerifactu",L"S");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleMultiOT",L"N");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IndicadorMultiplesOT",L"N");
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaHoraHusoGenRegistro",L"2025-02-03T14:30:00+01:00");
CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoHuella",01);
CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Huella",L"FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA");
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
sbSigId = CkStringBuilderW_Create();
CkStringBuilderW_Append(sbSigId,L"xmldsig-");
CkStringBuilderW_AppendUuid(sbSigId,TRUE);
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue"
sbSigValueId = CkStringBuilderW_Create();
CkStringBuilderW_AppendSb(sbSigValueId,sbSigId);
CkStringBuilderW_Append(sbSigValueId,L"-sigvalue");
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops"
sbSignedPropsId = CkStringBuilderW_Create();
CkStringBuilderW_AppendSb(sbSignedPropsId,sbSigId);
CkStringBuilderW_Append(sbSignedPropsId,L"-signedprops");
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0"
sbObjectRefId = CkStringBuilderW_Create();
CkStringBuilderW_AppendSb(sbObjectRefId,sbSigId);
CkStringBuilderW_Append(sbObjectRefId,L"-ref0");
gen = CkXmlDSigGenW_Create();
CkXmlDSigGenW_putSigLocation(gen,L"soapenv:Envelope|soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta");
CkXmlDSigGenW_putSigLocationMod(gen,0);
CkXmlDSigGenW_putSigId(gen,CkStringBuilderW_getAsString(sbSigId));
CkXmlDSigGenW_putSigNamespacePrefix(gen,L"ds");
CkXmlDSigGenW_putSigNamespaceUri(gen,L"http://www.w3.org/2000/09/xmldsig#");
CkXmlDSigGenW_putSigValueId(gen,CkStringBuilderW_getAsString(sbSigValueId));
CkXmlDSigGenW_putSignedInfoCanonAlg(gen,L"C14N");
CkXmlDSigGenW_putSignedInfoDigestMethod(gen,L"sha256");
// Create an Object to be added to the Signature.
object1 = CkXmlW_Create();
CkXmlW_putTag(object1,L"xades:QualifyingProperties");
CkXmlW_AddAttribute(object1,L"xmlns:xades",L"http://uri.etsi.org/01903/v1.3.2#");
CkXmlW_AddAttribute(object1,L"xmlns:xades141",L"http://uri.etsi.org/01903/v1.4.1#");
// "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
CkStringBuilderW_Prepend(sbSigId,L"#");
CkXmlW_AddAttribute(object1,L"Target",CkStringBuilderW_getAsString(sbSigId));
CkXmlW_UpdateAttrAt(object1,L"xades:SignedProperties",TRUE,L"Id",CkStringBuilderW_getAsString(sbSignedPropsId));
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime",L"TO BE GENERATED BY CHILKAT");
CkXmlW_UpdateAttrAt(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod",TRUE,L"Algorithm",L"http://www.w3.org/2000/09/xmldsig#sha1");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue",L"TO BE GENERATED BY CHILKAT");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName",L"TO BE GENERATED BY CHILKAT");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber",L"TO BE GENERATED BY CHILKAT");
CkXmlW_UpdateAttrAt(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestMethod",TRUE,L"Algorithm",L"http://www.w3.org/2000/09/xmldsig#sha1");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestValue",L"TO BE GENERATED BY CHILKAT");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509IssuerName",L"TO BE GENERATED BY CHILKAT");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509SerialNumber",L"TO BE GENERATED BY CHILKAT");
CkXmlW_UpdateAttrAt(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestMethod",TRUE,L"Algorithm",L"http://www.w3.org/2000/09/xmldsig#sha1");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestValue",L"TO BE GENERATED BY CHILKAT");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509IssuerName",L"TO BE GENERATED BY CHILKAT");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509SerialNumber",L"TO BE GENERATED BY CHILKAT");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier",L"urn:oid:2.16.724.1.3.1.1.2.1.9");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description",L"");
CkXmlW_UpdateAttrAt(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",TRUE,L"Algorithm",L"http://www.w3.org/2000/09/xmldsig#sha1");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue",L"G7roucf600+f03r/o0bAOQ6WAs0=");
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyQualifiers|xades:SigPolicyQualifier|xades:SPURI",L"https://sede.administracion.gob.es/politica_de_firma_anexo_1.pdf");
CkStringBuilderW_Prepend(sbObjectRefId,L"#");
CkXmlW_UpdateAttrAt(object1,L"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",TRUE,L"ObjectReference",CkStringBuilderW_getAsString(sbObjectRefId));
CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType",L"text/xml");
CkXmlDSigGenW_AddObject(gen,L"",CkXmlW_getXml(object1),L"",L"");
// -------- Reference 1 --------
// The URI for this Reference is the registroAlta_id
CkXmlDSigGenW_AddSameDocRef(gen,registroAlta_id,L"sha256",L"",L"",L"");
// Remove the "#"
CkStringBuilderW_RemoveCharsAt(sbObjectRefId,0,1);
CkXmlDSigGenW_SetRefIdAttr(gen,registroAlta_id,CkStringBuilderW_getAsString(sbObjectRefId));
// -------- Reference 2 --------
CkXmlDSigGenW_AddObjectRef(gen,CkStringBuilderW_getAsString(sbSignedPropsId),L"sha256",L"C14N",L"",L"http://uri.etsi.org/01903#SignedProperties");
// Provide a certificate + private key. (PFX password is test123)
cert = CkCertW_Create();
success = CkCertW_LoadPfxFile(cert,L"qa_data/pfx/cert_test123.pfx",L"test123");
if (success == FALSE) {
wprintf(L"%s\n",CkCertW_lastErrorText(cert));
CkXmlW_Dispose(xml);
CkStringBuilderW_Dispose(sbSigId);
CkStringBuilderW_Dispose(sbSigValueId);
CkStringBuilderW_Dispose(sbSignedPropsId);
CkStringBuilderW_Dispose(sbObjectRefId);
CkXmlDSigGenW_Dispose(gen);
CkXmlW_Dispose(object1);
CkCertW_Dispose(cert);
return;
}
CkXmlDSigGenW_SetX509Cert(gen,cert,TRUE);
CkXmlDSigGenW_putKeyInfoType(gen,L"X509Data+KeyValue");
CkXmlDSigGenW_putX509Type(gen,L"Certificate");
// Load XML to be signed...
sbXml = CkStringBuilderW_Create();
CkXmlW_GetXmlSb(xml,sbXml);
CkXmlDSigGenW_putBehaviors(gen,L"IndentedSignature,Base64Cr13Entity");
// Sign the XML...
success = CkXmlDSigGenW_CreateXmlDSigSb(gen,sbXml);
if (success == FALSE) {
wprintf(L"%s\n",CkXmlDSigGenW_lastErrorText(gen));
CkXmlW_Dispose(xml);
CkStringBuilderW_Dispose(sbSigId);
CkStringBuilderW_Dispose(sbSigValueId);
CkStringBuilderW_Dispose(sbSignedPropsId);
CkStringBuilderW_Dispose(sbObjectRefId);
CkXmlDSigGenW_Dispose(gen);
CkXmlW_Dispose(object1);
CkCertW_Dispose(cert);
CkStringBuilderW_Dispose(sbXml);
return;
}
// -----------------------------------------------
// Save the signed XML to a file.
success = CkStringBuilderW_WriteFile(sbXml,L"c:/temp/qa_output/signedSoapXml1.xml",L"utf-8",FALSE);
wprintf(L"%s\n",CkStringBuilderW_getAsString(sbXml));
// ----------------------------------------
// Verify the signatures we just produced...
verifier = CkXmlDSigW_Create();
success = CkXmlDSigW_LoadSignatureSb(verifier,sbXml);
if (success == FALSE) {
wprintf(L"%s\n",CkXmlDSigW_lastErrorText(verifier));
CkXmlW_Dispose(xml);
CkStringBuilderW_Dispose(sbSigId);
CkStringBuilderW_Dispose(sbSigValueId);
CkStringBuilderW_Dispose(sbSignedPropsId);
CkStringBuilderW_Dispose(sbObjectRefId);
CkXmlDSigGenW_Dispose(gen);
CkXmlW_Dispose(object1);
CkCertW_Dispose(cert);
CkStringBuilderW_Dispose(sbXml);
CkXmlDSigW_Dispose(verifier);
return;
}
numSigs = CkXmlDSigW_getNumSignatures(verifier);
verifyIdx = 0;
while (verifyIdx < numSigs) {
CkXmlDSigW_putSelector(verifier,verifyIdx);
verified = CkXmlDSigW_VerifySignature(verifier,TRUE);
if (verified != TRUE) {
wprintf(L"%s\n",CkXmlDSigW_lastErrorText(verifier));
CkXmlW_Dispose(xml);
CkStringBuilderW_Dispose(sbSigId);
CkStringBuilderW_Dispose(sbSigValueId);
CkStringBuilderW_Dispose(sbSignedPropsId);
CkStringBuilderW_Dispose(sbObjectRefId);
CkXmlDSigGenW_Dispose(gen);
CkXmlW_Dispose(object1);
CkCertW_Dispose(cert);
CkStringBuilderW_Dispose(sbXml);
CkXmlDSigW_Dispose(verifier);
return;
}
verifyIdx = verifyIdx + 1;
}
wprintf(L"All signatures were successfully verified.\n");
CkXmlW_Dispose(xml);
CkStringBuilderW_Dispose(sbSigId);
CkStringBuilderW_Dispose(sbSigValueId);
CkStringBuilderW_Dispose(sbSignedPropsId);
CkStringBuilderW_Dispose(sbObjectRefId);
CkXmlDSigGenW_Dispose(gen);
CkXmlW_Dispose(object1);
CkCertW_Dispose(cert);
CkStringBuilderW_Dispose(sbXml);
CkXmlDSigW_Dispose(verifier);
}