Tcl
Tcl
XML-DSig Add EncapsulatedTimestamp when Signing
See more XML Digital Signatures Examples
Demonstrates how to add an EncapsulatedTimestamp at the time of creating an XML signature.Note: This example requires Chilkat v9.5.0.90 or greater.
Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# 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