Delphi ActiveX

Convert DSA DER Private Key to PEM

See more DSA Examples

Converts a DSA private key from DER format to PEM. Demonstrates how to write both encrypted and unencrypted PEM formatted private keys. 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;
dsa: TChilkatDsa;
pemStr: WideString;

begin
success := 0;

// 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;