(Delphi DLL) Create EBICS SignaturePubKeyOrderData XML

See more EBICS Examples

Demonstrates how to create the EBICS SignaturePubKeyOrderData XML. (EBICS is the Electronic Banking Internet Communication Standard)

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, PublicKey, Xml, Cert;

...

procedure TForm1.Button1Click(Sender: TObject);
var
cert: HCkCert;
success: Boolean;
xml: HCkXml;
pubkey: HCkPublicKey;
xmlPubKey: HCkXml;

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

// The goal of this example is to create the XML shown below from the certificate to be used for signing.

// <?xml version="1.0" encoding="UTF-8"?>
// <SignaturePubKeyOrderData xmlns="http://www.ebics.org/S001" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.ebics.org/S002">
//   <SignaturePubKeyInfo>
//     <ds:X509Data>
//       <X509IssuerSerial>
//         <ds:X509IssuerName>C=FR, O=Example, OU=1234, CN=Example eID User, OrganizationID=SI:FR-1234</ds:X509IssuerName>
//         <ds:X509SerialNumber>73FFFFB881F1629982F787DF161EFFFF</ds:X509SerialNumber>
//       </X509IssuerSerial>
//       <ds:X509Certificate>
//         MIIJT...kE=
//       </ds:X509Certificate>
//     </ds:X509Data>
//     <PubKeyValue>
//       <ds:RSAPublicKey>
//        <ds:Modulus>wedQ...22Kw==</ds:Modulus>
//         <ds:Exponent>AQAB</ds:Exponent>
//       </ds:RSAPublicKey>
//     </PubKeyValue>
//     <SignatureVersion>A005</SignatureVersion>
//   </SignaturePubKeyInfo>
//   <PartnerID/>
//   <UserID/>
// </SignaturePubKeyOrderData>

cert := CkCert_Create();
success := CkCert_LoadPfxFile(cert,'qa_data/pfx/cert_test123.pfx','test123');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

xml := CkXml_Create();
CkXml_putTag(xml,'SignaturePubKeyOrderData');
CkXml_AddAttribute(xml,'xmlns','http://www.ebics.org/S001');
CkXml_AddAttribute(xml,'xmlns:ds','http://www.w3.org/2000/09/xmldsig#');
CkXml_AddAttribute(xml,'xmlns:xsi','http://www.w3.org/2001/XMLSchema-instance');
CkXml_AddAttribute(xml,'xsi:schemaLocation','http://www.ebics.org/S002');
CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|ds:X509Data|X509IssuerSerial|ds:X509IssuerName',CkCert__issuerDN(cert));
CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|ds:X509Data|X509IssuerSerial|ds:X509SerialNumber',CkCert__serialNumber(cert));
CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|ds:X509Data|ds:X509Certificate',CkCert__getEncoded(cert));

pubkey := CkCert_ExportPublicKey(cert);
xmlPubKey := CkXml_Create();
CkXml_LoadXml(xmlPubKey,CkPublicKey__getXml(pubkey));
CkPublicKey_Dispose(pubkey);

// The public key XML will look like this:
// 
// <RSAPublicKey>
//   <Modulus>...</Modulus>
//   <Exponent>...</Exponent>
// </RSAPublicKey>

CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|PubKeyValue|ds:RSAPublicKey|ds:Modulus',CkXml__getChildContent(xmlPubKey,'Modulus'));
CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|PubKeyValue|ds:RSAPublicKey|ds:Exponent',CkXml__getChildContent(xmlPubKey,'Exponent'));
CkXml_UpdateChildContent(xml,'SignaturePubKeyInfo|SignatureVersion','A005');
CkXml_UpdateChildContent(xml,'PartnerID','');
CkXml_UpdateChildContent(xml,'UserID','');

Memo1.Lines.Add(CkXml__getXml(xml));

CkCert_Dispose(cert);
CkXml_Dispose(xml);
CkXml_Dispose(xmlPubKey);

end;