unit_key.pas

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

unit Unit_Key;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TForm_key=class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    Label5: TLabel;
    OFFS_0328: N.A.;
    procedure Edit1KeyPress(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure ComboBox1KeyPress(Sender : TObject);
    procedure ComboBox1Select(Sender : TObject);
    procedure Edit2KeyPress(Sender : TObject);
    procedure Edit4KeyPress(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form_key: TForm_key;

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

implementation

{$R *.DFM}

procedure TForm_key.Edit1KeyPress(Sender : TObject);
begin
(*
00457F80   803930                 cmp     byte ptr [ecx], $30
00457F83   7205                   jb      00457F8A
00457F85   803939                 cmp     byte ptr [ecx], $39
00457F88   7621                   jbe     00457FAB
00457F8A   803961                 cmp     byte ptr [ecx], $61
00457F8D   7205                   jb      00457F94
00457F8F   80397A                 cmp     byte ptr [ecx], $7A
00457F92   7617                   jbe     00457FAB
00457F94   803941                 cmp     byte ptr [ecx], $41
00457F97   7205                   jb      00457F9E
00457F99   80395A                 cmp     byte ptr [ecx], $5A
00457F9C   760D                   jbe     00457FAB
00457F9E   803908                 cmp     byte ptr [ecx], $08
00457FA1   7408                   jz      00457FAB
00457FA3   80390D                 cmp     byte ptr [ecx], $0D
00457FA6   7403                   jz      00457FAB
00457FA8   C60100                 mov     byte ptr [ecx], $00
00457FAB   80390D                 cmp     byte ptr [ecx], $0D
00457FAE   750B                   jnz     00457FBB

* Reference to control TForm_key.Edit2 : TEdit
|
00457FB0   8B9004030000           mov     edx, [eax+$0304]

* Reference to: Forms.TCustomForm.SetActiveControl(TCustomForm;TWinControl);
|
00457FB6   E8098EFFFF             call    00450DC4
00457FBB   C3                     ret

*)
end;

procedure TForm_key.BitBtn1Click(Sender : TObject);
begin
(*
00457FBC   55                     push    ebp
00457FBD   8BEC                   mov     ebp, esp
00457FBF   B906000000             mov     ecx, $00000006
00457FC4   6A00                   push    $00
00457FC6   6A00                   push    $00
00457FC8   49                     dec     ecx
00457FC9   75F9                   jnz     00457FC4
00457FCB   51                     push    ecx
00457FCC   53                     push    ebx
00457FCD   56                     push    esi
00457FCE   8BD8                   mov     ebx, eax
00457FD0   33C0                   xor     eax, eax
00457FD2   55                     push    ebp

* Possible String Reference to: '楸耳