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