PFX to PEM (Certificate and Private Key Files)

Export a certificate and private key from a PFX to a pair of PEM files.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCERTIFICATELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
certStore: CHILKATCERTIFICATELib_TLB.IChilkatCertStore;
password: String;
cert: IChilkatCert;
pvkey: CHILKATCERTIFICATELib_TLB.IPrivateKey;

begin

certStore := CoChilkatCertStore.Create();

//  Load the PFX file into a certificate store object

password := 'myPassword';
success := certStore.LoadPfxFile('chilkat.pfx',password);
if (success <> 1) then
  begin
    ShowMessage(certStore.LastErrorText);
    Exit;
  end;

//  Find the cert to be exported by the subject:

cert := certStore.FindCertBySubject('Chilkat Software, Inc.') As IChilkatCert;
if (cert = nil ) then
  begin
    ShowMessage('Certificate not found.');
    Exit;
  end;

//  Does this cert have a private key?
if (cert.HasPrivateKey() = 1) then
  begin

    //  Get the private key.

    pvkey := cert.ExportPrivateKey() As CHILKATCERTIFICATELib_TLB.IPrivateKey;

    //   Export the private key to a PEM file:
    success := pvkey.SaveRsaPemFile('chilkat_pkey.pem');
    if (success <> 1) then
      begin
        ShowMessage(pvkey.LastErrorText);
        Exit;
      end;

  end;

//  Save the cert to a PEM file:
success := cert.ExportCertPemFile('chilkat_cert.pem');
if (success <> 1) then
  begin
    ShowMessage(cert.LastErrorText);
    Exit;
  end;


end;