zbpasswd.pas

来自「一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.」· PAS 代码 · 共 67 行

unit ZBPassWD;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Buttons
type
  TF_pswd=class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TBitBtn;
    Button2: TBitBtn;
    procedure Edit1KeyDown(Sender : TObject);
    procedure _PROC_0052EF28(Sender : TObject);
    procedure _PROC_0052EF58(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  F_pswd: TF_pswd;

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

implementation

{$R *.DFM}

procedure TF_pswd.Edit1KeyDown(Sender : TObject);
begin
(*
0052EF08   55                     push    ebp
0052EF09   8BEC                   mov     ebp, esp
0052EF0B   53                     push    ebx
0052EF0C   6683390D               cmp     word ptr [ecx], +$0D
0052EF10   750F                   jnz     0052EF21

* Reference to control TF_pswd.Button1 : TBitBtn
|
0052EF12   8B80D8020000           mov     eax, [eax+$02D8]

* Possible reference to dynamic method TBitBtn.OFFS_FFEC
|
0052EF18   66BBECFF               mov     bx, $FFEC

* Reference to: system.@CallDynaInst;
|
0052EF1C   E88745EDFF             call    004034A8
0052EF21   5B                     pop     ebx
0052EF22   5D                     pop     ebp
0052EF23   C20400                 ret     $0004

*)
end;

procedure TF_pswd._PROC_0052EF28(Sender : TObject);
begin
(*
0052EF28   55                     push    ebp
0052EF29   8BEC                   mov     ebp, esp
0052EF2B   33C0                   xor     eax, eax
0052EF2D   55                     push    ebp

* Possible String Reference to: '橼J