{##########################################
         旁注入侵專用程序 3.0升級版
 ----------------------------------------
  模塊：SQL注入檢測 - 掃描后臺地址
  描述：該單元為掃描后臺地址的多線程單元
  作者：2005.3.31日晚上  明小子
##########################################}

unit ScanLogin;

interface

uses
  Classes, CheckUrlAddr, SysUtils, CheckLst, StdCtrls, Windows, Messages, ComCtrls;

type
  ScanAdminLogin = class(TThread)
  private
    Th_Num: integer;
    Th_ChkLsb: TCheckListBox;
    Th_Lsb: TListBox;
    Th_Lsv: TListView;
    Th_Url: string; {檢測地址}
    Th_Count: integer; {線程的數量}
    ifor: integer;
    Link: string;
    procedure ShowLinkLsv;
    procedure ShowLinkLsb;
  protected
    procedure Execute; override;
  public
    constructor Create(Num: integer; Url: string; ThCount: integer; ChkLsb: TCheckListBox; Lsb: TListBox; Lsv: TListView);
  end;

implementation

uses MainUnit;

constructor ScanAdminLogin.Create(Num: integer; Url: string; ThCount: integer; ChkLsb: TCheckListBox; Lsb: TListBox; Lsv: TListView);
begin
  Th_Num := Num; {記錄值}
  Th_Url := Url; {檢測的地址}
  Th_ChkLsb := ChkLsb; {檢測的頁面}
  Th_Count := ThCount; {線程的數量}
  Th_Lsb := Lsb; {顯示檢測結果}
  Th_Lsv := Lsv; {保存存在路徑}
  FreeOnTerminate := True;
  inherited Create(False);
end;

procedure ScanAdminLogin.ShowLinkLsb;
begin
  Link := Th_Url + Th_ChkLsb.Items[ifor];
  Th_Lsb.Items.Add(Link);
  Th_Lsb.Perform(WM_VSCROLL, SB_Bottom, 0);
  MainForm.RzGroupBox18.Caption := '已檢測連接:' + inttostr(Th_Lsb.Items.Count) + '條';
end;

procedure ScanAdminLogin.ShowLinkLsv;
begin
  with Th_Lsv.Items.Add do
  begin
    Caption := Link;
    SubItems.Add('存在 - ' + inttostr(Th_Lsv.Items.Count));
  end;
end;

procedure ScanAdminLogin.Execute;
var
  i: integer;
  Res, AVG, Count: integer;
begin
  Count := Th_ChkLsb.Items.Count; {檢測頁面的數量}

  if (Count mod Th_Count) = 0 then
    AVG := (Count div Th_Count)
  else
    AVG := (Count div Th_Count) + 1;

  for i := (Th_Num * AVG) - AVG to (Th_Num * AVG) - 1 do {線程分塊檢測}
  begin
    if Terminated then Exit;
    if i >= Count then Exit;
    ifor := i;
    if Th_ChkLsb.Checked[i] then
    begin
      Synchronize(ShowLinkLsb);
      if CheckUrl(Link, 10000) then
      begin
        Synchronize(ShowLinkLsv);
      end;
    end;
    sleep(50);
  end;

end;
end.