(Delphi DLL) Duplicate PHP RSA Encryption

Demonstrates how to duplicate the following PHP function.

Note: This example requires Chilkat v11.0.0 or greater.

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, BinData, Rsa, Xml, PublicKey;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
rsaMOD: PWideChar;
rsaEXP: PWideChar;
bdMod: HCkBinData;
bdExp: HCkBinData;
xml: HCkXml;
pubkey: HCkPublicKey;
rsa: HCkRsa;
plainText: PWideChar;
cipherText: PWideChar;

begin
success := False;

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

// Duplicate the following PHP code:
// 
//    public function encryptRSA($plainText,$rsaMOD,$pubKEY){
//         $rsa  = new RSA();
//         $rsa->setEncryptionMode(RSA::ENCRYPTION_PKCS1);
//         $publicKey = [
//             'e' => new BigInteger($pubKEY,16),
//             'n' => new BigInteger($rsaMOD,16)
//         ];
// 		
//         $rsa->loadKey($publicKey);
//         $ciphertext = $rsa->encrypt($plainText);
//         return bin2hex($ciphertext);
//     }
// 
//     $plainText="key=abcdefghijkmnopq&iv=abcdefghijkmnopq&h=12345678&s=12345678"
//     $rsaMOD="F0946D8F05604809E24B8CFFD30349CEA9E5F4D320BFD9E9AA1B088863F02C43E7997D37A3E27B4F8F359F1744DB6B20A437067C0D325A80660D12FF56A57673"
//     $pubKEY="010001"

// We have the RSA modulus in hex
rsaMOD := 'F0946D8F05604809E24B8CFFD30349CEA9E5F4D320BFD9E9AA1B088863F02C43E7997D37A3E27B4F8F359F1744DB6B20A437067C0D325A80660D12FF56A57673';

// The RSA exponent in hex is "010001", which is 65537 in decimal.  It's typically the exponent that is always used.
rsaEXP := '010001';

// Get the RSA modulus and exponent in base64.
bdMod := CkBinData_Create();
bdExp := CkBinData_Create();
success := CkBinData_AppendEncoded(bdMod,rsaMOD,'hex');
success := CkBinData_AppendEncoded(bdExp,rsaEXP,'hex');

// Build the XML representation of the RSA public key
xml := CkXml_Create();
CkXml_putTag(xml,'RSAPublicKey');
CkXml_UpdateChildContent(xml,'Modulus',CkBinData__getEncoded(bdMod,'base64'));
CkXml_UpdateChildContent(xml,'Exponent',CkBinData__getEncoded(bdExp,'base64'));

// Load the RSA public key into a Chilkat public key object.
pubkey := CkPublicKey_Create();
success := CkPublicKey_LoadFromString(pubkey,CkXml__getXml(xml));

// Setup the RSA object for encryption and do it..
rsa := CkRsa_Create();
CkRsa_putVerboseLogging(rsa,True);
success := CkRsa_UsePublicKey(rsa,pubkey);

// Use PKCSv1.5 padding
CkRsa_putPkcsPadding(rsa,False);

// Encrypt and return the string as hex.
CkRsa_putEncodingMode(rsa,'hex');
plainText := 'key=abcdefghijkmnopq&iv=abcdefghijkmnopq&h=12345678&s=12345678';
cipherText := CkRsa__encryptStringENC(rsa,plainText,False);
if (CkRsa_getLastMethodSuccess(rsa) = False) then
  begin
    Memo1.Lines.Add(CkRsa__lastErrorText(rsa));
    Exit;
  end;

// Note: The PKCSv1_5 padding incorporates random bytes.  Therefore, the RSA encryption will produce different results each time -- all of which are valid 
// and decrypt correctly to the same original text.
Memo1.Lines.Add(cipherText);

CkBinData_Dispose(bdMod);
CkBinData_Dispose(bdExp);
CkXml_Dispose(xml);
CkPublicKey_Dispose(pubkey);
CkRsa_Dispose(rsa);

end;