unit1.~pas

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

{-------------------------------------------
   程序制作:明小子
   使用工具:Delphi 7.0
   界面控件:Vcl_Flatstyle7
   程序版本:1.1版
   DIY于   :2004.11.16日凌晨
   联系QQ  :830540
   E-Mail  :[e-mail]
   本人主页:http://www.hackDIY.com
   欢迎光临:http://www.hack58.com  (黑客动画吧)
            http://www.socut.com   (强少爷 - 烁空网页设计 )

   *** 代码可以任意修改 转载时请保留此声明 ***
---------------------------------------------}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, Psock, NMHttp,
  TFlatSpeedButtonUnit, TFlatEditUnit, ComCtrls, ExtCtrls, TFlatPanelUnit,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  Buttons, ImgList, TFlatSplitterUnit, TFlatComboBoxUnit, TFlatCheckBoxUnit,
  CheckLst, Menus, Shellapi, Tabs, SUISideChannel, SUIListBox, Grids,
  DBGrids, SUIDBCtrls, DB, ADODB, FileCtrl, ScktComp, SUIURLLabel, winsock, ActiveX,
  md5, TFlatButtonUnit;

const
  Model = 'yyyy-mm-dd hh:nn:ss';

type
  PassType = record
    PassCode: string;
    FileType: string;
    FileTime: TDateTime;
  end;
  TForm1 = class(TForm)
    SiteList: TListBox;
    StatusBar1: TStatusBar;
    FlatPanel1: TFlatPanel;
    SiteName: TFlatEdit;
    IPaddress: TFlatEdit;
    btQuery: TFlatSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Web: TWebBrowser;
    IdHTTP1: TIdHTTP;
    Label1: TLabel;
    BtUp: TSpeedButton;
    BtDown: TSpeedButton;
    ImageList1: TImageList;
    FlatSplitter1: TFlatSplitter;
    Label2: TLabel;
    Label3: TLabel;
    URL: TFlatEdit;
    Bevel1: TBevel;
    Label4: TLabel;
    Label5: TLabel;
    BtOpen: TFlatSpeedButton;
    BtCopy: TFlatSpeedButton;
    GoForward: TFlatSpeedButton;
    GoBack: TFlatSpeedButton;
    CBox: TFlatCheckBox;
    AddPage: TFlatComboBox;
    About: TFlatSpeedButton;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    LoadSite: TSpeedButton;
    LoadOutSite: TSpeedButton;
    InsertSite: TSpeedButton;
    Lsb_Site: TListBox;
    ListView1: TListView;
    btHelp: TSpeedButton;
    RemoveProgram: TSpeedButton;
    NesStart: TSpeedButton;
    StartScan: TSpeedButton;
    OotResult: TSpeedButton;
    btClose: TSpeedButton;
    CLBox: TCheckListBox;
    LoadPageText: TFlatSpeedButton;
    TumSelect: TFlatSpeedButton;
    AllSelect: TFlatSpeedButton;
    InsertPageText: TFlatSpeedButton;
    SaveSite: TSpeedButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Ani: TAnimate;
    Label6: TLabel;
    TabSheet3: TTabSheet;
    ProgressBar1: TProgressBar;
    Edit2: TEdit;
    Edit1: TEdit;
    SaveResult: TMemo;
    GroupBox2: TGroupBox;
    ServerInfo: TMemo;
    SourceData: TGroupBox;
    EdUpfilesPath: TEdit;
    LbPostPath: TLabel;
    BtUpFiles: TSpeedButton;
    R1_Defautl: TRadioButton;
    R2_Auto: TRadioButton;
    ASPFileName: TEdit;
    FilesBrowse: TSpeedButton;
    LbASPFileName: TLabel;
    EdWebShell: TEdit;
    OpenWebShell: TSpeedButton;
    Label10: TLabel;
    FilesB: TImage;
    OpenW: TImage;
    U1: TMenuItem;
    TabSheet4: TTabSheet;
    TabSet1: TTabSet;
    FlatPanel2: TFlatPanel;
    DataPath: TEdit;
    Label11: TLabel;
    OpenAccess: TSpeedButton;
    Open_File: TOpenDialog;
    MainCon: TADOConnection;
    Exe_Sql: TADOQuery;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    suiSideChannel1: TsuiSideChannel;
    TableName: TsuiListBox;
    RzEdit1: TEdit;
    DBGrid1: TDBGrid;
    Label12: TLabel;
    CrackDataPass: TGroupBox;
    lbDataPath: TLabel;
    LbDataType: TLabel;
    LbDataPass: TLabel;
    btOpenData: TSpeedButton;
    btCrackPass: TSpeedButton;
    CreakDataPath: TEdit;
    DataType: TEdit;
    DataPass: TEdit;
    PortET: TEdit;
    LbPort: TLabel;
    LbCookies: TLabel;
    CookiesData: TEdit;
    BtPaste: TSpeedButton;
    ClientSocket1: TClientSocket;
    OpenAspFiles: TOpenDialog;
    suiURLLabel1: TsuiURLLabel;
    suiURLLabel2: TsuiURLLabel;
    suiURLLabel3: TsuiURLLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    PopupMenu2: TPopupMenu;
    O1: TMenuItem;
    PopupMenu3: TPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    PopupMenu4: TPopupMenu;
    Del1: TMenuItem;
    PopupMenu5: TPopupMenu;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    btPing: TFlatSpeedButton;
    Timer1: TTimer;
    Timer2: TTimer;
    MD5Group: TGroupBox;
    LbEncrypt_1: TLabel;
    LbEncrypt_3: TLabel;
    LbEncrypt_2: TLabel;
    EdMing: TFlatEdit;
    Encrypt_16: TFlatEdit;
    Encrypt_32: TFlatEdit;
    BtEncrypt_Paste: TFlatSpeedButton;
    BtEncrypt_Copy_1: TFlatSpeedButton;
    BtEncrypt_Copy_2: TFlatSpeedButton;
    Bt_Clear: TFlatButton;
    BtEncrypt: TFlatButton;
    EdPage: TFlatEdit;
    PopupMenu6: TPopupMenu;
    N8: TMenuItem;
    procedure btPingClick(Sender: TObject);
    procedure SiteNameKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure WebTitleChange(Sender: TObject; const Text: WideString);
    procedure btQueryClick(Sender: TObject);
    procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure BtUpClick(Sender: TObject);
    procedure BtDownClick(Sender: TObject);
    procedure WebStatusTextChange(Sender: TObject; const Text: WideString);
    procedure FormResize(Sender: TObject);
    procedure CBoxClick(Sender: TObject);
    procedure URLChange(Sender: TObject);
    procedure GoForwardClick(Sender: TObject);
    procedure GoBackClick(Sender: TObject);
    procedure LoadPageTextClick(Sender: TObject);
    procedure SiteListDblClick(Sender: TObject);
    procedure SiteListClick(Sender: TObject);
    procedure BtOpenClick(Sender: TObject);
    procedure LoadSiteClick(Sender: TObject);
    procedure StartScanClick(Sender: TObject);
    procedure LoadOutSiteClick(Sender: TObject);
    procedure SaveSiteClick(Sender: TObject);
    procedure InsertSiteClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure OotResultClick(Sender: TObject);
    procedure WebProgressChange(Sender: TObject; Progress,
      ProgressMax: Integer);
    procedure InsertPageTextClick(Sender: TObject);
    procedure AllSelectClick(Sender: TObject);
    procedure TumSelectClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure AboutClick(Sender: TObject);
    procedure URLKeyPress(Sender: TObject; var Key: Char);
    procedure ListView1Click(Sender: TObject);
    procedure NesStartClick(Sender: TObject);
    procedure BtCopyClick(Sender: TObject);
    procedure R2_AutoClick(Sender: TObject);
    procedure R1_DefautlClick(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure OpenAccessClick(Sender: TObject);
    procedure TableNameDblClick(Sender: TObject);
    procedure TabSet1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure PortETChange(Sender: TObject);
    procedure CreakDataPathChange(Sender: TObject);
    procedure btCrackPassClick(Sender: TObject);
    procedure btOpenDataClick(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure btHelpClick(Sender: TObject);
    procedure RemoveProgramClick(Sender: TObject);
    procedure BtUpFilesClick(Sender: TObject);
    procedure FilesBrowseClick(Sender: TObject);
    procedure BtPasteClick(Sender: TObject);
    procedure OpenWebShellClick(Sender: TObject);
    procedure ASPFileNameChange(Sender: TObject);
    procedure ASPFileNameKeyPress(Sender: TObject; var Key: Char);
    procedure EdWebShellChange(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure U1Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Del1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure SiteListMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Lsb_SiteMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N7Click(Sender: TObject);
    procedure CLBoxMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure CLBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SiteListMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Lsb_SiteMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FlatPanel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TabSheet2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PageControl1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure IPaddressKeyPress(Sender: TObject; var Key: Char);
    procedure IPaddressMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SiteNameMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure btQueryMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BtEncrypt_PasteClick(Sender: TObject);
    procedure BtEncrypt_Copy_1Click(Sender: TObject);
    procedure BtEncrypt_Copy_2Click(Sender: TObject);
    procedure Bt_ClearClick(Sender: TObject);
    procedure BtEncryptClick(Sender: TObject);
    procedure EdPageKeyPress(Sender: TObject; var Key: Char);
    procedure EdPageMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N8Click(Sender: TObject);
  private
    FlagOpen: integer;
    DateStr: DWord;
    PassCode: WideString;
    EncodeArray: array[0..19] of Word;
    ReaderArray: array[0..19] of Word;
    function ExecFile(FName: string): PassType;
    function CreateShellCode: string;
    function GetFileMemo: string;
    function Rep: string;
    procedure ExecDirectory(S: string);
    procedure ProException(Sender: TObject; E: Exception);
  public
    FileBox1: TFileListBox;
  end;

var
  InhereCode: array[0..9] of Word =
  ($37EC, $FA9C, $E628, $608A, $367B, $B1DF, $4313, $33B1, $5B79, $2A7C);
  UserCode8: array[0..9] of Word = //89年9月17日前
  ($8B86, $345D, $2EC6, $C613, $E454, $02F5, $8477, $DFCF, $1134, $C592);
  UserCode: array[0..9] of Word = //89年9月17日后
  ($7B86, $C45D, $DEC6, $3613, $1454, $F2F5, $7477, $2FCF, $E134, $3592);
  InCode97: array[0..19] of byte = //Access 97 固定密钥
  ($86, $FB, $EC, $37, $5D, $44, $9C, $FA, $C6, $5E,
    $28, $E6, $13, $00, $00, $00, $00, $00, $00, $00);

var
  Form1: TForm1;
  HTMLCode: string; //储蓄获取到的HTML代码
  RecQueryPage: integer = 1; //记录当前页面
  SendData: string;
  SearchPage: tstrings;
  TempSearch: string;
  TempSearch2: string;
  S_1: TStrings;
  Flag_Search: integer = 0;
  FlagSiteSum: integer = 0;
  FlagOpen2: integer = 0;
  FiagClick: integer;
const
  DBPra1 = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
  DBPra2 = ';Persist Security Info=False;Jet OLEDB:Database Password=';
implementation

uses Unit2;

{$R *.dfm}

function SearchUP: string; //上传页面函数
var
  P1: integer;
begin
  S_1 := TStringList.Create;
  S_1.LoadFromFile(ExtractFilePath(Application.ExeName) + 'SearchPage.txt');
  P1 := Pos('[ADMIN_LOGIN]', S_1.Text);
  Result := Copy(S_1.Text, 0, P1 - 1);
end;

procedure CreateTxt;
var
  CreateText: TStrings;
begin
  CreateText := TStringList.Create;
  CreateText.Add('/bbs/upfile.asp');
  CreateText.Add('/data/dvbbs7.mdb');
  CreateText.Add('/databackup/dvbbs7.mdb');
  CreateText.Add('/upfile.asp');
  CreateText.Add('/bbs/down_addsoft.asp');
  CreateText.Add('/inc/conn.asp');
  CreateText.Add('/data/qcdn_news.mdb');
  CreateText.Add('/friend.mdb');
  CreateText.Add('/db/6k.mdb');
  CreateText.Add('/databackup/dvbbs6.mdb');
  CreateText.Add('/databackup/dvbbs5.mdb');
  CreateText.Add('/databackup/#dvbbs7.asp');