Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(AutoIt) Create XAdES Facturae 3.2 Signed InvoiceSee more XAdES ExamplesDemonstrates how to create a factura electrónica XAdES digital signature for Gobierno de España Note: This example requires Chilkat v9.5.0.92 or greater. Problems specific to XML signatures for FacturaE in Spain were fixed in v9.5.0.92.
; ---------------------------------------------------------------------- ; IMPORTANT: This generated example requires Chilkat v9.5.0.75 or later. ; Contact support@chilkatsoft.com for a pre-release. ; ---------------------------------------------------------------------- ; --- ; The following source code can be generated from sample XML using the XML Signature Code Generator at chilkat.io ; --- ; IMPORTANT: This example requires Chilkat v9.5.0.92 or greater. Problems specific to XML signatures for FacturaE in Spain were fixed in v9.5.0.92. ; Create the XML to be signed... $oXmlToSign = ObjCreate("Chilkat.Xml") $oXmlToSign.Tag = "fe:Facturae" $oXmlToSign.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#") $oXmlToSign.AddAttribute("xmlns:fe","http://www.facturae.es/Facturae/2009/v3.2/Facturae") $oXmlToSign.UpdateChildContent "FileHeader|SchemaVersion","3.2" $oXmlToSign.UpdateChildContent "FileHeader|Modality","I" $oXmlToSign.UpdateChildContent "FileHeader|InvoiceIssuerType","EM" $oXmlToSign.UpdateChildContent "FileHeader|Batch|BatchIdentifier","0000000000B2Emit-" $oXmlToSign.UpdateChildContent "FileHeader|Batch|InvoicesCount","1" $oXmlToSign.UpdateChildContent "FileHeader|Batch|TotalInvoicesAmount|TotalAmount","63.13" $oXmlToSign.UpdateChildContent "FileHeader|Batch|TotalOutstandingAmount|TotalAmount","63.13" $oXmlToSign.UpdateChildContent "FileHeader|Batch|TotalExecutableAmount|TotalAmount","63.13" $oXmlToSign.UpdateChildContent "FileHeader|Batch|InvoiceCurrencyCode","EUR" $oXmlToSign.UpdateChildContent "Parties|SellerParty|TaxIdentification|PersonTypeCode","J" $oXmlToSign.UpdateChildContent "Parties|SellerParty|TaxIdentification|ResidenceTypeCode","R" $oXmlToSign.UpdateChildContent "Parties|SellerParty|TaxIdentification|TaxIdentificationNumber","A82735122" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|CorporateName","Company Comp SA" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|TradeName","Comp" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|RegistrationData|Book","1" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|RegistrationData|RegisterOfCompaniesLocation","12AP22" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|RegistrationData|Sheet","3" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|RegistrationData|Folio","15" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|RegistrationData|Section","2" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|RegistrationData|Volume","12" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|RegistrationData|AdditionalRegistrationData","Sin datos" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|AddressInSpain|Address","C/ Mayour 33 15 E" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|AddressInSpain|PostCode","28001" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|AddressInSpain|Town","Argamasilla de Alba" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|AddressInSpain|Province","Ciudad Real" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|AddressInSpain|CountryCode","ESP" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|ContactDetails|Telephone","917776665" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|ContactDetails|TeleFax","917776666" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|ContactDetails|WebAddress","www.facturae.es" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|ContactDetails|ElectronicMail","facturae@mityc.es" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|ContactDetails|ContactPersons","Fernando" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|ContactDetails|CnoCnae","28000" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|ContactDetails|INETownCode","2134AAB" $oXmlToSign.UpdateChildContent "Parties|SellerParty|LegalEntity|ContactDetails|AdditionalContactDetails","Otros datos" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|TaxIdentification|PersonTypeCode","F" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|TaxIdentification|ResidenceTypeCode","E" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|TaxIdentification|TaxIdentificationNumber","0000000000B" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|CentreCode","1" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|RoleTypeCode","02" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|Name","Ruth" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|FirstSurname","Mauripo" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|Address","Armenia 1922" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|PostCodeAndTown","00000 Buenos Aires" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|Province","Capital Federal" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|CountryCode","ARG" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|CentreDescription","Centro principal de recepcion" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|Individual|Name","Juana" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|Individual|FirstSurname","Mauripo" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|Individual|OverseasAddress|Address","Juncal 1315" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|Individual|OverseasAddress|PostCodeAndTown","00000 Buenos Aires" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|Individual|OverseasAddress|Province","Capital Federal" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|Individual|OverseasAddress|CountryCode","ARG" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|Individual|ContactDetails|Telephone","00547775554" $oXmlToSign.UpdateChildContent "Parties|BuyerParty|Individual|ContactDetails|TeleFax","00547775555" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceHeader|InvoiceNumber","2" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceHeader|InvoiceSeriesCode","Emit-" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceHeader|InvoiceDocumentType","FC" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceHeader|InvoiceClass","OO" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceIssueData|IssueDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceIssueData|OperationDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceIssueData|PlaceOfIssue|PostCode","00000" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceIssueData|PlaceOfIssue|PlaceOfIssueDescription","Regalos" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceIssueData|InvoicingPeriod|StartDate","2010-03-09" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceIssueData|InvoicingPeriod|EndDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceIssueData|InvoiceCurrencyCode","EUR" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceIssueData|TaxCurrencyCode","EUR" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceIssueData|LanguageName","es" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesOutputs|Tax|TaxTypeCode","01" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesOutputs|Tax|TaxRate","16.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesOutputs|Tax|TaxableBase|TotalAmount","26.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesOutputs|Tax|TaxAmount|TotalAmount","4.16" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesOutputs|Tax|EquivalenceSurcharge","1.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesOutputs|Tax|EquivalenceSurchargeAmount|TotalAmount","0.26" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesOutputs|Tax[1]|TaxTypeCode","01" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesOutputs|Tax[1]|TaxRate","0.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesOutputs|Tax[1]|TaxableBase|TotalAmount","0.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesWithheld|Tax|TaxTypeCode","05" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesWithheld|Tax|TaxRate","4.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesWithheld|Tax|TaxableBase|TotalAmount","26.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|TaxesWithheld|Tax|TaxAmount|TotalAmount","1.04" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceTotals|TotalGrossAmount","59.75" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceTotals|TotalGeneralDiscounts","0.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceTotals|TotalGeneralSurcharges","0.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceTotals|TotalGrossAmountBeforeTaxes","59.75" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceTotals|TotalTaxOutputs","4.42" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceTotals|TotalTaxesWithheld","1.04" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceTotals|InvoiceTotal","63.13" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceTotals|TotalOutstandingAmount","63.13" $oXmlToSign.UpdateChildContent "Invoices|Invoice|InvoiceTotals|TotalExecutableAmount","63.13" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|IssuerContractReference","A9938281" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|IssuerContractDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|IssuerTransactionReference","A9938282" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|IssuerTransactionDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|ReceiverContractReference","BBBH-38271" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|ReceiverContractDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|ReceiverTransactionReference","BBBH-38272" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|ReceiverTransactionDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|FileReference","000298172" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|FileDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|SequenceNumber","1.0" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote|DeliveryNoteNumber","132413842" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote|DeliveryNoteDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote[1]|DeliveryNoteNumber","987673211" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote[1]|DeliveryNoteDate","2010-03-09" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|ItemDescription","Flores" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|Quantity","1.0" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|UnitOfMeasure","01" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|UnitPriceWithoutTax","25.000000" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|TotalCost","25.000000" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountReason","Descuento" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountRate","5.0000" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountAmount","1.250000" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|Charges|Charge|ChargeReason","Cargo" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|Charges|Charge|ChargeAmount","10.000000" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|GrossAmount","33.750000" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxTypeCode","01" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxRate","0.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxableBase|TotalAmount","0.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxAmount|TotalAmount","0.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|AdditionalLineItemInformation","Contacto en Neuquen: Paulita" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|SpecialTaxableEvent|SpecialTaxableEventCode","01" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|SpecialTaxableEvent|SpecialTaxableEventReason","Concepto exento por el motivo aqu definido" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine|ArticleCode","142" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|IssuerContractDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|IssuerTransactionDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|ReceiverContractDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|ReceiverTransactionDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|FileDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|SequenceNumber","2.0" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|ItemDescription","Mate" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|Quantity","2.0" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|UnitOfMeasure","01" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|UnitPriceWithoutTax","13.000000" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TotalCost","26.000000" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|GrossAmount","26.000000" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxTypeCode","05" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxRate","4.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxableBase|TotalAmount","26.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxAmount|TotalAmount","1.04" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxTypeCode","01" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxRate","16.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxableBase|TotalAmount","26.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxAmount|TotalAmount","4.16" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|EquivalenceSurcharge","1.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|EquivalenceSurchargeAmount|TotalAmount","0.26" $oXmlToSign.UpdateChildContent "Invoices|Invoice|Items|InvoiceLine[1]|ArticleCode","122" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|InstallmentDueDate","2010-03-10" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|InstallmentAmount","25.00" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|PaymentMeans","19" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|IBAN","4322 3432 22 1341234212" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|BankCode","4322" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|BranchCode","3432" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|Address","Juncal 1423 8 Z" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|PostCodeAndTown","01115 Capital Federal" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|Province","Buenos Aires" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|CountryCode","ARG" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|PaymentReconciliationReference","12223" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|IBAN","1234 4312 22 33212341212314" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|BankCode","1234" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|BranchCode","4312" $oXmlToSign.UpdateChildContent "Invoices|Invoice|PaymentDetails|Installment|DebitReconciliationReference","12223" $oGen = ObjCreate("Chilkat.XmlDSigGen") Local $bSuccess = True $oGen.SigLocation = "fe:Facturae" $oGen.SigLocationMod = 0 $oGen.SigId = "Signature869123" $oGen.AddSignatureNamespace("etsi","http://uri.etsi.org/01903/v1.3.2#") $oGen.SigNamespacePrefix = "ds" $oGen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#" $oGen.SignedInfoId = "Signature-SignedInfo241096" $oGen.SignedInfoCanonAlg = "EXCL_C14N" $oGen.SignedInfoDigestMethod = "sha256" ; Create an Object to be added to the Signature. $oObject1 = ObjCreate("Chilkat.Xml") $oObject1.Tag = "xades:QualifyingProperties" $oObject1.AddAttribute("xmlns:xades","http://uri.etsi.org/01903/v1.3.2#") ; The Id can be any unique string.. $oObject1.AddAttribute("Id","QualifyingProperties-e01a8fee-1bee-4ff5-9570-3d57aa02f278") $oObject1.AddAttribute("Target","#Signature869123") $oObject1.UpdateAttrAt("xades:SignedProperties",True,"Id","Signature869123-SignedProperties787205") $oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT" ; Note: It may be that http://www.w3.org/2001/04/xmlenc#sha256 is needed in the following line instead of http://www.w3.org/2000/09/xmldsig#sha1 $oObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod",True,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1") $oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT" $oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT" $oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT" $oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier","http://www.facturae.es/politica_de_firma_formato_facturae/politica_de_firma_formato_facturae_v3_1.pdf" $oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description","Pol�tica de Firma FacturaE v3.1" $oObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",True,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1") $oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue","Ohixl6upD6av8N7pEvDABhEL6hM=" $oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignerRole|xades:ClaimedRoles|xades:ClaimedRole","emisor" $oObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",True,"ObjectReference","#Reference-ID-670821") $oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description","Factura electr�nica" $oObject1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml" $oGen.AddObject("Signature869123-Object629337",$oObject1.GetXml(),"","") $oGen.AddObjectRef("Signature869123-SignedProperties787205","sha1","","","http://uri.etsi.org/01903#SignedProperties") $oGen.SetRefIdAttr("Signature869123-SignedProperties787205","SignedPropertiesID459347") $oGen.KeyInfoId = "Certificate1570061" $oGen.AddSameDocRef("Certificate1570061","sha1","","","") $oGen.AddSameDocRef("","sha1","","","") $oGen.SetRefIdAttr("","Reference-ID-670821") ; Provide a certificate + private key. (PFX password is test123) $oCert = ObjCreate("Chilkat.Cert") $bSuccess = $oCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") If ($bSuccess <> True) Then ConsoleWrite($oCert.LastErrorText & @CRLF) Exit EndIf $oGen.SetX509Cert($oCert,True) $oGen.KeyInfoType = "X509Data+KeyValue" $oGen.X509Type = "Certificate" ; Load XML to be signed... $oSbXml = ObjCreate("Chilkat.StringBuilder") $oXmlToSign.GetXmlSb($oSbXml) $oGen.Behaviors = "CompactSignedXml" ; Sign the XML... $bSuccess = $oGen.CreateXmlDSigSb($oSbXml) If ($bSuccess <> True) Then ConsoleWrite($oGen.LastErrorText & @CRLF) Exit EndIf ; Save the signed XMl to a file. $bSuccess = $oSbXml.WriteFile("qa_output/signedXml.xml","utf-8",False) ConsoleWrite($oSbXml.GetAsString() & @CRLF) |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.