Sample code for 30+ languages & platforms
Lianja

TicketBAI Sign XML Example 2

See more TicketBAI Examples

Second example to demonstrate how to sign XML for TicketBAI.

Chilkat Lianja Downloads

Download Chilkat for Lianja
Lianja 
llSuccess = .F.

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

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

loGen = createobject("CkXmlDSigGen")

loGen.SigLocation = "T:TicketBai"
loGen.SigLocationMod = 0
loGen.SigId = "Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-Signature"
loGen.SigNamespacePrefix = "ds"
loGen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
loGen.SigValueId = "Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-SignatureValue"
loGen.SignedInfoCanonAlg = "C14N"
loGen.SignedInfoDigestMethod = "sha256"

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

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

loGen.AddObject("",loObject1.GetXml(),"","")

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

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

// -------- Reference 3 --------
loGen.AddSameDocRef("Signature-43861174-a0e6-45f9-afbf-8b48c46c6c13-KeyInfo","sha512","","","")

// Provide a certificate + private key. (PFX password is test123)
loCert = createobject("CkCert")
llSuccess = loCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loXmlToSign
    release loGen
    release loObject1
    release loCert
    return
endif

loGen.SetX509Cert(loCert,.T.)

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

// Load XML to be signed...
loSbXml = createobject("CkStringBuilder")
loXmlToSign.GetXmlSb(loSbXml)

loGen.Behaviors = "IndentedSignature,TransformSignatureXPath"

// Sign the XML...
llSuccess = loGen.CreateXmlDSigSb(loSbXml)
if (llSuccess <> .T.) then
    ? loGen.LastErrorText
    release loXmlToSign
    release loGen
    release loObject1
    release loCert
    release loSbXml
    return
endif

// -----------------------------------------------

// Save the signed XML to a file.
llSuccess = loSbXml.WriteFile("qa_output/signedXml_2.xml","utf-8",.F.)

? loSbXml.GetAsString()

// ----------------------------------------
// Verify the signatures we just produced...
loVerifier = createobject("CkXmlDSig")
llSuccess = loVerifier.LoadSignatureSb(loSbXml)
if (llSuccess <> .T.) then
    ? loVerifier.LastErrorText
    release loXmlToSign
    release loGen
    release loObject1
    release loCert
    release loSbXml
    release loVerifier
    return
endif

lnNumSigs = loVerifier.NumSignatures
lnVerifyIdx = 0
do while lnVerifyIdx < lnNumSigs
    loVerifier.Selector = lnVerifyIdx
    llVerified = loVerifier.VerifySignature(.T.)
    if (llVerified <> .T.) then
        ? loVerifier.LastErrorText
        release loXmlToSign
        release loGen
        release loObject1
        release loCert
        release loSbXml
        release loVerifier
        return
    endif

    lnVerifyIdx = lnVerifyIdx + 1
enddo
? "All signatures were successfully verified."


release loXmlToSign
release loGen
release loObject1
release loCert
release loSbXml
release loVerifier