安装LockBox 3.7.0，用LockBox加密解密！

LockBox  官  方  网  站：http://lockbox.seanbdurkin.id.au/HomePage

LockBox的Github 网址：https://github.com/SeanBDurkin/tplockbox

LockBox 3.7.0  下   载：https://github.com/SeanBDurkin/tplockbox/archive/master.zip

LockBox3.7.0的安装：

1，解压缩下载的LockBox3.7.0压缩包，把压缩包内所有东西放入你想要放的目录中，我放到了：“C:DelphiLibLockBox3.7.0”中。

2，把“C:DelphiLibLockBox3.7.0 un”加入你的Delphi的"library"中。点击菜单“Tools”->"Options"，在随手弹出的对话框中，选择左侧的“Delphi Options”->"Library"，随后点击右侧“Library path”下面右侧的按钮，随后加入上面的目录。注意：这个目录是我自己存放LockBox3.7.0的地方，你应该换成你自己存放LockBox3.7.0的对应目录！

3，编译和安装LockBox3.7.0。

A，打开你使用的Delphi对应的运行时工程目录，我使用Delphi XE8，对应的目录是“C:DelphiLibLockBox3.7.0packagesXE8”，随后把工程组文件直接拖入Delphi XE8里面。

 

B，鼠标右键工程组，随后点击右键菜单“Build ALL”。

注意：如果这个时候出错了，查看出错的关键字，我第一次编译时候出错了，这个关键字不对，随后我添加上面的路径到library里面后，再次编译，发现关键字被修改错误了，改正成Delphi正确的关键字就可以了。下图我列举了我当时出现的错误状况，就是关键字被篡改了！！

C，安装LockBox，鼠标右键“dclTP_LockBox3_XE8.bpl”，点击“install”，如果一切顺利，你应该安装上了。

到现在，我们就已经成功安装了LockBox3.7.0了，如果你不去修改先前版本LockBox的代码，直接使用没有问题，如果你想修改先前版本LockBox的代码，一大堆问题，先看看问题，随后我告诉你如何解决！！

错误截图：

解决方法：

1，查看“C:DelphiLibLockBox3.7.0work-productsephemeraldcuXE8Win32”目录中DCU文件名称，发现都是“TPLB3.Codec.dcu”这样的格式了，和Delphi目前最新的单元名称是不是一样？

2，把所有有错误的单元文件名修改成“TPLB3.”+原来下划线后面的单元文件名，例如：原单元文件名“uTPLb_Signatory”，修改成“TPLB3.Signatory”，马上错误消失，一直按照这样方法修改所有错误，随后编译，完全正确！

加密解密演示例子：

完整例子下载：http://download.csdn.net/detail/sunylat/9728033

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    clearLogBtn: TButton;
    logMemo: TMemo;
    Splitter1: TSplitter;
    Panel3: TPanel;
    Button2: TButton;
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    procedure clearLogBtnClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

    // 加密字符串
    procedure EncryptString(keyStr, Plaintext: string; var CipherText: String);

    // 解密字符串
    procedure DecryptString(keyStr: string; var Plaintext: string;
      CipherText: String);

  public
    { Public declarations }
    procedure MyLog(tempLog: string); // log方法
  end;

const
  EncryptKey = 'lockBoxKey'; // 测试用的加密解密key，你可以换成任意你想用的key

var
  Form2: TForm2;

  logInfo: string; // log信息

implementation

{$R *.dfm}

uses
  TPLB3.Signatory, TPLB3.Codec, TPLB3.BaseNonVisualComponent,
  TPLB3.CryptographicLibrary, TPLB3.Constants;

// 加密字符串
procedure TForm2.EncryptString(keyStr, Plaintext: string;
  var CipherText: String);
var
  Codec2: TCodec;
  CryptographicLibrary2: TCryptographicLibrary;
begin
  try
    Codec2 := TCodec.Create(nil);
    CryptographicLibrary2 := TCryptographicLibrary.Create(nil);
    Codec2.CryptoLibrary := CryptographicLibrary2;
    // 这是动态创建对象能够工作的关键
    Codec2.StreamCipherId := TPLB3.Constants.BlockCipher_ProgId;

    Codec2.BlockCipherId := TPLB3.Constants.DES_ProgId;
    Codec2.ChainModeId := TPLB3.Constants.ECB_ProgId;

    // 设置密码
    Codec2.Password := Trim(keyStr);

    // 加密字符串
    Codec2.EncryptString(Plaintext, CipherText, TEncoding.Default);

  finally
    Codec2.Free;
    CryptographicLibrary2.Free;
  end;
end;

// 解密字符串
procedure TForm2.DecryptString(keyStr: string; var Plaintext: string;
  CipherText: String);
var
  Codec2: TCodec;
  CryptographicLibrary2: TCryptographicLibrary;
begin
  try
    Codec2 := TCodec.Create(nil);
    CryptographicLibrary2 := TCryptographicLibrary.Create(nil);
    Codec2.CryptoLibrary := CryptographicLibrary2;
    // 这是动态创建对象能够工作的关键
    Codec2.StreamCipherId := TPLB3.Constants.BlockCipher_ProgId;

    Codec2.BlockCipherId := TPLB3.Constants.DES_ProgId;
    Codec2.ChainModeId := TPLB3.Constants.ECB_ProgId;

    // 设置密码
    Codec2.Password := Trim(keyStr);

    // 加密字符串
    Codec2.DecryptString(Plaintext, CipherText, TEncoding.Default);

  finally
    Codec2.Free;
    CryptographicLibrary2.Free;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Plaintext: string; // 未加密信息变量
  CipherText: string; // 加密后信息变量
begin
  if Trim(logMemo.Text) <> '' then
  begin
    // 得到解密内容
    CipherText := Trim(logMemo.Text);

    // 解密
    self.DecryptString(EncryptKey, Plaintext, CipherText);

    // 显示解密内容
    Memo2.Text := Plaintext;

    if Trim(Memo1.Text) <> '' then
    begin
      if Trim(Memo1.Text) = Trim(Memo2.Text) then
      begin
        showmessage('解密完全正确！！');
      end
      else
      begin
        showmessage('解密结果和加密前的内容不一致！！！');
      end;

    end;

  end
  else
  begin
    showmessage('对不起，要解密内容不能为空！');
  end;

end;

procedure TForm2.Button2Click(Sender: TObject);
var
  Plaintext: string; // 未加密信息变量
  CipherText: string; // 加密后信息变量
begin

  // 要加密信息
  Plaintext := Trim(Memo1.Text);

  if Plaintext = '' then
  begin
    showmessage('对不起，要加密内容不能为空！');
  end
  else
  begin
    // 加密
    self.EncryptString(EncryptKey, Plaintext, CipherText);

    // 显示加密信息
    logMemo.Text := CipherText;
  end;

end;

procedure TForm2.clearLogBtnClick(Sender: TObject);
begin
  logMemo.Clear;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin

end;

// log方法
procedure TForm2.MyLog(tempLog: string);
var
  temp: string;
  oldLog: string;
begin
  if Trim(tempLog) <> '' then
  begin

    oldLog := Trim(logMemo.Text);
    logMemo.Clear;

    temp := FormatDateTime('yyyy-mm-dd hh:mm:ss', now) + ' ' + Trim(tempLog);
    if oldLog = '' then
    begin
      logMemo.Lines.Add(temp);
      logMemo.Lines.Add('');
    end
    else
    begin
      logMemo.Lines.Add(temp);
      logMemo.Lines.Add('');
      logMemo.Lines.Add(oldLog);
    end;

  end;

end;

end.