Sample code for 30+ languages & platforms
Lua

TicketBAI Sign XML Example 2

See more TicketBAI Examples

Second example to demonstrate how to sign XML for TicketBAI.

Chilkat Lua Downloads

Download Chilkat for Lua
Lua 
local chilkat = require("chilkat")

-- This example requires the Chilkat API to have been previously unlocked.
-- See Global Unlock Sample for sample code.

local success = true
-- Create the XML to be signed...
local xmlToSign = chilkat.Xml.new()
xmlToSign.tag = "T:TicketBai"
xmlToSign:add_attribute("xmlns:T", "urn:ticketbai:emision")
xmlToSign:update_child_content("Cabecera|IDVersionTBAI", "1.2")
xmlToSign:update_child_content("Sujetos|Emisor|NIF", "79732487C")
xmlToSign:update_child_content("Sujetos|Emisor|ApellidosNombreRazonSocial", "ARRIOLA LEJARDI ANE")
xmlToSign:update_child_content("Sujetos|Destinatarios|IDDestinatario|NIF", "A48012363")
xmlToSign:update_child_content("Sujetos|Destinatarios|IDDestinatario|ApellidosNombreRazonSocial", "ACADEMIA ESKOLA")
xmlToSign:update_child_content("Factura|CabeceraFactura|SerieFactura", "A2022")
xmlToSign:update_child_content("Factura|CabeceraFactura|NumFactura", "0400")
xmlToSign:update_child_content("Factura|CabeceraFactura|FechaExpedicionFactura", "12-05-2022")
xmlToSign:update_child_content("Factura|CabeceraFactura|HoraExpedicionFactura", "12:20:15")
xmlToSign:update_child_content("Factura|DatosFactura|DescripcionFactura", "Venta maquinaria y existencias")
xmlToSign:update_child_content("Factura|DatosFactura|ImporteTotalFactura", "1936.00")
xmlToSign:update_child_content("Factura|DatosFactura|Claves|IDClave|ClaveRegimenIvaOpTrascendencia", "01")
xmlToSign:update_child_content("Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|TipoNoExenta", "S1")
xmlToSign:update_child_content("Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|BaseImponible", "1600.00")
xmlToSign:update_child_content("Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|TipoImpositivo", "21.00")
xmlToSign:update_child_content("Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|CuotaImpuesto", "336.00")
xmlToSign:update_child_content("HuellaTBAI|EncadenamientoFacturaAnterior|SerieFacturaAnterior", "A2022")
xmlToSign:update_child_content("HuellaTBAI|EncadenamientoFacturaAnterior|NumFacturaAnterior", "0399")
xmlToSign:update_child_content("HuellaTBAI|EncadenamientoFacturaAnterior|FechaExpedicionFacturaAnterior", "06-05-2022")
xmlToSign:update_child_content("HuellaTBAI|EncadenamientoFacturaAnterior|SignatureValueFirmaFacturaAnterior", "KdxKFNXeNJuBZNjgvKEa9lICamXs9MHuin6R+yuFHZw9aMewuBvdhaMr7g0eUz8aNYEa1elpCTr7aLgVZjQrFQK/TjIg353iAVxA")
xmlToSign:update_child_content("HuellaTBAI|Software|LicenciaTBAI", "TBAIPRUEBA")
xmlToSign:update_child_content("HuellaTBAI|Software|EntidadDesarrolladora|NIF", "A48119820")
xmlToSign:update_child_content("HuellaTBAI|Software|Nombre", "DFBTBAI")
xmlToSign:update_child_content("HuellaTBAI|Software|Version", "1.04.00")
xmlToSign:update_child_content("HuellaTBAI|NumSerieDispositivo", "GP4FC5J")

local gen = chilkat.XmlDSigGen.new()

gen.sig_location = "T:TicketBai"
gen.sig_location_mod = 0
gen.sig_id = "Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-Signature"
gen.sig_namespace_prefix = "ds"
gen.sig_namespace_uri = "http://www.w3.org/2000/09/xmldsig#"
gen.sig_value_id = "Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-SignatureValue"
gen.signed_info_canon_alg = "C14N"
gen.signed_info_digest_method = "sha256"

