Delphi ActiveX

Write PKCS1 or PKCS8 Public Key PEM

See more PEM Examples

Demonstrates how to write either PKCS1 or PKCS8 format PEM files. PKCS1 public keys have this PEM format:

-----BEGIN RSA PUBLIC KEY-----
BASE64 ENCODED DATA
-----END RSA PUBLIC KEY-----

PKCS8 public keys have this PEM format:

-----BEGIN PUBLIC KEY-----
BASE64 ENCODED DATA
-----END PUBLIC KEY-----

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;
pem: TChilkatPem;
i: Integer;
numPublicKeys: Integer;

begin
success := 0;

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

success := 0;

pem := TChilkatPem.Create(Self);

// Load a public key from a PEM file.
// (Assume the PEM contains at least one public key..)
success := pem.LoadPemFile('/Users/chilkat/testData/pem/myPublicKey.pem');
if (success <> 1) then
  begin
    Memo1.Lines.Add(pem.LastErrorText);
    Exit;
  end;

numPublicKeys := pem.NumPublicKeys;
if (numPublicKeys = 0) then
  begin
    Memo1.Lines.Add(('Error: Expected the PEM to contain public keys.'));
    Exit;
  end;

// Get each public key as PEM, first in PKCS1 format, then in PKCS8.
for i := 1 to numPublicKeys do
  begin

    // First output to PKCS1 PEM format:
    Memo1.Lines.Add('This is PKCS1 format:');
    pem.PublicKeyFormat := 'pkcs1';
    Memo1.Lines.Add(pem.ToPem());

    // Now PKCS8 PEM format:
    Memo1.Lines.Add('This is PKCS8 format:');
    pem.PublicKeyFormat := 'pkcs8';
    Memo1.Lines.Add(pem.ToPem());

  end;
end;