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
(PowerShell) TicketBAI Sign XML Example 2See more TicketBAI ExamplesSecond example to demonstrate how to sign XML for TicketBAI.
Add-Type -Path "C:\chilkat\ChilkatDotNet47-9.5.0-x64\ChilkatDotNet47.dll" # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. $success = $true # Create the XML to be signed... $xmlToSign = New-Object Chilkat.Xml $xmlToSign.Tag = "T:TicketBai" $xmlToSign.AddAttribute("xmlns:T","urn:ticketbai:emision") $xmlToSign.UpdateChildContent("Cabecera|IDVersionTBAI","1.2") $xmlToSign.UpdateChildContent("Sujetos|Emisor|NIF","79732487C") $xmlToSign.UpdateChildContent("Sujetos|Emisor|ApellidosNombreRazonSocial","ARRIOLA LEJARDI ANE") $xmlToSign.UpdateChildContent("Sujetos|Destinatarios|IDDestinatario|NIF","A48012363") $xmlToSign.UpdateChildContent("Sujetos|Destinatarios|IDDestinatario|ApellidosNombreRazonSocial","ACADEMIA ESKOLA") $xmlToSign.UpdateChildContent("Factura|CabeceraFactura|SerieFactura","A2022") $xmlToSign.UpdateChildContent("Factura|CabeceraFactura|NumFactura","0400") $xmlToSign.UpdateChildContent("Factura|CabeceraFactura|FechaExpedicionFactura","12-05-2022") $xmlToSign.UpdateChildContent("Factura|CabeceraFactura|HoraExpedicionFactura","12:20:15") $xmlToSign.UpdateChildContent("Factura|DatosFactura|DescripcionFactura","Venta maquinaria y existencias") $xmlToSign.UpdateChildContent("Factura|DatosFactura|ImporteTotalFactura","1936.00") $xmlToSign.UpdateChildContent("Factura|DatosFactura|Claves|IDClave|ClaveRegimenIvaOpTrascendencia","01") $xmlToSign.UpdateChildContent("Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|TipoNoExenta","S1") $xmlToSign.UpdateChildContent("Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|BaseImponible","1600.00") $xmlToSign.UpdateChildContent("Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|TipoImpositivo","21.00") $xmlToSign.UpdateChildContent("Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|CuotaImpuesto","336.00") $xmlToSign.UpdateChildContent("HuellaTBAI|EncadenamientoFacturaAnterior|SerieFacturaAnterior","A2022") $xmlToSign.UpdateChildContent("HuellaTBAI|EncadenamientoFacturaAnterior|NumFacturaAnterior","0399") $xmlToSign.UpdateChildContent("HuellaTBAI|EncadenamientoFacturaAnterior|FechaExpedicionFacturaAnterior","06-05-2022") $xmlToSign.UpdateChildContent("HuellaTBAI|EncadenamientoFacturaAnterior|SignatureValueFirmaFacturaAnterior","KdxKFNXeNJuBZNjgvKEa9lICamXs9MHuin6R+yuFHZw9aMewuBvdhaMr7g0eUz8aNYEa1elpCTr7aLgVZjQrFQK/TjIg353iAVxA") $xmlToSign.UpdateChildContent("HuellaTBAI|Software|LicenciaTBAI","TBAIPRUEBA") $xmlToSign.UpdateChildContent("HuellaTBAI|Software|EntidadDesarrolladora|NIF","A48119820") $xmlToSign.UpdateChildContent("HuellaTBAI|Software|Nombre","DFBTBAI") $xmlToSign.UpdateChildContent("HuellaTBAI|Software|Version","1.04.00") $xmlToSign.UpdateChildContent("HuellaTBAI|NumSerieDispositivo","GP4FC5J") $gen = New-Object Chilkat.XmlDSigGen $gen.SigLocation = "T:TicketBai" $gen.SigLocationMod = 0 $gen.SigId = "Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-Signature" $gen.SigNamespacePrefix = "ds" $gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#" $gen.SigValueId = "Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-SignatureValue" $gen.SignedInfoCanonAlg = "C14N" $gen.SignedInfoDigestMethod = "sha256" # Set the KeyInfoId before adding references.. $gen.KeyInfoId = "Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-KeyInfo" # Create an Object to be added to the Signature. $object1 = New-Object Chilkat.Xml $object1.Tag = "xades:QualifyingProperties" $object1.AddAttribute("xmlns:xades","http://uri.etsi.org/01903/v1.3.2#") $object1.AddAttribute("Id","Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-QualifyingProperties") $object1.AddAttribute("Target","#Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-Signature") $object1.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#") $object1.UpdateAttrAt("xades:SignedProperties",$true,"Id","Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-SignedProperties") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT") $object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod",$true,"Algorithm","http://www.w3.org/2001/04/xmlenc#sha512") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier","https://www.batuz.eus/fitxategiak/batuz/ticketbai/sinadura_elektronikoaren_zehaztapenak_especificaciones_de_la_firma_electronica_v1_0.pdf") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description","") $object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",$true,"Algorithm","http://www.w3.org/2001/04/xmlenc#sha256") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue","Quzn98x3PMbSHwbUzaj5f5KOpiH0u8bvmwbbbNkO9Es=") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyQualifiers|xades:SigPolicyQualifier|xades:SPURI","https://www.batuz.eus/fitxategiak/batuz/ticketbai/sinadura_elektronikoaren_zehaztapenak_especificaciones_de_la_firma_electronica_v1_0.pdf") $object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",$true,"ObjectReference","#Reference-43b5c8a3-7ce0-4056-bdbe-d2076d8ac825") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description","") $object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier",$true,"Qualifier","OIDAsURN") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier","urn:oid:1.2.840.10003.5.109.10") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Description","") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml") $object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Encoding","") $gen.AddObject("",$object1.GetXml(),"","") # -------- Reference 1 -------- $gen.AddSameDocRef("","sha512","C14N","","http://www.w3.org/2000/09/xmldsig#Object") $gen.SetRefIdAttr("","Reference-43b5c8a3-7ce0-4056-bdbe-d2076d8ac825") # -------- Reference 2 -------- $gen.AddObjectRef("Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-SignedProperties","sha512","","","http://uri.etsi.org/01903#SignedProperties") # -------- Reference 3 -------- $gen.AddSameDocRef("Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-KeyInfo","sha512","","","") # Provide a certificate + private key. (PFX password is test123) $cert = New-Object Chilkat.Cert $success = $cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") if ($success -ne $true) { $($cert.LastErrorText) exit } $gen.SetX509Cert($cert,$true) $gen.KeyInfoType = "X509Data+KeyValue" $gen.X509Type = "Certificate" # Load XML to be signed... $sbXml = New-Object Chilkat.StringBuilder $xmlToSign.GetXmlSb($sbXml) $gen.Behaviors = "IndentedSignature,TransformSignatureXPath" # Sign the XML... $success = $gen.CreateXmlDSigSb($sbXml) if ($success -ne $true) { $($gen.LastErrorText) exit } # ----------------------------------------------- # Save the signed XML to a file. $success = $sbXml.WriteFile("qa_output/signedXml_2.xml","utf-8",$false) $($sbXml.GetAsString()) # ---------------------------------------- # Verify the signatures we just produced... $verifier = New-Object Chilkat.XmlDSig $success = $verifier.LoadSignatureSb($sbXml) if ($success -ne $true) { $($verifier.LastErrorText) exit } $numSigs = $verifier.NumSignatures $verifyIdx = 0 while ($verifyIdx -lt $numSigs) { $verifier.Selector = $verifyIdx $verified = $verifier.VerifySignature($true) if ($verified -ne $true) { $($verifier.LastErrorText) exit } $verifyIdx = $verifyIdx + 1 } $("All signatures were successfully verified.") |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.