unit1.pas

md5利器压缩包解压时不能有密码压缩包解压时不能有密码不要让站长把时间都花费在为

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.