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;delphi自带的SHA1算法
原文：http://www.cnblogs.com/westsoft/p/5925508.html
