在delphi中怎样实现SHA1加密？

Question

在delphi中怎样实现SHA1加密

Answer 1

方法一、使用 delphi 内置函数。delphi 的 IdHashSHA 单元，提供了 TidHashSHa1 类，可以实现 SHA1 加密。方法二、使用第三方控件。如：CnPack 小组提供的 CnSHA1。示例代码如下：12345678procedure TForm1.btnSha1Click(Sender: TObject);begin{$IFDEF UNICODE}  pnlSha1.Caption := SHA1Print(SHA1StringA(AnsiString(edtSha1.Text)));{$ELSE}  pnlSha1.Caption := SHA1Print(SHA1String(edtSha1.Text));{$ENDIF}end;