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

📄 unit3.pas

📁 利用delphi编写的密码生成器!与大家分享交流 !
💻 PAS
📖 第 1 页 / 共 2 页
字号:
00493C62   45                     inc     ebp
00493C63   005E00                 add     [esi+$00], bl
00493C66   05556E6974             add     eax, +$74696E55
00493C6B   3500008BC0             xor     eax, $C08B0000

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00493C70   E867E1FCFF             call    00461DDC
00493C75   C3                     ret

00493C76   8BC0                   mov     eax, eax
00493C78   55                     push    ebp
00493C79   8BEC                   mov     ebp, esp
00493C7B   81C4ECFEFFFF           add     esp, $FFFFFEEC
00493C81   53                     push    ebx
00493C82   56                     push    esi
00493C83   57                     push    edi
00493C84   33C9                   xor     ecx, ecx
00493C86   898DF0FEFFFF           mov     [ebp+$FFFFFEF0], ecx
00493C8C   898DECFEFFFF           mov     [ebp+$FFFFFEEC], ecx
00493C92   894DF4                 mov     [ebp-$0C], ecx
00493C95   894DFC                 mov     [ebp-$04], ecx
00493C98   894DF8                 mov     [ebp-$08], ecx
00493C9B   8BD8                   mov     ebx, eax
00493C9D   33C0                   xor     eax, eax
00493C9F   55                     push    ebp
00493CA0   68F53D4900             push    $00493DF5

***** TRY
|
00493CA5   64FF30                 push    dword ptr fs:[eax]
00493CA8   648920                 mov     fs:[eax], esp

* Reference to TForm4 instance
|
00493CAB   A1E08A4900             mov     eax, dword ptr [$00498AE0]
00493CB0   8B00                   mov     eax, [eax]

* Reference to field TForm4.OFFS_032C : String
|
00493CB2   8B802C030000           mov     eax, [eax+$032C]

* Reference to: SysUtils.StrToInt(AnsiString):Integer;
|
00493CB8   E89B49F7FF             call    00408658

* Reference to control Edit1 : N.A.
|
00493CBD   898304030000           mov     [ebx+$0304], eax

* Possible String Reference to: '特别会员区:一码中特'
|
00493CC3   BA0C3E4900             mov     edx, $00493E0C
00493CC8   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00493CCA   E8C11AFBFF             call    00445790

* Reference to control Edit1 : N.A.
|
00493CCF   8BB304030000           mov     esi, [ebx+$0304]
00493CD5   83FE0A                 cmp     esi, +$0A
00493CD8   7D2A                   jnl     00493D04
00493CDA   8D55F8                 lea     edx, [ebp-$08]
00493CDD   8BC6                   mov     eax, esi

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00493CDF   E83848F7FF             call    0040851C
00493CE4   8B4DF8                 mov     ecx, [ebp-$08]
00493CE7   8D45FC                 lea     eax, [ebp-$04]
00493CEA   BA2C3E4900             mov     edx, $00493E2C

* Reference to: System.@LStrCat3;
|
00493CEF   E89806F7FF             call    0040438C
00493CF4   8B55FC                 mov     edx, [ebp-$04]

* Reference to control Label1 : N.A.
|
00493CF7   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00493CFD   E88E1AFBFF             call    00445790
00493D02   EB18                   jmp     00493D1C
00493D04   8D55F4                 lea     edx, [ebp-$0C]
00493D07   8BC6                   mov     eax, esi

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00493D09   E80E48F7FF             call    0040851C
00493D0E   8B55F4                 mov     edx, [ebp-$0C]

* Reference to control Label1 : N.A.
|
00493D11   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00493D17   E8741AFBFF             call    00445790
00493D1C   8BC3                   mov     eax, ebx

* Reference to: Controls.TWinControl.GetControlCount(TWinControl):Integer;
|           or: QControls.TWidgetControl.GetControlCount(TWidgetControl):Integer;
|
00493D1E   E8554FFBFF             call    00448C78
00493D23   8BF8                   mov     edi, eax
00493D25   4F                     dec     edi
00493D26   85FF                   test    edi, edi
00493D28   0F8C9C000000           jl      00493DCA
00493D2E   47                     inc     edi
00493D2F   33F6                   xor     esi, esi
00493D31   8BD6                   mov     edx, esi
00493D33   8BC3                   mov     eax, ebx

* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|           or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
00493D35   E8024FFBFF             call    00448C3C
00493D3A   8B00                   mov     eax, [eax]
00493D3C   8D95F4FEFFFF           lea     edx, [ebp+$FFFFFEF4]

* Reference to: System.TObject.ClassName(classofTObject):ShortString;
|
00493D42   E8B5F4F6FF             call    004031FC
00493D47   8D85F4FEFFFF           lea     eax, [ebp+$FFFFFEF4]
00493D4D   BA303E4900             mov     edx, $00493E30
00493D52   33C9                   xor     ecx, ecx
00493D54   8A08                   mov     cl, byte ptr [eax]
00493D56   41                     inc     ecx

* Reference to: System.@AStrCmp;
|
00493D57   E8D8EEF6FF             call    00402C34
00493D5C   7564                   jnz     00493DC2
00493D5E   8BD6                   mov     edx, esi
00493D60   8BC3                   mov     eax, ebx

* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|           or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
00493D62   E8D54EFBFF             call    00448C3C
00493D67   8B4008                 mov     eax, [eax+$08]
00493D6A   50                     push    eax
00493D6B   8D95ECFEFFFF           lea     edx, [ebp+$FFFFFEEC]

* Reference to control Edit1 : N.A.
|
00493D71   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00493D77   E8A047F7FF             call    0040851C
00493D7C   8B8DECFEFFFF           mov     ecx, [ebp+$FFFFFEEC]
00493D82   8D85F0FEFFFF           lea     eax, [ebp+$FFFFFEF0]

* Possible String Reference to: 'Image'
|
00493D88   BA403E4900             mov     edx, $00493E40

* Reference to: System.@LStrCat3;
|
00493D8D   E8FA05F7FF             call    0040438C
00493D92   8B95F0FEFFFF           mov     edx, [ebp+$FFFFFEF0]
00493D98   58                     pop     eax

* Reference to: System.@LStrCmp;
|
00493D99   E8EE06F7FF             call    0040448C
00493D9E   7512                   jnz     00493DB2
00493DA0   8BD6                   mov     edx, esi
00493DA2   8BC3                   mov     eax, ebx

* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|           or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
00493DA4   E8934EFBFF             call    00448C3C
00493DA9   B201                   mov     dl, $01

* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
00493DAB   E8D018FBFF             call    00445680
00493DB0   EB10                   jmp     00493DC2
00493DB2   8BD6                   mov     edx, esi
00493DB4   8BC3                   mov     eax, ebx

* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|           or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
00493DB6   E8814EFBFF             call    00448C3C
00493DBB   33D2                   xor     edx, edx

* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
00493DBD   E8BE18FBFF             call    00445680
00493DC2   46                     inc     esi
00493DC3   4F                     dec     edi
00493DC4   0F8567FFFFFF           jnz     00493D31
00493DCA   33C0                   xor     eax, eax
00493DCC   5A                     pop     edx
00493DCD   59                     pop     ecx
00493DCE   59                     pop     ecx
00493DCF   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '_^[嬪]

⌨️ 快捷键说明

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