Perl
Perl
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 Perl Downloads
use chilkat();
$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
$xmlToSign = chilkat::CkXml->new();
$xmlToSign->put_Tag("Dfe");
$xmlToSign->AddAttribute("xmlns","urn:cv:efatura:xsd:v1.0");
$xmlToSign->AddAttribute("DocumentTypeCode","1");
$xmlToSign->AddAttribute("Id","CV2210818123456789000010100000000546735014601");
$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");
$xmlToSign->UpdateAttrAt("Invoice|EmitterParty|TaxId",1,"CountryCode","CV");
$xmlToSign->UpdateChildContent("Invoice|EmitterParty|TaxId","123456789");
$xmlToSign->UpdateChildContent("Invoice|EmitterParty|Name","Maria");
$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");
$xmlToSign->UpdateAttrAt("Invoice|ReceiverParty|TaxId",1,"CountryCode","CV");
$xmlToSign->UpdateChildContent("Invoice|ReceiverParty|TaxId","123456789");
$xmlToSign->UpdateChildContent("Invoice|ReceiverParty|Name","Nome do Recetor");
$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");
$xmlToSign->UpdateAttrAt("Invoice|Lines|Line",1,"LineTypeCode","N");
$xmlToSign->UpdateChildContent("Invoice|Lines|Line|Id","01");
$xmlToSign->UpdateChildContent("Invoice|Lines|Line|OrderLineReference","1");
$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");
$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");
$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");
$xmlToSign->UpdateAttrAt("Invoice|References|Reference|FiscalDocument",1,"IsOldDocument","false");
$xmlToSign->UpdateChildContent("Invoice|References|Reference|FiscalDocument","CV1200520123456789000112345678901112345678901");
$xmlToSign->UpdateChildContent("Invoice|References|Reference|PaymentAmount","12345");
$xmlToSign->UpdateAttrAt("Invoice|References|Reference|Tax",1,"TaxTypeCode","IR");
$xmlToSign->UpdateChildContent("Invoice|References|Reference|Tax|TaxPercentage","10");
$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");
$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");
$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");
$gen = chilkat::CkXmlDSigGen->new();
$gen->put_SigLocation("Dfe");
$gen->put_SigLocationMod(0);
$gen->put_SigId("xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac");
$gen->put_SigNamespacePrefix("ds");
$gen->put_SigNamespaceUri("http://www.w3.org/2000/09/xmldsig#");
$gen->put_SigValueId("xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-sigvalue");
$gen->put_SignedInfoCanonAlg("C14N");
$gen->put_SignedInfoDigestMethod("sha256");
# Set the KeyInfoId before adding references..
$gen->put_KeyInfoId("xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-keyinfo");
# Create an Object to be added to the Signature.
$object1 = chilkat::CkXml->new();
$object1->put_Tag("xades:QualifyingProperties");
$object1->AddAttribute("xmlns:xades","http://uri.etsi.org/01903/v1.3.2#");
$object1->AddAttribute("xmlns:xades141","http://uri.etsi.org/01903/v1.4.1#");
$object1->AddAttribute("Target","#xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac");
$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");
$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");
$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");
$gen->AddObject("",$object1->getXml(),"","");
# -------- Reference 1 --------
$gen->AddSameDocRef("CV2210818123456789000010100000000546735014601","sha256","","","");
$gen->SetRefIdAttr("CV2210818123456789000010100000000546735014601","xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-ref0");
# -------- Reference 2 --------
$gen->AddSameDocRef("xmldsig-cbd86598-e75e-4ae4-9a27-3b4ee2a789ac-keyinfo","sha256","C14N","","");
# -------- Reference 3 --------
$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)
$cert = chilkat::CkCert->new();
$success = $cert->LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123");
if ($success != 1) {
print $cert->lastErrorText() . "\r\n";
exit;
}
$gen->SetX509Cert($cert,1);
$gen->put_KeyInfoType("X509Data");
$gen->put_X509Type("IssuerSerial,SubjectName,Certificate");
# Load XML to be signed...
$sbXml = chilkat::CkStringBuilder->new();
$xmlToSign->GetXmlSb($sbXml);
# Note: The last keyword (Base64Cr13Entity) requires Chilkat v9.5.0.89 or later.
$gen->put_Behaviors("IndentedSignature,Base64Cr13Entity,ForceAddEnvelopedSignatureTransform,Base64Cr13Entity");
# Sign the XML...
$success = $gen->CreateXmlDSigSb($sbXml);
if ($success != 1) {
print $gen->lastErrorText() . "\r\n";
exit;
}
# -----------------------------------------------
# Save the signed XML to a file.
$success = $sbXml->WriteFile("qa_output/signedXml.xml","utf-8",0);
print $sbXml->getAsString() . "\r\n";
# ----------------------------------------
# Verify the signatures we just produced...
$verifier = chilkat::CkXmlDSig->new();
$success = $verifier->LoadSignatureSb($sbXml);
if ($success != 1) {
print $verifier->lastErrorText() . "\r\n";
exit;
}
$numSigs = $verifier->get_NumSignatures();
$verifyIdx = 0;
while ($verifyIdx < $numSigs) {
$verifier->put_Selector($verifyIdx);
$verified = $verifier->VerifySignature(1);
if ($verified != 1) {
print $verifier->lastErrorText() . "\r\n";
exit;
}
$verifyIdx = $verifyIdx + 1;
}
print "All signatures were successfully verified." . "\r\n";