本文整理自网络，侵删。
在命名空间IdHashSHA,有个函数TidHashSHa1类，用作SHA1加密;
该类的方法Methods有
Constructor：creat
Methods：HashtoHex(const aHash:TidBytes):string;override;
HashBytesAsHex(const aHash:TidBytes):string;该方法将TidBytes类型返回string类；
HashStringAsHex(const AStr:String；ADestEncoding：TidTextEncoding=nil):string
常规SHA1(utf-8)加密：40位SHA1大写
使用HashBytesAsHex代码如下：
function sha1(input:string):string;
var
temp:tidbytes;
begin
with tidhashsha1.create do
try
result:=HashBytesAsHex(TdBytes(Bytesof(input)));
//result:=HashStringAsHex(input);
finally
free;
end;
end;
关于验证自己写的加密函数对错的方法：
相关阅读 >>
Delphi程序在win7 win8 win10下自动请求以管理员身份运行
Delphi windows 编程[20] - 改变菜单项并换行
更多相关阅读请进入《Delphi》频道 >>
