lazarus：使用DCPrc4进行字符串加密

最新推荐文章于 2020-02-24 10:13:37 发布

老狼8848

最新推荐文章于 2020-02-24 10:13:37 发布

阅读量699

点赞数 1

分类专栏： Lazarus

本文链接：https://blog.csdn.net/bq_cui/article/details/104457292

版权

Lazarus 专栏收录该内容

170 篇文章

订阅专栏

lazarus默认没有安装DCPcrypt控件，需要从Package-online Package manager进行安装，安装速度很快。

字符串加密：

procedure TForm1.ButtonEnCryptClick(Sender: TObject);
var
  i: integer;
  Cipher: TDCP_rc4;
begin
  if EditKey.Text<>'' then begin
    Cipher:= TDCP_rc4.Create(Self);
    Cipher.InitStr(EditKey.Text,TDCP_sha1);
    EditEncrypted.Text:=Cipher.EncryptString(EditClear.Text);
    Cipher.Burn;
    Cipher.Free;
    EditClear.Clear;
  end;
end;

解密代码：

procedure TForm1.ButtonDeCryptClick(Sender: TObject);
var
  i: integer;
  Cipher: TDCP_rc4;
begin
  if EditKey.Text<>'' then begin
    Cipher:= TDCP_rc4.Create(Self);
    Cipher.InitStr(EditKey.Text,TDCP_sha1);
    EditClear.Text:=Cipher.DecryptString(EditEncrypted.Text);
    Cipher.Burn;
    Cipher.Free;
    EditEncrypted.Clear;
  end;
end;

加密：