Delphi DLL

Example: Crypt2.SetDecryptCert method

Demonstrates how to call the SetDecryptCert method. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
cert: HCkCert;
decrypt: HCkCrypt2;
bd: HCkBinData;

begin
success := False;

cert := CkCert_Create();

success := CkCert_LoadPfxFile(cert,'c:/pfx_files/my.pfx','password');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

decrypt := CkCrypt2_Create();
CkCrypt2_putCryptAlgorithm(decrypt,'pki');

success := CkCrypt2_SetDecryptCert(decrypt,cert);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkCrypt2__lastErrorText(decrypt));
    Exit;
  end;

bd := CkBinData_Create();
success := CkBinData_LoadFile(bd,'c:/someDir/pkcs7_encrypted.dat');

success := CkCrypt2_DecryptBd(decrypt,bd);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkCrypt2__lastErrorText(decrypt));
    Exit;
  end;

// bd contains the decrypted content.

CkCert_Dispose(cert);
CkCrypt2_Dispose(decrypt);
CkBinData_Dispose(bd);

end;