mainunit.pas

明小子旁注Domain3.0和Domain2.2两个版本源码

{=======================================================}
{             旁注入侵专用程序3.0 升级版                }
{                                                       }
{    版权所有 (c) 2005     明小子 QQ:830540             }
{                                                       }
{    作者主页：http://www.hackdiy.com                   }
{                                                       }
{  程序前身Domain2.2,于2005.2.27重新写代码，并升级开发! }
{=======================================================}

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ComCtrls, StdCtrls, ExtCtrls, Buttons, OleCtrls, SHDocVw,

  MSHTML, Shellapi, ActiveX, WinSock, Dialogs, ComOBJ, WebScaninject,
  ScanUpFile, Scaninject, ScanContent, ScanDirFile, ScanLinks, MSSQLScanContent,

  RzShellDialogs, RzCommon, WinSkinData, IdBaseComponent, IdAntiFreezeBase,
  IdAntiFreeze, Menus, DB, ADODB, Grids, ImgList, ScktComp, Gauges,
  RzStatus, RzPanel, RzBckgnd, DBGrids, ToolWin, Spin, RzLabel, RzButton,
  Mask, RzEdit, RzBtnEdt, CheckLst, RzLstBox, RzSplit, RzTabs;

type
  TMainForm = class(TForm)
    ClientSocket1: TClientSocket;
    MainPageControl: TRzPageControl;
    TabSheet14: TRzTabSheet;
    TabSheet15: TRzTabSheet;
    TabSheet16: TRzTabSheet;
    TabSheet17: TRzTabSheet;
    TabSheet18: TRzTabSheet;
    TabSheet20: TRzTabSheet;
    TabSheet21: TRzTabSheet;
    TabSheet22: TRzTabSheet;
    ControlPanel: TPanel;
    LbSetUrl: TLabel;
    LbUrlPath: TLabel;
    LbCookies: TLabel;
    btnUpPage: TSpeedButton;
    btnDownPage: TSpeedButton;
    LbCount: TLabel;
    SpBtnGetIP: TSpeedButton;
    LbPageShow: TLabel;
    LbAlexa: TLabel;
    LbPage: TLabel;
    EdURL: TEdit;
    btnGoBack: TButton;
    btnGoForward: TButton;
    btnRefresh: TButton;
    EdIP: TEdit;
    BtnConnect: TButton;
    btnChange: TButton;
    PageControl2: TPageControl;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    ListView1: TListView;
    ClbPage: TCheckListBox;
    BtnInsert: TButton;
    BtnAllSelect: TButton;
    btnReverse: TButton;
    btnLoadFile: TButton;
    ImageList1: TImageList;
    EdSite: TEdit;
    SiteList: TRzListBox;
    StatusBar1: TRzStatusBar;
    Pane1: TRzStatusPane;
    Up_GBType: TRzGroupBox;
    RdCustom: TRadioButton;
    Rd_Joekoe: TRadioButton;
    Rd_FreePower: TRadioButton;
    Rd_Dvbbs: TRadioButton;
    LbUpinfo: TLabel;
    RdCustomASP: TRadioButton;
    RdDefault: TRadioButton;
    LbPostAddr: TLabel;
    EdPostAddr: TEdit;
    LbHint: TLabel;
    btnUpFile: TButton;
    AspFilePath: TRzButtonEdit;
    EdtCookies: TEdit;
    BtnPaste: TButton;
    Up_LbFileName: TLabel;
    Up_LbCookies: TLabel;
    Up_GBInfo: TRzGroupBox;
    EdShellPath: TEdit;
    LbShellAddr: TLabel;
    Memoinfo: TMemo;
    GBWaitScanLst: TRzGroupBox;
    btnLoadScanSite: TSpeedButton;
    btnInsertSite: TSpeedButton;
    btnLoadTxtSite: TSpeedButton;
    btnSaveSite: TSpeedButton;
    ControlMenu: TPopupMenu;
    OpenMenuItem: TMenuItem;
    CopyMenuItem: TMenuItem;
    UpMenuItem: TMenuItem;
    ReadLink_Panel: TPanel;
    SQLMenu: TPopupMenu;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    Data_Panel: TPanel;
    TableTree: TTreeView;
    FieldsTree: TTreeView;
    DBGrid1: TDBGrid;
    TableTreeMenu: TPopupMenu;
    N44: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N45: TMenuItem;
    DataSource1: TDataSource;
    DataImageList1: TImageList;
    DataImageList2: TImageList;
    ToolsMenu: TPopupMenu;
    MenuItem59: TMenuItem;
    MenuItem60: TMenuItem;
    MenuItem61: TMenuItem;
    ADOCon: TADOConnection;
    ADOQuery1: TADOQuery;
    ViewStyle: TPopupMenu;
    MenuItem62: TMenuItem;
    MenuItem63: TMenuItem;
    MenuItem64: TMenuItem;
    N56: TMenuItem;
    DBGridMenu: TPopupMenu;
    Data_DelRec: TMenuItem;
    N51: TMenuItem;
    ChkShowDataForm: TMenuItem;
    DataMainMenu1: TMainMenu;
    FileMenu: TMenuItem;
    NewDataMenu: TMenuItem;
    OepnDataMenuItem: TMenuItem;
    DataPostMenu: TMenuItem;
    CompressDataMenu: TMenuItem;
    DataCloseMenu: TMenuItem;
    MenuItem6: TMenuItem;
    N29: TMenuItem;
    N43: TMenuItem;
    N28: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N24: TMenuItem;
    AppendRecMenu: TMenuItem;
    InsertRecMenu: TMenuItem;
    DelRecMenu: TMenuItem;
    N52: TMenuItem;
    SetPassMenu: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N41: TMenuItem;
    N40: TMenuItem;
    MenuItem7: TMenuItem;
    CalcMenu: TMenuItem;
    MD5Menu: TMenuItem;
    CrackAccMenu: TMenuItem;
    MenuItem8: TMenuItem;
    N31: TMenuItem;
    Gauge1: TGauge;
    RzStatusPane1: TRzStatusPane;
    Splitter2: TSplitter;
    SqlSiteList: TRzListBox;
    ScanInject_Panel: TPanel;
    RzGroupBox5: TRzGroupBox;
    btnAddSite: TButton;
    btnLoadSqlSite: TButton;
    btnOpenSqlSite: TButton;
    RzGroupBox6: TRzGroupBox;
    sqlListView: TListView;
    Splitter1: TSplitter;
    EdCopyUrl: TEdit;
    btnStartScan: TSpeedButton;
    btnSuspendScan: TSpeedButton;
    btnNewScan: TSpeedButton;
    btnSaveResult: TSpeedButton;
    GbShowPageCount: TRzGroupBox;
    RabAdminLogin: TRadioButton;
    RabUpFile: TRadioButton;
    btnQuery: TSpeedButton;
    Timer1: TTimer;
    RzSeparator1: TRzSeparator;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    IdAntiFreeze1: TIdAntiFreeze;
    sql_Scanject: TMenuItem;
    sql_OpenUrl: TMenuItem;
    sqlControlMenu: TPopupMenu;
    ClearSiteMenu: TMenuItem;
    DelSiteMenu: TMenuItem;
    ModSiteMenu: TMenuItem;
    RzGroupBox8: TRzGroupBox;
    ChkCookies: TCheckBox;
    ChkAlexa: TCheckBox;
    Chkinject: TCheckBox;
    RabDefaultData: TRadioButton;
    LbShowprogress: TLabel;
    ADOQuery2: TADOQuery;
    ADOConSetData: TADOConnection;
    DataSource2: TDataSource;
    DelWaitScanMemu: TPopupMenu;
    DelUrlMenu: TMenuItem;
    Sql_Panel: TPanel;
    Label18: TLabel;
    RzGroupBox4: TRzGroupBox;
    TableNameLst: TListBox;
    RzGroupBox7: TRzGroupBox;
    RzGroupBox10: TRzGroupBox;
    Sql_GuessCon: TSpeedButton;
    BtnAddTable: TSpeedButton;
    Sql_GuessField: TSpeedButton;
    BtnAddField: TSpeedButton;
    Label19: TLabel;
    sqlEdTop: TEdit;
    ScanLogin_Panel: TPanel;
    Label21: TLabel;
    SqlScanLogin: TSpeedButton;
    RzGroupBox15: TRzGroupBox;
    RzToolbar2: TRzToolbar;
    Sql_NewScan: TSpeedButton;
    SqlSetUp_Panel: TPanel;
    GroupBox2: TGroupBox;
    ChkBoxField: TCheckListBox;
    GroupBox1: TGroupBox;
    ChkBoxTable: TCheckListBox;
    GroupBox3: TGroupBox;
    ChkBoxAdminLogin: TCheckListBox;
    btnAddTableName: TSpeedButton;
    btnDelTableName: TSpeedButton;
    btnAllSelectTable: TSpeedButton;
    btnOpposiTable: TSpeedButton;
    btnOpposiField: TSpeedButton;
    btnAllSelectField: TSpeedButton;
    btnDelFieldName: TSpeedButton;
    btnAddFieldName: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Label22: TLabel;
    Label23: TLabel;
    TabSheet3: TTabSheet;
    BtnScanOtherSite: TButton;
    EdOtherSite: TEdit;
    LbOtherSite: TLabel;
    LbDirFile: TLabel;
    EdDirSite: TEdit;
    N46: TMenuItem;
    N57: TMenuItem;
    BtnDirSetup: TSpeedButton;
    DirListView: TListView;
    LvOtherSite: TListView;
    OtherSiteMenu: TPopupMenu;
    N58: TMenuItem;
    N59: TMenuItem;
    DirFileMenu: TPopupMenu;
    MenuItem3: TMenuItem;
    MenuItem9: TMenuItem;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Label12: TLabel;
    Label14: TLabel;
    Up_GBSet: TRzGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    RzLabel1: TRzLabel;
    Label11: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    LbHack58Links: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Bevel2: TBevel;
    Label40: TLabel;
    Bevel3: TBevel;
    Button5: TButton;
    Button4: TButton;
    Button9: TButton;
    GroupBox4: TGroupBox;
    RadPath: TRadioButton;
    RadFileName: TRadioButton;
    ComBoxType: TComboBox;
    EdPathField: TEdit;
    EdFileField: TEdit;
    Label36: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    GBPower: TGroupBox;
    RadPower1: TRadioButton;
    RadPower2: TRadioButton;
    BtnOpenShell: TSpeedButton;
    Label44: TLabel;
    Label45: TLabel;
    Label47: TLabel;
    Button10: TButton;
    TrackBar1: TTrackBar;
    Label48: TLabel;
    SkinData1: TSkinData;
    RzGroupBox1: TRzGroupBox;
    Label49: TLabel;
    SkinEdit: TRzButtonEdit;
    Bevel1: TBevel;
    Button8: TButton;
    Button11: TButton;
    ADOSkin: TADOQuery;
    RzSplitter1: TRzSplitter;
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Label6: TLabel;
    RadioButton9: TRadioButton;
    RadioButton11: TRadioButton;
    RzMenuController1: TRzMenuController;
    TbrMain: TRzToolbar;
    BtnFrames: TRzToolButton;
    BtnComboBoxes: TRzToolButton;
    BtnEdits: TRzToolButton;
    BtnTabs: TRzToolButton;
    BtnWelcome: TRzToolButton;
    OpenFile: TRzOpenDialog;
    SaveFile: TRzSaveDialog;
    Label15: TLabel;
    Label17: TLabel;
    Sql_AboutPanel: TPanel;
    RzGroupBox2: TRzGroupBox;
    Label52: TLabel;
    Label46: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label53: TLabel;
    RzGroupBox3: TRzGroupBox;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    RzLabel2: TRzLabel;
    RzGroupBox9: TRzGroupBox;
    Label41: TLabel;
    Label57: TLabel;
    RzGroupBox16: TRzGroupBox;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    BtnScanDirFile: TSpeedButton;
    RzGroupBox17: TRzGroupBox;
    ScanMemo: TMemo;
    sql_Suspend: TSpeedButton;
    sql_Stop: TSpeedButton;
    btnReadinject: TSpeedButton;
    N4: TMenuItem;
    ScanListBox: TRzListBox;
    Sql_AddUrlMenu: TMenuItem;