DELPHI SHA1加密函数

最新推荐文章于 2024-10-31 18:19:03 发布

原创最新推荐文章于 2024-10-31 18:19:03 发布 · 7.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #加密

Delphi xe5 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一个SHA1加密函数的实现方法，并提供了具体的代码示例。文章详细解释了如何使用TidHashSHA1类来生成SHA1哈希值，并将其转换为十六进制字符串。此外，还介绍了如何验证自定义加密函数的正确性。

部署运行你感兴趣的模型镜像

在命名空间IdHashSHA,有个函数TidHashSHa1类，用作SHA1加密;

该类的方法Methods有

Constructor：creat

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

使用HashBytesAsHex代码如下：

function sha1(input:string):string;
  var
  temp:tidbytes;
begin
    with tidhashsha1.create do
     try
       result:=HashBytesAsHex(TdBytes(Bytesof(input)));
       //result:=HashStringAsHex(input);
     finally
      free;
    end;
end;

关于验证自己写的加密函数对错的方法：

百度搜索SHA1加密：

您可能感兴趣的与本文相关的镜像

Qwen3-8B

文本生成

Qwen3

Qwen3 是 Qwen 系列中的最新一代大型语言模型，提供了一整套密集型和专家混合（MoE）模型。基于广泛的训练，Qwen3 在推理、指令执行、代理能力和多语言支持方面取得了突破性进展