|
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
(Visual Basic 6.0) 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 Long success = 1 ' Create the XML to be signed... Dim xmlToSign As New ChilkatXml xmlToSign.Tag = "T:TicketBai" success = 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 ChilkatXmlDSigGen 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 ChilkatXml object1.Tag = "xades:QualifyingProperties" success = object1.AddAttribute("xmlns:xades","http://uri.etsi.org/01903/v1.3.2#") success = object1.AddAttribute("Id","Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-QualifyingProperties") success = object1.AddAttribute("Target","#Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-Signature") success = object1.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#") success = object1.UpdateAttrAt("xades:SignedProperties",1,"Id","Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-SignedProperties") 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#sha512") 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.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","" success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",1,"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" success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",1,"ObjectReference","#Reference-43b5c8a3-7ce0-4056-bdbe-d2076d8ac825") object1.UpdateChildContent "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description","" success = object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier",1,"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","" success = gen.AddObject("",object1.GetXml(),"","") ' -------- Reference 1 -------- success = gen.AddSameDocRef("","sha512","C14N","","http://www.w3.org/2000/09/xmldsig#Object") success = gen.SetRefIdAttr("","Reference-43b5c8a3-7ce0-4056-bdbe-d2076d8ac825") ' -------- Reference 2 -------- success = gen.AddObjectRef("Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-SignedProperties","sha512","","","http://uri.etsi.org/01903#SignedProperties") ' -------- Reference 3 -------- success = gen.AddSameDocRef("Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-KeyInfo","sha512","","","") ' Provide a certificate + private key. (PFX password is test123) Dim cert As New ChilkatCert success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") If (success <> 1) Then Debug.Print cert.LastErrorText Exit Sub End If success = gen.SetX509Cert(cert,1) gen.KeyInfoType = "X509Data+KeyValue" gen.X509Type = "Certificate" ' Load XML to be signed... Dim sbXml As New ChilkatStringBuilder success = xmlToSign.GetXmlSb(sbXml) gen.Behaviors = "IndentedSignature,TransformSignatureXPath" ' Sign the XML... success = gen.CreateXmlDSigSb(sbXml) If (success <> 1) Then Debug.Print gen.LastErrorText Exit Sub End If ' ----------------------------------------------- ' Save the signed XML to a file. success = sbXml.WriteFile("qa_output/signedXml_2.xml","utf-8",0) Debug.Print sbXml.GetAsString() ' ---------------------------------------- ' Verify the signatures we just produced... Dim verifier As New ChilkatXmlDSig success = verifier.LoadSignatureSb(sbXml) If (success <> 1) Then Debug.Print verifier.LastErrorText Exit Sub End If Dim numSigs As Long numSigs = verifier.NumSignatures Dim verifyIdx As Long verifyIdx = 0 Do While verifyIdx < numSigs verifier.Selector = verifyIdx Dim verified As Long verified = verifier.VerifySignature(1) If (verified <> 1) Then Debug.Print verifier.LastErrorText Exit Sub End If verifyIdx = verifyIdx + 1 Loop Debug.Print "All signatures were successfully verified." |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.