unit9.pas

加密算法实现

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TForm9=class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton2: TSpeedButton;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    OFFS_0314: N.A.;
    procedure SpeedButton1Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure Edit1KeyPress(Sender : TObject);
    procedure SpeedButton2Click(Sender : TObject);
    procedure Memo1KeyPress(Sender : TObject);
    procedure _PROC_00495829(Sender : TObject);
    procedure _PROC_00495858(Sender : TObject);
    procedure _PROC_00495860(Sender : TObject);
    procedure _PROC_004958C6(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form9: TForm9;

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

implementation

{$R *.DFM}

procedure TForm9.SpeedButton1Click(Sender : TObject);
begin
(*

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00495628   E8AFC7FCFF             call    00461DDC
0049562D   C3                     ret

*)
end;

procedure TForm9.FormShow(Sender : TObject);
begin
(*
00495630   55                     push    ebp
00495631   8BEC                   mov     ebp, esp
00495633   6A00                   push    $00
00495635   53                     push    ebx
00495636   8BD8                   mov     ebx, eax
00495638   33C0                   xor     eax, eax
0049563A   55                     push    ebp

* Possible String Reference to: '閄泠