Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi DLL) TicketBAI Sign XML Example 1See more TicketBAI ExamplesFirst example to demonstrate how to sign XML for TicketBAI.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder, XmlDSigGen, Xml, XmlDSig, Cert; ... procedure TForm1.Button1Click(Sender: TObject); var success: Boolean; xmlToSign: HCkXml; gen: HCkXmlDSigGen; object1: HCkXml; cert: HCkCert; sbXml: HCkStringBuilder; verifier: HCkXmlDSig; numSigs: Integer; verifyIdx: Integer; verified: Boolean; begin // 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... xmlToSign := CkXml_Create(); CkXml_putTag(xmlToSign,'T:TicketBai'); CkXml_AddAttribute(xmlToSign,'xmlns:T','urn:ticketbai:emision'); CkXml_UpdateChildContent(xmlToSign,'Cabecera|IDVersionTBAI','1.2'); CkXml_UpdateChildContent(xmlToSign,'Sujetos|Emisor|NIF','79732487C'); CkXml_UpdateChildContent(xmlToSign,'Sujetos|Emisor|ApellidosNombreRazonSocial','ARRIOLA LEJARDI ANE'); CkXml_UpdateChildContent(xmlToSign,'Sujetos|Destinatarios|IDDestinatario|NIF','B00000034'); CkXml_UpdateChildContent(xmlToSign,'Sujetos|Destinatarios|IDDestinatario|ApellidosNombreRazonSocial','CONSULTORIA GALDETU'); CkXml_UpdateChildContent(xmlToSign,'Factura|CabeceraFactura|SerieFactura','A2022'); CkXml_UpdateChildContent(xmlToSign,'Factura|CabeceraFactura|NumFactura','0399'); CkXml_UpdateChildContent(xmlToSign,'Factura|CabeceraFactura|FechaExpedicionFactura','06-05-2022'); CkXml_UpdateChildContent(xmlToSign,'Factura|CabeceraFactura|HoraExpedicionFactura','10:30:28'); CkXml_UpdateChildContent(xmlToSign,'Factura|DatosFactura|DescripcionFactura','Venta Fotocopister�a'); CkXml_UpdateChildContent(xmlToSign,'Factura|DatosFactura|ImporteTotalFactura','31.46'); CkXml_UpdateChildContent(xmlToSign,'Factura|DatosFactura|Claves|IDClave|ClaveRegimenIvaOpTrascendencia','01'); CkXml_UpdateChildContent(xmlToSign,'Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|TipoNoExenta','S1'); CkXml_UpdateChildContent(xmlToSign,'Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|BaseImponible','26.00'); CkXml_UpdateChildContent(xmlToSign,'Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|TipoImpositivo','21.00'); CkXml_UpdateChildContent(xmlToSign,'Factura|TipoDesglose|DesgloseFactura|Sujeta|NoExenta|DetalleNoExenta|DesgloseIVA|DetalleIVA|CuotaImpuesto','5.46'); CkXml_UpdateChildContent(xmlToSign,'HuellaTBAI|EncadenamientoFacturaAnterior|SerieFacturaAnterior','A2022'); CkXml_UpdateChildContent(xmlToSign,'HuellaTBAI|EncadenamientoFacturaAnterior|NumFacturaAnterior','0398'); CkXml_UpdateChildContent(xmlToSign,'HuellaTBAI|EncadenamientoFacturaAnterior|FechaExpedicionFacturaAnterior','05-05-2022'); CkXml_UpdateChildContent(xmlToSign,'HuellaTBAI|EncadenamientoFacturaAnterior|SignatureValueFirmaFacturaAnterior','KwXaQec65SKpVP7EU9o4nUXOx7SAftIToFsxH+2j2tXPXhpBUnS26dhdSpiMl2DlTuqRsFdZfWyYazaGHgSRQHZZAnFtpbi4BeMk'); CkXml_UpdateChildContent(xmlToSign,'HuellaTBAI|Software|LicenciaTBAI','TBAIPRUEBA'); CkXml_UpdateChildContent(xmlToSign,'HuellaTBAI|Software|EntidadDesarrolladora|NIF','A48119820'); CkXml_UpdateChildContent(xmlToSign,'HuellaTBAI|Software|Nombre','DFBTBAI'); CkXml_UpdateChildContent(xmlToSign,'HuellaTBAI|Software|Version','1.04.00'); CkXml_UpdateChildContent(xmlToSign,'HuellaTBAI|NumSerieDispositivo','GP4FC5J'); gen := CkXmlDSigGen_Create(); CkXmlDSigGen_putSigLocation(gen,'T:TicketBai'); CkXmlDSigGen_putSigLocationMod(gen,0); CkXmlDSigGen_putSigId(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature'); CkXmlDSigGen_putSigNamespacePrefix(gen,'ds'); CkXmlDSigGen_putSigNamespaceUri(gen,'http://www.w3.org/2000/09/xmldsig#'); CkXmlDSigGen_putSigValueId(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignatureValue'); CkXmlDSigGen_putSignedInfoCanonAlg(gen,'C14N'); CkXmlDSigGen_putSignedInfoDigestMethod(gen,'sha256'); // Set the KeyInfoId before adding references.. CkXmlDSigGen_putKeyInfoId(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo'); // Create an Object to be added to the Signature. object1 := CkXml_Create(); CkXml_putTag(object1,'xades:QualifyingProperties'); CkXml_AddAttribute(object1,'xmlns:xades','http://uri.etsi.org/01903/v1.3.2#'); CkXml_AddAttribute(object1,'Id','Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-QualifyingProperties'); CkXml_AddAttribute(object1,'Target','#Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature'); CkXml_AddAttribute(object1,'xmlns:ds','http://www.w3.org/2000/09/xmldsig#'); CkXml_UpdateAttrAt(object1,'xades:SignedProperties',True,'Id','Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties'); CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime','TO BE GENERATED BY CHILKAT'); CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod',True,'Algorithm','http://www.w3.org/2001/04/xmlenc#sha512'); CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue','TO BE GENERATED BY CHILKAT'); CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2','TO BE GENERATED BY CHILKAT'); CkXml_UpdateChildContent(object1,'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'); CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description',''); CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod',True,'Algorithm','http://www.w3.org/2001/04/xmlenc#sha256'); CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue','Quzn98x3PMbSHwbUzaj5f5KOpiH0u8bvmwbbbNkO9Es='); CkXml_UpdateChildContent(object1,'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'); CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat',True,'ObjectReference','#Reference-7e6f3481-4acc-47de-90fd-67878ad15e8e'); CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description',''); CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier',True,'Qualifier','OIDAsURN'); CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier','urn:oid:1.2.840.10003.5.109.10'); CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Description',''); CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType','text/xml'); CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Encoding',''); CkXmlDSigGen_AddObject(gen,'',CkXml__getXml(object1),'',''); // -------- Reference 1 -------- CkXmlDSigGen_AddSameDocRef(gen,'','sha512','C14N','','http://www.w3.org/2000/09/xmldsig#Object'); CkXmlDSigGen_SetRefIdAttr(gen,'','Reference-7e6f3481-4acc-47de-90fd-67878ad15e8e'); // -------- Reference 2 -------- CkXmlDSigGen_AddObjectRef(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties','sha512','','','http://uri.etsi.org/01903#SignedProperties'); // -------- Reference 3 -------- CkXmlDSigGen_AddSameDocRef(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo','sha512','','',''); // Provide a certificate + private key. (PFX password is test123) cert := CkCert_Create(); success := CkCert_LoadPfxFile(cert,'qa_data/pfx/cert_test123.pfx','test123'); if (success <> True) then begin Memo1.Lines.Add(CkCert__lastErrorText(cert)); Exit; end; CkXmlDSigGen_SetX509Cert(gen,cert,True); CkXmlDSigGen_putKeyInfoType(gen,'X509Data+KeyValue'); CkXmlDSigGen_putX509Type(gen,'Certificate'); // Load XML to be signed... sbXml := CkStringBuilder_Create(); CkXml_GetXmlSb(xmlToSign,sbXml); CkXmlDSigGen_putBehaviors(gen,'TransformSignatureXPath'); // Sign the XML... success := CkXmlDSigGen_CreateXmlDSigSb(gen,sbXml); if (success <> True) then begin Memo1.Lines.Add(CkXmlDSigGen__lastErrorText(gen)); Exit; end; // ----------------------------------------------- // Save the signed XML to a file. success := CkStringBuilder_WriteFile(sbXml,'qa_output/signedXml_1.xml','utf-8',False); Memo1.Lines.Add(CkStringBuilder__getAsString(sbXml)); // ---------------------------------------- // Verify the signatures we just produced... verifier := CkXmlDSig_Create(); success := CkXmlDSig_LoadSignatureSb(verifier,sbXml); if (success <> True) then begin Memo1.Lines.Add(CkXmlDSig__lastErrorText(verifier)); Exit; end; numSigs := CkXmlDSig_getNumSignatures(verifier); verifyIdx := 0; while verifyIdx < numSigs do begin CkXmlDSig_putSelector(verifier,verifyIdx); verified := CkXmlDSig_VerifySignature(verifier,True); if (verified <> True) then begin Memo1.Lines.Add(CkXmlDSig__lastErrorText(verifier)); Exit; end; verifyIdx := verifyIdx + 1; end; Memo1.Lines.Add('All signatures were successfully verified.'); CkXml_Dispose(xmlToSign); CkXmlDSigGen_Dispose(gen); CkXml_Dispose(object1); CkCert_Dispose(cert); CkStringBuilder_Dispose(sbXml); CkXmlDSig_Dispose(verifier); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.