DelphiFan Magazine

Top Menu

Main Menu

CODE SAMPLESDELPHI
››Use LockBox does encryption and decryption

Use LockBox does encryption and decryption

By admin
January 2, 2021
461
0
Share:

LockBox is an excellent set of open source controls. Its predecessor is TruboPower LockBox is a set of commercial controls.

LockBox decided to open source when it reached Version 2. So there is LockBox2, which is exactly the same as the previous commercial controls.

Later, someone wrote another set called LockBox3. This version is also open source, but the code is completely different and the usage is different. The open source protocol used is also different.

For the difference between LockBox2 and LockBox3, and why you want to create another one, please see here: http://lockbox.seanbdurkin.id.au/HomePage

Download here:

LockBox2:

https://github.com/TurboPack/LockBox/

LockBox3:

https://github.com/TurboPack/LockBox3

 

I tried to download the ZIP of LockBox2 and LockBox3, unzip it, and install it to Delphi 10.2 Tokyo version. I found a problem: I installed the VCL version and FMX version at the same time, but after the installation, I did not see it on the control panel. After restarting Delphi, it says that the XX package was unsuccessfully loaded during startup, and so on.

I had to uninstall the FMX version, leaving only the VCL version to successfully see the controls on the control panel of the IDE. Write an example program, drag the control over, write some test code, and pass.

The following is the test code after dragging the control over:

 

procedure TForm2.Button1Click(Sender: TObject);
var
  S: string;
begin
//This is the usage of the LockBox 2.0 control. LockBox3 is completely different.
//Here is to drag the control over.
  Lb3DES1.GenerateKey(‘abcd1234’);
  S := Lb3DES1.EncryptString(Edit1.Text);
  Memo1.Lines.Add(S);
  Memo1.Lines.Add(”);
 
  S := Lb3DES1.DecryptString(S);
  Memo1.Lines.Add(S);
end;
 
procedure TForm2.Button2Click(Sender: TObject);
var
  EncryptDataStr: string;
  DecodedStr: string;
begin
//The following is the usage of LockBox3. Codec1 is dragged over.
  Codec1.PassWord := ‘abc3455’;
  Codec1.EncryptString(Edit1.Text, EncryptDataStr, TEncoding.UTF8);
  Memo1.Lines.Add(EncryptDataStr);
 
  Codec1.DecryptString(DecodedStr, EncryptDataStr, TEncoding.UTF8);
 
  Memo1.Lines.Add(DecodedStr);
 
  Memo1.Lines.Add(”);
end;
If you don’t drag the control, you can also use the code to create the object at runtime and use it.
The following is an example code written with LockBox3, encrypted:
procedure TForm3.Button1Click(Sender: TObject);
var
 Codec1: TCodec;
 CryptographicLibrary1: TCryptographicLibrary;
 sEncryptData : String;
begin
  Codec1 := TCodec.Create( nil);
  CryptographicLibrary1 := TCryptographicLibrary.Create( nil);
  try
    Codec1.CryptoLibrary  := CryptographicLibrary1;
    Codec1.StreamCipherId := uTPLb_Constants.BlockCipher_ProgId;
    Codec1.BlockCipherId  := ‘native.AES-256’;
    Codec1.ChainModeId    := uTPLb_Constants.CBC_ProgId;
    Codec1.Password := ‘This is a test for AES’;
    Codec1.EncryptString(Edit1.Text, sEncryptData, TEncoding.UTF8);
    Edit2.Text := sEncryptData;
  finally
    Codec1.Free;
    CryptographicLibrary1.Free;
  end;
end;
The following is decryption:
procedure TForm3.Button2Click(Sender: TObject
var
 Codec1: TCodec;
 CryptographicLibrary1: TCryptographicLibrary;
 sData : String;
begin
  Codec1 := TCodec.Create( nil);
  CryptographicLibrary1 := TCryptographicLibrary.Create( nil);
  try
    Codec1.CryptoLibrary  := CryptographicLibrary1;
    Codec1.StreamCipherId := uTPLb_Constants.BlockCipher_ProgId;
    Codec1.BlockCipherId  := ‘native.AES-256’;
    Codec1.ChainModeId    := uTPLb_Constants.CBC_ProgId;
    Codec1.Password := ‘This is a test for AES’;
    Codec1.DecryptString(sData, Edit2.Text, TEncoding.UTF8);
    Edit3.Text := sData;
  finally
    Codec1.Free;
    CryptographicLibrary1.Free;
  end;
end;
It seems that the use of LockBox3 is slightly more troublesome than the use of LockBox2.
Tagscalculate md5decryptiondelphidelphi md5encryptionLockBoxmd5
Previous Article

Use Windows API (WinCrypt) to calculate the ...

Next Article

Where to download OpenSSL binaries?

admin

Related articles More from author

Leave a reply

You may interested

Follow Us on Instagram

© Copyright Delphifan Forum. All rights reserved.