unit4.pas

利用delphi编写的密码生成器！与大家分享交流 ！

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TForm4=class(TForm)
    Image1: TImage;
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    UpDown1: TUpDown;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    OFFS_0328: N.A.;
    OFFS_032C: N.A.;
    OFFS_0330: N.A.;
    procedure Timer1Timer(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure BitBtn2Click(Sender : TObject);
    procedure Edit1KeyPress(Sender : TObject);
    procedure UpDown1Click(Sender : TObject);
    procedure Edit2KeyPress(Sender : TObject);
    procedure _PROC_00494670(Sender : TObject);
    procedure _PROC_00494A65(Sender : TObject);
    procedure _PROC_00494A94(Sender : TObject);
    procedure _PROC_00494A9C(Sender : TObject);
    procedure _PROC_00494B02(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form4: TForm4;

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

implementation

{$R *.DFM}

procedure TForm4.Timer1Timer(Sender : TObject);
begin
(*
004945F8   53                     push    ebx
004945F9   8BD8                   mov     ebx, eax

* Reference to control TForm4.ProgressBar1 : TProgressBar
|
004945FB   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: ComCtrls.TProgressBar.GetPosition(TProgressBar):Integer;
|
00494601   E8CE1CFAFF             call    004362D4
00494606   83F864                 cmp     eax, +$64
00494609   7558                   jnz     00494663
0049460B   33D2                   xor     edx, edx

* Reference to control TForm4.Timer1 : TTimer
|
0049460D   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);
|
00494613   E85CB1F9FF             call    0042F774
00494618   33D2                   xor     edx, edx

* Reference to control TForm4.Label3 : TLabel
|
0049461A   8B8320030000           mov     eax, [ebx+$0320]

* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
00494620   E85B10FBFF             call    00445680
00494625   33D2                   xor     edx, edx

* Reference to control TForm4.ProgressBar1 : TProgressBar
|
00494627   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: ComCtrls.TProgressBar.SetPosition(TProgressBar;Integer);
|
0049462D   E8521EFAFF             call    00436484

* Reference to field TForm4.OFFS_0324
|
00494632   83BB2403000001         cmp     dword ptr [ebx+$0324], +$01
00494639   7D17                   jnl     00494652
0049463B   6A00                   push    $00
0049463D   668B0D70464900         mov     cx, word ptr [$00494670]
00494644   B202                   mov     dl, $02

* Possible String Reference to: '密码错误'
|
00494646   B87C464900             mov     eax, $0049467C

|
0049464B   E8BC8DF9FF             call    0042D40C
00494650   5B                     pop     ebx
00494651   C3                     ret


* Reference to TForm7 instance
|
00494652   A11C8A4900             mov     eax, dword ptr [$00498A1C]
00494657   8B00                   mov     eax, [eax]
00494659   8B10                   mov     edx, [eax]

* Reference to method TForm7.ShowModal()
|
0049465B   FF92EC000000           call    dword ptr [edx+$00EC]
00494661   EB0B                   jmp     0049466E

* Reference to control SpeedButton1 : N.A.
|
00494663   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: ComCtrls.TProgressBar.StepIt(TProgressBar);
|
00494669   E89E1EFAFF             call    0043650C
0049466E   5B                     pop     ebx
0049466F   C3                     ret

*)
end;

procedure TForm4.FormShow(Sender : TObject);
begin
(*
00494688   53                     push    ebx
00494689   8BD8                   mov     ebx, eax

* Reference to pointer to GlobalVar_00499CD8
|
0049468B   A168894900             mov     eax, dword ptr [$00498968]
00494690   8A00                   mov     al, byte ptr [eax]
00494692   2C31                   sub     al, $31
00494694   740A                   jz      004946A0
00494696   FEC8                   dec     al
00494698   7414                   jz      004946AE
0049469A   FEC8                   dec     al
0049469C   741E                   jz      004946BC
0049469E   EB28                   jmp     004946C8

* Possible String Reference to: '特别会员区：一码中特'
|
004946A0   BA34474900             mov     edx, $00494734
004946A5   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004946A7   E8E410FBFF             call    00445790
004946AC   EB1A                   jmp     004946C8

* Possible String Reference to: '白金会员区：一肖中特'
|
004946AE   BA54474900             mov     edx, $00494754
004946B3   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004946B5   E8D610FBFF             call    00445790
004946BA   EB0C                   jmp     004946C8

* Possible String Reference to: '黄金会员区：二肖中特'
|
004946BC   BA74474900             mov     edx, $00494774
004946C1   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004946C3   E8C810FBFF             call    00445790
004946C8   33D2                   xor     edx, edx

* Reference to control TForm4.Timer1 : TTimer
|
004946CA   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);
|
004946D0   E89FB0F9FF             call    0042F774
004946D5   33D2                   xor     edx, edx

* Reference to control TForm4.ProgressBar1 : TProgressBar
|
004946D7   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: ComCtrls.TProgressBar.SetPosition(TProgressBar;Integer);
|
004946DD   E8A21DFAFF             call    00436484
004946E2   66BAE803               mov     dx, $03E8

* Reference to control TForm4.UpDown1 : TUpDown
|
004946E6   8B8314030000           mov     eax, [ebx+$0314]

* Reference to: ComCtrls.TCustomUpDown.SetPosition(TCustomUpDown;Smallint);
|
004946EC   E81B49FAFF             call    0043900C

* Possible String Reference to: '100'
|
004946F1   BA94474900             mov     edx, $00494794

* Reference to control TForm4.Edit1 : TEdit
|
004946F6   8B8318030000           mov     eax, [ebx+$0318]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004946FC   E88F10FBFF             call    00445790
00494701   33D2                   xor     edx, edx

* Reference to control TForm4.Edit2 : TEdit
|
00494703   8B831C030000           mov     eax, [ebx+$031C]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00494709   E88210FBFF             call    00445790

* Reference to control TForm4.Edit2 : TEdit
|
0049470E   8B931C030000           mov     edx, [ebx+$031C]
00494714   8BC3                   mov     eax, ebx

* Reference to: Forms.TCustomForm.SetActiveControl(TCustomForm;TWinControl);
|
00494716   E821BDFCFF             call    0046043C
0049471B   33D2                   xor     edx, edx

* Reference to control TForm4.Label3 : TLabel
|
0049471D   8B8320030000           mov     eax, [ebx+$0320]

* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
00494723   E8580FFBFF             call    00445680
00494728   5B                     pop     ebx
00494729   C3                     ret

*)
end;

procedure TForm4.BitBtn1Click(Sender : TObject);
begin
(*
00494798   55                     push    ebp
00494799   8BEC                   mov     ebp, esp
0049479B   33C9                   xor     ecx, ecx
0049479D   51                     push    ecx
0049479E   51                     push    ecx
0049479F   51                     push    ecx
004947A0   51                     push    ecx
004947A1   53                     push    ebx
004947A2   8BD8                   mov     ebx, eax
004947A4   33C0                   xor     eax, eax
004947A6   55                     push    ebp

* Possible String Reference to: '