|
Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(VB.NET UWP/WinRT) TicketBAI Sign XML Example 2See more TicketBAI ExamplesSecond example to demonstrate how to sign XML for TicketBAI.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim success As Boolean = True ' Create the XML to be signed... Dim xmlToSign As New 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") Dim gen As New 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. Dim object1 As New 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) Dim cert As New Chilkat.Cert success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") If (success <> True) Then Debug.WriteLine(cert.LastErrorText) Exit Sub End If gen.SetX509Cert(cert,True) gen.KeyInfoType = "X509Data+KeyValue" gen.X509Type = "Certificate" ' Load XML to be signed... Dim sbXml As New Chilkat.StringBuilder xmlToSign.GetXmlSb(sbXml) gen.Behaviors = "IndentedSignature,TransformSignatureXPath" ' Sign the XML... success = gen.CreateXmlDSigSb(sbXml) If (success <> True) Then Debug.WriteLine(gen.LastErrorText) Exit Sub End If ' ----------------------------------------------- ' Save the signed XML to a file. success = sbXml.WriteFile("qa_output/signedXml_2.xml","utf-8",False) Debug.WriteLine(sbXml.GetAsString()) ' ---------------------------------------- ' Verify the signatures we just produced... Dim verifier As New Chilkat.XmlDSig success = verifier.LoadSignatureSb(sbXml) If (success <> True) Then Debug.WriteLine(verifier.LastErrorText) Exit Sub End If Dim numSigs As Integer = verifier.NumSignatures Dim verifyIdx As Integer = 0 While verifyIdx < numSigs verifier.Selector = verifyIdx Dim verified As Boolean = verifier.VerifySignature(True) If (verified <> True) Then Debug.WriteLine(verifier.LastErrorText) Exit Sub End If verifyIdx = verifyIdx + 1 End While Debug.WriteLine("All signatures were successfully verified.") |
||||
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.