delphi xe10.2自带的sha1sha2

来源:互联网 发布:淘宝网怎么投诉卖家 编辑:程序博客网 时间:2024/05/16 11:15

uses单元加入system.hash。

使用sha1直接调用

edit3.Text := system.hash.THashSHA1.GetHashString(edit1.Text);

使用 system.hash.THashSHA2.参数设置如下:

class function GetHashString(const AString: string; AHashVersion: TSHA2Version = TSHA2Version.SHA256): string; overload; static; inline;class function GetHashString(const AStream: TStream; AHashVersion: TSHA2Version = TSHA2Version.SHA256): string; overload; static; inline;
也可以使用sha1的默认形式