⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit3.pas

📁 利用delphi编写的密码生成器!与大家分享交流 !
💻 PAS
📖 第 1 页 / 共 2 页
字号:
unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TForm3=class(TForm)
    Image1: TImage;
    Image2: TImage;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender : TObject);
    procedure _PROC_00493A98(Sender : TObject);
    procedure _PROC_00493AA0(Sender : TObject);
    procedure _PROC_00493B06(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form3: TForm3;

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

implementation

{$R *.DFM}

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

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00493A60   E877E3FCFF             call    00461DDC
00493A65   C3                     ret

*)
end;

procedure TForm3._PROC_00493A98(Sender : TObject);
begin
(*
00493A98   832D9C9C490001         sub     dword ptr [$00499C9C], +$01
00493A9F   C3                     ret

*)
end;

procedure TForm3._PROC_00493AA0(Sender : TObject);
begin
(*
00493AA0   EC                     in      al, dx
00493AA1   3A4900                 cmp     cl, byte ptr [ecx+$00]
00493AA4   0000                   add     [eax], al

*)
end;

procedure TForm3._PROC_00493B06(Sender : TObject);
begin
(*
00493B06   44                     inc     esp
00493B07   0054DF41               add     [edi+ebx*8+$41], dl
00493B0B   0054EB45               add     [ebx+ebp*8+$45], dl
00493B0F   0034DC                 add     [esp+ebx*8], dh
00493B12   41                     inc     ecx
00493B13   00F4                   add     ah, dh
00493B15   2646                   inc     esi
00493B17   002CDC                 add     [esp+ebx*8], ch
00493B1A   45                     inc     ebp
00493B1B   00ACC54400C8CA         add     [ebp+eax*8+$CAC80044], ch
00493B22   44                     inc     esp
00493B23   0014CA                 add     [edx+ecx*8], dl
00493B26   44                     inc     esp
00493B27   00A44A440028C0         add     [edx+ecx*2+$C0280044], ah
00493B2E   44                     inc     esp
00493B2F   0034E8                 add     [eax+ebp*8], dh
00493B32   45                     inc     ebp
00493B33   0028                   add     [eax], ch
00493B35   BD4400EC49             mov     ebp, $49EC0044
00493B3A   44                     inc     esp
00493B3B   00F0                   add     al, dh
00493B3D   49                     dec     ecx
00493B3E   44                     inc     esp
00493B3F   0028                   add     [eax], ch
00493B41   E94500187A             jmp     7A613B8B
00493B46   44                     inc     esp
00493B47   0030                   add     [eax], dh
00493B49   55                     push    ebp
00493B4A   44                     inc     esp
00493B4B   00684B                 add     [eax+$4B], ch
00493B4E   44                     inc     esp
00493B4F   00BC5644001CEB         add     [esi+edx*2+$EB1C0044], bh
00493B56   45                     inc     ebp
00493B57   00E8                   add     al, ch
00493B59   E94500F457             jmp     583D3BA3
00493B5E   44                     inc     esp
00493B5F   0094EB45009C7A         add     [ebx+ebp*8+$7A9C0045], dl
00493B66   44                     inc     esp
00493B67   00B4BD440070BE         add     [ebp+edi*4+$BE700044], dh
00493B6E   44                     inc     esp
00493B6F   0034B9                 add     [ecx+edi*4], dh
00493B72   44                     inc     esp
00493B73   0054BE44               add     [esi+edi*4+$44], dl
00493B77   002CDB                 add     [ebx+ebx*8], ch
00493B7A   45                     inc     ebp
00493B7B   0038                   add     [eax], bh
00493B7D   F2                     repne
00493B7E   45                     inc     ebp
00493B7F   00E8                   add     al, ch
00493B81   93                     xchg    eax, ebx
00493B82   44                     inc     esp
00493B83   00FC                   add     ah, bh
00493B85   FE4500                 inc     byte ptr [ebp+$00]
00493B88   5C                     pop     esp
00493B89   024600                 add     al, byte ptr [esi+$00]
00493B8C   1801                   sbb     [ecx], al
00493B8E   46                     inc     esi
00493B8F   008094440084           add     [eax+$84004494], al
00493B95   94                     xchg    eax, esp
00493B96   44                     inc     esp
00493B97   0094034600E492         add     [ebx+eax+$92E40046], dl
00493B9E   44                     inc     esp
00493B9F   0094BF4400880A         add     [edi+edi*4+$A880044], dl
00493BA6   46                     inc     esi
00493BA7   0088D14400D8           add     [eax+$D80044D1], cl
00493BAD   BB44009C1F             mov     ebx, $1F9C0044
00493BB2   46                     inc     esi
00493BB3   0020                   add     [eax], ah
00493BB5   D5                     aad
00493BB6   45                     inc     ebp
00493BB7   00D0                   add     al, dl
00493BB9   D7                     xlat
00493BBA   45                     inc     ebp
00493BBB   007C1046               add     [eax+edx+$46], bh
00493BBF   00B8E0450034           add     [eax+$340045E0], bh
00493BC5   E145                   loope   +$45
00493BC7   007C2346               add     [ebx+$46], bh
00493BCB   00F0                   add     al, dh
00493BCD   DD4500                 fld     qword ptr [ebp+$00]
00493BD0   801E46                 sbb     byte ptr [esi], $46
00493BD3   006005                 add     [eax+$05], ah
00493BD6   46                     inc     esi
00493BD7   003420                 add     [eax], dh
00493BDA   46                     inc     esi
00493BDB   0018                   add     [eax], bl
00493BDD   EB45                   jmp     00493C24
00493BDF   0003                   add     [ebx], al
00493BE1   00423C                 add     [edx+$3C], al
00493BE4   49                     dec     ecx
00493BE5   00F8                   add     al, bh
00493BE7   0200                   add     al, byte ptr [eax]
00493BE9   0000                   add     [eax], al

00493BEB   0006                   add     [esi], al
00493BED   4C                     dec     esp
00493BEE   61                     popa
00493BEF   62656C                 bound   esp, qword ptr [ebp+$6C]
00493BF2   31FC                   xor     esp, edi
00493BF4   0200                   add     al, byte ptr [eax]
00493BF6   0001                   add     [ecx], al
00493BF8   000C53                 add     [ebx+edx*2], cl
00493BFB   7065                   jo      00493C62
00493BFD   656442                 inc     edx
00493C00   7574                   jnz     00493C76
00493C02   746F                   jz      00493C73
00493C04   6E                     outsb
00493C05   3100                   xor     [eax], eax
00493C07   0300                   add     eax, [eax]
00493C09   0002                   add     [edx], al
00493C0B   000545646974           add     [$74696445], al
00493C11   3102                   xor     [edx], eax
00493C13   0018                   add     [eax], bl
00493C15   00703C                 add     [eax+$3C], dh
00493C18   49                     dec     ecx
00493C19   0011                   add     [ecx], dl
00493C1B   53                     push    ebx
00493C1C   7065                   jo      00493C83
00493C1E   656442                 inc     edx
00493C21   7574                   jnz     00493C97
00493C23   746F                   jz      00493C94
00493C25   6E                     outsb
00493C26   31436C                 xor     [ebx+$6C], eax
00493C29   69636B0F00783C         imul    esp, [ebx+$6B], $3C78000F
00493C30   49                     dec     ecx
00493C31   0008                   add     [eax], cl
00493C33   46                     inc     esi
00493C34   6F                     outsd
00493C35   726D                   jb      00493CA4
00493C37   53                     push    ebx
00493C38   686F770654             push    $5406776F
00493C3D   46                     inc     esi
00493C3E   6F                     outsd
00493C3F   726D                   jb      00493CAE
00493C41   35030020A9             xor     eax, $A9200003
00493C46   43                     inc     ebx
00493C47   00A8044300BC           add     [eax+$BC004304], ch
00493C4D   B143                   mov     cl, $43
00493C4F   00543C49               add     [esp+edi+$49], dl
00493C53   0007                   add     [edi], al
00493C55   06                     push    es
00493C56   54                     push    esp
00493C57   46                     inc     esi
00493C58   6F                     outsd
00493C59   726D                   jb      00493CC8
00493C5B   35EC3A4900             xor     eax, $00493AEC
00493C60   E0B2                   loopn   -$4E

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -