ANTICHAT — форум по информационной безопасности, OSINT и технологиям

unit ProgressUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TProgressForm=class(TForm)
    TeProgressBar1: TTeProgressBar;
    Timer1: TTimer;
    procedure FormShow(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure FormHide(Sender : TObject);
    procedure Timer1Timer(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  ProgressForm: TProgressForm;


implementation

{$R *.DFM}

procedure TProgressForm.FormShow(Sender : TObject);
begin
(*
005998EC   55                     push    ebp
005998ED   8BEC                   mov     ebp, esp
005998EF   83C4F8                 add     esp, -$08
005998F2   8955F8                 mov     [ebp-$08], edx
005998F5   8945FC                 mov     [ebp-$04], eax
005998F8   8B1548FC6F00           mov     edx, [$006FFC48]
005998FE   8B12                   mov     edx, [edx]
00599900   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TTeThemeEngine._PROC_00598D7C()
|
00599903   E874F4FFFF             call    00598D7C
00599908   B201                   mov     dl, $01
0059990A   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TProgressForm.Timer1 : TTimer
|
0059990D   8B8064030000           mov     eax, [eax+$0364]

* Reference to : TPage._PROC_0044B124()
|
00599913   E80C18EBFF             call    0044B124
00599918   59                     pop     ecx
00599919   59                     pop     ecx
0059991A   5D                     pop     ebp
0059991B   C3                     ret

*)
end;

procedure TProgressForm.FormClose(Sender : TObject);
begin
(*
0059991C   55                     push    ebp
0059991D   8BEC                   mov     ebp, esp
0059991F   83C4F4                 add     esp, -$0C
00599922   894DF4                 mov     [ebp-$0C], ecx
00599925   8955F8                 mov     [ebp-$08], edx
00599928   8945FC                 mov     [ebp-$04], eax
0059992B   33D2                   xor     edx, edx
0059992D   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TProgressForm.Timer1 : TTimer
|
00599930   8B8064030000           mov     eax, [eax+$0364]

* Reference to : TPage._PROC_0044B124()
|
00599936   E8E917EBFF             call    0044B124
0059993B   8BE5                   mov     esp, ebp
0059993D   5D                     pop     ebp
0059993E   C3                     ret

*)
end;

procedure TProgressForm.FormHide(Sender : TObject);
begin
(*
00599940   55                     push    ebp
00599941   8BEC                   mov     ebp, esp
00599943   83C4F8                 add     esp, -$08
00599946   8955F8                 mov     [ebp-$08], edx
00599949   8945FC                 mov     [ebp-$04], eax
0059994C   33D2                   xor     edx, edx
0059994E   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TProgressForm.Timer1 : TTimer
|
00599951   8B8064030000           mov     eax, [eax+$0364]

* Reference to : TPage._PROC_0044B124()
|
00599957   E8C817EBFF             call    0044B124
0059995C   59                     pop     ecx
0059995D   59                     pop     ecx
0059995E   5D                     pop     ebp
0059995F   C3                     ret

*)
end;

procedure TProgressForm.Timer1Timer(Sender : TObject);
begin
(*
00599960   55                     push    ebp
00599961   8BEC                   mov     ebp, esp
00599963   33C9                   xor     ecx, ecx
00599965   51                     push    ecx
00599966   51                     push    ecx
00599967   51                     push    ecx
00599968   51                     push    ecx
00599969   51                     push    ecx
0059996A   8955F8                 mov     [ebp-$08], edx
0059996D   8945FC                 mov     [ebp-$04], eax
00599970   33C0                   xor     eax, eax
00599972   55                     push    ebp

* Possible String Reference to: 'йґ»жялл‹е]Г'
|
00599973   68139A5900             push    $00599A13

***** TRY
|
00599978   64FF30                 push    dword ptr fs:[eax]
0059997B   648920                 mov     fs:[eax], esp
0059997E   8D45F0                 lea     eax, [ebp-$10]
00599981   50                     push    eax
00599982   8B0D48FC6F00           mov     ecx, [$006FFC48]
00599988   8B09                   mov     ecx, [ecx]

* Possible String Reference to: 'SELFCAPTION'
|
0059998A   BA289A5900             mov     edx, $00599A28

* Possible String Reference to: 'ProgressForm'
|
0059998F   B83C9A5900             mov     eax, $00599A3C

|
00599994   E89BFBFFFF             call    00599534
00599999   FF75F0                 push    dword ptr [ebp-$10]
0059999C   68549A5900             push    $00599A54
005999A1   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TProgressForm.TeProgressBar1 : TTeProgressBar
|
005999A4   8B8060030000           mov     eax, [eax+$0360]
005999AA   DB80A8020000           fild    dword ptr [eax+$02A8]
005999B0   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TProgressForm.TeProgressBar1 : TTeProgressBar
|
005999B3   8B8060030000           mov     eax, [eax+$0360]
005999B9   DB80A0020000           fild    dword ptr [eax+$02A0]
005999BF   DEF9                   fdivp   st(1), st(0)
005999C1   D80D589A5900           fmul    dword ptr [$00599A58]

* Reference to : TInterfacedObject._PROC_004038B0()
|
005999C7   E8E49EE6FF             call    004038B0
005999CC   52                     push    edx
005999CD   50                     push    eax
005999CE   8D45EC                 lea     eax, [ebp-$14]

|
005999D1   E87A31E7FF             call    0040CB50
005999D6   FF75EC                 push    dword ptr [ebp-$14]
005999D9   68649A5900             push    $00599A64
005999DE   8D45F4                 lea     eax, [ebp-$0C]
005999E1   BA04000000             mov     edx, $00000004

* Reference to : TInterfacedObject._PROC_004061AC()
|
005999E6   E8C1C7E6FF             call    004061AC
005999EB   8B55F4                 mov     edx, [ebp-$0C]
005999EE   A1D8317600             mov     eax, dword ptr [$007631D8]

|
005999F3   E83C64ECFF             call    0045FE34
005999F8   33C0                   xor     eax, eax
005999FA   5A                     pop     edx
005999FB   59                     pop     ecx
005999FC   59                     pop     ecx
005999FD   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '‹е]Г'
|
00599A00   681A9A5900             push    $00599A1A
00599A05   8D45EC                 lea     eax, [ebp-$14]
00599A08   BA03000000             mov     edx, $00000003

* Reference to : TInterfacedObject._PROC_00405E3C()
|
00599A0D   E82AC4E6FF             call    00405E3C
00599A12   C3                     ret


* Reference to : TInterfacedObject._PROC_004055CC()
|
00599A13   E9B4BBE6FF             jmp     004055CC
00599A18   EBEB                   jmp     00599A05

****** END
|
00599A1A   8BE5                   mov     esp, ebp
00599A1C   5D                     pop     ebp
00599A1D   C3                     ret

*)
end;

end.