(Delphi ActiveX) Convert DSA DER Private Key to PEM

Converts a DSA private key from DER format to PEM. Demonstrates how to write both encrypted and unencrypted PEM formatted private keys.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
dsa: TChilkatDsa;
success: Integer;
pemStr: WideString;

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

dsa := TChilkatDsa.Create(Self);

// Load a DER private key.
success := dsa.FromDerFile('dsa_priv.der');
if (success <> 1) then
  begin
    Memo1.Lines.Add(dsa.LastErrorText);
    Exit;
  end;

// Save to unencrypted PEM:
pemStr := dsa.ToPem();
success := dsa.SaveText(pemStr,'dsa_priv.pem');
if (success <> 1) then
  begin
    Memo1.Lines.Add(dsa.LastErrorText);
    Exit;
  end;

// Save to encrypted PEM:
pemStr := dsa.ToEncryptedPem('myPassword');
success := dsa.SaveText(pemStr,'dsa_privEncrypted.pem');
if (success <> 1) then
  begin
    Memo1.Lines.Add(dsa.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Finished!');
end;