📄 unit1.asm
字号:
dw 65535
dw 4102
dw 0
dw 35
dw 0
dw 0
dw 0
dw ?patch32
dw 529
dw ?patch33
dd ?live16393@0-@@TForm2@Button5Click$qqrp14System@TObject
dd ?live16393@0-?live16393@0
dw 17
?patch33 equ 1
?patch32 equ 14
dw 18
dw 512
dw 65528
dw 65535
dw 65530
dw 65535
dw 36
dw 0
dw 0
dw 0
dw ?patch34
dw 529
dw ?patch35
dd ?live16393@0-@@TForm2@Button5Click$qqrp14System@TObject
dd ?live16393@0-?live16393@0
dw 19
?patch35 equ 1
?patch34 equ 14
?patch29 equ @14-@@TForm2@Button5Click$qqrp14System@TObject+4
?patch30 equ 0
?patch31 equ @14-@@TForm2@Button5Click$qqrp14System@TObject
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_DATA segment dword public use32 'DATA'
@_$DCXG$@TForm2@Button2Click$qqrp14System@TObject segment virtual
align 2
@@_$DCXG$@TForm2@Button2Click$qqrp14System@TObject label dword
dd @@$xt$17System@AnsiString
dd 4
dd -4
dd 0
@_$DCXG$@TForm2@Button2Click$qqrp14System@TObject ends
_DATA ends
_DATA segment dword public use32 'DATA'
@_$ECTYG$@TForm2@Button2Click$qqrp14System@TObject segment virtual
align 2
@@_$ECTYG$@TForm2@Button2Click$qqrp14System@TObject label dword
dd 0
dd -40
dw 0
dw 5
dd 0
dd @@_$DCXG$@TForm2@Button2Click$qqrp14System@TObject
@_$ECTYG$@TForm2@Button2Click$qqrp14System@TObject ends
_DATA ends
_TEXT segment dword public use32 'CODE'
@TForm2@Button2Click$qqrp14System@TObject segment virtual
@@TForm2@Button2Click$qqrp14System@TObject proc near
?live16394@0:
?debug L 51
push ebp
mov ebp,esp
add esp,-52
mov dword ptr [ebp-48],edx
mov dword ptr [ebp-44],eax
@15:
mov eax,offset @@_$ECTYG$@TForm2@Button2Click$qqrp14System@TObject
call @__InitExceptBlockLDTC
?debug L 53
mov edx,dword ptr [ebp-44]
mov ecx,dword ptr [edx+724]
add ecx,520
mov dword ptr [ebp-52],ecx
mov word ptr [ebp-24],8
lea eax,dword ptr [ebp-4]
call @@System@AnsiString@$bctr$qqrv
mov edx,eax
inc dword ptr [ebp-12]
mov ecx,dword ptr [ebp-44]
mov eax,dword ptr [ecx+728]
call @@Controls@TControl@GetText$qqrv
lea edx,dword ptr [ebp-4]
mov edx,dword ptr [edx]
mov eax,dword ptr [ebp-52]
mov eax,dword ptr [eax]
mov ecx,dword ptr [eax]
call dword ptr [ecx+100]
dec dword ptr [ebp-12]
lea eax,dword ptr [ebp-4]
mov edx,2
call @@System@AnsiString@$bdtr$qqrv
?debug L 54
mov ecx,dword ptr [ebp-40]
mov dword ptr fs:[0],ecx
?debug L 54
@16:
mov esp,ebp
pop ebp
ret
?debug L 0
@@TForm2@Button2Click$qqrp14System@TObject endp
@TForm2@Button2Click$qqrp14System@TObject ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 88
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch36
dd ?patch37
dd ?patch38
df @@TForm2@Button2Click$qqrp14System@TObject
dw 0
dw 4144
dw 0
dw 37
dw 0
dw 0
dw 0
db 41
db 64
db 84
db 70
db 111
db 114
db 109
db 50
db 64
db 66
db 117
db 116
db 116
db 111
db 110
db 50
db 67
db 108
db 105
db 99
db 107
db 36
db 113
db 113
db 114
db 112
db 49
db 52
db 83
db 121
db 115
db 116
db 101
db 109
db 64
db 84
db 79
db 98
db 106
db 101
db 99
db 116
dw 18
dw 512
dw 65492
dw 65535
dw 4102
dw 0
dw 38
dw 0
dw 0
dw 0
dw ?patch39
dw 529
dw ?patch40
dd ?live16394@0-@@TForm2@Button2Click$qqrp14System@TObject
dd ?live16394@0-?live16394@0
dw 17
?patch40 equ 1
?patch39 equ 14
dw 18
dw 512
dw 65488
dw 65535
dw 65530
dw 65535
dw 39
dw 0
dw 0
dw 0
dw ?patch41
dw 529
dw ?patch42
dd ?live16394@0-@@TForm2@Button2Click$qqrp14System@TObject
dd ?live16394@0-?live16394@0
dw 19
?patch42 equ 1
?patch41 equ 14
?patch36 equ @16-@@TForm2@Button2Click$qqrp14System@TObject+4
?patch37 equ 0
?patch38 equ @16-@@TForm2@Button2Click$qqrp14System@TObject
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@TForm2@Button6Click$qqrp14System@TObject segment virtual
@@TForm2@Button6Click$qqrp14System@TObject proc near
?live16399@0:
?debug L 56
push ebp
mov ebp,esp
add esp,-8
mov dword ptr [ebp-8],edx
mov dword ptr [ebp-4],eax
?debug L 58
@17:
mov eax,dword ptr [_form0]
mov eax,dword ptr [eax+724]
mov edx,dword ptr [eax]
call dword ptr [edx+204]
?debug L 59
@18:
pop ecx
pop ecx
pop ebp
ret
?debug L 0
@@TForm2@Button6Click$qqrp14System@TObject endp
@TForm2@Button6Click$qqrp14System@TObject ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 88
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch43
dd ?patch44
dd ?patch45
df @@TForm2@Button6Click$qqrp14System@TObject
dw 0
dw 4146
dw 0
dw 40
dw 0
dw 0
dw 0
db 41
db 64
db 84
db 70
db 111
db 114
db 109
db 50
db 64
db 66
db 117
db 116
db 116
db 111
db 110
db 54
db 67
db 108
db 105
db 99
db 107
db 36
db 113
db 113
db 114
db 112
db 49
db 52
db 83
db 121
db 115
db 116
db 101
db 109
db 64
db 84
db 79
db 98
db 106
db 101
db 99
db 116
dw 18
dw 512
dw 65532
dw 65535
dw 4102
dw 0
dw 41
dw 0
dw 0
dw 0
dw ?patch46
dw 529
dw ?patch47
dd ?live16399@0-@@TForm2@Button6Click$qqrp14System@TObject
dd ?live16399@0-?live16399@0
dw 17
?patch47 equ 1
?patch46 equ 14
dw 18
dw 512
dw 65528
dw 65535
dw 65530
dw 65535
dw 42
dw 0
dw 0
dw 0
dw ?patch48
dw 529
dw ?patch49
dd ?live16399@0-@@TForm2@Button6Click$qqrp14System@TObject
dd ?live16399@0-?live16399@0
dw 19
?patch49 equ 1
?patch48 equ 14
?patch43 equ @18-@@TForm2@Button6Click$qqrp14System@TObject+4
?patch44 equ 0
?patch45 equ @18-@@TForm2@Button6Click$qqrp14System@TObject
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_BSS segment dword public use32 'BSS'
align 4
_prochook label dword
db 4 dup(?)
align 4
_keyhook label dword
db 4 dup(?)
align 4
_hinstance label dword
db 4 dup(?)
align 4
_pfsend label dword
db 4 dup(?)
align 4
_pfsendto label dword
db 4 dup(?)
align 4
_pfrecv label dword
db 4 dup(?)
align 4
_pfrecvfrom label dword
db 4 dup(?)
_mysendbuf label byte
db 70000 dup(?)
_mysendtobuf label byte
db 70000 dup(?)
_myrecvbuf label byte
db 70000 dup(?)
_myrecvfrombuf label byte
db 70000 dup(?)
_oldsend label byte
db 5 dup(?)
_newsend label byte
db 5 dup(?)
_oldsendto label byte
db 5 dup(?)
_newsendto label byte
db 5 dup(?)
_oldrecv label byte
db 5 dup(?)
_newrecv label byte
db 5 dup(?)
_oldrecvfrom label byte
db 5 dup(?)
_newrecvfrom label byte
db 5 dup(?)
align 4
_dwIdOld label dword
db 4 dup(?)
align 4
_dwIdNew label dword
db 4 dup(?)
align 4
_hModule label dword
db 4 dup(?)
_BSS ends
_TEXT segment dword public use32 'CODE'
DllEntryPoint segment virtual
@DllEntryPoint proc near
?live16400@0:
?debug T "D:\mytst\fomtst\green\Unit1.cpp"
?debug L 66
push ebp
mov ebp,esp
?debug L 67
@19:
mov eax,dword ptr [ebp+8]
mov dword ptr [_hinstance],eax
?debug L 68
mov edx,dword ptr [ebp+12]
sub edx,1
jb short @25
je short @24
dec edx
je short @27
dec edx
je short @27
jmp short @20
?debug L 72
@24:
call @@init$qv
test eax,eax
jne short @27
?debug L 74
push 0
push offset s@+11
push offset s@
push 0
call @MessageBoxA
?debug L 75
xor eax,eax
jmp short @28
?debug L 80
?debug L 82
?debug L 84
@25:
call @sendHookOff
?debug L 85
call @sendtoHookOff
?debug L 86
call @recvHookOff
?debug L 87
call @recvfromHookOff
?debug L 89
call @UninstallHook
?debug L 90
?debug L 94
@20:
@27:
mov eax,1
?debug L 95
@29:
@28:
pop ebp
ret 12
?debug L 0
@DllEntryPoint endp
DllEntryPoint ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 60
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch50
dd ?patch51
dd ?patch52
df @DllEntryPoint
dw 0
dw 4148
dw 0
dw 43
dw 0
dw 0
dw 0
db 13
db 68
db 108
db 108
db 69
db 110
db 116
db 114
db 121
db 80
db 111
db 105
db 110
db 116
dw 18
dw 512
dw 8
dw 0
dw 1027
dw 0
dw 44
dw 0
dw 0
dw 0
dw 18
dw 512
dw 12
dw 0
dw 34
dw 0
dw 45
dw 0
dw 0
dw 0
dw 18
dw 512
dw 16
dw 0
dw 1027
dw 0
dw 46
dw 0
dw 0
dw 0
?patch50 equ @29-@DllEntryPoint+4
?patch51 equ 0
?patch52 equ @29-@DllEntryPoint
dw 2
dw 6
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@MyProcHook$qqsiuil segment virtual
@@MyProcHook$qqsiuil proc near
?live16401@0:
?debug L 97
push ebp
mov ebp,esp
?debug L 100
@30:
push dword ptr [ebp+16]
push dword ptr [ebp+12]
push dword ptr [ebp+8]
push dword ptr [_prochook]
call @CallNextHookEx
?debug L 101
@32:
@31:
pop ebp
ret 12
?debug L 0
@@MyProcHook$qqsiuil endp
@MyProcHook$qqsiuil ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 66
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch53
dd ?patch54
dd ?patch55
df @@MyProcHook$qqsiuil
dw 0
dw 4150
dw 0
dw 47
dw 0
dw 0
dw 0
db 19
db 64
db 77
db 121
db 80
db 114
db 111
db 99
db 72
db 111
db 111
db 107
db 36
db 113
db 113
db 115
db 105
db 117
db 105
db 108
dw 18
dw 512
dw 8
dw 0
dw 116
dw 0
dw 48
dw 0
dw 0
dw 0
dw 18
dw 512
dw 12
dw 0
dw 117
dw 0
dw 49
dw 0
dw 0
dw 0
dw 18
dw 512
dw 16
dw 0
dw 18
dw 0
dw 50
dw 0
dw 0
dw 0
?patch53 equ @32-@@MyProcHook$qqsiuil+4
?patch54 equ 0
?patch55 equ @32-@@MyProcHook$qqsiuil
dw 2
dw 6
$$BSYMS ends
_DATA segment dword public use32 'DATA'
@_$ECTZG$@KeyboardProc$qqsiuil segment virtual
align 2
@@_$ECTZG$@KeyboardProc$qqsiuil label dword
dd 0
dd -36
@_$ECTZG$@KeyboardProc$qqsiuil ends
_DATA ends
_TEXT segment dword public use32 'CODE'
@KeyboardProc$qqsiuil segment virtual
@@KeyboardProc$qqsiuil proc near
?live16402@0:
?debug L 103
push ebp
mov ebp,esp
add esp,-48
@33:
mov eax,offset @@_$ECTZG$@KeyboardProc$qqsiuil
call @__InitExceptBlockLDTC
?debug L 105
mov edx,dword ptr [ebp+12]
mov dword ptr [ebp-40],edx
?debug L 107
mov ecx,dword ptr [ebp+16]
shr ecx,16
test ch,-128
jne short @34
cmp dword ptr [ebp+8],0
jne short @34
?debug L 109
cmp dword ptr [ebp-40],106
jne short @35
?debug L 111
@36:
call @GetForegroundWindow
mov dword ptr [ebp-44],eax
?debug L 112
push offset s@+16
push 0
call @FindWindowA
mov dword ptr [ebp-48],eax
?debug L 113
mov eax,dword ptr [ebp-44]
cmp eax,dword ptr [ebp-48]
je short @37
?debug L 115
cmp byte ptr [_isnew],1
jne short @38
?debug L 117
xor ecx,ecx
mov dl,1
mov eax,dword ptr [@@TForm2@]
call @@TForm2@$bctr$qqrp18Classes@TComponent
mov dword ptr [_form0],eax
?debug L 118
mov byte ptr [_isnew],0
?debug L 119
mov byte ptr [_isdelete],1
?debug L 120
mov byte ptr [_isnewok],1
?debug L 123
@38:
mov edx,dword ptr [ebp-44]
mov eax,dword ptr [_form0]
call @@Controls@TWinControl@SetParentWindow$qqrpv
?debug L 124
mov eax,dword ptr [_form0]
call @@Forms@TCustomForm@Show$qqrv
?debug L 130
@37:
@39:
@35:
@34:
push dword ptr [ebp+16]
push dword ptr [ebp+12]
push dword ptr [ebp+8]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -