Sample code for 30+ languages & platforms
Delphi ActiveX

Sign with BinarySecurityToken

See more XML Digital Signatures Examples

Demonstrates creating an XML signature using a BinarySecurityToken.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX
Delphi ActiveX 
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;
cert: TChilkatCert;
xml: TChilkatXml;
dt: TCkDateTime;
bdCert: TChilkatBinData;
keyInfoXml: TChilkatXml;
gen: TChilkatXmlDSigGen;
sbXml: TChilkatStringBuilder;

begin
success := 0;

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

// -------------------------------------------------------------------------
// Load a cert + private key from a PFX.
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;

// -------------------------------------------------------------------------
// Create the XML that is to be signed.
// 
// The XML we're creating can be found at Sample Pre-Signed XML with BinarySecurityToken
// The online tool at http://tools.chilkat.io/xmlCreate.cshtml can be used to generate the following XML creation code.
// 

xml := TChilkatXml.Create(Self);
xml.Tag := 'S:Envelope';
xml.AddAttribute('xmlns:S','http://www.w3.org/2003/05/soap-envelope');
xml.AddAttribute('xmlns:wsse11','http://docs.oasis-open.org/wss/oasis-wss-wssecurity-secext-1.1.xsd');
xml.AddAttribute('xmlns:wsse','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd');
xml.AddAttribute('xmlns:wsu','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd');
xml.AddAttribute('xmlns:xs','http://www.w3.org/2001/XMLSchema');
xml.AddAttribute('xmlns:ds','http://www.w3.org/2000/09/xmldsig#');
xml.AddAttribute('xmlns:exc14n','http://www.w3.org/2001/10/xml-exc-c14n#');
xml.UpdateAttrAt('S:Header|To',1,'xmlns','http://www.w3.org/2005/08/addressing');
xml.UpdateAttrAt('S:Header|To',1,'wsu:Id','_5002');
xml.UpdateChildContent('S:Header|To','https://XXXXXXXXX');
xml.UpdateAttrAt('S:Header|Action',1,'xmlns','http://www.w3.org/2005/08/addressing');
xml.UpdateAttrAt('S:Header|Action',1,'xmlns:S','http://www.w3.org/2003/05/soap-envelope');
xml.UpdateAttrAt('S:Header|Action',1,'S:mustUnderstand','true');
xml.UpdateChildContent('S:Header|Action','http://docs.oasis-open.org/ws-sx/ws-trust/200512/RST/Issue');
xml.UpdateAttrAt('S:Header|ReplyTo',1,'xmlns','http://www.w3.org/2005/08/addressing');
xml.UpdateChildContent('S:Header|ReplyTo|Address','http://www.w3.org/2005/08/addressing/anonymous');
xml.UpdateAttrAt('S:Header|FaultTo',1,'xmlns','http://www.w3.org/2005/08/addressing');
xml.UpdateChildContent('S:Header|FaultTo|Address','http://www.w3.org/2005/08/addressing/anonymous');
xml.UpdateAttrAt('S:Header|MessageID',1,'xmlns','http://www.w3.org/2005/08/addressing');
xml.UpdateChildContent('S:Header|MessageID','uuid:e9033251-4ff0-4618-8baf-4952ab5fd207');
xml.UpdateAttrAt('S:Header|wsse:Security',1,'S:mustUnderstand','true');
xml.UpdateAttrAt('S:Header|wsse:Security|wsu:Timestamp',1,'xmlns:ns17','http://docs.oasis-open.org/ws-sx/ws-secureconversation/200512');
xml.UpdateAttrAt('S:Header|wsse:Security|wsu:Timestamp',1,'xmlns:ns16','http://schemas.xmlsoap.org/soap/envelope/');
xml.UpdateAttrAt('S:Header|wsse:Security|wsu:Timestamp',1,'wsu:Id','_1');

