(Delphi DLL) Create Signed SOAP XML for DIAN Colombia WCF Service

Demonstrates how to create a signed SOAP XML document for DIAN Colombia.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, XmlDSigGen, XmlDSig, StringBuilder, BinData, Cert, Xml;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
xmlToSign: HCkXml;
gen: HCkXmlDSigGen;
cert: HCkCert;
xmlCustomKeyInfo: HCkXml;
sbXml: HCkStringBuilder;
bdCert: HCkBinData;
nReplaced: Integer;
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.

// This example will produce a signed SOAP XML message that looks like this:

// <?xml version="1.0" encoding="utf-8"?>
// <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:wcf="http://wcf.dian.colombia">
//     <soap:Header xmlns:wsa="http://www.w3.org/2005/08/addressing">
//         <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">
//             <wsu:Timestamp wsu:Id="TS-F25839120CBA3ECDAD68754D0443A667636FDA68">
//                 <wsu:Created>2019-08-23T23:03:01Z</wsu:Created>
//                 <wsu:Expires>2019-08-24T15:43:01Z</wsu:Expires>
//             </wsu:Timestamp>
//             <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#X509v3" 
// 			wsu:Id="ABCXYZ-9F0F7E15A59816E680B4735080A789DC1EED6C9C">MIIG8jCCBd ... zLjGQUB6lcz</wsse:BinarySecurityToken>
//             <ds:Signature Id="SIG-F25839120CBA3ECDAD68754D0443A667636FDA68" 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 PrefixList="wsa soap wcf" xmlns:ec="http://www.w3.org/2001/10/xml-exc-c14n#"/>
//                     </ds:CanonicalizationMethod>
//                     <ds:SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256"/>
//                     <ds:Reference URI="#ID-F25839120CBA3ECDAD68754D0443A667636FDA68">
//                         <ds:Transforms>
//                             <ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#">
//                                 <ec:InclusiveNamespaces PrefixList="soap wcf" xmlns:ec="http://www.w3.org/2001/10/xml-exc-c14n#"/>
//                             </ds:Transform>
//                         </ds:Transforms>
//                         <ds:DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/>
//                         <ds:DigestValue>gSIKtjS/BKA2bgecXkM8lYVBDqlXcU3juNYT9a+bSnM=</ds:DigestValue>
//                     </ds:Reference>
//                 </ds:SignedInfo>
//                 <ds:SignatureValue>sL7rOdyfkEnKgJja0eWrv ... YqG0T0pflBsGW9zXkjQ9NvAw==</ds:SignatureValue>
//                 <ds:KeyInfo Id="KI-F25839120CBA3ECDAD68754D0443A667636FDA68">
//                     <wsse:SecurityTokenReference wsu:Id="STR-F25839120CBA3ECDAD68754D0443A667636FDA68">
//                         <wsse:Reference URI="#ABCXYZ-9F0F7E15A59816E680B4735080A789DC1EED6C9C" ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3"/>
//                     </wsse:SecurityTokenReference>
//                 </ds:KeyInfo>
//             </ds:Signature>
//         </wsse:Security>
//         <wsa:Action>http://wcf.dian.colombia/IWcfDianCustomerServices/GetStatus</wsa:Action>
//         <wsa:To wsu:Id="ID-F25839120CBA3ECDAD68754D0443A667636FDA68" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">https://vpfe-hab.dian.gov.co/WcfDianCustomerServices.svc</wsa:To>
//     </soap:Header>
//     <soap:Body>
//         <wcf:GetStatus>
//             <wcf:trackId>123456666</wcf:trackId>
//         </wcf:GetStatus>
//     </soap:Body>
// </soap:Envelope>

// Use this online tool to generate code from sample Signed XML: 
// Generate Code to Create Signed XML

