求一段.NET的MD5函数转换为Delphi

Question

本帖最后由 xeqtrl982 于 2011-03-20 10:37:12 编辑

Answer 1

直接使用delphi版的MD5函数不行吗？网上搜索多的是。
如果找不到合适的，可参见我的BLOG:
http://blog.csdn.net/maozefa/archive/2007/06/15/1653560.aspx

Answer 2

use 
  CnMD5;//CNPACK中的MD5单元MD5Print(MD5StringW('xxxxxx'))

Answer 3

function MD5(toCryString:Widestring):Widestring;
        {
          //异常处理自己加一下
           result:=MD5Print(MD5StringW(toCryString))
        }

Answer 4

MD5都是一样的，Delphi自带也有
XE下的代码uses
  IdHashMessageDigest;function MD5String(Text: string): string;
var
  MD5: TIdHashMessageDigest5;
begin
  MD5 := TIdHashMessageDigest5.Create;
  Result := MD5.HashStringAsHex(Text);
  MD5.Free;
end;