RSS订阅 | 匿名投稿
您的位置:网站首页 > 加密 > 正文

delphi 使用 LockBox 做加密解密

作者:admin 来源: 日期:2018/1/5 14:16:57 人气: 标签:

Delphi 提供的加密解密控件中,LockBox 是一套非常优秀的开源控件。其前身是 TruboPower LockBox 是一套商业控件。
LockBox 到 Version 2 的时候决定开源。因此有 LockBox2,和之前的商业控件完全一样。
后来,有人另外写了一套,叫做 LockBox3,这个版本同样开源,但代码完全不一样,用法也不一样。其采用的开源协议也不一样。
关于 LockBox2 和 LockBox3 的区别,以及为什么要另外搞一套,请看这里:http://lockbox.seanbdurkin.id.au/HomePage
下载请看这里:

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

LockBox3:
https://github.com/TurboPack/LockBox3

我尝试下载 LockBox2 和 LockBox3 的 ZIP,解压缩后,安装到 Delphi 10.2 东京版。发现有一个问题:同时安装 VCL 版和 FMX 版,结果安装完后,控件面板上没看见。重启 Delphi 后,启动时说某某包加载不成功,等等。
只好卸载 FMX 版,只留 VCL 版,才能成功在 IDE 的控件面版上看到控件。写个例子程序,拖控件过来,写点测试代码,通过。
以下是拖控件过来后的测试代码:

procedure TForm2.Button1Click(Sender: TObject);  
var  
  S: string;  
begin  
  //这是 LockBox 2.0 控件的用法。LockBox3 完全不同了。  
  //这里是拖控件过来的。  
  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  
  //以下是 LockBox3 的用法。Codec1 是拖控件过来的。  
  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;  


如果不拖控件,也可以自己用代码在运行期创建对象然后使用,以下是李维用 LockBox3 写的例子代码,加密:

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;  

以下是解密:

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;  


看起来,LockBox3 的使用,比 LockBox2 的使用,稍微麻烦一些。

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料