Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
UBL XAdES Enveloped Signature
See more XAdES Examples
Demonstrates how to create a UBL XAdES enveloped signature.Chilkat Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.StringBuilder,
Chilkat.XmlDSigGen,
Chilkat.Xml,
Chilkat.XmlDSig,
Chilkat.Cert;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
xmlToSign: TXml;
gen: TXmlDSigGen;
object1: TXml;
cert: TCert;
sbXml: TStringBuilder;
verifier: TXmlDSig;
numSigs: Integer;
verifyIdx: Integer;
verified: Boolean;
begin
success := False;
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
success := True;
// The following code creates the XML document to be signed.
// (It is also possible to simply load the XML into the Chilkat XML object by calling the LoadXml method.)
// A sample (already signed) of this XML is available here: External link: credit-note-en16931-xades-signed.xml
// Also, you may use this online tool to generate code from sample XML:
// Generate Code to Create XML
xmlToSign := TXml.Create;
xmlToSign.Tag := 'CreditNote';
xmlToSign.AddAttribute('xmlns','urn:oasis:names:specification:ubl:schema:xsd:CreditNote-2');
xmlToSign.AddAttribute('xmlns:cac','urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2');
xmlToSign.AddAttribute('xmlns:cbc','urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2');
xmlToSign.AddAttribute('xmlns:ext','urn:oasis:names:specification:ubl:schema:xsd:CommonExtensionComponents-2');
xmlToSign.UpdateAttrAt('ext:UBLExtensions|ext:UBLExtension',True,'xmlns:sac','urn:oasis:names:specification:ubl:schema:xsd:SignatureAggregateComponents-2');
xmlToSign.UpdateAttrAt('ext:UBLExtensions|ext:UBLExtension',True,'xmlns:sig','urn:oasis:names:specification:ubl:schema:xsd:CommonSignatureComponents-2');
xmlToSign.UpdateChildContent('ext:UBLExtensions|ext:UBLExtension|ext:ExtensionContent|sig:UBLDocumentSignatures|sac:SignatureInformation','');
xmlToSign.UpdateChildContent('cbc:CustomizationID','urn:cen.eu:en16931:2017');
xmlToSign.UpdateChildContent('cbc:ProfileID','P1');
xmlToSign.UpdateChildContent('cbc:ID','c2ad1540-cf12-4e83-b47c-906aac70242e');
xmlToSign.UpdateChildContent('cbc:IssueDate','2009-12-15');
xmlToSign.UpdateAttrAt('cbc:Note',True,'languageID','en');
xmlToSign.UpdateChildContent('cbc:Note','Ordered in our booth at the convention.');
xmlToSign.UpdateAttrAt('cbc:DocumentCurrencyCode',True,'listAgencyID','6');
xmlToSign.UpdateAttrAt('cbc:DocumentCurrencyCode',True,'listID','ISO 4217 Alpha');
xmlToSign.UpdateChildContent('cbc:DocumentCurrencyCode','HRK');
xmlToSign.UpdateChildContent('cbc:AccountingCost','Project cost code 123');
xmlToSign.UpdateChildContent('cac:InvoicePeriod|cbc:StartDate','2009-11-01');
xmlToSign.UpdateChildContent('cac:InvoicePeriod|cbc:EndDate','2009-11-30');
xmlToSign.UpdateChildContent('cac:OrderReference|cbc:ID','123');
xmlToSign.UpdateChildContent('cac:ContractDocumentReference|cbc:ID','Contract321');
xmlToSign.UpdateChildContent('cac:ContractDocumentReference|cbc:DocumentType','Framework agreement');
xmlToSign.UpdateChildContent('cac:AdditionalDocumentReference|cbc:ID','Doc1');
xmlToSign.UpdateChildContent('cac:AdditionalDocumentReference|cbc:DocumentType','Timesheet');
xmlToSign.UpdateChildContent('cac:AdditionalDocumentReference|cac:Attachment|cac:ExternalReference|cbc:URI','http://www.suppliersite.eu/sheet001.html');
xmlToSign.UpdateChildContent('cac:AdditionalDocumentReference[1]|cbc:ID','Doc2');
xmlToSign.UpdateChildContent('cac:AdditionalDocumentReference[1]|cbc:DocumentType','Drawing');
xmlToSign.UpdateAttrAt('cac:AdditionalDocumentReference[1]|cac:Attachment|cbc:EmbeddedDocumentBinaryObject',True,'mimeCode','application/pdf');
xmlToSign.UpdateChildContent('cac:AdditionalDocumentReference[1]|cac:Attachment|cbc:EmbeddedDocumentBinaryObject','UjBsR09EbGhjZ0dTQUxNQUFBUUNBRU1tQ1p0dU1GUXhEUzhi');
xmlToSign.UpdateChildContent('cac:AccountingSupplierParty|cac:Party|cac:PartyIdentification|cbc:ID','9934:18683136487::HR99:276');
xmlToSign.UpdateChildContent('cac:AccountingSupplierParty|cac:Party|cac:PostalAddress|cbc:StreetName','KATANCICEVA');
xmlToSign.UpdateChildContent('cac:AccountingSupplierParty|cac:Party|cac:PostalAddress|cbc:CityName','ZAGREB');
xmlToSign.UpdateChildContent('cac:AccountingSupplierParty|cac:Party|cac:PostalAddress|cbc:PostalZone','10000');
xmlToSign.UpdateChildContent('cac:AccountingSupplierParty|cac:Party|cac:PostalAddress|cac:Country|cbc:IdentificationCode','HR');
xmlToSign.UpdateChildContent('cac:AccountingSupplierParty|cac:Party|cac:PartyTaxScheme|cbc:CompanyID','HR18683136487');
xmlToSign.UpdateChildContent('cac:AccountingSupplierParty|cac:Party|cac:PartyTaxScheme|cac:TaxScheme|cbc:ID','FRE');
xmlToSign.UpdateChildContent('cac:AccountingSupplierParty|cac:Party|cac:PartyLegalEntity|cbc:RegistrationName','MINISTARSTVO FINANCIJA');
xmlToSign.UpdateChildContent('cac:AccountingSupplierParty|cac:Party|cac:Contact|cbc:Name','JURAJ MARKOVIC');
xmlToSign.UpdateChildContent('cac:AccountingSupplierParty|cac:Party|cac:Contact|cbc:ElectronicMail','juraj.markovic@fina.hr');
xmlToSign.UpdateChildContent('cac:AccountingCustomerParty|cac:Party|cac:PartyIdentification|cbc:ID','9934:49811265576::HR99:NOVO1');
xmlToSign.UpdateChildContent('cac:AccountingCustomerParty|cac:Party|cac:PostalAddress|cbc:StreetName','GETALDICEVA 4');
xmlToSign.UpdateChildContent('cac:AccountingCustomerParty|cac:Party|cac:PostalAddress|cbc:CityName','ZAGREB');
xmlToSign.UpdateChildContent('cac:AccountingCustomerParty|cac:Party|cac:PostalAddress|cbc:PostalZone','10000');
xmlToSign.UpdateChildContent('cac:AccountingCustomerParty|cac:Party|cac:PostalAddress|cac:Country|cbc:IdentificationCode','HR');
xmlToSign.UpdateChildContent('cac:AccountingCustomerParty|cac:Party|cac:PartyTaxScheme|cbc:CompanyID','HR49811265576');
xmlToSign.UpdateChildContent('cac:AccountingCustomerParty|cac:Party|cac:PartyTaxScheme|cac:TaxScheme|cbc:ID','VAT');
xmlToSign.UpdateChildContent('cac:AccountingCustomerParty|cac:Party|cac:PartyLegalEntity|cbc:RegistrationName','NOVO1');
xmlToSign.UpdateChildContent('cac:Delivery|cac:DeliveryLocation|cac:Address|cac:Country|cbc:IdentificationCode','HR');
xmlToSign.UpdateChildContent('cac:PaymentMeans|cbc:PaymentMeansCode','30');
xmlToSign.UpdateChildContent('cac:PaymentMeans|cbc:InstructionNote','Neki opis placanja');
xmlToSign.UpdateChildContent('cac:PaymentMeans|cbc:PaymentID','HR00 12456');
xmlToSign.UpdateChildContent('cac:PaymentMeans|cac:PayeeFinancialAccount|cbc:ID','HR1210010051863000160');
xmlToSign.UpdateChildContent('cac:PaymentTerms|cbc:Note','Neki uvjeti placanja');
xmlToSign.UpdateAttrAt('cac:TaxTotal|cbc:TaxAmount',True,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:TaxTotal|cbc:TaxAmount','25.00');
xmlToSign.UpdateAttrAt('cac:TaxTotal|cac:TaxSubtotal|cbc:TaxableAmount',True,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:TaxTotal|cac:TaxSubtotal|cbc:TaxableAmount','100.00');
xmlToSign.UpdateAttrAt('cac:TaxTotal|cac:TaxSubtotal|cbc:TaxAmount',True,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:TaxTotal|cac:TaxSubtotal|cbc:TaxAmount','25.00');
xmlToSign.UpdateChildContent('cac:TaxTotal|cac:TaxSubtotal|cac:TaxCategory|cbc:ID','S');
xmlToSign.UpdateChildContent('cac:TaxTotal|cac:TaxSubtotal|cac:TaxCategory|cbc:Percent','25');
xmlToSign.UpdateChildContent('cac:TaxTotal|cac:TaxSubtotal|cac:TaxCategory|cac:TaxScheme|cbc:ID','VAT');
xmlToSign.UpdateAttrAt('cac:LegalMonetaryTotal|cbc:LineExtensionAmount',True,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:LegalMonetaryTotal|cbc:LineExtensionAmount','100.00');
xmlToSign.UpdateAttrAt('cac:LegalMonetaryTotal|cbc:TaxExclusiveAmount',True,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:LegalMonetaryTotal|cbc:TaxExclusiveAmount','100.00');
xmlToSign.UpdateAttrAt('cac:LegalMonetaryTotal|cbc:TaxInclusiveAmount',True,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:LegalMonetaryTotal|cbc:TaxInclusiveAmount','125.00');
xmlToSign.UpdateAttrAt('cac:LegalMonetaryTotal|cbc:PayableAmount',True,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:LegalMonetaryTotal|cbc:PayableAmount','125.00');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cbc:ID','1');
xmlToSign.UpdateAttrAt('cac:CreditNoteLine|cbc:CreditedQuantity',True,'unitCode','H87');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cbc:CreditedQuantity','1.000');
xmlToSign.UpdateAttrAt('cac:CreditNoteLine|cbc:LineExtensionAmount',True,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cbc:LineExtensionAmount','100.00');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Item|cbc:Description','Neki detaljniji opis proizvoda ide ovdje');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Item|cbc:Name','Neki proizvod');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Item|cac:OriginCountry|cbc:IdentificationCode','HR');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Item|cac:ClassifiedTaxCategory|cbc:ID','S');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Item|cac:ClassifiedTaxCategory|cbc:Percent','25');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Item|cac:ClassifiedTaxCategory|cac:TaxScheme|cbc:ID','VAT');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Item|cac:AdditionalItemProperty|cbc:Name','Boja');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Item|cac:AdditionalItemProperty|cbc:Value','Plava');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Item|cac:AdditionalItemProperty[1]|cbc:Name','Masa');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Item|cac:AdditionalItemProperty[1]|cbc:Value','1,2 Kg');
xmlToSign.UpdateAttrAt('cac:CreditNoteLine|cac:Price|cbc:PriceAmount',True,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Price|cbc:PriceAmount','100.000000');
xmlToSign.UpdateAttrAt('cac:CreditNoteLine|cac:Price|cbc:BaseQuantity',True,'unitCode','H87');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Price|cbc:BaseQuantity','1.000');
// Use this online tool to generate XAdES code from a sample signed XML:
// Generate Code to Creaet XAdES from Sample XAdES
// The following code was generated by the online tool.
gen := TXmlDSigGen.Create;
gen.SigLocation := 'CreditNote|ext:UBLExtensions|ext:UBLExtension|ext:ExtensionContent|sig:UBLDocumentSignatures|sac:SignatureInformation';
gen.SigLocationMod := 0;
gen.SigId := 'Signature-7f4c4719515a4a0a8ce4d1b983a2ec69';
gen.SigNamespacePrefix := '';
gen.SigNamespaceUri := 'http://www.w3.org/2000/09/xmldsig#';
gen.SignedInfoCanonAlg := 'C14N';
gen.SignedInfoDigestMethod := 'sha256';
// Create an Object to be added to the Signature.
object1 := TXml.Create;
object1.Tag := 'xades:QualifyingProperties';
object1.AddAttribute('xmlns:ds','http://www.w3.org/2000/09/xmldsig#');
object1.AddAttribute('xmlns:xades','http://uri.etsi.org/01903/v1.3.2#');
object1.AddAttribute('Target','#Signature-7f4c4719515a4a0a8ce4d1b983a2ec69');
object1.UpdateAttrAt('xades:SignedProperties',True,'Id','SignedProperties-6573207f4ad64b49b0310f7a9e2dfadc');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime','TO BE GENERATED BY CHILKAT');
// Note: It may be that http://www.w3.org/2001/04/xmlenc#sha256 is needed in the following line instead of http://www.w3.org/2000/09/xmldsig#sha1
object1.UpdateAttrAt('xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod',True,'Algorithm','http://www.w3.org/2000/09/xmldsig#sha1');
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.UpdateAttrAt('xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat',True,'ObjectReference','');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description','document');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType','application/xml');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Encoding','UTF-8');
gen.AddObject('',object1.GetXml(),'','');
// -------- Reference 1 --------
gen.AddSameDocRef('','sha256','','','');
// -------- Reference 2 --------
gen.AddObjectRef('SignedProperties-6573207f4ad64b49b0310f7a9e2dfadc','sha256','','','http://uri.etsi.org/01903#SignedProperties');
// Provide a certificate + private key. (PFX password is test123)
cert := TCert.Create;
success := cert.LoadPfxFile('qa_data/pfx/cert_test123.pfx','test123');
if (success <> True) then
begin
WriteLn(cert.LastErrorText);
Exit;
end;
gen.SetX509Cert(cert,True);
gen.KeyInfoType := 'X509Data+KeyValue';
gen.X509Type := 'IssuerSerial,SubjectName,SKI,Certificate';
// Load XML to be signed...
sbXml := TStringBuilder.Create;
xmlToSign.GetXmlSb(sbXml);
// Adding the "UBLDocumentSignatures" behavior causes the following Transform to be used for the
// first Reference:
// <Transform Algorithm="http://www.w3.org/TR/1999/REC-xpath-19991116"><XPath>count(ancestor-or-self::sig:UBLDocumentSignatures | here()/ancestor::sig:UBLDocumentSignatures[1]) > count(ancestor-or-self::sig:UBLDocumentSignatures)</XPath></Transform>
gen.Behaviors := 'IndentedSignature,UBLDocumentSignatures';
// Sign the XML...
success := gen.CreateXmlDSigSb(sbXml);
if (success <> True) then
begin
WriteLn(gen.LastErrorText);
Exit;
end;
// -----------------------------------------------
// Save the signed XML to a file.
success := sbXml.WriteFile('qa_output/signedXml.xml','utf-8',False);
WriteLn(sbXml.GetAsString());
// ----------------------------------------
// Verify the signature we just produced...
verifier := TXmlDSig.Create;
success := verifier.LoadSignatureSb(sbXml);
if (success <> True) then
begin
WriteLn(verifier.LastErrorText);
Exit;
end;
// We should have just one signature..
numSigs := verifier.NumSignatures;
verifyIdx := 0;
while verifyIdx < numSigs do
begin
verifier.Selector := verifyIdx;
verified := verifier.VerifySignature(True);
if (verified <> True) then
begin
WriteLn(verifier.LastErrorText);
Exit;
end;
verifyIdx := verifyIdx + 1;
end;
WriteLn('The signature was successfully verified.');
xmlToSign.Free;
gen.Free;
object1.Free;
cert.Free;
sbXml.Free;
verifier.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.