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()即可