delphi自带的SHA1算法
uses IdHashSHA, IdGlobal;
function SHA1(Input: String): String;
begin
with TIdHashSHA1.Create do
try
Result := LowerCase(HashBytesAsHex(TidBytes(Bytesof(Input))));
finally
Free;
end;
end;
posted on
2016-10-01 10:19westsoft
阅读(3575)
评论(0)
编辑收藏举报