unit_main.pas

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

unit Unit_main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TForm_main=class(TForm)
    GroupBox1: TGroupBox;
    Image2: TImage;
    SpeedButton5: TSpeedButton;
    Memo1: TMemo;
    Panel1: TPanel;
    Image1: TImage;
    Button1: THemisphereButton;
    Button8: THemisphereButton;
    Button2: THemisphereButton;
    Button3: THemisphereButton;
    Button4: THemisphereButton;
    Button5: TSpeedButton;
    Button6: THemisphereButton;
    Button7: THemisphereButton;
    Shape1: TShape;
    Label1: TLabel;
    procedure SpeedButton5Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button8Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure Button7Click(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form_main: TForm_main;

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

implementation

{$R *.DFM}

procedure TForm_main.SpeedButton5Click(Sender : TObject);
begin
(*

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00495CC4   E813C1FCFF             call    00461DDC
00495CC9   C3                     ret

*)
end;

procedure TForm_main.FormShow(Sender : TObject);
begin
(*
00495CCC   55                     push    ebp
00495CCD   8BEC                   mov     ebp, esp
00495CCF   6A00                   push    $00
00495CD1   53                     push    ebx
00495CD2   8BD8                   mov     ebx, eax
00495CD4   33C0                   xor     eax, eax
00495CD6   55                     push    ebp
00495CD7   68495D4900             push    $00495D49

***** TRY
|
00495CDC   64FF30                 push    dword ptr fs:[eax]
00495CDF   648920                 mov     fs:[eax], esp
00495CE2   B8DC9C4900             mov     eax, $00499CDC

* Reference to: System.@LStrClr(void;void);
|
00495CE7   E894E3F6FF             call    00404080
00495CEC   8D45FC                 lea     eax, [ebp-$04]

* Reference to: SysUtils.GetCurrentDir:AnsiString;
|
00495CEF   E8F02EF7FF             call    00408BE4
00495CF4   8B55FC                 mov     edx, [ebp-$04]
00495CF7   B8E49C4900             mov     eax, $00499CE4
00495CFC   B95C5D4900             mov     ecx, $00495D5C

* Reference to: System.@LStrCat3;
|
00495D01   E886E6F6FF             call    0040438C
00495D06   C605E89C490000         mov     byte ptr [$00499CE8], $00

* Reference to TForm8 instance
|
00495D0D   A14C8A4900             mov     eax, dword ptr [$00498A4C]
00495D12   8B00                   mov     eax, [eax]
00495D14   8B10                   mov     edx, [eax]

* Reference to method TForm8.ShowModal()
|
00495D16   FF92EC000000           call    dword ptr [edx+$00EC]

* Reference to TForm8 instance
|
00495D1C   A14C8A4900             mov     eax, dword ptr [$00498A4C]
00495D21   8B00                   mov     eax, [eax]

* Reference to field TForm8.OFFS_0304 : Byte
|
00495D23   80B80403000000         cmp     byte ptr [eax+$0304], $00
00495D2A   7507                   jnz     00495D33
00495D2C   8BC3                   mov     eax, ebx

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00495D2E   E8A9C0FCFF             call    00461DDC
00495D33   33C0                   xor     eax, eax
00495D35   5A                     pop     edx
00495D36   59                     pop     ecx
00495D37   59                     pop     ecx
00495D38   648910                 mov     fs:[eax], edx

****** FINALLY
|
00495D3B   68505D4900             push    $00495D50
00495D40   8D45FC                 lea     eax, [ebp-$04]

* Reference to: System.@LStrClr(void;void);
|
00495D43   E838E3F6FF             call    00404080
00495D48   C3                     ret


* Reference to: System.@HandleFinally;
|
00495D49   E9B2DCF6FF             jmp     00403A00
00495D4E   EBF0                   jmp     00495D40

****** END
|
00495D50   5B                     pop     ebx
00495D51   59                     pop     ecx
00495D52   5D                     pop     ebp
00495D53   C3                     ret

*)
end;

procedure TForm_main.Button1Click(Sender : TObject);
begin
(*
00495D60   55                     push    ebp
00495D61   8BEC                   mov     ebp, esp
00495D63   81C4F0FEFFFF           add     esp, $FFFFFEF0
00495D69   53                     push    ebx
00495D6A   33C9                   xor     ecx, ecx
00495D6C   898DF0FEFFFF           mov     [ebp+$FFFFFEF0], ecx
00495D72   894DF4                 mov     [ebp-$0C], ecx
00495D75   894DFC                 mov     [ebp-$04], ecx
00495D78   894DF8                 mov     [ebp-$08], ecx
00495D7B   8BD8                   mov     ebx, eax
00495D7D   33C0                   xor     eax, eax
00495D7F   55                     push    ebp

* Possible String Reference to: '楝埚