Delphi ActiveX

Load Particular CA Certs into a Java KeyStore

See more Java KeyStore (JKS) Examples

Opens a PEM file containing many CA root certificates, and creates a Java keystore containing a subset of the certificates. 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;
jks: TChilkatJavaKeyStore;
troots: TChilkatTrustedRoots;
sbDn: TChilkatStringBuilder;
sbAlias: TChilkatStringBuilder;
caseSensitive: Integer;
i: Integer;
numCerts: Integer;
numAdded: Integer;
cacert: IChilkatCert;
numJksCerts: Integer;

begin
success := 0;

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

jks := TChilkatJavaKeyStore.Create(Self);

troots := TChilkatTrustedRoots.Create(Self);

// Load certificates from a file.
success := troots.LoadCaCertsPem('qa_data/curl_cacert.pem');
if (success <> 1) then
  begin
    Memo1.Lines.Add(troots.LastErrorText);
    Exit;
  end;

sbDn := TChilkatStringBuilder.Create(Self);
sbAlias := TChilkatStringBuilder.Create(Self);
caseSensitive := 0;

i := 0;
numCerts := troots.NumCerts;
numAdded := 0;
while (i < numCerts) do
  begin
    cacert := troots.GetCert(i);
    sbDn.Clear();
    sbDn.Append(cacert.SubjectDN);
    if (sbDn.Contains('Entrust.net',caseSensitive) = 1) then
      begin
        Memo1.Lines.Add(cacert.SubjectDN);

        // The alias is an arbitrary unique string for each cert in the JKS.
        sbAlias.Clear();
        sbAlias.Append('cacert_');
        sbAlias.AppendInt(i + 1);
        jks.AddTrustedCert(cacert,sbAlias.GetAsString());
        numAdded := numAdded + 1;
      end;

    i := i + 1;
  end;

// Verify the number of certs in the JKS equals the number we added.
numJksCerts := jks.NumTrustedCerts;
Memo1.Lines.Add('NumTrustedCerts = ' + IntToStr(numJksCerts));
if (numJksCerts <> numAdded) then
  begin
    Memo1.Lines.Add('Something is amiss!');
    Exit;
  end;

// Save the JKS.
success := jks.ToFile('myPassword','qa_data/jks/entrust_caCerts.jks');
if (success <> 1) then
  begin
    Memo1.Lines.Add(jks.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Success.');

// The output of this program when tested was:

// C=US, O=Entrust.net, OU=www.entrust.net/CPS incorp. by ref. (limits liab.), OU=(c) 1999 Entrust.net Limited, CN=Entrust.net Secure Server Certification Authority
// O=Entrust.net, OU=www.entrust.net/CPS_2048 incorp. by ref. (limits liab.), OU=(c) 1999 Entrust.net Limited, CN=Entrust.net Certification Authority (2048)
// C=US, O="Entrust, Inc.", OU=www.entrust.net/CPS is incorporated by reference, OU="(c) 2006 Entrust, Inc.", CN=Entrust Root Certification Authority
// NumTrustedCerts = 3
// Success.
end;