main_unit.pas

sql inject HDSI3--delphi.rar

//HDSI 3 的完整源代码.
//作者 教主  QQ：2005022   www.Jiaozhu.net
//本代码可以任意分发和修改，但是请记得保留本段注释版权信息.
//希望有心人士能够将此程序修改得更加的完善.记得送我一份哦.



unit Main_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus,  ImgList,  ComCtrls, ExtCtrls,StdCtrls,
  WinSkinData, ScktComp, HttpProt, ADODB, DB,
  Psock, NMHttp,  Spin, Grids, DBGrids, CheckLst, Buttons,
  OleCtrls, SHDocVw, {FileCtrl,}MSHTML,CJdatabase_unit,define_unit,
 IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,thread_Unit3,nb_sqlScript,
  IdHTTP,  ShellAPI, FileCtrl,
  UnitCmd,mylistdir_unit,IniFiles,httpgetthr,Thread_Reg,thread_sclin,
  ThreadDBUser,db_select,ThreadDBName,ThreadColumn,ThreadRecData,ThreadHttpGet,Registry,ThreadDBSelect,
  ThreadCanMult,ThreadUserPower,ThreadErrorDBName,ThreadErrorDBUser,ThreadErrorTable,ThreadACCTab,
   winsock,ThreadErrorDBSelect,php_threadback,ThreadErrorColumn,ThreadACCCol,StrUtils,ThreadRecDataACC,
  SUIURLLabel, RzTabs,Wininet,Unit_update,ThreadGetWebDomains;
  procedure GetSiteThread(P1: Pointer);
