Visual FoxPro
Visual FoxPro
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 Visual FoxPro Downloads
LOCAL lnSuccess
LOCAL loXmlToSign
LOCAL loGen
LOCAL loObject1
LOCAL loXml1
LOCAL loXml2
LOCAL loCert
LOCAL loSbXml
LOCAL loJsonTsa
LOCAL loVerifier
LOCAL lnNumSigs
LOCAL lnVerifyIdx
LOCAL lnVerified
lnSuccess = 0
* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
lnSuccess = 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>
loXmlToSign = CreateObject('Chilkat.Xml')
loXmlToSign.Tag = "p:FatturaElettronica"
loXmlToSign.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#")
loXmlToSign.AddAttribute("xmlns:p","http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2")
loXmlToSign.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
loXmlToSign.AddAttribute("versione","FPR12")
loXmlToSign.AddAttribute("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")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|DatiTrasmissione|IdTrasmittente|IdPaese","IT")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|DatiTrasmissione|IdTrasmittente|IdCodice","01234567890")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|DatiTrasmissione|ProgressivoInvio","00001")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|DatiTrasmissione|FormatoTrasmissione","FPR12")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|DatiTrasmissione|CodiceDestinatario","0000000")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|DatiTrasmissione|PECDestinatario","betagamma@pec.it")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CedentePrestatore|DatiAnagrafici|IdFiscaleIVA|IdPaese","IT")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CedentePrestatore|DatiAnagrafici|IdFiscaleIVA|IdCodice","01234567890")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CedentePrestatore|DatiAnagrafici|Anagrafica|Denominazione","ALPHA SRL")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CedentePrestatore|DatiAnagrafici|RegimeFiscale","RF19")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CedentePrestatore|Sede|Indirizzo","VIALE ROMA 543")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CedentePrestatore|Sede|CAP","07100")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CedentePrestatore|Sede|Comune","SASSARI")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CedentePrestatore|Sede|Provincia","SS")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CedentePrestatore|Sede|Nazione","IT")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|DatiAnagrafici|CodiceFiscale","09876543210")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|DatiAnagrafici|Anagrafica|Denominazione","AMMINISTRAZIONE BETA")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|Sede|Indirizzo","VIA TORINO 38-B")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|Sede|CAP","00145")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|Sede|Comune","ROMA")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|Sede|Provincia","RM")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|Sede|Nazione","IT")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|Indirizzo","VIA CASELLE")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|NumeroCivico","4/D")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|CAP","25027")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|Comune","QUINZANO D'OGLIO")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|Provincia","BS")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|StabileOrganizzazione|Nazione","IT")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|RappresentanteFiscale|IdFiscaleIVA|IdPaese","DE")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|RappresentanteFiscale|IdFiscaleIVA|IdCodice","DE12345")
loXmlToSign.UpdateChildContent("FatturaElettronicaHeader|CessionarioCommittente|RappresentanteFiscale|Denominazione","RFCC - DENOMINAZIONE")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|TipoDocumento","TD01")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|Divisa","EUR")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|Data","2022-03-03")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|Numero","123")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|Causale","LA FATTURA FA RIFERIMENTO AD UNA OPERAZIONE AAAA")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiGeneraliDocumento|Causale[1]","SEGUE DESCRIZIONE CAUSALE NEL CASO IN CUI NON SIANO STATI SUFFICIENTI 200 CARATTERI AAAAAAAAAAA BBBBBBBBBBBBBBBBB")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiOrdineAcquisto|RiferimentoNumeroLinea","1")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiOrdineAcquisto|IdDocumento","66685")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiOrdineAcquisto|NumItem","1")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiOrdineAcquisto|CodiceCUP","123abc")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiOrdineAcquisto|CodiceCIG","456def")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiContratto|RiferimentoNumeroLinea","1")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiContratto|IdDocumento","123")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiContratto|Data","2022-01-01")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiContratto|NumItem","5")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiContratto|CodiceCUP","123abc")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiContratto|CodiceCIG","456def")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiConvenzione|RiferimentoNumeroLinea","1")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiConvenzione|IdDocumento","456")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiConvenzione|NumItem","5")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiConvenzione|CodiceCUP","123abc")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiConvenzione|CodiceCIG","456def")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiRicezione|RiferimentoNumeroLinea","1")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiRicezione|IdDocumento","789")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiRicezione|NumItem","5")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiRicezione|CodiceCUP","123abc")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiRicezione|CodiceCIG","456def")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiTrasporto|DatiAnagraficiVettore|IdFiscaleIVA|IdPaese","IT")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiTrasporto|DatiAnagraficiVettore|IdFiscaleIVA|IdCodice","24681012141")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiTrasporto|DatiAnagraficiVettore|Anagrafica|Denominazione","Trasporto spa")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiGenerali|DatiTrasporto|DataOraConsegna","2022-03-01T14:26:39")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|NumeroLinea","1")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|Descrizione","DESCRIZIONE DELLA FORNITURA")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|Quantita","5.005")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|PrezzoUnitario","1.00")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|PrezzoTotale","5.00")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiBeniServizi|DettaglioLinee|AliquotaIVA","22.00")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiBeniServizi|DatiRiepilogo|AliquotaIVA","22.00")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiBeniServizi|DatiRiepilogo|ImponibileImporto","5.00")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiBeniServizi|DatiRiepilogo|Imposta","1.10")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiBeniServizi|DatiRiepilogo|EsigibilitaIVA","I")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiPagamento|CondizioniPagamento","TP01")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiPagamento|DettaglioPagamento|ModalitaPagamento","MP01")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiPagamento|DettaglioPagamento|DataScadenzaPagamento","2017-02-18")
loXmlToSign.UpdateChildContent("FatturaElettronicaBody|DatiPagamento|DettaglioPagamento|ImportoPagamento","6.10")
loGen = CreateObject('Chilkat.XmlDSigGen')
loGen.SigLocation = "p:FatturaElettronica"
loGen.SigLocationMod = 0
loGen.SigId = "signature-5580-7534-6530-8286"
loGen.AddSignatureNamespace("xadesv1410","http://uri.etsi.org/01903/v1.4.1")
loGen.AddSignatureNamespace("xades","http://uri.etsi.org/01903/v1.3.2#")
* xmlRoot tag = p:FatturaElettronica
* has xmlns:ds!
loGen.SigValueId = "signature-value-5957-3819-1360-0727"
loGen.SignedInfoCanonAlg = "EXCL_C14N"
loGen.SignedInfoDigestMethod = "sha256"
* Set the KeyInfoId before adding references..
loGen.KeyInfoId = "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.
loObject1 = CreateObject('Chilkat.Xml')
loObject1.Tag = "xades:QualifyingProperties"
loObject1.AddAttribute("Target","#signature-5580-7534-6530-8286")
loObject1.UpdateAttrAt("xades:SignedProperties",1,"Id","signed-properties-1545-8800-2160-3000")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT")
loObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2001/04/xmlenc#sha256")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2","TO BE GENERATED BY CHILKAT")
loObject1.UpdateAttrAt("xades:UnsignedProperties|xades:UnsignedSignatureProperties|xades:SignatureTimeStamp",1,"Id","signature-timestamp-5561-8212-3316-5191")
loObject1.UpdateAttrAt("xades:UnsignedProperties|xades:UnsignedSignatureProperties|xades:SignatureTimeStamp|ds:CanonicalizationMethod",1,"Algorithm","http://www.w3.org/2001/10/xml-exc-c14n#")
loObject1.UpdateAttrAt("xades:UnsignedProperties|xades:UnsignedSignatureProperties|xades:SignatureTimeStamp|xades:EncapsulatedTimeStamp",1,"Encoding","http://uri.etsi.org/01903/v1.2.2#DER")
loObject1.UpdateChildContent("xades:UnsignedProperties|xades:UnsignedSignatureProperties|xades:SignatureTimeStamp|xades:EncapsulatedTimeStamp","TO BE GENERATED BY CHILKAT")
loGen.AddObject("signature-object-8923-2359-1722-2161",loObject1.GetXml(),"","")
* -------- 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>
loXml1 = CreateObject('Chilkat.Xml')
loXml1.Tag = "ds:Transforms"
loXml1.UpdateAttrAt("ds:Transform",1,"Algorithm","http://www.w3.org/2002/06/xmldsig-filter2")
loXml1.UpdateAttrAt("ds:Transform|dsig-xpath:XPath",1,"xmlns:dsig-xpath","http://www.w3.org/2002/06/xmldsig-filter2")
loXml1.UpdateAttrAt("ds:Transform|dsig-xpath:XPath",1,"Filter","subtract")
loXml1.UpdateChildContent("ds:Transform|dsig-xpath:XPath","/descendant::ds:Signature")
loXml1.UpdateAttrAt("ds:Transform[1]",1,"Algorithm","http://www.w3.org/2001/10/xml-exc-c14n#")
loGen.AddSameDocRef2("","sha256",loXml1,"")
* -------- Reference 2 --------
* <ds:Transforms>
* <ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/>
* </ds:Transforms>
loXml2 = CreateObject('Chilkat.Xml')
loXml2.Tag = "ds:Transforms"
loXml2.UpdateAttrAt("ds:Transform",1,"Algorithm","http://www.w3.org/2001/10/xml-exc-c14n#")
loGen.AddObjectRef2("signed-properties-1545-8800-2160-3000","sha256",loXml2,"http://uri.etsi.org/01903#SignedProperties")
* Provide a certificate + private key. (PFX password is test123)
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
IF (lnSuccess <> 1) THEN
? loCert.LastErrorText
RELEASE loXmlToSign
RELEASE loGen
RELEASE loObject1
RELEASE loXml1
RELEASE loXml2
RELEASE loCert
CANCEL
ENDIF
loGen.SetX509Cert(loCert,1)
loGen.KeyInfoType = "X509Data+KeyValue"
loGen.X509Type = "Certificate"
* Load XML to be signed...
loSbXml = CreateObject('Chilkat.StringBuilder')
loXmlToSign.GetXmlSb(loSbXml)
loGen.Behaviors = "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:
* -------------------------------------------------------------------------------------------
loJsonTsa = CreateObject('Chilkat.JsonObject')
loJsonTsa.UpdateString("timestampToken.tsaUrl","http://timestamp.digicert.com")
loJsonTsa.UpdateBool("timestampToken.requestTsaCert",1)
loGen.SetTsa(loJsonTsa)
* Sign the XML...
lnSuccess = loGen.CreateXmlDSigSb(loSbXml)
IF (lnSuccess <> 1) THEN
? loGen.LastErrorText
RELEASE loXmlToSign
RELEASE loGen
RELEASE loObject1
RELEASE loXml1
RELEASE loXml2
RELEASE loCert
RELEASE loSbXml
RELEASE loJsonTsa
CANCEL
ENDIF
* Save the signed XML to a file.
lnSuccess = loSbXml.WriteFile("qa_output/signedXml.xml","utf-8",0)
* ----------------------------------------
* Verify the signatures we just produced...
loVerifier = CreateObject('Chilkat.XmlDSig')
lnSuccess = loVerifier.LoadSignatureSb(loSbXml)
IF (lnSuccess <> 1) THEN
? loVerifier.LastErrorText
RELEASE loXmlToSign
RELEASE loGen
RELEASE loObject1
RELEASE loXml1
RELEASE loXml2
RELEASE loCert
RELEASE loSbXml
RELEASE loJsonTsa
RELEASE loVerifier
CANCEL
ENDIF
* Add "VerifyEncapsulatedTimeStamp" to the UncommonOptions to also verify any EncapsulatedTimeStamps
loVerifier.UncommonOptions = "VerifyEncapsulatedTimeStamp"
lnNumSigs = loVerifier.NumSignatures
lnVerifyIdx = 0
DO WHILE lnVerifyIdx < lnNumSigs
loVerifier.Selector = lnVerifyIdx
lnVerified = loVerifier.VerifySignature(1)
IF (lnVerified <> 1) THEN
? loVerifier.LastErrorText
RELEASE loXmlToSign
RELEASE loGen
RELEASE loObject1
RELEASE loXml1
RELEASE loXml2
RELEASE loCert
RELEASE loSbXml
RELEASE loJsonTsa
RELEASE loVerifier
CANCEL
ENDIF
lnVerifyIdx = lnVerifyIdx + 1
ENDDO
? "All signatures were successfully verified."
RELEASE loXmlToSign
RELEASE loGen
RELEASE loObject1
RELEASE loXml1
RELEASE loXml2
RELEASE loCert
RELEASE loSbXml
RELEASE loJsonTsa
RELEASE loVerifier