Delphi DLL

Duplicate PHP RSA Encryption

See more RSA Examples

Demonstrates how to duplicate the following PHP function. Delphi 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,True);

// 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;