首页 > 代码库 > delphi自带的SHA1算法

delphi自带的SHA1算法

delphi自带的SHA1算法uses IdHashSHA, IdGlobal;function SHA1(Input: String): String;beginwith TIdHashSHA1.Create dotryResult := LowerCase(HashBytesAsHex(TidBytes(Bytesof(Input))));finallyFree;end;end;

delphi自带的SHA1算法