Delphi ActiveX
Delphi ActiveX
UBL XAdES Enveloped Signature
See more XAdES Examples
Demonstrates how to create a UBL XAdES enveloped signature.Chilkat Delphi ActiveX Downloads
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;
...
procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
xmlToSign: TChilkatXml;
gen: TChilkatXmlDSigGen;
object1: TChilkatXml;
cert: TChilkatCert;
sbXml: TChilkatStringBuilder;
verifier: TChilkatXmlDSig;
numSigs: Integer;
verifyIdx: Integer;
verified: Integer;
begin
success := 0;
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
success := 1;
//
// 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 := TChilkatXml.Create(Self);
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',1,'xmlns:sac','urn:oasis:names:specification:ubl:schema:xsd:SignatureAggregateComponents-2');
xmlToSign.UpdateAttrAt('ext:UBLExtensions|ext:UBLExtension',1,'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',1,'languageID','en');
xmlToSign.UpdateChildContent('cbc:Note','Ordered in our booth at the convention.');
xmlToSign.UpdateAttrAt('cbc:DocumentCurrencyCode',1,'listAgencyID','6');
xmlToSign.UpdateAttrAt('cbc:DocumentCurrencyCode',1,'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',1,'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',1,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:TaxTotal|cbc:TaxAmount','25.00');
xmlToSign.UpdateAttrAt('cac:TaxTotal|cac:TaxSubtotal|cbc:TaxableAmount',1,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:TaxTotal|cac:TaxSubtotal|cbc:TaxableAmount','100.00');
xmlToSign.UpdateAttrAt('cac:TaxTotal|cac:TaxSubtotal|cbc:TaxAmount',1,'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',1,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:LegalMonetaryTotal|cbc:LineExtensionAmount','100.00');
xmlToSign.UpdateAttrAt('cac:LegalMonetaryTotal|cbc:TaxExclusiveAmount',1,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:LegalMonetaryTotal|cbc:TaxExclusiveAmount','100.00');
xmlToSign.UpdateAttrAt('cac:LegalMonetaryTotal|cbc:TaxInclusiveAmount',1,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:LegalMonetaryTotal|cbc:TaxInclusiveAmount','125.00');
xmlToSign.UpdateAttrAt('cac:LegalMonetaryTotal|cbc:PayableAmount',1,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:LegalMonetaryTotal|cbc:PayableAmount','125.00');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cbc:ID','1');
xmlToSign.UpdateAttrAt('cac:CreditNoteLine|cbc:CreditedQuantity',1,'unitCode','H87');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cbc:CreditedQuantity','1.000');
xmlToSign.UpdateAttrAt('cac:CreditNoteLine|cbc:LineExtensionAmount',1,'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',1,'currencyID','HRK');
xmlToSign.UpdateChildContent('cac:CreditNoteLine|cac:Price|cbc:PriceAmount','100.000000');
xmlToSign.UpdateAttrAt('cac:CreditNoteLine|cac:Price|cbc:BaseQuantity',1,'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 := TChilkatXmlDSigGen.Create(Self);
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 := TChilkatXml.Create(Self);
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',1,'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',1,'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',1,'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 := TChilkatCert.Create(Self);
success := cert.LoadPfxFile('qa_data/pfx/cert_test123.pfx','test123');
if (success <> 1) then
begin
Memo1.Lines.Add(cert.LastErrorText);
Exit;
end;
gen.SetX509Cert(cert.ControlInterface,1);
gen.KeyInfoType := 'X509Data+KeyValue';
gen.X509Type := 'IssuerSerial,SubjectName,SKI,Certificate';
// Load XML to be signed...
sbXml := TChilkatStringBuilder.Create(Self);
xmlToSign.GetXmlSb(sbXml.ControlInterface);
// 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.ControlInterface);
if (success <> 1) then
begin
Memo1.Lines.Add(gen.LastErrorText);
Exit;
end;
// -----------------------------------------------
// Save the signed XML to a file.
success := sbXml.WriteFile('qa_output/signedXml.xml','utf-8',0);
Memo1.Lines.Add(sbXml.GetAsString());
// ----------------------------------------
// Verify the signature we just produced...
verifier := TChilkatXmlDSig.Create(Self);
success := verifier.LoadSignatureSb(sbXml.ControlInterface);
if (success <> 1) then
begin
Memo1.Lines.Add(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(1);
if (verified <> 1) then
begin
Memo1.Lines.Add(verifier.LastErrorText);
Exit;
end;
verifyIdx := verifyIdx + 1;
end;
Memo1.Lines.Add('The signature was successfully verified.');
end;