unit6.pas

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

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TForm6=class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Image1: TImage;
    Label3: TLabel;
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    OFFS_0320: N.A.;
    procedure Edit1KeyPress(Sender : TObject);
    procedure Edit2KeyPress(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure SpeedButton2Click(Sender : TObject);
    procedure Timer1Timer(Sender : TObject);
    procedure _PROC_00494EFD(Sender : TObject);
    procedure _PROC_00494F2C(Sender : TObject);
    procedure _PROC_00494F34(Sender : TObject);
    procedure _PROC_00494F9A(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form6: TForm6;

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

implementation

{$R *.DFM}

procedure TForm6.Edit1KeyPress(Sender : TObject);
begin
(*
00494D30   C3                     ret

*)
end;

procedure TForm6.Edit2KeyPress(Sender : TObject);
begin
(*
00494D34   C3                     ret

*)
end;

procedure TForm6.SpeedButton1Click(Sender : TObject);
begin
(*
00494D38   55                     push    ebp
00494D39   8BEC                   mov     ebp, esp
00494D3B   33C9                   xor     ecx, ecx
00494D3D   51                     push    ecx
00494D3E   51                     push    ecx
00494D3F   51                     push    ecx
00494D40   51                     push    ecx
00494D41   53                     push    ebx
00494D42   8BD8                   mov     ebx, eax
00494D44   33C0                   xor     eax, eax
00494D46   55                     push    ebp

* Possible String Reference to: '轵膂