DELPHI sha1 汉字

最新推荐文章于 2022-10-20 09:23:48 发布

「已注销」

最新推荐文章于 2022-10-20 09:23:48 发布

阅读量1.3k

点赞数

本文链接：https://blog.csdn.net/xiaojian365/article/details/73382431

版权

function sha1(input: string): string;
begin
  with Tidhashsha1.Create do
  try
    Result := HashBytesAsHex(TidBytes(Bytesof(input)));
    
  finally
    free;
  end;
end;

针对 sha1签名，之前没有涉及中文字符，一切正常，加入汉字后，签名错误，需要使用下面方法

function sha1(input: string): string;
begin
  with Tidhashsha1.Create do
  try
    //Result := HashBytesAsHex(TidBytes(Bytesof(input)));
    Result := HashStringAsHex(input,IndyTextEncoding_UTF8);
  finally
    free;
  end;
end;