在delphi中怎樣實現SHA1加密
1 回答
慕慕森
TA貢獻1856條經驗 獲得超17個贊
方法一、使用 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; |
添加回答
舉報
0/150
提交
取消