Xbase++
Xbase++
Cape Verde Fatura Eletrónica XML Digital Signature
See more XML Digital Signatures Examples
Demonstrates how to sign XML to create a signed invoice compatible with the Cape Verde Fatura Eletrónica requirements.Note: This example requires Chilkat v9.5.0.89 or greater for a small feature to provide the ability produce mult-line base64 signature ending with
Chilkat Xbase++ Downloads
LOCAL nSuccess
LOCAL oXmlToSign
LOCAL oGen
LOCAL oObject1
LOCAL oCert
LOCAL oSbXml
LOCAL oVerifier
LOCAL nNumSigs
LOCAL nVerifyIdx
LOCAL nVerified
nSuccess := 0
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// First create the following XML to be signed. This can be created programmatically as shown in the code below, or
// you can simply load the XML to be signed from a file..
// <?xml version="1.0" encoding="utf-8"?>
// <Dfe xmlns="urn:cv:efatura:xsd:v1.0" DocumentTypeCode="1" Id="CV2210818123456789000010100000000546735014601" Version="1.0">
// <Invoice>
// <LedCode>1</LedCode>
// <Serie>SL</Serie>
// <DocumentNumber>5</DocumentNumber>
// <IssueDate>2021-08-30</IssueDate>
// <IssueTime>00:01:00</IssueTime>
// <TaxPointDate>2021-08-18</TaxPointDate>
// <EmitterParty>
// <TaxId CountryCode="CV">123456789</TaxId>
// <Name>Maria</Name>
// <Address CountryCode="CV">
// <State>Estado do Emissor</State>
// <City>Cidade do Emissor</City>
// <Region>Regi�o do Emissor</Region>
// <Street>Rua do Emissor</Street>
// <StreetDetail>Detalhe da rua do Emissor</StreetDetail>
// <BuildingName>Pr�dio do Emissor</BuildingName>
// <BuildingNumber>1</BuildingNumber>
// <BuildingFloor>2</BuildingFloor>
// <PostalCode>7600</PostalCode>
// <AddressDetail>Detalhe de endere�o do Emissor</AddressDetail>
// <AddressCode>CV774999999999999319</AddressCode>
// </Address>
// <Contacts>
// <Telephone>1234567</Telephone>
// <Mobilephone>1234568</Mobilephone>
// <Telefax>1234569</Telefax>
// <Email>somebody@example.com</Email>
// <Website>emissor.efatura.cv</Website>
// </Contacts>
// </EmitterParty>
// <ReceiverParty>
// <TaxId CountryCode="CV">123456789</TaxId>
// <Name>Nome do Recetor</Name>
// <Address CountryCode="CV">
// <State>Estado do Recetor</State>
// <City>Cidade do Recetor</City>
// <Region>Regi�o do Recetor</Region>
// <Street>Rua do Recetor</Street>
// <StreetDetail>Detalhe da rua do Recetor</StreetDetail>
// <BuildingName>Pr�dio do Recetor</BuildingName>
// <BuildingNumber>2</BuildingNumber>
// <BuildingFloor>3</BuildingFloor>
// <PostalCode>7601</PostalCode>
// <AddressDetail>Detalhe de endere�o do Recetor</AddressDetail>
// <AddressCode>CV774999999999999319</AddressCode>
// </Address>
// <Contacts>
// <Telephone>2234567</Telephone>
// <Mobilephone>2234568</Mobilephone>
// <Telefax>2234569</Telefax>
// <Email>rector@efatura.cv</Email>
// <Website>rector.efatura.cv</Website>
// </Contacts>
// </ReceiverParty>
// <Lines>
// <Line LineTypeCode="N">
// <Id>01</Id>
// <OrderLineReference>1</OrderLineReference>
// <Quantity UnitCode="EA">3.15</Quantity>
// <Price>123456</Price>
// <PriceExtension>388886</PriceExtension>
// <Discount>15</Discount>
// <NetTotal>252776</NetTotal>
// <Tax TaxTypeCode="IVA">
// <TaxPercentage>15</TaxPercentage>
// </Tax>
// <Item>
// <Description>Telem�vel</Description>
// <Name>Telem�vel</Name>
// <BrandName>Apple</BrandName>
// <ModelName>iPhone X</ModelName>
// <EmitterIdentification>TLMV</EmitterIdentification>
// <StandardIdentification>
// <GTIN>12345</GTIN>
// </StandardIdentification>
// <HazardousRiskIndicator>false</HazardousRiskIndicator>
// </Item>
// </Line>
// </Lines>
// <Totals>
// <PriceExtensionTotalAmount>388886</PriceExtensionTotalAmount>
// <ChargeTotalAmount>0</ChargeTotalAmount>
// <DiscountTotalAmount>136110</DiscountTotalAmount>
// <NetTotalAmount>252776</NetTotalAmount>
// <Discount ValueType="P">20</Discount>
// <TaxTotalAmount>37916</TaxTotalAmount>
// <PayableAmount>290692</PayableAmount>
// </Totals>
// <References>
// <Reference>
// <FiscalDocument IsOldDocument="false">CV1200520123456789000112345678901112345678901</FiscalDocument>
// <PaymentAmount>12345</PaymentAmount>
// <Tax TaxTypeCode="IR">
// <TaxPercentage>10</TaxPercentage>
// </Tax>
// </Reference>
// <Reference>
// <FiscalDocument IsOldDocument="false">CV1200520123456789000112345678901112345678903</FiscalDocument>
// <PaymentAmount>98765</PaymentAmount>
// <Tax TaxTypeCode="IVA">
// <TaxPercentage>15</TaxPercentage>
// </Tax>
// </Reference>
// </References>
// <Payments>
// <PaymentDueDate>2021-12-31</PaymentDueDate>
// <PaymentTerms>
// <Note>Juros de 12% a partir da data de vencimento</Note>
// </PaymentTerms>
// <PayeeFinancialAccount>
// <NIB>123456789012345678901</NIB>
// <Name>Nome da Conta 1</Name>
// </PayeeFinancialAccount>
// <PayeeFinancialAccount>
// <NIB>123456789012345678902</NIB>
// <Name>Nome da Conta 2</Name>
// </PayeeFinancialAccount>
// </Payments>
// <Note>Texto livre</Note>
// </Invoice>
// <Transmission>
// <IssueMode>2</IssueMode>
// <TransmitterTaxId CountryCode="CV">123456789</TransmitterTaxId>
// <Software>
// <Code>EMIPUB</Code>
// <Name>DNRE Emissor P�blico</Name>
// <Version>Build #53 12-07-2021 14:00:47 CVT - master</Version>
// </Software>
// <Contingency>
// <LedCode>1</LedCode>
// <IssueDate>2020-01-01</IssueDate>
// <IssueTime>01:02:03</IssueTime>
// <ReasonTypeCode>1</ReasonTypeCode>
// </Contingency>
// </Transmission>
// <RepositoryCode>2</RepositoryCode>
// </Dfe>
nSuccess := 1
// Create the XML to be signed...
// Use this online tool to generate code from sample XML:
// Generate Code to Create XML
oXmlToSign := CreateObject("Chilkat.Xml")
oXmlToSign:Tag := "Dfe"
oXmlToSign:AddAttribute("xmlns", "urn:cv:efatura:xsd:v1.0")
oXmlToSign:AddAttribute("DocumentTypeCode", "1")
oXmlToSign:AddAttribute("Id", "CV2210818123456789000010100000000546735014601")
oXmlToSign:AddAttribute("Version", "1.0")
oXmlToSign:UpdateChildContent("Invoice|LedCode", "1")
oXmlToSign:UpdateChildContent("Invoice|Serie", "SL")
oXmlToSign:UpdateChildContent("Invoice|DocumentNumber", "5")
oXmlToSign:UpdateChildContent("Invoice|IssueDate", "2021-08-30")
oXmlToSign:UpdateChildContent("Invoice|IssueTime", "00:01:00")
oXmlToSign:UpdateChildContent("Invoice|TaxPointDate", "2021-08-18")
oXmlToSign:UpdateAttrAt("Invoice|EmitterParty|TaxId", 1, "CountryCode", "CV")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|TaxId", "123456789")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Name", "Maria")
oXmlToSign:UpdateAttrAt("Invoice|EmitterParty|Address", 1, "CountryCode", "CV")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|State", "Estado do Emissor")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|City", "Cidade do Emissor")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|Region", "Regi�o do Emissor")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|Street", "Rua do Emissor")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|StreetDetail", "Detalhe da rua do Emissor")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|BuildingName", "Pr�dio do Emissor")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|BuildingNumber", "1")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|BuildingFloor", "2")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|PostalCode", "7600")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|AddressDetail", "Detalhe de endere�o do Emissor")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Address|AddressCode", "CV774999999999999319")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Contacts|Telephone", "1234567")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Contacts|Mobilephone", "1234568")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Contacts|Telefax", "1234569")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Contacts|Email", "somebody@example.com")
oXmlToSign:UpdateChildContent("Invoice|EmitterParty|Contacts|Website", "emissor.efatura.cv")
oXmlToSign:UpdateAttrAt("Invoice|ReceiverParty|TaxId", 1, "CountryCode", "CV")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|TaxId", "123456789")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Name", "Nome do Recetor")
oXmlToSign:UpdateAttrAt("Invoice|ReceiverParty|Address", 1, "CountryCode", "CV")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|State", "Estado do Recetor")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|City", "Cidade do Recetor")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|Region", "Regi�o do Recetor")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|Street", "Rua do Recetor")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|StreetDetail", "Detalhe da rua do Recetor")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|BuildingName", "Pr�dio do Recetor")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|BuildingNumber", "2")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|BuildingFloor", "3")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|PostalCode", "7601")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|AddressDetail", "Detalhe de endere�o do Recetor")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Address|AddressCode", "CV774999999999999319")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Contacts|Telephone", "2234567")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Contacts|Mobilephone", "2234568")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Contacts|Telefax", "2234569")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Contacts|Email", "rector@efatura.cv")
oXmlToSign:UpdateChildContent("Invoice|ReceiverParty|Contacts|Website", "rector.efatura.cv")
oXmlToSign:UpdateAttrAt("Invoice|Lines|Line", 1, "LineTypeCode", "N")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Id", "01")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|OrderLineReference", "1")
oXmlToSign:UpdateAttrAt("Invoice|Lines|Line|Quantity", 1, "UnitCode", "EA")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Quantity", "3.15")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Price", "123456")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|PriceExtension", "388886")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Discount", "15")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|NetTotal", "252776")
oXmlToSign:UpdateAttrAt("Invoice|Lines|Line|Tax", 1, "TaxTypeCode", "IVA")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Tax|TaxPercentage", "15")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Item|Description", "Telem�vel")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Item|Name", "Telem�vel")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Item|BrandName", "Apple")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Item|ModelName", "iPhone X")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Item|EmitterIdentification", "TLMV")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Item|StandardIdentification|GTIN", "12345")
oXmlToSign:UpdateChildContent("Invoice|Lines|Line|Item|HazardousRiskIndicator", "false")
oXmlToSign:UpdateChildContent("Invoice|Totals|PriceExtensionTotalAmount", "388886")
oXmlToSign:UpdateChildContent("Invoice|Totals|ChargeTotalAmount", "0")
oXmlToSign:UpdateChildContent("Invoice|Totals|DiscountTotalAmount", "136110")
oXmlToSign:UpdateChildContent("Invoice|Totals|NetTotalAmount", "252776")
oXmlToSign:UpdateAttrAt("Invoice|Totals|Discount", 1, "ValueType", "P")
oXmlToSign:UpdateChildContent("Invoice|Totals|Discount", "20")
oXmlToSign:UpdateChildContent("Invoice|Totals|TaxTotalAmount", "37916")
oXmlToSign:UpdateChildContent("Invoice|Totals|PayableAmount", "290692")
oXmlToSign:UpdateAttrAt("Invoice|References|Reference|FiscalDocument", 1, "IsOldDocument", "false")
oXmlToSign:UpdateChildContent("Invoice|References|Reference|FiscalDocument", "CV1200520123456789000112345678901112345678901")
oXmlToSign:UpdateChildContent("Invoice|References|Reference|PaymentAmount", "12345")
oXmlToSign:UpdateAttrAt("Invoice|References|Reference|Tax", 1, "TaxTypeCode", "IR")
oXmlToSign:UpdateChildContent("Invoice|References|Reference|Tax|TaxPercentage", "10")
oXmlToSign:UpdateAttrAt("Invoice|References|Reference[1]|FiscalDocument", 1, "IsOldDocument", "false")
oXmlToSign:UpdateChildContent("Invoice|References|Reference[1]|FiscalDocument", "CV1200520123456789000112345678901112345678903")
oXmlToSign:UpdateChildContent("Invoice|References|Reference[1]|PaymentAmount", "98765")
oXmlToSign:UpdateAttrAt("Invoice|References|Reference[1]|Tax", 1, "TaxTypeCode", "IVA")
oXmlToSign:UpdateChildContent("Invoice|References|Reference[1]|Tax|TaxPercentage", "15")
oXmlToSign:UpdateChildContent("Invoice|Payments|PaymentDueDate", "2021-12-31")
oXmlToSign:UpdateChildContent("Invoice|Payments|PaymentTerms|Note", "Juros de 12% a partir da data de vencimento")
oXmlToSign:UpdateChildContent("Invoice|Payments|PayeeFinancialAccount|NIB", "123456789012345678901")
oXmlToSign:UpdateChildContent("Invoice|Payments|PayeeFinancialAccount|Name", "Nome da Conta 1")
oXmlToSign:UpdateChildContent("Invoice|Payments|PayeeFinancialAccount[1]|NIB", "123456789012345678902")
oXmlToSign:UpdateChildContent("Invoice|Payments|PayeeFinancialAccount[1]|Name", "Nome da Conta 2")
oXmlToSign:UpdateChildContent("Invoice|Note", "Texto livre")
oXmlToSign:UpdateChildContent("Transmission|IssueMode", "2")
oXmlToSign:UpdateAttrAt("Transmission|TransmitterTaxId", 1, "CountryCode", "CV")
oXmlToSign:UpdateChildContent("Transmission|TransmitterTaxId", "123456789")
oXmlToSign:UpdateChildContent("Transmission|Software|Code", "EMIPUB")
oXmlToSign:UpdateChildContent("Transmission|Software|Name", "DNRE Emissor P�blico")
oXmlToSign:UpdateChildContent("Transmission|Software|Version", "Build #53 12-07-2021 14:00:47 CVT - master")
oXmlToSign:UpdateChildContent("Transmission|Contingency|LedCode", "1")
oXmlToSign:UpdateChildContent("Transmission|Contingency|IssueDate", "2020-01-01")
oXmlToSign:UpdateChildContent("Transmission|Contingency|IssueTime", "01:02:03")
oXmlToSign:UpdateChildContent("Transmission|Contingency|ReasonTypeCode", "1")
oXmlToSign:UpdateChildContent("RepositoryCode", "2")
oGen := CreateObject("Chilkat.XmlDSigGen")
oGen:SigLocation := "Dfe"
oGen:SigLocationMod := 0
oGen:SigId := "xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac"
oGen:SigNamespacePrefix := "ds"
oGen:SigNamespaceUri := "http://www.w3.org/2000/09/xmldsig#"
oGen:SigValueId := "xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-sigvalue"
oGen:SignedInfoCanonAlg := "C14N"
oGen:SignedInfoDigestMethod := "sha256"
// Set the KeyInfoId before adding references..
oGen:KeyInfoId := "xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-keyinfo"
// Create an Object to be added to the Signature.
oObject1 := CreateObject("Chilkat.Xml")
oObject1:Tag := "xades:QualifyingProperties"
oObject1:AddAttribute("xmlns:xades", "http://uri.etsi.org/01903/v1.3.2#")
oObject1:AddAttribute("xmlns:xades141", "http://uri.etsi.org/01903/v1.4.1#")
oObject1:AddAttribute("Target", "#xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac")
oObject1:UpdateAttrAt("xades:SignedProperties", 1, "Id", "xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-signedprops")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod", 1, "Algorithm", "http://www.w3.org/2001/04/xmlenc#sha256")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat", 1, "ObjectReference", "#xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-ref0")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description", "DFE Signature")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier", "efatura-uri")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:DocumentationReferences|xades:DocumentationReference", "https://efatura.cv")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType", "text/xml")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Encoding", "UTF-8")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication|xades:CommitmentTypeId|xades:Identifier", "http://uri.etsi.org/01903/v1.2.2#ProofOfApproval")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication|xades:CommitmentTypeId|xades:Description", "Indicates that the signer has approved the content of the signed data object")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication|xades:AllSignedDataObjects", "")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication[1]|xades:CommitmentTypeId|xades:Identifier", "http://uri.etsi.org/01903/v1.2.2#ProofOfOrigin")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication[1]|xades:CommitmentTypeId|xades:Description", "Indicates that the signer recognizes to have created, approved and sent the signed data object")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication[1]|xades:ObjectReference", "#xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-ref0")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication[1]|xades:CommitmentTypeQualifiers|xades:CommitmentTypeQualifier", "CV-FE-123456789")
oGen:AddObject("", oObject1:GetXml(), "", "")
// -------- Reference 1 --------
oGen:AddSameDocRef("CV2210818123456789000010100000000546735014601", "sha256", "", "", "")
oGen:SetRefIdAttr("CV2210818123456789000010100000000546735014601", "xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-ref0")
// -------- Reference 2 --------
oGen:AddSameDocRef("xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-keyinfo", "sha256", "C14N", "", "")
// -------- Reference 3 --------
oGen:AddObjectRef("xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-signedprops", "sha256", "C14N", "", "http://uri.etsi.org/01903#SignedProperties")
// Provide a certificate + private key. (PFX password is test123)
oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
IF (nSuccess != 1)
? oCert:LastErrorText
oXmlToSign:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
RETURN
ENDIF
oGen:SetX509Cert(oCert, 1)
oGen:KeyInfoType := "X509Data"
oGen:X509Type := "IssuerSerial,SubjectName,Certificate"
// Load XML to be signed...
oSbXml := CreateObject("Chilkat.StringBuilder")
oXmlToSign:GetXmlSb(oSbXml)
// Note: The last keyword (Base64Cr13Entity) requires Chilkat v9.5.0.89 or later.
oGen:Behaviors := "IndentedSignature,Base64Cr13Entity,ForceAddEnvelopedSignatureTransform,Base64Cr13Entity"
// Sign the XML...
nSuccess := oGen:CreateXmlDSigSb(oSbXml)
IF (nSuccess != 1)
? oGen:LastErrorText
oXmlToSign:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
oSbXml:destroy()
RETURN
ENDIF
// -----------------------------------------------
// Save the signed XML to a file.
nSuccess := oSbXml:WriteFile("qa_output/signedXml.xml", "utf-8", 0)
? oSbXml:GetAsString()
// ----------------------------------------
// Verify the signatures we just produced...
oVerifier := CreateObject("Chilkat.XmlDSig")
nSuccess := oVerifier:LoadSignatureSb(oSbXml)
IF (nSuccess != 1)
? oVerifier:LastErrorText
oXmlToSign:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
oSbXml:destroy()
oVerifier:destroy()
RETURN
ENDIF
nNumSigs := oVerifier:NumSignatures
nVerifyIdx := 0
DO WHILE nVerifyIdx < nNumSigs
oVerifier:Selector := nVerifyIdx
nVerified := oVerifier:VerifySignature(1)
IF (nVerified != 1)
? oVerifier:LastErrorText
oXmlToSign:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
oSbXml:destroy()
oVerifier:destroy()
RETURN
ENDIF
nVerifyIdx := nVerifyIdx + 1
ENDDO
? "All signatures were successfully verified."
oXmlToSign:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
oSbXml:destroy()
oVerifier:destroy()