type
  TForm_main = class(TForm)

    Panel1: TPanel;
    GroupBox2: TGroupBox;
    GroupBox1: TGroupBox;
    GroupBox3: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    NMHTTP1: TNMHTTP;
    wb: TWebBrowser;
    SaveDialog1: TSaveDialog;
    ADOTable1: TADOTable;
    ADOQuery2: TADOQuery;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    HttpCli1: THttpCli;
    RzPageControl1: TRzPageControl;
    t1: TRzTabSheet;
    GroupBox4: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    suiEdit_multi: TEdit;
    suiEdit_sub: TEdit;
    suiEdit_user: TEdit;
    suiEdit_power: TEdit;
    suiEdit_dbname: TEdit;
    suiButton_select: TButton;
    GroupBox6: TGroupBox;
    suiRadioButton_report: TRadioButton;
    suiRadioButton_notReport: TRadioButton;
    suiRadioButton_access: TRadioButton;
    GroupBox7: TGroupBox;
    ListView_table: TListView;
    GroupBox8: TGroupBox;
    ListView_column: TListView;
    GroupBox9: TGroupBox;
    ListView_record: TListView;
    suiButton_table: TButton;
    suiButton_stop_table: TButton;
    suiButton_table_export: TButton;
    suiButton_column: TButton;
    suiButton_stop_column: TButton;
    suiButton_del_column: TButton;
    suiButton_column_export: TButton;
    suiButton_record: TButton;
    suiButton_stop_record: TButton;
    suiButton_data_export: TButton;
    suiEdit_add_table: TEdit;
    suiEdit_add_num: TEdit;
    suiButton_add_table: TButton;
    t2: TRzTabSheet;
    t3: TRzTabSheet;
    GroupBox15: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    txtDir: TEdit;
    txtTable: TEdit;
    btListDir: TButton;
    BitBtn1: TButton;
    GroupBox16: TGroupBox;
    lisResult: TListView;
    t4: TRzTabSheet;
    GroupBox18: TGroupBox;
    MemoResult: TMemo;
    t5: TRzTabSheet;
    Label13: TLabel;
    GroupBox19: TGroupBox;
    Label12: TLabel;
    suiComboBox1_url: TComboBox;
    suiButton_scan: TButton;
    suiButton_scan_stop: TButton;
    GroupBox20: TGroupBox;
    ListBoxMen: TListBox;
    GroupBox21: TGroupBox;
    ListBoxMRe: TListBox;
    suiEdit1_urlin: TEdit;
    btInject: TButton;
    t6: TRzTabSheet;
    Label20: TLabel;
    GroupBox22: TGroupBox;
    Label14: TLabel;
    ScanURL: TComboBox;
    StartButton: TButton;
    ReloadButton: TButton;
    GroupBox23: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    door_check: TCheckBox;
    Memo1_Addr: TListBox;
    GroupBox24: TGroupBox;
    Memo2_Addr: TListBox;
    SelectURL: TEdit;
    VisitButton: TButton;
    t7: TRzTabSheet;
    t8: TRzTabSheet;
    GroupBox25: TGroupBox;
    Label21: TLabel;
    btPing: TSpeedButton;
    btQuery: TSpeedButton;
    SiteName: TEdit;
    IPaddress: TEdit;
    CBox: TCheckBox;
    AddPage: TComboBox;
    GroupBox26: TGroupBox;
    Label22: TLabel;
    BtOpen: TSpeedButton;
    GoForward: TSpeedButton;
    GoBack: TSpeedButton;
    SpeedButton1: TSpeedButton;
    URL: TEdit;
    BtUp: TBitBtn;
    BtDown: TBitBtn;
    t9: TRzTabSheet;
    t10: TRzTabSheet;
    t11: TRzTabSheet;
    GroupBox30: TGroupBox;
    Label25: TLabel;
    Label26: TLabel;
    txtHost: TEdit;
    txtPort: TEdit;
    btPoxryOk: TButton;
    btDispose: TButton;
    t12: TRzTabSheet;
    t13: TRzTabSheet;
    GroupBox32: TGroupBox;
    Image1: TImage;
    PageControl2: TPageControl;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox10: TGroupBox;
    Label34: TLabel;
    btOk: TButton;
    btName: TButton;
    radioDos: TRadioButton;
    radioSql: TRadioButton;
    GroupBox13: TGroupBox;
    btExc: TButton;
    GroupBox14: TGroupBox;
    GroupBox27: TGroupBox;
    Label23: TLabel;
    txtUrlt: TEdit;
    ComboBoxType: TComboBox;
    GroupBox28: TGroupBox;
    DBGridShell: TDBGrid;
    GroupBox29: TGroupBox;
    Label30: TLabel;
    Edit12: TEdit;
    Label31: TLabel;
    Edit13: TEdit;
    GroupBox31: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button24: TButton;
    GroupBox34: TGroupBox;
    ListBox2: TListBox;
    Edit_record: TEdit;
    GroupBox12: TGroupBox;
    ListViewReuslt: TListView;
    listRegP: TComboBox;
    txtRoute: TEdit;
    txtValue: TEdit;
    ListReg: TListView;
    btStopReg: TButton;
    Label35: TLabel;
    Label28: TLabel;
    txtName: TEdit;
    Label27: TLabel;
    txtPws: TEdit;
    txtMen: TEdit;
    btUpdate: TButton;
    btAdd: TButton;
    btDelete: TButton;
    btSearch: TButton;
    Label2: TLabel;
    suiComboBox2_url: TComboBox;
    Edit_keyword: TEdit;
    Label32: TLabel;
    Edit3: TEdit;
    Label33: TLabel;
    Edit1: TEdit;
    CheckProxy: TCheckBox;
    txtZh: TEdit;
    Label36: TLabel;
    Label37: TLabel;
    txtMm: TEdit;
    txtCmd: TComboBox;
    GroupBox33: TGroupBox;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    strTimeOut: TComboBox;
    GroupBox35: TGroupBox;
    Label41: TLabel;
    Label42: TLabel;
    suiURLLabel3: TsuiURLLabel;
    Label43: TLabel;
    suiURLLabel4: TsuiURLLabel;
    GroupBox36: TGroupBox;
    MemoLink: TMemo;
    Label46: TLabel;
    txtCurl: TEdit;
    Button14: TButton;
    Panel2: TPanel;
    Label1: TLabel;
    suiURLLabel1: TsuiURLLabel;
    Animate1: TAnimate;
    Ani: TAnimate;
    ProgressBar: TProgressBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Web: TWebBrowser;
    TabSheet4: TTabSheet;
    NesStart: TSpeedButton;
    StartScan: TSpeedButton;
    OotResult: TSpeedButton;
    GroupBox11: TGroupBox;
    LoadSite: TSpeedButton;
    LoadOutSite: TSpeedButton;
    InsertSite: TSpeedButton;
    SaveSite: TSpeedButton;
    Lsb_Site: TListBox;
    ListView1: TListView;
    CLBox: TCheckListBox;
    TabSheet5: TTabSheet;
    OpenWebShell: TSpeedButton;
    Label47: TLabel;
    OpenW: TImage;
    GroupBox37: TGroupBox;
    ServerInfo: TMemo;
    SourceData: TGroupBox;
    LbPostPath: TLabel;
    BtUpFiles: TSpeedButton;
    FilesBrowse: TSpeedButton;
    LbASPFileName: TLabel;
    FilesB: TImage;
    LbPort: TLabel;
    LbCookies: TLabel;
    BtPaste: TSpeedButton;
    EdUpfilesPath: TEdit;
    R1_Defautl: TRadioButton;
    R2_Auto: TRadioButton;
    ASPFileName: TEdit;
    PortET: TEdit;
    CookiesData: TEdit;
    EdWebShell: TEdit;
    btHelp: TSpeedButton;
    GroupBox38: TGroupBox;
    SiteList: TListBox;
    ClientSocket1:TClientSocket;
    OpenDialog1: TOpenDialog;
    OpenAspFiles: TOpenDialog;
    Label29: TLabel;
    CheckBox_keyword: TCheckBox;
    GroupBox17: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label49: TLabel;
    txtFile: TEdit;
    txtConter: TEdit;
    btVist1: TButton;
    btUp1: TButton;
    GroupBox39: TGroupBox;
    rbcBack: TRadioButton;
    rbcPro: TRadioButton;
    ckbDle: TCheckBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    U1: TMenuItem;
    InsertPageText: TSpeedButton;
    AllSelect: TSpeedButton;
    TumSelect: TSpeedButton;
    LoadPageText: TSpeedButton;
    suiButton_check: TButton;
    Button_stop_check: TButton;
    GroupBox5: TGroupBox;
    suiRadioButton_methord1: TRadioButton;
    suiRadioButton_methord2: TRadioButton;
    suiRadioButton_methord3: TRadioButton;
    Memo_SQL: TMemo;
    Button_injection: TButton;
    Button_StopPHPCheck: TButton;
    Label51: TLabel;
    Edit_Count: TEdit;
    PageControl3: TPageControl;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    GroupBox40: TGroupBox;
    ListView_tablep: TListView;
    GroupBox41: TGroupBox;
    ListView_Columnp: TListView;
    Button_Table: TButton;
    Button_StopTable: TButton;
    Label24: TLabel;
    SpinEdit: TSpinEdit;
    Button_Column: TButton;
    Button_StopClolumn: TButton;
    Label48: TLabel;
    GroupBox42: TGroupBox;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    SpinEdit_Column_pos1: TSpinEdit;
    Edit_Column1: TEdit;
    Edit_Column2: TEdit;
    SpinEdit_Column_pos2: TSpinEdit;
    Edit_TableName: TEdit;
    Edit_where: TEdit;
    Button_php_table: TButton;
    GroupBox43: TGroupBox;
    Label58: TLabel;
    Label59: TLabel;
    Button_Loadfile: TButton;
    Edit_loadfile: TEdit;
    SpinEdit_loadfile: TSpinEdit;
    Edit_Navigate: TEdit;
    Button_forward: TButton;
    Button_backward: TButton;
    Button_Navigate: TButton;
    GroupBox44: TGroupBox;
    WebBrowser: TWebBrowser;
    GroupBox45: TGroupBox;
    RadioButton_CharType: TRadioButton;
    RadioButton_IntType: TRadioButton;
    ListBox1_php: TListBox;
    php_start: TButton;
    php_stop: TButton;
    SkinData1: TSkinData;
    ComboBox_URL: TComboBox;