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

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.