(Delphi DLL) Convert PKCS12 / PFX to Java Keystore (JKS)

Loads a PKCS12 / PFX file and saves it to a Java keystore (JKS) file.

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, Pfx, JavaKeyStore;

...

procedure TForm1.Button1Click(Sender: TObject);
var
pfx: HCkPfx;
success: Boolean;
jksPassword: PWideChar;
alias: PWideChar;
jks: HCkJavaKeyStore;

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

pfx := CkPfx_Create();

// Load the PKCS12 from a file
success := CkPfx_LoadPfxFile(pfx,'/someDir/my.p12','myPfxPassword');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkPfx__lastErrorText(pfx));
    Exit;
  end;

jksPassword := 'myJksPassword';
alias := 'firstPrivateKeyAlias';

// Convert to a Java keystore object.
// The jksPassword is the password to be used for the JKS private key entries. 
// It may be the same as the PFX password, but can also be different if desired.
jks := CkPfx_ToJavaKeyStore(pfx,alias,jksPassword);
if (CkPfx_getLastMethodSuccess(pfx) = False) then
  begin
    Memo1.Lines.Add(CkPfx__lastErrorText(pfx));
    Exit;
  end;

// Save the Java keystore to a file.
success := CkJavaKeyStore_ToFile(jks,jksPassword,'/myKeystores/my.jks');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkJavaKeyStore__lastErrorText(jks));
    CkJavaKeyStore_Dispose(jks);
    Exit;
  end;

CkJavaKeyStore_Dispose(jks);
Memo1.Lines.Add('Successfully converted PFX to JKS.');

CkPfx_Dispose(pfx);

end;