Sample code for 30+ languages & platforms
Xbase++

TicketBAI Sign XML Example 2

See more TicketBAI Examples

Second example to demonstrate how to sign XML for TicketBAI.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oXmlToSign
LOCAL oGen
LOCAL oObject1
LOCAL oCert
LOCAL oSbXml
LOCAL oVerifier
LOCAL nNumSigs
LOCAL nVerifyIdx
LOCAL nVerified

nSuccess := 0

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

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

oGen := CreateObject("Chilkat.XmlDSigGen")

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

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

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

oGen:AddObject("", oObject1:GetXml(), "", "")

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

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

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

//  Provide a certificate + private key. (PFX password is test123)
oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
IF (nSuccess != 1)
    ? oCert:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oObject1:destroy()
    oCert:destroy()
    RETURN
ENDIF

oGen:SetX509Cert(oCert, 1)

oGen:KeyInfoType := "X509Data+KeyValue"
oGen:X509Type := "Certificate"

//  Load XML to be signed...
oSbXml := CreateObject("Chilkat.StringBuilder")
oXmlToSign:GetXmlSb(oSbXml)

oGen:Behaviors := "IndentedSignature,TransformSignatureXPath"

//  Sign the XML...
nSuccess := oGen:CreateXmlDSigSb(oSbXml)
IF (nSuccess != 1)
    ? oGen:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oObject1:destroy()
    oCert:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

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

//  Save the signed XML to a file.
nSuccess := oSbXml:WriteFile("qa_output/signedXml_2.xml", "utf-8", 0)

? oSbXml:GetAsString()

//  ----------------------------------------
//  Verify the signatures we just produced...
oVerifier := CreateObject("Chilkat.XmlDSig")
nSuccess := oVerifier:LoadSignatureSb(oSbXml)
IF (nSuccess != 1)
    ? oVerifier:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oObject1:destroy()
    oCert:destroy()
    oSbXml:destroy()
    oVerifier:destroy()
    RETURN
ENDIF

nNumSigs := oVerifier:NumSignatures
nVerifyIdx := 0
DO WHILE nVerifyIdx < nNumSigs
    oVerifier:Selector := nVerifyIdx
    nVerified := oVerifier:VerifySignature(1)
    IF (nVerified != 1)
        ? oVerifier:LastErrorText
        oXmlToSign:destroy()
        oGen:destroy()
        oObject1:destroy()
        oCert:destroy()
        oSbXml:destroy()
        oVerifier:destroy()
        RETURN
    ENDIF

    nVerifyIdx := nVerifyIdx + 1
ENDDO
? "All signatures were successfully verified."

oXmlToSign:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
oSbXml:destroy()
oVerifier:destroy()