VPF::Handle в системе, завершение - Форум программистов

PROMARK

Дата 15.12.2007, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 15.12.2007

Репутация: нет
Всего: нет

Привет всем.

Assembler код:
------------------------------------------------------------

Код


CloseRemoteHandle Proc hProcess: DWORD, hHandle: DWORD
    LOCAL hMem: DWORD
    LOCAL kernelBase: DWORD
    LOCAL CodeSize: DWORD
    
    invoke    GetModuleHandle,offset @kernel
    mov        dword ptr[kernelBase],eax
    invoke    GetProcAddress,eax,offset @CloseHandle
    lea        ebx,_data
    mov        dword ptr[ebx],eax
    invoke    GetProcAddress,kernelBase,offset @ExitThread
    mov        dword ptr[ebx+8],eax
    mov        eax,hHandle
    mov        dword ptr[ebx+4],eax
    lea        edx,InjectedCode_End
    lea        eax,InjectedCode
    sub        edx,eax
    mov        CodeSize,edx
    invoke    VirtualAllocEx,hProcess,0,CodeSize,MEM_COMMIT+MEM_RESERVE,PAGE_READWRITE
    mov        hMem,eax
    lea        ebx,InjectedCode
    invoke    WriteProcessMemory,hProcess,eax,ebx,CodeSize,0
    invoke    VirtualProtectEx,hProcess,hMem,CodeSize,PAGE_EXECUTE_READ,0
    invoke    CreateRemoteThread,hProcess,0,0,hMem,0,0,0
    invoke    WaitForSingleObject,eax,INFINITE
    invoke    VirtualFreeEx,hProcess,hMem,CodeSize,MEM_DECOMMIT
    
    ret
CloseRemoteHandle EndP

------------------------------------------------------------
Если функции CloseRemoteHandle передать handle и hProcess, она, без проблем,завершит(закроет) handle.
Я плохо знаю Assembler:

> Поставьте коментарии, объясните пожалуйста, что, где, зачем...
> Этот код нужен мне на VB 6.0, кто реальные спецы, переведите, пожалуйста на VB 6.0.

Это сообщение отредактировал(а) Akina - 16.12.2007, 23:24

Akina

Дата 15.12.2007, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Приведенного кода мало - присутствуют ссылки на объявленные вне функции переменные.

Цитата(PROMARK @ 15.12.2007, 13:11

)

объясните пожалуйста, что, где, зачем

Имена API-функций, выхываемых через invoke, видны - берите MSDN и разбирайте каждую из использованных функций. Смотрите, какие возвраты куда сохраняются и где дальше используются. Проделайте все то же на VB6, помня, что при API-вызовах следует резервировать пространство под строки до вызова функции.

PS. Если будет продолжено в духе "сделайте мне" - тема вылетит в "Центр помощи". Начинайте делать. Будут проблемы - поможем.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

iff

Дата 16.12.2007, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16

PROMARK, почему Вы пользуетесь кодом VB, - это савершенно не уместно. Логично использовать тег кода Ассемблера.

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

Akina

Дата 16.12.2007, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

По рекомендации iff исходный постинг отредактирован.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »