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的默认形式
