Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Create XAdES with ec:InclusiveNamespaces within the Transforms
See more XML Digital Signatures Examples
Demonstrates how to generate XAdES that has a Reference that has Transforms that include an ec:InclusiveNamespaces.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;
cert: TCert;
xmlCustomKeyInfo: TXml;
sbXml: TStringBuilder;
nReplaced: Integer;
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.
// This is the XML we'll be signing:
// <soapenv:Envelope xmlns:obs="http://csioz.gov.pl/zsmopl/ws/obslugakomunikatow/" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
// <soapenv:Header>
// <wsse:Security
// xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"
// xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" soapenv:mustUnderstand="1">
// <wsse:BinarySecurityToken
// EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary"
// ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509PKIPathv1"
// wsu:Id="X509-02BF0107214FC61449FD0013DF68F0359">MII...</wsse:BinarySecurityToken>
// </wsse:Security>
// </soapenv:Header>
// <soapenv:Body xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd"
// wsu:Id="id-396BB6026342EB5C0E1EA73593B3CC098">
// <obs:zapiszKomunikatOS>
// <komunikatOS>
// <idPodmiotuRaportujacego>
// <idBiznesowy>000000011986</idBiznesowy>
// <rodzajPodmiotuRaportujacego>PA</rodzajPodmiotuRaportujacego>
// </idPodmiotuRaportujacego>
// </komunikatOS>
// </obs:zapiszKomunikatOS>
// </soapenv:Body>
// </soapenv:Envelope>
//
// ----------------------------------------------------------------------
// IMPORTANT: This generated example requires Chilkat v9.5.0.77 or later.
// ----------------------------------------------------------------------
success := True;
// Create the above XML to be signed...
xmlToSign := TXml.Create;
xmlToSign.Tag := 'soapenv:Envelope';
xmlToSign.AddAttribute('xmlns:obs','http://csioz.gov.pl/zsmopl/ws/obslugakomunikatow/');
xmlToSign.AddAttribute('xmlns:soapenv','http://schemas.xmlsoap.org/soap/envelope/');
xmlToSign.UpdateAttrAt('soapenv:Header|wsse:Security',True,'xmlns:wsse','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd');
xmlToSign.UpdateAttrAt('soapenv:Header|wsse:Security',True,'xmlns:wsu','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd');
xmlToSign.UpdateAttrAt('soapenv:Header|wsse:Security',True,'soapenv:mustUnderstand','1');
xmlToSign.UpdateAttrAt('soapenv:Header|wsse:Security|wsse:BinarySecurityToken',True,'EncodingType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary');
xmlToSign.UpdateAttrAt('soapenv:Header|wsse:Security|wsse:BinarySecurityToken',True,'ValueType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509PKIPathv1');
xmlToSign.UpdateAttrAt('soapenv:Header|wsse:Security|wsse:BinarySecurityToken',True,'wsu:Id','X509-02BF0107214FC61449FD0013DF68F0359');
// Note: The content of this XML node is a placeholder that will be updated below with the X509PKIPathv1 for the signing certificate.
xmlToSign.UpdateChildContent('soapenv:Header|wsse:Security|wsse:BinarySecurityToken','BinarySecurityToken_Base64Binary_Content');
xmlToSign.UpdateAttrAt('soapenv:Body',True,'xmlns:wsu','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd');
xmlToSign.UpdateAttrAt('soapenv:Body',True,'wsu:Id','id-396BB6026342EB5C0E1EA73593B3CC098');
xmlToSign.UpdateChildContent('soapenv:Body|obs:zapiszKomunikatOS|komunikatOS|idPodmiotuRaportujacego|idBiznesowy','000000011986');
xmlToSign.UpdateChildContent('soapenv:Body|obs:zapiszKomunikatOS|komunikatOS|idPodmiotuRaportujacego|rodzajPodmiotuRaportujacego','PA');
gen := TXmlDSigGen.Create;
gen.SigLocation := 'soapenv:Envelope|soapenv:Header|wsse:Security';
gen.SigLocationMod := 0;
gen.SigId := 'SIG-BB965DFC3C8AAF87903C0ED898B8D2A8D';
gen.SigNamespacePrefix := 'ds';
gen.SigNamespaceUri := 'http://www.w3.org/2000/09/xmldsig#';
gen.SignedInfoCanonAlg := 'EXCL_C14N';
gen.SignedInfoDigestMethod := 'sha1';
// Set the KeyInfoId before adding references..
gen.KeyInfoId := 'KI-9D95C38916099AD2EE87DDAC1A76E97E4';
// -------- Reference 1 --------
gen.AddSameDocRef('id-396BB6026342EB5C0E1EA73593B3CC098','sha1','EXCL_C14N','obs','');
// The reference to be produced in the Signature should look like this:
// <ds:Reference URI="#id-396BB6026342EB5C0E1EA73593B3CC098">
// <ds:Transforms><ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#">
// <ec:InclusiveNamespaces xmlns:ec="http://www.w3.org/2001/10/xml-exc-c14n#" PrefixList="obs"></ec:InclusiveNamespaces>
// </ds:Transform></ds:Transforms>
// <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"></ds:DigestMethod>
// <ds:DigestValue>2e9hZYj/CN2nPsgQqUraU43k3ds=</ds:DigestValue>
// </ds:Reference>
//
// 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 := 'Custom';
// Create the custom KeyInfo XML..
xmlCustomKeyInfo := TXml.Create;
xmlCustomKeyInfo.Tag := 'wsse:SecurityTokenReference';
xmlCustomKeyInfo.AddAttribute('wsse11:TokenType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509PKIPathv1');
xmlCustomKeyInfo.AddAttribute('xmlns:wsse11','http://docs.oasis-open.org/wss/oasis-wss-wssecurity-secext-1.1.xsd');
xmlCustomKeyInfo.AddAttribute('wsu:Id','STR-FF238E7C061332C5B19752C2FBC8CDEF2');
xmlCustomKeyInfo.UpdateAttrAt('wsse:Reference',True,'URI','#X509-02BF0107214FC61449FD0013DF68F0359');
xmlCustomKeyInfo.UpdateAttrAt('wsse:Reference',True,'ValueType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509PKIPathv1');
xmlCustomKeyInfo.EmitXmlDecl := False;
gen.CustomKeyInfoXml := xmlCustomKeyInfo.GetXml();
// Load XML to be signed...
sbXml := TStringBuilder.Create;
xmlToSign.GetXmlSb(sbXml);
// Update BinarySecurityToken_Base64Binary_Content with the actual X509PKIPathv1 of the signing cert.
nReplaced := sbXml.Replace('BinarySecurityToken_Base64Binary_Content',cert.X509PKIPathv1());
gen.Behaviors := 'IndentedSignature';
// 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 signatures we just produced...
verifier := TXmlDSig.Create;
success := verifier.LoadSignatureSb(sbXml);
if (success <> True) then
begin
WriteLn(verifier.LastErrorText);
Exit;
end;
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('All signatures were successfully verified.');
xmlToSign.Free;
gen.Free;
cert.Free;
xmlCustomKeyInfo.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.