(Delphi DLL) Example: Crypt2.SetDecryptCert2 method

Demonstrates how to call the SetDecryptCert2 method. This example loads the certificate and private key from PEM files:

PEM Format

Certificate file (cert.pem or cert.crt):

-----BEGIN CERTIFICATE-----
MIID... (base64-encoded data)
-----END CERTIFICATE-----

Private key file (key.pem or key.key):

-----BEGIN PRIVATE KEY-----
MIIE... (base64-encoded data)
-----END PRIVATE KEY-----

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, PrivateKey, Cert, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
cert: HCkCert;
success: Boolean;
privKey: HCkPrivateKey;
crypt: HCkCrypt2;

begin
cert := CkCert_Create();
success := CkCert_LoadFromFile(cert,'c:/certs_and_keys/certAbc.pem');
// Assume success...

privKey := CkPrivateKey_Create();
success := CkPrivateKey_LoadAnyFormatFile(privKey,'c:/certs_and_keys/certAbc_key.pem');
// Assume success...

crypt := CkCrypt2_Create();

CkCrypt2_putCryptAlgorithm(crypt,'pki');

// ...
// ...

success := CkCrypt2_SetDecryptCert2(crypt,cert,privKey);
if (success = False) then
  begin
    Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt));
    Exit;
  end;

Memo1.Lines.Add('Success.');

CkCert_Dispose(cert);
CkPrivateKey_Dispose(privKey);
CkCrypt2_Dispose(crypt);

end;