![]() |
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
(Tcl) XML-DSig Add EncapsulatedTimestamp when SigningSee more XML Digital Signatures ExamplesDemonstrates how to add an EncapsulatedTimestamp at the time of creating an XML signature.Note: This example requires Chilkat v9.5.0.90 or greater.
load ./chilkat.dll # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set success 1 # Create the folllowing XML to be signed... # Use this online tool to generate code from sample XML: # Generate Code to Create XML # <p:FatturaElettronica xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:p="http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versione="FPR12" xsi:schemaLocation="http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2 http://www.fatturapa.gov.it/export/fatturazione/sdi/fatturapa/v1.2/Schema_del_file_xml_FatturaPA_versione_1.2.xsd"> # <FatturaElettronicaHeader> # <DatiTrasmissione> # <IdTrasmittente> # <IdPaese>IT</IdPaese> # <IdCodice>01234567890</IdCodice> # </IdTrasmittente> # <ProgressivoInvio>00001</ProgressivoInvio> # <FormatoTrasmissione>FPR12</FormatoTrasmissione> # <CodiceDestinatario>0000000</CodiceDestinatario> # <PECDestinatario>betagamma@pec.it</PECDestinatario> # </DatiTrasmissione> # <CedentePrestatore> # <DatiAnagrafici> # <IdFiscaleIVA> # <IdPaese>IT</IdPaese> # <IdCodice>01234567890</IdCodice> # </IdFiscaleIVA> # <Anagrafica> # <Denominazione>ALPHA SRL</Denominazione> # </Anagrafica> # <RegimeFiscale>RF19</RegimeFiscale> # </DatiAnagrafici> # <Sede> # <Indirizzo>VIALE ROMA 543</Indirizzo> # <CAP>07100</CAP> # <Comune>SASSARI</Comune> # <Provincia>SS</Provincia> # <Nazione>IT</Nazione> # </Sede> # </CedentePrestatore> # <CessionarioCommittente> # <DatiAnagrafici> # <CodiceFiscale>09876543210</CodiceFiscale> # <Anagrafica> # <Denominazione>AMMINISTRAZIONE BETA</Denominazione> # </Anagrafica> # </DatiAnagrafici> # <Sede> # <Indirizzo>VIA TORINO 38-B</Indirizzo> # <CAP>00145</CAP> # # <Comune>ROMA</Comune> # <Provincia>RM</Provincia> # <Nazione>IT</Nazione> # </Sede> # <StabileOrganizzazione> # <Indirizzo>VIA CASELLE</Indirizzo> # <NumeroCivico>4/D</NumeroCivico> # <CAP>25027</CAP> # <Comune>QUINZANO D'OGLIO</Comune> # <Provincia>BS</Provincia> # <Nazione>IT</Nazione> # </StabileOrganizzazione> # <RappresentanteFiscale> # <IdFiscaleIVA> # <IdPaese>DE</IdPaese> # <IdCodice>DE12345</IdCodice> # </IdFiscaleIVA> # <Denominazione>RFCC - DENOMINAZIONE</Denominazione> # </RappresentanteFiscale> # </CessionarioCommittente> # </FatturaElettronicaHeader> # <FatturaElettronicaBody> # <DatiGenerali> # <DatiGeneraliDocumento> # <TipoDocumento>TD01</TipoDocumento> # <Divisa>EUR</Divisa> # <Data>2022-03-03</Data> # <Numero>123</Numero> # <Causale>LA FATTURA FA RIFERIMENTO AD UNA OPERAZIONE AAAA</Causale> # <Causale>SEGUE DESCRIZIONE CAUSALE NEL CASO IN CUI NON SIANO STATI SUFFICIENTI 200 CARATTERI AAAAAAAAAAA BBBBBBBBBBBBBBBBB</Causale> # </DatiGeneraliDocumento> # <DatiOrdineAcquisto> # <RiferimentoNumeroLinea>1</RiferimentoNumeroLinea> # <IdDocumento>66685</IdDocumento> # <NumItem>1</NumItem> # <CodiceCUP>123abc</CodiceCUP> # <CodiceCIG>456def</CodiceCIG> # </DatiOrdineAcquisto> # <DatiContratto> # <RiferimentoNumeroLinea>1</RiferimentoNumeroLinea> # <IdDocumento>123</IdDocumento> # <Data>2022-01-01</Data> # <NumItem>5</NumItem> # <CodiceCUP>123abc</CodiceCUP> # <CodiceCIG>456def</CodiceCIG> # </DatiContratto> # <DatiConvenzione> # <RiferimentoNumeroLinea>1</RiferimentoNumeroLinea> # <IdDocumento>456</IdDocumento> # <NumItem>5</NumItem> # <CodiceCUP>123abc</CodiceCUP> # <CodiceCIG>456def</CodiceCIG> # </DatiConvenzione> # <DatiRicezione> # <RiferimentoNumeroLinea>1</RiferimentoNumeroLinea> # <IdDocumento>789</IdDocumento> # <NumItem>5</NumItem> # <CodiceCUP>123abc</CodiceCUP> # <CodiceCIG>456def</CodiceCIG> # </DatiRicezione> # <DatiTrasporto> # <DatiAnagraficiVettore> # <IdFiscaleIVA> # <IdPaese>IT</IdPaese> # <IdCodice>24681012141</IdCodice> # </IdFiscaleIVA> # <Anagrafica> # <Denominazione>Trasporto spa</Denominazione> # </Anagrafica> # </DatiAnagraficiVettore> # <DataOraConsegna>2022-03-01T14:26:39</DataOraConsegna> # </DatiTrasporto> # </DatiGenerali> # <DatiBeniServizi> # <DettaglioLinee> # <NumeroLinea>1</NumeroLinea> # <Descrizione>DESCRIZIONE DELLA FORNITURA</Descrizione> # <Quantita>5.005</Quantita> # <PrezzoUnitario>1.00</PrezzoUnitario> # <PrezzoTotale>5.00</PrezzoTotale> # <AliquotaIVA>22.00</AliquotaIVA> # </DettaglioLinee> # <DatiRiepilogo> # <AliquotaIVA>22.00</AliquotaIVA> # <ImponibileImporto>5.00</ImponibileImporto> # <Imposta>1.10</Imposta> # <EsigibilitaIVA>I</EsigibilitaIVA> # </DatiRiepilogo> # </DatiBeniServizi> # <DatiPagamento> # <CondizioniPagamento>TP01</CondizioniPagamento> # <DettaglioPagamento> # <ModalitaPagamento>MP01</ModalitaPagamento> # <DataScadenzaPagamento>2017-02-18</DataScadenzaPagamento> # <ImportoPagamento>6.10</ImportoPagamento> # </DettaglioPagamento> # </DatiPagamento> # </FatturaElettronicaBody> # </p:FatturaElettronica> set xmlToSign [new_CkXml] CkXml_put_Tag $xmlToSign "p:FatturaElettronica" CkXml_AddAttribute $xmlToSign "xmlns:ds" "http://www.w3.org/2000/09/xmldsig#" CkXml_AddAttribute $xmlToSign "xmlns:p" "http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2" CkXml_AddAttribute $xmlToSign "xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance" CkXml_AddAttribute $xmlToSign "versione" "FPR12" CkXml_AddAttribute $xmlToSign "xsi:schemaLocation" "http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2 http://www.fatturapa.gov.it/export/fatturazione/sdi/fatturapa/v1.2/Schema_del_file_xml_FatturaPA_versione_1.2.xsd" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|DatiTrasmissione|IdTrasmittente|IdPaese" "IT" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|DatiTrasmissione|IdTrasmittente|IdCodice" "01234567890" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|DatiTrasmissione|ProgressivoInvio" "00001" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|DatiTrasmissione|FormatoTrasmissione" "FPR12" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|DatiTrasmissione|CodiceDestinatario" "0000000" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|DatiTrasmissione|PECDestinatario" "betagamma@pec.it" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CedentePrestatore|DatiAnagrafici|IdFiscaleIVA|IdPaese" "IT" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CedentePrestatore|DatiAnagrafici|IdFiscaleIVA|IdCodice" "01234567890" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CedentePrestatore|DatiAnagrafici|Anagrafica|Denominazione" "ALPHA SRL" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CedentePrestatore|DatiAnagrafici|RegimeFiscale" "RF19" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CedentePrestatore|Sede|Indirizzo" "VIALE ROMA 543" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CedentePrestatore|Sede|CAP" "07100" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CedentePrestatore|Sede|Comune" "SASSARI" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CedentePrestatore|Sede|Provincia" "SS" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CedentePrestatore|Sede|Nazione" "IT" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|DatiAnagrafici|CodiceFiscale" "09876543210" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|DatiAnagrafici|Anagrafica|Denominazione" "AMMINISTRAZIONE BETA" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|Sede|Indirizzo" "VIA TORINO 38-B" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|Sede|CAP" "00145" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|Sede|Comune" "ROMA" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|Sede|Provincia" "RM" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|Sede|Nazione" "IT" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|Indirizzo" "VIA CASELLE" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|NumeroCivico" "4/D" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|CAP" "25027" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|Comune" "QUINZANO D'OGLIO" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|Provincia" "BS" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|Nazione" "IT" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|RappresentanteFiscale|IdFiscaleIVA|IdPaese" "DE" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|RappresentanteFiscale|IdFiscaleIVA|IdCodice" "DE12345" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaHeader|CessionarioCommittente|RappresentanteFiscale|Denominazione" "RFCC - DENOMINAZIONE" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|TipoDocumento" "TD01" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|Divisa" "EUR" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|Data" "2022-03-03" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|Numero" "123" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|Causale" "LA FATTURA FA RIFERIMENTO AD UNA OPERAZIONE AAAA" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|Causale[1]" "SEGUE DESCRIZIONE CAUSALE NEL CASO IN CUI NON SIANO STATI SUFFICIENTI 200 CARATTERI AAAAAAAAAAA BBBBBBBBBBBBBBBBB" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiOrdineAcquisto|RiferimentoNumeroLinea" "1" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiOrdineAcquisto|IdDocumento" "66685" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiOrdineAcquisto|NumItem" "1" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiOrdineAcquisto|CodiceCUP" "123abc" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiOrdineAcquisto|CodiceCIG" "456def" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiContratto|RiferimentoNumeroLinea" "1" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiContratto|IdDocumento" "123" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiContratto|Data" "2022-01-01" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiContratto|NumItem" "5" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiContratto|CodiceCUP" "123abc" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiContratto|CodiceCIG" "456def" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiConvenzione|RiferimentoNumeroLinea" "1" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiConvenzione|IdDocumento" "456" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiConvenzione|NumItem" "5" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiConvenzione|CodiceCUP" "123abc" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiConvenzione|CodiceCIG" "456def" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiRicezione|RiferimentoNumeroLinea" "1" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiRicezione|IdDocumento" "789" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiRicezione|NumItem" "5" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiRicezione|CodiceCUP" "123abc" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiRicezione|CodiceCIG" "456def" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiTrasporto|DatiAnagraficiVettore|IdFiscaleIVA|IdPaese" "IT" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiTrasporto|DatiAnagraficiVettore|IdFiscaleIVA|IdCodice" "24681012141" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiTrasporto|DatiAnagraficiVettore|Anagrafica|Denominazione" "Trasporto spa" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiGenerali|DatiTrasporto|DataOraConsegna" "2022-03-01T14:26:39" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|NumeroLinea" "1" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|Descrizione" "DESCRIZIONE DELLA FORNITURA" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|Quantita" "5.005" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|PrezzoUnitario" "1.00" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|PrezzoTotale" "5.00" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|AliquotaIVA" "22.00" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiBeniServizi|DatiRiepilogo|AliquotaIVA" "22.00" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiBeniServizi|DatiRiepilogo|ImponibileImporto" "5.00" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiBeniServizi|DatiRiepilogo|Imposta" "1.10" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiBeniServizi|DatiRiepilogo|EsigibilitaIVA" "I" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiPagamento|CondizioniPagamento" "TP01" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiPagamento|DettaglioPagamento|ModalitaPagamento" "MP01" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiPagamento|DettaglioPagamento|DataScadenzaPagamento" "2017-02-18" CkXml_UpdateChildContent $xmlToSign "FatturaElettronicaBody|DatiPagamento|DettaglioPagamento|ImportoPagamento" "6.10" set gen [new_CkXmlDSigGen] CkXmlDSigGen_put_SigLocation $gen "p:FatturaElettronica" CkXmlDSigGen_put_SigLocationMod $gen 0 CkXmlDSigGen_put_SigId $gen "signature-5580-7534-6530-8286" CkXmlDSigGen_AddSignatureNamespace $gen "xadesv1410" "http://uri.etsi.org/01903/v1.4.1" CkXmlDSigGen_AddSignatureNamespace $gen "xades" "http://uri.etsi.org/01903/v1.3.2#" # xmlRoot tag = p:FatturaElettronica # has xmlns:ds! CkXmlDSigGen_put_SigValueId $gen "signature-value-5957-3819-1360-0727" CkXmlDSigGen_put_SignedInfoCanonAlg $gen "EXCL_C14N" CkXmlDSigGen_put_SignedInfoDigestMethod $gen "sha256" # Set the KeyInfoId before adding references.. CkXmlDSigGen_put_KeyInfoId $gen "key-info-7422-1087-7530-8569" # Create the following signed properties object to be added to the signature: # Use this online tool to generate code from sample XML: # Generate Code to Create XML # <xades:QualifyingProperties Target="#signature-5580-7534-6530-8286"> # <xades:SignedProperties Id="signed-properties-1545-8800-2160-3000"> # <xades:SignedSignatureProperties> # <xades:SigningTime>TO BE GENERATED BY CHILKAT</xades:SigningTime> # <xades:SigningCertificate> # <xades:Cert> # <xades:CertDigest> # <ds:DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/> # <ds:DigestValue>TO BE GENERATED BY CHILKAT</ds:DigestValue> # # </xades:CertDigest> # <xades:IssuerSerial> # <ds:X509IssuerName>TO BE GENERATED BY CHILKAT</ds:X509IssuerName> # <ds:X509SerialNumber>TO BE GENERATED BY CHILKAT</ds:X509SerialNumber> # </xades:IssuerSerial> # </xades:Cert> # </xades:SigningCertificate> # </xades:SignedSignatureProperties> # </xades:SignedProperties> # <xades:UnsignedProperties> # <xades:UnsignedSignatureProperties> # <xades:SignatureTimeStamp Id="signature-timestamp-5561-8212-3316-5191"> # <ds:CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/> # <xades:EncapsulatedTimeStamp Encoding="http://uri.etsi.org/01903/v1.2.2#DER">TO BE GENERATED BY CHILKAT</xades:EncapsulatedTimeStamp> # </xades:SignatureTimeStamp> # </xades:UnsignedSignatureProperties> # </xades:UnsignedProperties> # </xades:QualifyingProperties> # Note: Chilkat will automatically fill in the values marked as "TO BE GENERATED BY CHILKAT" at the time of signing. # The EncapsulatedTimestamp will be automatically generated. set object1 [new_CkXml] CkXml_put_Tag $object1 "xades:QualifyingProperties" CkXml_AddAttribute $object1 "Target" "#signature-5580-7534-6530-8286" CkXml_UpdateAttrAt $object1 "xades:SignedProperties" 1 "Id" "signed-properties-1545-8800-2160-3000" CkXml_UpdateChildContent $object1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime" "TO BE GENERATED BY CHILKAT" CkXml_UpdateAttrAt $object1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod" 1 "Algorithm" "http://www.w3.org/2001/04/xmlenc#sha256" CkXml_UpdateChildContent $object1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue" "TO BE GENERATED BY CHILKAT" CkXml_UpdateChildContent $object1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2" "TO BE GENERATED BY CHILKAT" CkXml_UpdateAttrAt $object1 "xades:UnsignedProperties|xades:UnsignedSignatureProperties|xades:SignatureTimeStamp" 1 "Id" "signature-timestamp-5561-8212-3316-5191" CkXml_UpdateAttrAt $object1 "xades:UnsignedProperties|xades:UnsignedSignatureProperties|xades:SignatureTimeStamp|ds:CanonicalizationMethod" 1 "Algorithm" "http://www.w3.org/2001/10/xml-exc-c14n#" CkXml_UpdateAttrAt $object1 "xades:UnsignedProperties|xades:UnsignedSignatureProperties|xades:SignatureTimeStamp|xades:EncapsulatedTimeStamp" 1 "Encoding" "http://uri.etsi.org/01903/v1.2.2#DER" CkXml_UpdateChildContent $object1 "xades:UnsignedProperties|xades:UnsignedSignatureProperties|xades:SignatureTimeStamp|xades:EncapsulatedTimeStamp" "TO BE GENERATED BY CHILKAT" CkXmlDSigGen_AddObject $gen "signature-object-8923-2359-1722-2161" [CkXml_getXml $object1] "" "" # -------- Reference 1 -------- # <ds:Transforms> # <ds:Transform Algorithm="http://www.w3.org/2002/06/xmldsig-filter2"> # <dsig-xpath:XPath xmlns:dsig-xpath="http://www.w3.org/2002/06/xmldsig-filter2" Filter="subtract">/descendant::ds:Signature</dsig-xpath:XPath> # </ds:Transform> # <ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/> # </ds:Transforms> set xml1 [new_CkXml] CkXml_put_Tag $xml1 "ds:Transforms" CkXml_UpdateAttrAt $xml1 "ds:Transform" 1 "Algorithm" "http://www.w3.org/2002/06/xmldsig-filter2" CkXml_UpdateAttrAt $xml1 "ds:Transform|dsig-xpath:XPath" 1 "xmlns:dsig-xpath" "http://www.w3.org/2002/06/xmldsig-filter2" CkXml_UpdateAttrAt $xml1 "ds:Transform|dsig-xpath:XPath" 1 "Filter" "subtract" CkXml_UpdateChildContent $xml1 "ds:Transform|dsig-xpath:XPath" "/descendant::ds:Signature" CkXml_UpdateAttrAt $xml1 "ds:Transform[1]" 1 "Algorithm" "http://www.w3.org/2001/10/xml-exc-c14n#" CkXmlDSigGen_AddSameDocRef2 $gen "" "sha256" $xml1 "" # -------- Reference 2 -------- # <ds:Transforms> # <ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/> # </ds:Transforms> set xml2 [new_CkXml] CkXml_put_Tag $xml2 "ds:Transforms" CkXml_UpdateAttrAt $xml2 "ds:Transform" 1 "Algorithm" "http://www.w3.org/2001/10/xml-exc-c14n#" CkXmlDSigGen_AddObjectRef2 $gen "signed-properties-1545-8800-2160-3000" "sha256" $xml2 "http://uri.etsi.org/01903#SignedProperties" # Provide a certificate + private key. (PFX password is test123) set cert [new_CkCert] set success [CkCert_LoadPfxFile $cert "qa_data/pfx/cert_test123.pfx" "test123"] if {$success != 1} then { puts [CkCert_lastErrorText $cert] delete_CkXml $xmlToSign delete_CkXmlDSigGen $gen delete_CkXml $object1 delete_CkXml $xml1 delete_CkXml $xml2 delete_CkCert $cert exit } CkXmlDSigGen_SetX509Cert $gen $cert 1 CkXmlDSigGen_put_KeyInfoType $gen "X509Data+KeyValue" CkXmlDSigGen_put_X509Type $gen "Certificate" # Load XML to be signed... set sbXml [new_CkStringBuilder] CkXml_GetXmlSb $xmlToSign $sbXml CkXmlDSigGen_put_Behaviors $gen "IndentedSignature,OmitAlreadyDefinedSigNamespace" # ------------------------------------------------------------------------------------------- # To have the EncapsulatedTimeStamp automatically added, we only need to do 2 things. # 1) Add the <xades:EncapsulatedTimeStamp Encoding="http://uri.etsi.org/01903/v1.2.2#DER">TO BE GENERATED BY CHILKAT</xades:EncapsulatedTimeStamp> # to the unsigned properties. # 2) Specify the TSA URL (Timestamping Authority URL). # Here we specify the TSA URL: # ------------------------------------------------------------------------------------------- set jsonTsa [new_CkJsonObject] CkJsonObject_UpdateString $jsonTsa "timestampToken.tsaUrl" "http://timestamp.digicert.com" CkJsonObject_UpdateBool $jsonTsa "timestampToken.requestTsaCert" 1 CkXmlDSigGen_SetTsa $gen $jsonTsa # Sign the XML... set success [CkXmlDSigGen_CreateXmlDSigSb $gen $sbXml] if {$success != 1} then { puts [CkXmlDSigGen_lastErrorText $gen] delete_CkXml $xmlToSign delete_CkXmlDSigGen $gen delete_CkXml $object1 delete_CkXml $xml1 delete_CkXml $xml2 delete_CkCert $cert delete_CkStringBuilder $sbXml delete_CkJsonObject $jsonTsa exit } # Save the signed XML to a file. set success [CkStringBuilder_WriteFile $sbXml "qa_output/signedXml.xml" "utf-8" 0] # ---------------------------------------- # Verify the signatures we just produced... set verifier [new_CkXmlDSig] set success [CkXmlDSig_LoadSignatureSb $verifier $sbXml] if {$success != 1} then { puts [CkXmlDSig_lastErrorText $verifier] delete_CkXml $xmlToSign delete_CkXmlDSigGen $gen delete_CkXml $object1 delete_CkXml $xml1 delete_CkXml $xml2 delete_CkCert $cert delete_CkStringBuilder $sbXml delete_CkJsonObject $jsonTsa delete_CkXmlDSig $verifier exit } # Add "VerifyEncapsulatedTimeStamp" to the UncommonOptions to also verify any EncapsulatedTimeStamps CkXmlDSig_put_UncommonOptions $verifier "VerifyEncapsulatedTimeStamp" set numSigs [CkXmlDSig_get_NumSignatures $verifier] set verifyIdx 0 while {$verifyIdx < $numSigs} { CkXmlDSig_put_Selector $verifier $verifyIdx set verified [CkXmlDSig_VerifySignature $verifier 1] if {$verified != 1} then { puts [CkXmlDSig_lastErrorText $verifier] delete_CkXml $xmlToSign delete_CkXmlDSigGen $gen delete_CkXml $object1 delete_CkXml $xml1 delete_CkXml $xml2 delete_CkCert $cert delete_CkStringBuilder $sbXml delete_CkJsonObject $jsonTsa delete_CkXmlDSig $verifier exit } set verifyIdx [expr $verifyIdx + 1] } puts "All signatures were successfully verified." delete_CkXml $xmlToSign delete_CkXmlDSigGen $gen delete_CkXml $object1 delete_CkXml $xml1 delete_CkXml $xml2 delete_CkCert $cert delete_CkStringBuilder $sbXml delete_CkJsonObject $jsonTsa delete_CkXmlDSig $verifier |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.