![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) RSA Encrypt and OpenSSL DecryptDemonstrates how to use Chilkat to RSA encrypt, and then use OpenSSL to decrypt. Note: This example requires Chilkat v11.0.0 or greater.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var success: Integer; rsa: TChilkatRsa; privKey: TPrivateKey; pubKey: TPublicKey; plainText: WideString; bUsePrivateKey: Integer; encryptedStr: WideString; bd: TChilkatBinData; begin success := 0; // This requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. rsa := TChilkatRsa.Create(Self); privKey := TPrivateKey.Create(Self); success := rsa.GenKey(2048,privKey.ControlInterface); success := privKey.SavePkcs8PemFile('qa_output/privKey.pem'); pubKey := TPublicKey.Create(Self); privKey.ToPublicKey(pubKey.ControlInterface); rsa.EncodingMode := 'base64'; plainText := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890'; bUsePrivateKey := 0; rsa.UsePublicKey(pubKey.ControlInterface); encryptedStr := rsa.EncryptStringENC(plainText,bUsePrivateKey); bd := TChilkatBinData.Create(Self); bd.AppendEncoded(encryptedStr,'base64'); success := bd.WriteFile('qa_output/enc.dat'); // The OpenSSL command to decrypt is: // openssl pkeyutl -in enc.dat -inkey privKey.pem -keyform PEM -pkeyopt rsa_padding_mode:pkcs1 -decrypt Memo1.Lines.Add('OK'); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.