DELPHI7中有MD5加密的控年吗？好像DELPHI6中有！

Question

delphi md5 加密

Answer 1

可以引用Indy组件中的IdHashMessageDigest和IdHash单元来实现：
uses
  IdHashMessageDigest, IdHash;......var
  MyMD5 : TIdHashMessageDigest5;
  Digest: T4x4LongWordRecord;
begin
  MyMD5 := TIdHashMessageDigest5.Create;
  try
    Digest:= MyMD5.HashValue('Hello!');
    ShowMessage(MyMD5.AsHex(Digest));
  finally
    MyMD5.Free;
  end;
end;

Answer 2

QQ的密码也是以md5方式加密的，不明白这种加密算法有什么好处？

Answer 3

http://irsoft.de/web/Delphi-MD5

Answer 4

QQ的密码也是以md5方式加密的，不明白这种加密算法有什么好处？好处就是不可逆。

Answer 5

uses ... ,MD5;function MD5Encory(machinecode:string):string;
var
  myMD5:TDCP_md5 ;
  i,len:Integer ;
  s:string;
  hashDigest:array[0..31] of Byte ;
begin
  myMD5:=TDCP_md5.Create(nil);
  myMD5.Init ;
  myMD5.UpdateStr(machinecode);
  myMD5.Final(hashdigest);
  len:=myMD5.HashSize ;
  s:='';
  for i:=0 to (len div 8)-1 do
    s:=s+inttohex(hashdigest[i],2);
  Result :=Trim(s);
end;