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

unit UtGetUN;

interface

uses
  Classes,SysUtils;

type
  TGetUn = class(TThread)
  private
    { Private declarations }
  protected
    rs:string;
    procedure Execute; override;
  public
    constructor Create(rss:string);
    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 TGetUn.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TGetUn }

Constructor TGetUn.create(rss:string);
begin
   rs:=rss;
   inherited Create(false);
end;

destructor TGetUn.Destroy;
begin
  inherited Destroy;
end;

procedure TGetUn.Execute;
var
i:integer;
UserName:string;
TF:TextFile;
begin
  freeonterminate:=true;
  Assign(TF,'Username.txt');
  if not FileExists('Username.txt') then
    Rewrite(TF)
  else
    Append(TF);
  i:=pos('menu=viewuser&username=',rs);
  while i>1 do
  begin
    delete(rs,1,i+Length('menu=viewuser&username=')-1);
    i:=pos(''')>',rs);
    Username:=copy(rs,1,i-1);
    writeln(TF,Username);
    FmMain.Memo1.Lines.Add(Username);
    i:=pos('menu=viewuser&username=',rs);
  end;
  closeFile(tf);
  Destroy;
  { Place thread code here }
end;

end