在delphi中怎样实现SHA1加密？

Question

在delphi中怎样实现SHA1加密

Answer 1

方法一、使用 delphi 内置函数。

delphi 的 IdHashSHA 单元，提供了 TidHashSHa1 类，可以实现 SHA1 加密。

方法二、使用第三方控件。

如：CnPack 小组提供的 CnSHA1。示例代码如下：

12345678

procedure TForm1.btnSha1Click(Sender: TObject);begin{$IFDEF UNICODE}  pnlSha1.Caption := SHA1Print(SHA1StringA(AnsiString(edtSha1.Text)));{$ELSE}  pnlSha1.Caption := SHA1Print(SHA1String(edtSha1.Text));{$ENDIF}end;