Delphi DLL

RSA Import Public Key from Certificate PEM

See more RSA Examples

Uses a certificate's public key for RSA encryption. The public key from the certificate .pem file is used. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
cert: HCkCert;
pubKey: HCkPublicKey;
rsa: HCkRsa;
encryptedStr: PWideChar;

begin
success := False;

cert := CkCert_Create();

success := CkCert_LoadFromFile(cert,'qa_data/pem/mf_public_rsa.pem');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

pubKey := CkPublicKey_Create();
CkCert_GetPublicKey(cert,pubKey);

rsa := CkRsa_Create();
CkRsa_UsePublicKey(rsa,pubKey);

CkRsa_putEncodingMode(rsa,'base64');
encryptedStr := CkRsa__encryptStringENC(rsa,'hello',False);
Memo1.Lines.Add('encrypted string = ' + encryptedStr);

CkCert_Dispose(cert);
CkPublicKey_Dispose(pubKey);
CkRsa_Dispose(rsa);

end;