success := True;
// Create the XML to be signed...
xmlToSign := CkXml_Create();
CkXml_putTag(xmlToSign,'soap:Envelope');
CkXml_AddAttribute(xmlToSign,'xmlns:soap','http://www.w3.org/2003/05/soap-envelope');
CkXml_AddAttribute(xmlToSign,'xmlns:wcf','http://wcf.dian.colombia');
CkXml_UpdateAttrAt(xmlToSign,'soap:Header',True,'xmlns:wsa','http://www.w3.org/2005/08/addressing');
CkXml_UpdateAttrAt(xmlToSign,'soap:Header|wsse:Security',True,'xmlns:wsse','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd');
CkXml_UpdateAttrAt(xmlToSign,'soap:Header|wsse:Security',True,'xmlns:wsu','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd');
CkXml_UpdateAttrAt(xmlToSign,'soap:Header|wsse:Security|wsu:Timestamp',True,'wsu:Id','TS-F25839120CBA3ECDAD68754D0443A667636FDA68');
CkXml_UpdateChildContent(xmlToSign,'soap:Header|wsse:Security|wsu:Timestamp|wsu:Created','2019-08-23T23:03:01Z');
CkXml_UpdateChildContent(xmlToSign,'soap:Header|wsse:Security|wsu:Timestamp|wsu:Expires','2019-08-24T15:43:01Z');
CkXml_UpdateAttrAt(xmlToSign,'soap:Header|wsse:Security|wsse:BinarySecurityToken',True,'EncodingType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary');
CkXml_UpdateAttrAt(xmlToSign,'soap:Header|wsse:Security|wsse:BinarySecurityToken',True,'ValueType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3');
CkXml_UpdateAttrAt(xmlToSign,'soap:Header|wsse:Security|wsse:BinarySecurityToken',True,'wsu:Id','ABCXYZ-9F0F7E15A59816E680B4735080A789DC1EED6C9C');
CkXml_UpdateChildContent(xmlToSign,'soap:Header|wsse:Security|wsse:BinarySecurityToken','BinarySecurityToken_Base64Binary_Content');
CkXml_UpdateChildContent(xmlToSign,'soap:Header|wsa:Action','http://wcf.dian.colombia/IWcfDianCustomerServices/GetStatus');
CkXml_UpdateAttrAt(xmlToSign,'soap:Header|wsa:To',True,'wsu:Id','ID-F25839120CBA3ECDAD68754D0443A667636FDA68');
CkXml_UpdateAttrAt(xmlToSign,'soap:Header|wsa:To',True,'xmlns:wsu','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd');
CkXml_UpdateChildContent(xmlToSign,'soap:Header|wsa:To','https://vpfe-hab.dian.gov.co/WcfDianCustomerServices.svc');
CkXml_UpdateChildContent(xmlToSign,'soap:Body|wcf:GetStatus|wcf:trackId','123456666');

gen := CkXmlDSigGen_Create();

CkXmlDSigGen_putSigLocation(gen,'soap:Envelope|soap:Header|wsse:Security');
CkXmlDSigGen_putSigLocationMod(gen,0);
CkXmlDSigGen_putSigId(gen,'SIG-F25839120CBA3ECDAD68754D0443A667636FDA68');
CkXmlDSigGen_putSigNamespacePrefix(gen,'ds');
CkXmlDSigGen_putSigNamespaceUri(gen,'http://www.w3.org/2000/09/xmldsig#');
CkXmlDSigGen_putSignedInfoCanonAlg(gen,'EXCL_C14N');
CkXmlDSigGen_putSignedInfoDigestMethod(gen,'sha256');

// Set the KeyInfoId before adding references..
CkXmlDSigGen_putKeyInfoId(gen,'KI-F25839120CBA3ECDAD68754D0443A667636FDA68');

// -------- Reference 1 --------
CkXmlDSigGen_AddSameDocRef(gen,'ID-F25839120CBA3ECDAD68754D0443A667636FDA68','sha256','EXCL_C14N','soap wcf','');

// 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,'Custom');

// Create the custom KeyInfo XML..
xmlCustomKeyInfo := CkXml_Create();
CkXml_putTag(xmlCustomKeyInfo,'wsse:SecurityTokenReference');
CkXml_AddAttribute(xmlCustomKeyInfo,'wsu:Id','STR-F25839120CBA3ECDAD68754D0443A667636FDA68');
CkXml_UpdateAttrAt(xmlCustomKeyInfo,'wsse:Reference',True,'URI','#ABCXYZ-9F0F7E15A59816E680B4735080A789DC1EED6C9C');
CkXml_UpdateAttrAt(xmlCustomKeyInfo,'wsse:Reference',True,'ValueType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3');

CkXml_putEmitXmlDecl(xmlCustomKeyInfo,False);
CkXmlDSigGen_putCustomKeyInfoXml(gen,CkXml__getXml(xmlCustomKeyInfo));

// Load XML to be signed...
sbXml := CkStringBuilder_Create();
CkXml_GetXmlSb(xmlToSign,sbXml);

// Update BinarySecurityToken_Base64Binary_Content with the actual X509 of the signing cert.
bdCert := CkBinData_Create();
CkCert_ExportCertDerBd(cert,bdCert);

nReplaced := CkStringBuilder_Replace(sbXml,'BinarySecurityToken_Base64Binary_Content',CkBinData__getEncoded(bdCert,'base64'));

CkXmlDSigGen_putBehaviors(gen,'IndentedSignature');

// 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.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.');

// --------------------------------------------------------------------------------
// Also see Chilkat's Online WSDL Code Generator
// to generate code and SOAP Request and Response XML for each operation in a WSDL.
// --------------------------------------------------------------------------------

CkXml_Dispose(xmlToSign);
CkXmlDSigGen_Dispose(gen);
CkCert_Dispose(cert);
CkXml_Dispose(xmlCustomKeyInfo);
CkStringBuilder_Dispose(sbXml);
CkBinData_Dispose(bdCert);
CkXmlDSig_Dispose(verifier);

end;