首页 > 代码库 > 安装LockBox 3.7.0,用LockBox加密解密!

安装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:\DelphiLib\LockBox3.7.0”中。

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

技术分享

3,编译和安装LockBox3.7.0。

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

 技术分享

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

技术分享

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

技术分享

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

 

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

 

错误截图:

技术分享

解决方法:

1,查看“C:\DelphiLib\LockBox3.7.0\work-products\ephemeral\dcu\XE8\Win32”目录中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.

 

安装LockBox 3.7.0,用LockBox加密解密!