Export Private Key to PKCS8, PEM, DER, XML

Demonstrates how to export a digital certificate's private key to RSA PEM or DER, PKCS8 PEM or DER, or XML.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
cert: TChilkatCert;
success: Integer;
pkey: CHILKATCERTIFICATELib_TLB.IPrivateKey;

begin
cert := TChilkatCert.Create(Self);

//  Th LoadByCommonName method searches the Windows
//  Current User Certificate Store and Local Machine Certificate
//  Store for a certificate whose common name (CN) matches
//  the argument:

success := cert.LoadByCommonName('Chilkat Software, Inc.');
if (success = 0) then
  begin
    ShowMessage('Failed to find certificate!');
  end
else
  begin

    //  Get the PrivateKey object:

    pkey := cert.ExportPrivateKey();
    if (not (pkey = nil )) then
      begin

        //  Export the private key to an RSA DER file:
        pkey.SaveRsaDerFile('pkey_rsa.der');

        //  Export to a PKCS8 DER file:
        pkey.SavePkcs8File('pkey_pkcs8.der');

        //  Export to an RSA PEM file:
        pkey.SaveRsaPemFile('pkey_rsa.pem');

        //  Export to a PKCS8 PEM file:
        pkey.SavePkcs8PemFile('pkey_pkcs8.pem');

        //  Export to XML:
        pkey.SaveXmlFile('pkey.xml');

        //  Get PKCS8 PEM string:
        Memo1.Lines.Add('PKCS8 PEM Private Key:');
        Memo1.Lines.Add(pkey.GetPkcs8Pem());

        //  Get RSA PEM string:
        Memo1.Lines.Add('RSA PEM Private Key:');
        Memo1.Lines.Add(pkey.GetRsaPem());

      end
    else
      begin
        ShowMessage('No private key found!');
      end;

  end;

//  The Chilkat Certificate, Certificate Store, Private Key,
//  Public Key, and Key Container classes / objects are freeware.

//  They are used by and included with the Chilkat Email,
//  Crypt, S/MIME, and other commercial Chilkat components.

end;