?? unit1.pas

?? 明小子旁注Domain3.0和Domain2.2兩個版本源碼
?? PAS
?? 第 1 頁 / 共 5 頁
字號:
12 3 4 5 下一頁
{-------------------------------------------
   程序制作:明小子
   使用工具:Delphi 7.0
   界面控件:Vcl_Flatstyle7
   程序版本:1.1版
   DIY于   :2004.11.16日凌晨
   聯系QQ  :830540
   E-Mail  :zsmv@163.com
   本人主頁: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');
12 3 4 5 下一頁
?? 文件大小 459 K
?? 上傳用戶 foreverNewcomer
?? 所屬分類其他
??? 相關標簽

#Domain #3.0 #2.2 #版本
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit1.pas

?? 快捷鍵說明