// Get the current date/time in timestamp format, such as "2018-05-23T02:38:27Z"
dt := TCkDateTime.Create(Self);
dt.SetFromCurrentSystemTime();
xml.UpdateChildContent('S:Header|wsse:Security|wsu:Timestamp|wsu:Created',dt.GetAsTimestamp(0));
// Add 5 minutes.
dt.AddSeconds(300);
xml.UpdateChildContent('S:Header|wsse:Security|wsu:Timestamp|wsu:Expires',dt.GetAsTimestamp(0));

xml.UpdateAttrAt('S:Header|wsse:Security|wsse:BinarySecurityToken',1,'xmlns:ns17','http://docs.oasis-open.org/ws-sx/ws-secureconversation/200512');
xml.UpdateAttrAt('S:Header|wsse:Security|wsse:BinarySecurityToken',1,'xmlns:ns16','http://schemas.xmlsoap.org/soap/envelope/');
xml.UpdateAttrAt('S:Header|wsse:Security|wsse:BinarySecurityToken',1,'ValueType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3');
xml.UpdateAttrAt('S:Header|wsse:Security|wsse:BinarySecurityToken',1,'EncodingType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary');
xml.UpdateAttrAt('S:Header|wsse:Security|wsse:BinarySecurityToken',1,'wsu:Id','uuid_43470044-78b4-4b23-926a-b7f590d24cb8');

bdCert := TChilkatBinData.Create(Self);
cert.ExportCertDerBd(bdCert.ControlInterface);

// Get the cert as base64 on one line.
xml.UpdateChildContent('S:Header|wsse:Security|wsse:BinarySecurityToken',bdCert.GetEncoded('base64'));
xml.UpdateAttrAt('S:Body|RequestSecurityToken',1,'xmlns','http://docs.oasis-open.org/ws-sx/ws-trust/200512');
xml.UpdateChildContent('S:Body|RequestSecurityToken|RequestType','http://docs.oasis-open.org/ws-sx/ws-trust/200512/Issue');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|wsp:AppliesTo',1,'xmlns:wsp','http://schemas.xmlsoap.org/ws/2004/09/policy');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|wsp:AppliesTo|EndpointReference:EndpointReference',1,'xmlns:EndpointReference','http://www.w3.org/2005/08/addressing');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|wsp:AppliesTo|EndpointReference:EndpointReference',1,'xmlns','http://www.w3.org/2005/08/addressing');
xml.UpdateChildContent('S:Body|RequestSecurityToken|wsp:AppliesTo|EndpointReference:EndpointReference|Address','https://XXXXXXXXX/services');
xml.UpdateChildContent('S:Body|RequestSecurityToken|TokenType','http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.1#SAMLV2.0');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims',1,'xmlns:i','http://schemas.xmlsoap.org/ws/2005/05/identity');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims',1,'Dialect','http://schemas.xmlsoap.org/ws/2005/05/identity');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType',1,'Optional','false');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/abn');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[1]',1,'Optional','false');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[1]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/commonname');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[2]',1,'Optional','false');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[2]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/credentialtype');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[3]',1,'Optional','false');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[3]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/samlsubjectid');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[4]',1,'Optional','false');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[4]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/fingerprint');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[5]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[5]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/sbr_personid');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[6]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[6]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/givennames');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[7]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[7]',1,'Uri','http://schemas.xmlsoap.org/ws/2005/05/identity/claims/surname');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[8]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[8]',1,'Uri','http://schemas.xmlsoap.org/ws/2005/05/identity/claims/emailaddress');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[9]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[9]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/credentialadministrator');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[10]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[10]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/stalecrlminutes');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[11]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[11]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/subjectdn');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[12]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[12]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/issuerdn');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[13]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[13]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/notafterdate');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[14]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[14]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/certificateserialnumber');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[15]',1,'Optional','true');
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Claims|i:ClaimType[15]',1,'Uri','http://XXXXXXXXX/2008/06/identity/claims/previoussubject');

dt.SetFromCurrentSystemTime();
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Lifetime|wsu:Created',1,'xmlns:wsu','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd');
xml.UpdateChildContent('S:Body|RequestSecurityToken|Lifetime|wsu:Created',dt.GetAsTimestamp(0));

