unit8.pas

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

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TForm8=class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    OFFS_0304: N.A.;
    procedure FormClose(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure BitBtn2Click(Sender : TObject);
    procedure _PROC_00495130(Sender : TObject);
    procedure _PROC_00495160(Sender : TObject);
    procedure _PROC_00495168(Sender : TObject);
    procedure _PROC_004951CE(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form8: TForm8;

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

implementation

{$R *.DFM}

procedure TForm8.FormClose(Sender : TObject);
begin
(*
0049510C   C60102                 mov     byte ptr [ecx], $02
0049510F   C3                     ret

*)
end;

procedure TForm8.BitBtn1Click(Sender : TObject);
begin
(*

* Reference to field TForm8.OFFS_0304 : Byte
|
00495110   C6800403000001         mov     byte ptr [eax+$0304], $01

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00495117   E8C0CCFCFF             call    00461DDC
0049511C   C3                     ret

*)
end;

procedure TForm8.BitBtn2Click(Sender : TObject);
begin
(*

* Reference to field TForm8.OFFS_0304 : Byte
|
00495120   C6800403000000         mov     byte ptr [eax+$0304], $00

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00495127   E8B0CCFCFF             call    00461DDC
0049512C   C3                     ret

*)
end;

procedure TForm8._PROC_00495130(Sender : TObject);
begin
(*
00495130   55                     push    ebp
00495131   8BEC                   mov     ebp, esp
00495133   33C0                   xor     eax, eax
00495135   55                     push    ebp

* Possible String Reference to: '棣桷