unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls,IdHashMessageDigest,IdGlobal, IdHash,shellapi, GIFImage,
  ExtCtrls, WinSkinData;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    IdHTTP1: TIdHTTP;
    Image1: TImage;
    SkinData1: TSkinData;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Edit1DblClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Edit3Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Edit4Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
  a,b:string;
begin
  a:=Trim(Edit1.text);
  b:='http://www.cmd5.com/getmd5api.aspx?q='+a;
  if (length(a)=32) or (length(a)=16) then
    edit4.Text :=idhttp1.Get(b)
  else
    edit4.Text :='錯誤的md5字符串';
  // memo1.Text :=inttostr(length(a));
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
    ShellExecute(handle,'','http://www.ling72.net','','',SW_NORMAL);
end;


procedure TForm1.Edit1DblClick(Sender: TObject);
begin
  edit1.Text :='';
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
  MyMD5: TIdHashMessageDigest5;
  Digest: T4x4LongWordRecord;
  a:string;
begin
  MyMD5 := TIdHashMessageDigest5.Create;
  Digest := MyMD5.HashValue(edit1.text);
  edit2.Text :=  MyMD5.AsHex(Digest);
  edit3.Text :=  Copy(MyMD5.AsHex(Digest), 9, 16);

  //a:= '> 32位MD5：'+  MyMD5.AsHex(Digest) + #13#10#13#10 +'> 16位MD5：'+
  //      Copy(MyMD5.AsHex(Digest), 9, 16);
 // memo1.text:=a;
end;


procedure TForm1.Edit1Click(Sender: TObject);
begin
edit1.SelectAll ;
end;

procedure TForm1.Edit3Click(Sender: TObject);
begin
  edit3.CopyToClipboard ;
  edit3.SelectAll ;
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
edit2.CopyToClipboard ;
edit2.SelectAll ;
end;

procedure TForm1.Edit4Click(Sender: TObject);
begin
  edit4.CopyToClipboard ;
  edit4.SelectAll ;
end;

end.