// Add 40 minutes.
dt.AddSeconds(2400);
xml.UpdateAttrAt('S:Body|RequestSecurityToken|Lifetime|wsu:Expires',1,'xmlns:wsu','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd');
xml.UpdateChildContent('S:Body|RequestSecurityToken|Lifetime|wsu:Expires',dt.GetAsTimestamp(0));

xml.UpdateChildContent('S:Body|RequestSecurityToken|KeyType','http://docs.oasis-open.org/ws-sx/ws-trust/200512/SymmetricKey');
xml.UpdateChildContent('S:Body|RequestSecurityToken|KeySize','512');

// Examine the pre-signed XML
// println xml.GetXml();

// Build the custom KeyInfo XML we'll use:
// 
// 	    <wsse:SecurityTokenReference>
// 	        <wsse:Reference URI="#uuid_43470044-78b4-4b23-926a-b7f590d24cb8" ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3" /></wsse:SecurityTokenReference>

keyInfoXml := TChilkatXml.Create(Self);
keyInfoXml.Tag := 'wsse:SecurityTokenReference';
keyInfoXml.UpdateAttrAt('wsse:Reference',1,'URI','#uuid_43470044-78b4-4b23-926a-b7f590d24cb8');
keyInfoXml.UpdateAttrAt('wsse:Reference',1,'ValueType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3');

// -------------------------------------------------------------------------
// Setup the XML Digital Signature Generator and add the XML Signature.
// 
gen := TChilkatXmlDSigGen.Create(Self);
gen.SigLocation := 'S:Envelope|S:Header|wsse:Security';
gen.SignedInfoPrefixList := 'wsse S';

gen.AddSameDocRef('_1','sha1','EXCL_C14N','wsu wsse S','');
gen.AddSameDocRef('_5002','sha1','EXCL_C14N','S','');

gen.KeyInfoType := 'Custom';
keyInfoXml.EmitXmlDecl := 0;
gen.CustomKeyInfoXml := keyInfoXml.GetXml();

// Specify the cert for signing (which has a private key because it was loaded from a PFX)
gen.SetX509Cert(cert.ControlInterface,1);

// Indicated we want an indented signature for easier human reading.
gen.Behaviors := 'IndentedSignature';

// Sign the XML..
sbXml := TChilkatStringBuilder.Create(Self);
xml.GetXmlSb(sbXml.ControlInterface);

success := gen.CreateXmlDSigSb(sbXml.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(gen.LastErrorText);
    Exit;
  end;

// Examine the signed XML
Memo1.Lines.Add(sbXml.GetAsString());

// The resulting signature (extracted from the surrounding XML) looks something like this:

// <ds:Signature xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
//     <ds:SignedInfo>
//         <ds:CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#">
//             <ec:InclusiveNamespaces xmlns:ec="http://www.w3.org/2001/10/xml-exc-c14n#" PrefixList="wsse S" />
//         </ds:CanonicalizationMethod>
//         <ds:SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256" />
//         <ds:Reference URI="#_1">
//             <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="wsu wsse S" />
//                 </ds:Transform>
//             </ds:Transforms>
//             <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
//             <ds:DigestValue>VAJMC/L/BDvml7Qv5CBMePbKDE8=</ds:DigestValue>
//         </ds:Reference>
//         <ds:Reference URI="#_5002">
//             <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="S" />
//                 </ds:Transform>
//             </ds:Transforms>
//             <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
//             <ds:DigestValue>sW/QFsk6kGv1dzeu0H9Qc/2kvAQ=</ds:DigestValue>
//         </ds:Reference>
//     </ds:SignedInfo>
//     <ds:SignatureValue>....</ds:SignatureValue>
//     <ds:KeyInfo>
//         <wsse:SecurityTokenReference>
//             <wsse:Reference URI="#uuid_43470044-78b4-4b23-926a-b7f590d24cb8" ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3" />
//         </wsse:SecurityTokenReference>
//     </ds:KeyInfo>
// </ds:Signature>
// 
end;