• 微信公众号:美女很有趣。 工作之余,放松一下,关注即送10G+美女照片!

Delphi Hash算法[4] SHA1

开发技术 开发技术 1周前 (04-29) 5次浏览

Delphi Hash算法[4] SHA1

引用单元:IdHashSHA

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大写

1、正常输出

uses IdHashSHA, IdGlobal;

function SHA1(Str: string): string;
begin
  with TIdHashSHA1.Create do
  try
    Result := LowerCase(HashBytesAsHex(TidBytes(Bytesof(Str))));  
  finally
    Free;
  end;
end;

2、UTF-8 格式输出

function sha1(Str: string): string;
begin
  with Tidhashsha1.Create do
  try
    Result := HashStringAsHex(Str,IndyTextEncoding_UTF8);
  finally
    free;
  end;
end;

  

 

 

创建时间:2021.04.29  更新时间:


程序员灯塔
转载请注明原文链接:Delphi Hash算法[4] SHA1
喜欢 (0)