Delphi2010 MD5加密的方法

在Delphi2010及上以版本中，可以用TIdHashMessageDigest5对字符和流进行MD5加密，MD5加密是不可逆的，即不能解密，银行系统用户密码就是MD5加密，如果您的密码丢失，只能重设密码，原来的密码将废弃。

先引用单元：IdHashMessageDigest

写如下函数：

function MD5(const str:string):String;

var

AMD5:TIdHashMessageDigest5;

begin

try

AMD5:=TIdHashMessageDigest5.Create;

Result:=AMD5.HashStringAsHex(str,TEncoding.UTF8);

finally

AMD5.Free;

end;

end;

当然，你也可以对文件流进行加密用 AMD5.HashStreamAsHex()即可