Export Public Key to RSA DER, OpenSSL DER/PEM, XML

Demonstrates how to export a digital certificate's public key to RSA DER, OpenSSL PEM or DER, or to XML format.

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.IPublicKey;

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 PublicKey object:

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

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

        //  Export to an OpenSSL DER file:
        pkey.SaveOpenSslDerFile('pubkey_openssl.der');

        //  Export to an OpenSSL PEM file:
        pkey.SaveOpenSslPemFile('pubkey_openssl.pem');

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

        //  Get OpenSSL PEM string:
        Memo1.Lines.Add('OpenSSL PEM Public Key:');
        Memo1.Lines.Add(pkey.GetOpenSslPem());

      end
    else
      begin
        ShowMessage('No public 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;