(Delphi DLL) RSA Encrypt with SHA-256 hash function and SHA-1 mask function

How can this Javascript be duplicated using Chilkat?

function a(e, t) {
                var r = s.pki.publicKeyFromPem(e)
                  , n = r.encrypt(t, "RSA-OAEP", {
                    md: s.md.sha256.create(),
                    mgf1: {
                        md: s.md.sha1.create()
                    }
                });
                return s.util.encode64(n)
            }

Note: The OAEP padding uses random bytes in the padding, and therefore each time encryption happens, even using the same data and key, the result will be different -- but still valid. One should not expect to get the same output.

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, StringBuilder, Rsa, PublicKey, CkByteData, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
pubkey: HCkPublicKey;
sbPem: HCkStringBuilder;
bCrlf: Boolean;
success: Boolean;
originalData: PWideChar;
crypt: HCkCrypt2;
hashBytes: HCkByteData;
rsa: HCkRsa;
bUsePrivateKey: Boolean;
encryptedStr: PWideChar;

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

pubkey := CkPublicKey_Create();

sbPem := CkStringBuilder_Create();
bCrlf := True;
CkStringBuilder_AppendLine(sbPem,'-----BEGIN PUBLIC KEY-----',bCrlf);
CkStringBuilder_AppendLine(sbPem,'MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA33TqqLR3eeUmDtHS89qF',bCrlf);
CkStringBuilder_AppendLine(sbPem,'3p4MP7Wfqt2Zjj3lZjLjjCGDvwr9cJNlNDiuKboODgUiT4ZdPWbOiMAfDcDzlOxA',bCrlf);
CkStringBuilder_AppendLine(sbPem,'04DDnEFGAf+kDQiNSe2ZtqC7bnIc8+KSG/qOGQIVaay4Ucr6ovDkykO5Hxn7OU7s',bCrlf);
CkStringBuilder_AppendLine(sbPem,'Jp9TP9H0JH8zMQA6YzijYH9LsupTerrY3U6zyihVEDXXOv08vBHk50BMFJbE9iwF',bCrlf);
CkStringBuilder_AppendLine(sbPem,'wnxCsU5+UZUZYw87Uu0n4LPFS9BT8tUIvAfnRXIEWCha3KbFWmdZQZlyrFw0buUE',bCrlf);
CkStringBuilder_AppendLine(sbPem,'f0YN3/Q0auBkdbDR/ES2PbgKTJdkjc/rEeM0TxvOUf7HuUNOhrtAVEN1D5uuxE1W',bCrlf);
CkStringBuilder_AppendLine(sbPem,'SwIDAQAB',bCrlf);
CkStringBuilder_AppendLine(sbPem,'-----END PUBLIC KEY-----',bCrlf);

// Load the public key object from the PEM. 
success := CkPublicKey_LoadFromString(pubkey,CkStringBuilder__getAsString(sbPem));
if (success <> True) then
  begin
    Memo1.Lines.Add(CkPublicKey__lastErrorText(pubkey));
    Exit;
  end;

originalData := 'This is the original data to be SHA-256 hashed and RSA encrypted.';

// First we SHA-256 hash the original data.
crypt := CkCrypt2_Create();
CkCrypt2_putHashAlgorithm(crypt,'SHA-256');
hashBytes := CkByteData_Create();
success := CkCrypt2_HashString(crypt,originalData,hashBytes);

// Now to RSA encrypt using OAEP padding with SHA-1 for the mask function.
rsa := CkRsa_Create();
CkRsa_putOaepPadding(rsa,True);
CkRsa_putOaepHash(rsa,'SHA1');
CkRsa_ImportPublicKeyObj(rsa,pubkey);
CkRsa_putEncodingMode(rsa,'base64');

// Note: The OAEP padding uses random bytes in the padding, and therefore each time encryption happens,
// even using the same data and key, the result will be different --  but still valid.  One should not expect
// to get the same output.
bUsePrivateKey := False;
encryptedStr := CkRsa__encryptBytesENC(rsa,hashBytes,bUsePrivateKey);
if (CkRsa_getLastMethodSuccess(rsa) <> True) then
  begin
    Memo1.Lines.Add(CkRsa__lastErrorText(rsa));
    Exit;
  end;

Memo1.Lines.Add('Base64 RSA encrypted output: ' + encryptedStr);

CkPublicKey_Dispose(pubkey);
CkStringBuilder_Dispose(sbPem);
CkCrypt2_Dispose(crypt);
CkByteData_Dispose(hashBytes);
CkRsa_Dispose(rsa);

end;