delphi xe10.2自带的sha1sha2

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