-- Set the KeyInfoId before adding references..
gen.key_info_id = "Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-KeyInfo"

-- Create an Object to be added to the Signature.
local object1 = chilkat.Xml.new()
object1.tag = "xades:QualifyingProperties"
object1:add_attribute("xmlns:xades", "http://uri.etsi.org/01903/v1.3.2#")
object1:add_attribute("Id", "Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-QualifyingProperties")
object1:add_attribute("Target", "#Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-Signature")
object1:add_attribute("xmlns:ds", "http://www.w3.org/2000/09/xmldsig#")
object1:update_attr_at("xades:SignedProperties", true, "Id", "Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-SignedProperties")
object1:update_child_content("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime", "TO BE GENERATED BY CHILKAT")
object1:update_attr_at("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod", true, "Algorithm", "http://www.w3.org/2001/04/xmlenc#sha512")
object1:update_child_content("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue", "TO BE GENERATED BY CHILKAT")
object1:update_child_content("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2", "TO BE GENERATED BY CHILKAT")
object1:update_child_content("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:update_child_content("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description", "")
object1:update_attr_at("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod", true, "Algorithm", "http://www.w3.org/2001/04/xmlenc#sha256")
object1:update_child_content("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue", "Quzn98x3PMbSHwbUzaj5f5KOpiH0u8bvmwbbbNkO9Es=")
object1:update_child_content("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:update_attr_at("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat", true, "ObjectReference", "#Reference-43b5c8a3-7ce0-4056-bdbe-d2076d8ac825")
object1:update_child_content("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description", "")
object1:update_attr_at("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier", true, "Qualifier", "OIDAsURN")
object1:update_child_content("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier", "urn:oid:1.2.840.10003.5.109.10")
object1:update_child_content("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Description", "")
object1:update_child_content("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType", "text/xml")
object1:update_child_content("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Encoding", "")

gen:add_object("", object1:get_xml(), "", "")

-- -------- Reference 1 --------
gen:add_same_doc_ref("", "sha512", "C14N", "", "http://www.w3.org/2000/09/xmldsig#Object")
gen:set_ref_id_attr("", "Reference-43b5c8a3-7ce0-4056-bdbe-d2076d8ac825")

-- -------- Reference 2 --------
gen:add_object_ref("Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-SignedProperties", "sha512", "", "", "http://uri.etsi.org/01903#SignedProperties")

-- -------- Reference 3 --------
gen:add_same_doc_ref("Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-KeyInfo", "sha512", "", "", "")

-- Provide a certificate + private key. (PFX password is test123)
local cert = chilkat.Cert.new()
success = cert:load_pfx_file("qa_data/pfx/cert_test123.pfx", "test123")
if not success then
    print(cert.last_error_text)
    return
end

gen:set_x509_cert(cert, true)

gen.key_info_type = "X509Data+KeyValue"
gen.x509_type = "Certificate"

-- Load XML to be signed...
local sbXml = chilkat.StringBuilder.new()
xmlToSign:get_xml_sb(sbXml)

gen.behaviors = "IndentedSignature,TransformSignatureXPath"

-- Sign the XML...
success = gen:create_xml_dsig_sb(sbXml)
if not success then
    print(gen.last_error_text)
    return
end

-- -----------------------------------------------

-- Save the signed XML to a file.
success = sbXml:write_file("qa_output/signedXml_2.xml", "utf-8", false)

print(sbXml:get_as_string())

-- ----------------------------------------
-- Verify the signatures we just produced...
local verifier = chilkat.XmlDSig.new()
success = verifier:load_signature_sb(sbXml)
if not success then
    print(verifier.last_error_text)
    return
end

local numSigs = verifier.num_signatures
local verifyIdx = 0
while verifyIdx < numSigs do
    verifier.selector = verifyIdx
    local verified = verifier:verify_signature(true)
    if not verified then
        print(verifier.last_error_text)
        return
    end

    verifyIdx = verifyIdx + 1
end

print("All signatures were successfully verified.")