unit1.pas

DELPHI MD5加密 1、 MD5String、MD5File、MD5Print、MD5Match这四个函数是供调用的。其他是用来辅助这几个函数的子函数。 2、MD5String为加密字符串。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit2, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
 I:Integer;
  j:String;
begin
   edit1.Text:=MD5Print(MD5String('554645645'));
 { for i:=0 to 100 do
  begin
   j:= sysUtils.IntToStr(i);
   if MD5Print(MD5String(j))='e4da3b7fbbce2345d7772b0674a318d5' then
   begin
     showmessage(j);
     EXIT;
   end;
  end;    }
end; 


end.