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