利用Indy的TIdHashMessageDigest5类计算MD5（Indy10）

最新推荐文章于 2024-10-16 10:27:25 发布

weixin_30814223

最新推荐文章于 2024-10-16 10:27:25 发布

阅读量78

点赞数

CC 4.0 BY-SA版权

文章标签： c/c++

原文链接：http://www.cnblogs.com/winyken/archive/2009/05/16/1458412.html

本文介绍如何使用Indy的TIdHashMessageDigest类来计算字符串的MD5值，并提供了两种不同长度返回值的方法。注意在Indy10中，计算MD5值的API已更新为HashStringAsHex。

Indy自带TIdHashMessageDigest*类，可以方便的计算MD2、MD4和MD5。

代码很简单，其中需要注意的是，Indy9中 Md5Encode.AsHex(Md5Encode.HashValue(S)) 这种写法在Indy10里已经不能用了，之前就是因为这个卡了好久。

unit uMD5;

interface

uses
  IdHashMessageDigest, IdHash, IdGlobal;

type
  TMD5 = class (TIdHashMessageDigest5);

function StrToMD5(S: String): String; overload ;
function StrToMD5(S: String; L: integer): String; overload ;

implementation

function StrToMD5(S: String): String;
var
  Md5Encode: TMD5;
begin
  Md5Encode: = TMD5.Create;
   try
     //Result := Md5Encode.AsHex(Md5Encode.HashValue(S));  // Indy9的写法
    Result : = Md5Encode.HashStringAsHex(S);     // Indy10中可以直接HashStringAsHex
   finally
    Md5Encode.Free;
   end ;
end ;

function StrToMD5(S: String; L: integer): String;
begin
  Result : = Copy(StrToMD5(S), 5 , L);
end ;

end .

调用方法很简单，Edit2.Text := StrToMD5(Edit1.Text); 就可以搞定了，见上图。

完整工程源码(Source)：CalcMD5.rar
附带一个C++ Builder版的工程文件，之前学习CB和Delphi混合编译的产物：CalcMD5_CBuilder.rar

转载于:https://www.cnblogs.com/winyken/archive/2009/05/16/1458412.html