Classic ASP
Classic ASP
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 Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 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>
success = 1
' Create the XML to be signed...
' Use this online tool to generate code from sample XML:
' Generate Code to Create XML
set xmlToSign = Server.CreateObject("Chilkat.Xml")
xmlToSign.Tag = "Dfe"
success = xmlToSign.AddAttribute("xmlns","urn:cv:efatura:xsd:v1.0")
success = xmlToSign.AddAttribute("DocumentTypeCode","1")
success = xmlToSign.AddAttribute("Id","CV2210818123456789000010100000000546735014601")
success = xmlToSign.AddAttribute("Version","1.0")
xmlToSign.UpdateChildContent "Invoice|LedCode","1"
xmlToSign.UpdateChildContent "Invoice|Serie","SL"
xmlToSign.UpdateChildContent "Invoice|DocumentNumber","5"
xmlToSign.UpdateChildContent "Invoice|IssueDate","2021-08-30"
xmlToSign.UpdateChildContent "Invoice|IssueTime","00:01:00"
xmlToSign.UpdateChildContent "Invoice|TaxPointDate","2021-08-18"
success = xmlToSign.UpdateAttrAt("Invoice|EmitterParty|TaxId",1,"CountryCode","CV")
xmlToSign.UpdateChildContent "Invoice|EmitterParty|TaxId","123456789"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Name","Maria"
success = xmlToSign.UpdateAttrAt("Invoice|EmitterParty|Address",1,"CountryCode","CV")
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|State","Estado do Emissor"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|City","Cidade do Emissor"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|Region","Regi�o do Emissor"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|Street","Rua do Emissor"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|StreetDetail","Detalhe da rua do Emissor"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|BuildingName","Pr�dio do Emissor"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|BuildingNumber","1"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|BuildingFloor","2"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|PostalCode","7600"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|AddressDetail","Detalhe de endere�o do Emissor"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Address|AddressCode","CV774999999999999319"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Contacts|Telephone","1234567"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Contacts|Mobilephone","1234568"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Contacts|Telefax","1234569"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Contacts|Email","somebody@example.com"
xmlToSign.UpdateChildContent "Invoice|EmitterParty|Contacts|Website","emissor.efatura.cv"
success = xmlToSign.UpdateAttrAt("Invoice|ReceiverParty|TaxId",1,"CountryCode","CV")
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|TaxId","123456789"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Name","Nome do Recetor"
success = xmlToSign.UpdateAttrAt("Invoice|ReceiverParty|Address",1,"CountryCode","CV")
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|State","Estado do Recetor"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|City","Cidade do Recetor"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|Region","Regi�o do Recetor"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|Street","Rua do Recetor"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|StreetDetail","Detalhe da rua do Recetor"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|BuildingName","Pr�dio do Recetor"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|BuildingNumber","2"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|BuildingFloor","3"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|PostalCode","7601"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|AddressDetail","Detalhe de endere�o do Recetor"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Address|AddressCode","CV774999999999999319"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Contacts|Telephone","2234567"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Contacts|Mobilephone","2234568"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Contacts|Telefax","2234569"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Contacts|Email","rector@efatura.cv"
xmlToSign.UpdateChildContent "Invoice|ReceiverParty|Contacts|Website","rector.efatura.cv"
success = xmlToSign.UpdateAttrAt("Invoice|Lines|Line",1,"LineTypeCode","N")
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Id","01"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|OrderLineReference","1"
success = xmlToSign.UpdateAttrAt("Invoice|Lines|Line|Quantity",1,"UnitCode","EA")
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Quantity","3.15"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Price","123456"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|PriceExtension","388886"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Discount","15"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|NetTotal","252776"
success = xmlToSign.UpdateAttrAt("Invoice|Lines|Line|Tax",1,"TaxTypeCode","IVA")
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Tax|TaxPercentage","15"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Item|Description","Telem�vel"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Item|Name","Telem�vel"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Item|BrandName","Apple"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Item|ModelName","iPhone X"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Item|EmitterIdentification","TLMV"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Item|StandardIdentification|GTIN","12345"
xmlToSign.UpdateChildContent "Invoice|Lines|Line|Item|HazardousRiskIndicator","false"
xmlToSign.UpdateChildContent "Invoice|Totals|PriceExtensionTotalAmount","388886"
xmlToSign.UpdateChildContent "Invoice|Totals|ChargeTotalAmount","0"
xmlToSign.UpdateChildContent "Invoice|Totals|DiscountTotalAmount","136110"
xmlToSign.UpdateChildContent "Invoice|Totals|NetTotalAmount","252776"
success = xmlToSign.UpdateAttrAt("Invoice|Totals|Discount",1,"ValueType","P")
xmlToSign.UpdateChildContent "Invoice|Totals|Discount","20"
xmlToSign.UpdateChildContent "Invoice|Totals|TaxTotalAmount","37916"
xmlToSign.UpdateChildContent "Invoice|Totals|PayableAmount","290692"
success = xmlToSign.UpdateAttrAt("Invoice|References|Reference|FiscalDocument",1,"IsOldDocument","false")
xmlToSign.UpdateChildContent "Invoice|References|Reference|FiscalDocument","CV1200520123456789000112345678901112345678901"
xmlToSign.UpdateChildContent "Invoice|References|Reference|PaymentAmount","12345"
success = xmlToSign.UpdateAttrAt("Invoice|References|Reference|Tax",1,"TaxTypeCode","IR")
xmlToSign.UpdateChildContent "Invoice|References|Reference|Tax|TaxPercentage","10"
success = xmlToSign.UpdateAttrAt("Invoice|References|Reference[1]|FiscalDocument",1,"IsOldDocument","false")
xmlToSign.UpdateChildContent "Invoice|References|Reference[1]|FiscalDocument","CV1200520123456789000112345678901112345678903"
xmlToSign.UpdateChildContent "Invoice|References|Reference[1]|PaymentAmount","98765"
success = xmlToSign.UpdateAttrAt("Invoice|References|Reference[1]|Tax",1,"TaxTypeCode","IVA")
xmlToSign.UpdateChildContent "Invoice|References|Reference[1]|Tax|TaxPercentage","15"
xmlToSign.UpdateChildContent "Invoice|Payments|PaymentDueDate","2021-12-31"
xmlToSign.UpdateChildContent "Invoice|Payments|PaymentTerms|Note","Juros de 12% a partir da data de vencimento"
xmlToSign.UpdateChildContent "Invoice|Payments|PayeeFinancialAccount|NIB","123456789012345678901"
xmlToSign.UpdateChildContent "Invoice|Payments|PayeeFinancialAccount|Name","Nome da Conta 1"
xmlToSign.UpdateChildContent "Invoice|Payments|PayeeFinancialAccount[1]|NIB","123456789012345678902"
xmlToSign.UpdateChildContent "Invoice|Payments|PayeeFinancialAccount[1]|Name","Nome da Conta 2"
xmlToSign.UpdateChildContent "Invoice|Note","Texto livre"
xmlToSign.UpdateChildContent "Transmission|IssueMode","2"
success = xmlToSign.UpdateAttrAt("Transmission|TransmitterTaxId",1,"CountryCode","CV")
xmlToSign.UpdateChildContent "Transmission|TransmitterTaxId","123456789"
xmlToSign.UpdateChildContent "Transmission|Software|Code","EMIPUB"
xmlToSign.UpdateChildContent "Transmission|Software|Name","DNRE Emissor P�blico"
xmlToSign.UpdateChildContent "Transmission|Software|Version","Build #53 12-07-2021 14:00:47 CVT - master"
xmlToSign.UpdateChildContent "Transmission|Contingency|LedCode","1"
xmlToSign.UpdateChildContent "Transmission|Contingency|IssueDate","2020-01-01"
xmlToSign.UpdateChildContent "Transmission|Contingency|IssueTime","01:02:03"
xmlToSign.UpdateChildContent "Transmission|Contingency|ReasonTypeCode","1"
xmlToSign.UpdateChildContent "RepositoryCode","2"
set gen = Server.CreateObject("Chilkat.XmlDSigGen")
gen.SigLocation = "Dfe"
gen.SigLocationMod = 0
gen.SigId = "xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac"
gen.SigNamespacePrefix = "ds"
gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
gen.SigValueId = "xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-sigvalue"
gen.SignedInfoCanonAlg = "C14N"
gen.SignedInfoDigestMethod = "sha256"
' Set the KeyInfoId before adding references..
gen.KeyInfoId = "xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-keyinfo"
' Create an Object to be added to the Signature.
set object1 = Server.CreateObject("Chilkat.Xml")
object1.Tag = "xades:QualifyingProperties"
success = object1.AddAttribute("xmlns:xades","http://uri.etsi.org/01903/v1.3.2#")
success = object1.AddAttribute("xmlns:xades141","http://uri.etsi.org/01903/v1.4.1#")
success = object1.AddAttribute("Target","#xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac")
success = object1.UpdateAttrAt("xades:SignedProperties",1,"Id","xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-signedprops")
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT"
success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2001/04/xmlenc#sha256")
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2","TO BE GENERATED BY CHILKAT"
success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",1,"ObjectReference","#xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-ref0")
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description","DFE Signature"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier","efatura-uri"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:DocumentationReferences|xades:DocumentationReference","https://efatura.cv"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Encoding","UTF-8"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication|xades:CommitmentTypeId|xades:Identifier","http://uri.etsi.org/01903/v1.2.2#ProofOfApproval"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication|xades:CommitmentTypeId|xades:Description","Indicates that the signer has approved the content of the signed data object"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication|xades:AllSignedDataObjects",""
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication[1]|xades:CommitmentTypeId|xades:Identifier","http://uri.etsi.org/01903/v1.2.2#ProofOfOrigin"
object1.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"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication[1]|xades:ObjectReference","#xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-ref0"
object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:CommitmentTypeIndication[1]|xades:CommitmentTypeQualifiers|xades:CommitmentTypeQualifier","CV-FE-123456789"
success = gen.AddObject("",object1.GetXml(),"","")
' -------- Reference 1 --------
success = gen.AddSameDocRef("CV2210818123456789000010100000000546735014601","sha256","","","")
success = gen.SetRefIdAttr("CV2210818123456789000010100000000546735014601","xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-ref0")
' -------- Reference 2 --------
success = gen.AddSameDocRef("xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-keyinfo","sha256","C14N","","")
' -------- Reference 3 --------
success = gen.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)
set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
Response.End
End If
success = gen.SetX509Cert(cert,1)
gen.KeyInfoType = "X509Data"
gen.X509Type = "IssuerSerial,SubjectName,Certificate"
' Load XML to be signed...
set sbXml = Server.CreateObject("Chilkat.StringBuilder")
success = xmlToSign.GetXmlSb(sbXml)
' Note: The last keyword (Base64Cr13Entity) requires Chilkat v9.5.0.89 or later.
gen.Behaviors = "IndentedSignature,Base64Cr13Entity,ForceAddEnvelopedSignatureTransform,Base64Cr13Entity"
' Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If (success <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( gen.LastErrorText) & "</pre>"
Response.End
End If
' -----------------------------------------------
' Save the signed XML to a file.
success = sbXml.WriteFile("qa_output/signedXml.xml","utf-8",0)
Response.Write "<pre>" & Server.HTMLEncode( sbXml.GetAsString()) & "</pre>"
' ----------------------------------------
' Verify the signatures we just produced...
set verifier = Server.CreateObject("Chilkat.XmlDSig")
success = verifier.LoadSignatureSb(sbXml)
If (success <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( verifier.LastErrorText) & "</pre>"
Response.End
End If
numSigs = verifier.NumSignatures
verifyIdx = 0
Do While verifyIdx < numSigs
verifier.Selector = verifyIdx
verified = verifier.VerifySignature(1)
If (verified <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( verifier.LastErrorText) & "</pre>"
Response.End
End If
verifyIdx = verifyIdx + 1
Loop
Response.Write "<pre>" & Server.HTMLEncode( "All signatures were successfully verified.") & "</pre>"
%>
</body>
</html>