MD5就那么难吗？

Question

为什么我想找些MD5代码或是控件就只有人在那里“up,up,up"的？搜了两篇文章，一篇还是被人"up",另一篇根本没人理会。ASP的MD5函数我有，也曾用vb把它编成dll,在vb里成功使用，可这个dll在delphi里用就出错。
难道MD5在delphi里真的那么难以至没人理吗？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  FirstReturnedString:String;
  SecondReturnedString:String;
begin
  IdCoderMD51.AutoCompleteInput:=true;
  IdCoderMD51.Reset;       //复位
  FirstReturnedString :=IdCoderMD51.CodeString(Edit1.Text);
  IdCoderMD51.Reset;
  SecondReturnedString:=IdCoderMD51.CodeString(Edit2.Text);
  if FirstReturnedString=SecondReturnedString then
    ShowMessage('密码成功');
  ShowMessage(FirstReturnedString);
  ShowMessage(SecondReturnedString);
end;

Answer 2

可以去这里看一看，有完整的演示代码，绝对实用：
http://www.aslike.net