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

{===============================}
{          by Lanyus            }
{         QQ:231221             }
{  E-Mail:greathjw [at] 163.com }
{===============================}

unit UtMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, IdBaseComponent, IdComponent, UtStart,
  IdCookieManager, ScktComp, IdTCPConnection, IdTCPClient, IdHTTP,UtStartGetPW;
  //IdTCPConnection, IdTCPClient, IdHTTP, ScktComp, UtgETun, IdCookieManager,IdHeaderList;

type
  TFmMain = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Memo1: TMemo;
    IdP: TIdHTTP;
    Memo2: TMemo;
    IdCookieManager1: TIdCookieManager;
    BitBtn3: TBitBtn;
    Memo3: TMemo;
    TabSheet2: TTabSheet;
    BitBtn2: TBitBtn;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn4: TBitBtn;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit2: TEdit;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    TST:TStartGetPW;
    { Private declarations }
  public
    { Public declarations }
  end;

const
  MAX_Thread_NO=6;  //最大线程数

var
  FmMain: TFmMain;
  Pages:integer=0;
  rs:string;
  Start:array[0..MAX_Thread_NO] of TStart;

implementation

{$R *.dfm}

procedure TFmMain.BitBtn3Click(Sender: TObject);
  VAR
  rs:string;
  i:integer;
begin
  BitBtn1.Enabled:=True;
  Start[0]:=TStart.Create(1,500);
  Start[1]:=TStart.Create(501,1000);
  Start[2]:=TStart.Create(1001,1500);
  Start[3]:=TStart.Create(1501,2000);
  Start[4]:=TStart.Create(2001,2500);
  Start[5]:=TStart.Create(2501,3000);
  Start[6]:=TStart.Create(3001,3464);
end;

procedure TFmMain.BitBtn2Click(Sender: TObject);
var
UNList:TstringList;
begin
  tst:=TStartGetPW.create(false);
end;

procedure TFmMain.BitBtn1Click(Sender: TObject);    //读取用户暂停
var
i:integer;
begin
  for i:=0 to MAX_Thread_NO do
  begin
    if Start[i].Suspended then
    begin
      BitBtn1.Caption:='暂停';
      start[i].Resume;
    end
    else
    begin
      BitBtn1.Caption:='继续';
      Start[i].Suspend;
    end;
  end;
end;

procedure TFmMain.FormCreate(Sender: TObject);
var
i:integer;
begin
  for i:=0 to ComponentCount-1 do
  begin
    if Components[i] is TMemo then TMemo(Components[i]).Clear;
  end;
end;

procedure TFmMain.BitBtn4Click(Sender: TObject);
var
i:integer;
begin
  if tst.Suspended then
  begin
    BitBtn4.Caption:='暂停';
    tst.Resume;
  end
  else
  begin
    BitBtn4.Caption:='继续';
    tst.Suspend;
  end;
end;

end.

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