Sample code for 30+ languages & platforms
B4X

TicketBAI Sign XML Example 1

See more TicketBAI Examples

First example to demonstrate how to sign XML for TicketBAI.

Chilkat B4X Downloads

Download Chilkat for B4X
B4X 
Dim success As Boolean = False

'  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...
Dim xmlToSign As ChilkatXml
xmlToSign.Initialize
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", "B00000034")
xmlToSign.UpdateChildContent("Sujetos|Destinatarios|IDDestinatario|ApellidosNombreRazonSocial", "CONSULTORIA GALDETU")
xmlToSign.UpdateChildContent("Factura|CabeceraFactura|SerieFactura", "A2022")
xmlToSign.UpdateChildContent("Factura|CabeceraFactura|NumFactura", "0399")
xmlToSign.UpdateChildContent("Factura|CabeceraFactura|FechaExpedicionFactura", "06-05-2022")
xmlToSign.UpdateChildContent("Factura|CabeceraFactura|HoraExpedicionFactura", "10:30:28")
xmlToSign.UpdateChildContent("Factura|DatosFactura|DescripcionFactura", "Venta Fotocopister�a")
xmlToSign.UpdateChildContent("Factura|DatosFactura|ImporteTotalFactura", "31.46")
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", "26.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", "5.46")
xmlToSign.UpdateChildContent("HuellaTBAI|EncadenamientoFacturaAnterior|SerieFacturaAnterior", "A2022")
xmlToSign.UpdateChildContent("HuellaTBAI|EncadenamientoFacturaAnterior|NumFacturaAnterior", "0398")
xmlToSign.UpdateChildContent("HuellaTBAI|EncadenamientoFacturaAnterior|FechaExpedicionFacturaAnterior", "05-05-2022")
xmlToSign.UpdateChildContent("HuellaTBAI|EncadenamientoFacturaAnterior|SignatureValueFirmaFacturaAnterior", "KwXaQec65SKpVP7EU9o4nUXOx7SAftIToFsxH+2j2tXPXhpBUnS26dhdSpiMl2DlTuqRsFdZfWyYazaGHgSRQHZZAnFtpbi4BeMk")
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 ChilkatXmlDSigGen
gen.Initialize("gen")

gen.SigLocation = "T:TicketBai"
gen.SigLocationMod = 0
gen.SigId = "Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature"
gen.SigNamespacePrefix = "ds"
gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
gen.SigValueId = "Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignatureValue"
gen.SignedInfoCanonAlg = "C14N"
gen.SignedInfoDigestMethod = "sha256"

'  Set the KeyInfoId before adding references..
gen.KeyInfoId = "Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo"

'  Create an Object to be added to the Signature.
Dim object1 As ChilkatXml
object1.Initialize
object1.Tag = "xades:QualifyingProperties"
object1.AddAttribute("xmlns:xades", "http://uri.etsi.org/01903/v1.3.2#")
object1.AddAttribute("Id", "Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-QualifyingProperties")
object1.AddAttribute("Target", "#Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature")
object1.AddAttribute("xmlns:ds", "http://www.w3.org/2000/09/xmldsig#")
object1.UpdateAttrAt("xades:SignedProperties", True, "Id", "Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties")
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", True, "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", "")
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-7e6f3481-4acc-47de-90fd-67878ad15e8e")
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-7e6f3481-4acc-47de-90fd-67878ad15e8e")

'  -------- Reference 2 --------
gen.AddObjectRef("Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties", "sha512", "", "", "http://uri.etsi.org/01903#SignedProperties")

'  -------- Reference 3 --------
gen.AddSameDocRef("Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo", "sha512", "", "", "")

'  Provide a certificate + private key. (PFX password is test123)
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
If success <> True Then
    Log(cert.LastErrorText)
    Return
End If

gen.SetX509Cert(cert, True)

gen.KeyInfoType = "X509Data+KeyValue"
gen.X509Type = "Certificate"

'  Load XML to be signed...
Dim sbXml As ChilkatStringBuilder
sbXml.Initialize
xmlToSign.GetXmlSb(sbXml)

gen.Behaviors = "TransformSignatureXPath"

'  Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If success <> True Then
    Log(gen.LastErrorText)
    Return
End If

'  -----------------------------------------------

'  Save the signed XML to a file.
success = sbXml.WriteFile("qa_output/signedXml_1.xml", "utf-8", False)

Log(sbXml.GetAsString)

'  ----------------------------------------
'  Verify the signatures we just produced...
Dim verifier As ChilkatXmlDSig
verifier.Initialize
success = verifier.LoadSignatureSb(sbXml)
If success <> True Then
    Log(verifier.LastErrorText)
    Return
End If


Dim numSigs As Int = verifier.NumSignatures
Dim verifyIdx As Int = 0
Do While verifyIdx < numSigs
    verifier.Selector = verifyIdx
    Dim verified As Boolean = verifier.VerifySignature(True)
    If verified <> True Then
        Log(verifier.LastErrorText)
        Return
    End If

    verifyIdx = verifyIdx + 1
Loop
Log("All signatures were successfully verified.")