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;
时间: 2024-10-11 00:30:50
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;