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

📄 unit2.pas

📁 利用delphi编写的密码生成器!与大家分享交流 !
💻 PAS
字号:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TForm2=class(TForm)
    Image1: TImage;
    RichEdit1: TRichEdit;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender : TObject);
    procedure _PROC_00493898(Sender : TObject);
    procedure _PROC_004938A0(Sender : TObject);
    procedure _PROC_00493906(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form2: TForm2;

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

implementation

{$R *.DFM}

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

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00493860   E877E5FCFF             call    00461DDC
00493865   C3                     ret

*)
end;

procedure TForm2._PROC_00493898(Sender : TObject);
begin
(*
00493898   832D949C490001         sub     dword ptr [$00499C94], +$01
0049389F   C3                     ret

*)
end;

procedure TForm2._PROC_004938A0(Sender : TObject);
begin
(*
004938A0   EC                     in      al, dx
004938A1   384900                 cmp     [ecx+$00], cl
004938A4   0000                   add     [eax], al

*)
end;

procedure TForm2._PROC_00493906(Sender : TObject);
begin
(*
00493906   44                     inc     esp
00493907   0054DF41               add     [edi+ebx*8+$41], dl
0049390B   0054EB45               add     [ebx+ebp*8+$45], dl
0049390F   0034DC                 add     [esp+ebx*8], dh
00493912   41                     inc     ecx
00493913   00F4                   add     ah, dh
00493915   2646                   inc     esi
00493917   002CDC                 add     [esp+ebx*8], ch
0049391A   45                     inc     ebp
0049391B   00ACC54400C8CA         add     [ebp+eax*8+$CAC80044], ch
00493922   44                     inc     esp
00493923   0014CA                 add     [edx+ecx*8], dl
00493926   44                     inc     esp
00493927   00A44A440028C0         add     [edx+ecx*2+$C0280044], ah
0049392E   44                     inc     esp
0049392F   0034E8                 add     [eax+ebp*8], dh
00493932   45                     inc     ebp
00493933   0028                   add     [eax], ch
00493935   BD4400EC49             mov     ebp, $49EC0044
0049393A   44                     inc     esp
0049393B   00F0                   add     al, dh
0049393D   49                     dec     ecx
0049393E   44                     inc     esp
0049393F   0028                   add     [eax], ch
00493941   E94500187A             jmp     7A61398B
00493946   44                     inc     esp
00493947   0030                   add     [eax], dh
00493949   55                     push    ebp
0049394A   44                     inc     esp
0049394B   00684B                 add     [eax+$4B], ch
0049394E   44                     inc     esp
0049394F   00BC5644001CEB         add     [esi+edx*2+$EB1C0044], bh
00493956   45                     inc     ebp
00493957   00E8                   add     al, ch
00493959   E94500F457             jmp     583D39A3
0049395E   44                     inc     esp
0049395F   0094EB45009C7A         add     [ebx+ebp*8+$7A9C0045], dl
00493966   44                     inc     esp
00493967   00B4BD440070BE         add     [ebp+edi*4+$BE700044], dh
0049396E   44                     inc     esp
0049396F   0034B9                 add     [ecx+edi*4], dh
00493972   44                     inc     esp
00493973   0054BE44               add     [esi+edi*4+$44], dl
00493977   002CDB                 add     [ebx+ebx*8], ch
0049397A   45                     inc     ebp
0049397B   0038                   add     [eax], bh
0049397D   F2                     repne
0049397E   45                     inc     ebp
0049397F   00E8                   add     al, ch
00493981   93                     xchg    eax, ebx
00493982   44                     inc     esp
00493983   00FC                   add     ah, bh
00493985   FE4500                 inc     byte ptr [ebp+$00]
00493988   5C                     pop     esp
00493989   024600                 add     al, byte ptr [esi+$00]
0049398C   1801                   sbb     [ecx], al
0049398E   46                     inc     esi
0049398F   008094440084           add     [eax+$84004494], al
00493995   94                     xchg    eax, esp
00493996   44                     inc     esp
00493997   0094034600E492         add     [ebx+eax+$92E40046], dl
0049399E   44                     inc     esp
0049399F   0094BF4400880A         add     [edi+edi*4+$A880044], dl
004939A6   46                     inc     esi
004939A7   0088D14400D8           add     [eax+$D80044D1], cl
004939AD   BB44009C1F             mov     ebx, $1F9C0044
004939B2   46                     inc     esi
004939B3   0020                   add     [eax], ah
004939B5   D5                     aad
004939B6   45                     inc     ebp
004939B7   00D0                   add     al, dl
004939B9   D7                     xlat
004939BA   45                     inc     ebp
004939BB   007C1046               add     [eax+edx+$46], bh
004939BF   00B8E0450034           add     [eax+$340045E0], bh
004939C5   E145                   loope   +$45
004939C7   007C2346               add     [ebx+$46], bh
004939CB   00F0                   add     al, dh
004939CD   DD4500                 fld     qword ptr [ebp+$00]
004939D0   801E46                 sbb     byte ptr [esi], $46
004939D3   006005                 add     [eax+$05], ah
004939D6   46                     inc     esi
004939D7   003420                 add     [eax], dh
004939DA   46                     inc     esi
004939DB   0018                   add     [eax], bl
004939DD   EB45                   jmp     00493A24
004939DF   0003                   add     [ebx], al
004939E1   00343A                 add     [edx+edi], dh
004939E4   49                     dec     ecx
004939E5   00F8                   add     al, bh
004939E7   0200                   add     al, byte ptr [eax]
004939E9   0000                   add     [eax], al

004939EB   0006                   add     [esi], al
004939ED   49                     dec     ecx
004939EE   6D                     insd
004939EF   61                     popa
004939F0   676531FC               xor     esp, edi
004939F4   0200                   add     al, byte ptr [eax]
004939F6   0000                   add     [eax], al

004939F8   0006                   add     [esi], al
004939FA   49                     dec     ecx
004939FB   6D                     insd
004939FC   61                     popa
004939FD   67653200               xor     al, byte ptr gs:[bx+si]
00493A01   0300                   add     eax, [eax]
00493A03   0001                   add     [ecx], al
00493A05   000C53                 add     [ebx+edx*2], cl
00493A08   7065                   jo      00493A6F
00493A0A   656442                 inc     edx
00493A0D   7574                   jnz     00493A83
00493A0F   746F                   jz      00493A80
00493A11   6E                     outsb
00493A12   3101                   xor     [ecx], eax
00493A14   0018                   add     [eax], bl
00493A16   00603A                 add     [eax+$3A], ah
00493A19   49                     dec     ecx
00493A1A   0011                   add     [ecx], dl
00493A1C   53                     push    ebx
00493A1D   7065                   jo      00493A84
00493A1F   656442                 inc     edx
00493A22   7574                   jnz     00493A98
00493A24   746F                   jz      00493A95
00493A26   6E                     outsb
00493A27   31436C                 xor     [ebx+$6C], eax
00493A2A   69636B0654466F         imul    esp, [ebx+$6B], $6F465406
00493A31   726D                   jb      00493AA0
00493A33   3302                   xor     eax, [edx]
00493A35   008CDB4200A804         add     [ebx+ebx*8+$4A80042], cl
00493A3C   43                     inc     ebx
00493A3D   008BC0443A49           add     [ebx+$493A44C0], cl
00493A43   0007                   add     [edi], al
00493A45   06                     push    es
00493A46   54                     push    esp
00493A47   46                     inc     esi
00493A48   6F                     outsd
00493A49   726D                   jb      00493AB8
00493A4B   33EC                   xor     ebp, esp
00493A4D   384900                 cmp     [ecx+$00], cl
00493A50   E0B2                   loopn   -$4E
00493A52   45                     inc     ebp
00493A53   005E00                 add     [esi+$00], bl
00493A56   05556E6974             add     eax, +$74696E55
00493A5B   3300                   xor     eax, [eax]
00493A5D   008BC0E877E3           add     [ebx+$E377E8C0], cl
00493A63   FC                     cld
00493A64   FFC3                   inc     ebx
00493A66   8BC0                   mov     eax, eax
00493A68   55                     push    ebp
00493A69   8BEC                   mov     ebp, esp
00493A6B   33C0                   xor     eax, eax
00493A6D   55                     push    ebp

* Possible String Reference to: '閚

⌨️ 快捷键说明

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