Зомби

[ANDLL]

Кстати, я действительно удивлен, но все оказалось элементарно просто:

Код: Выделить всё

Private Declare Sub Zombie_Release Lib "msvbvm60.dll" (ByVal nClass As Any)
Private Declare Sub Zombie_AddRef Lib "msvbvm60.dll" (ByVal nClass As Any)

Private Sub Form_Load()

    Dim nC As New Class1
    nC.Var1 = "10"
    Zombie_AddRef nC
    Zombie_Release nC
    Set nC = Nothing
    Stop

End Sub


Собственно, их назначение очевидно.

[ANDLL]

Вы спросите, почему не сработало объявление объекта As IUnknown?
А вы взгляните на vtable этого интерфейса. Там в поле нумер 2 оккурат заполенено нулями.

[tyomitch]

Мне всё ещё непонятно.
В чём отличие от BASIC_CLASS_Release

[ANDLL]

Код: Выделить всё

    Dim hLib As Long
    hLib = LoadLibrary("msvbvm60.dll")
    Dim pZombie As Long
    pZombie = GetProcAddress(hLib, "BASIC_CLASS_Release")
    MsgBox pZombie
    pZombie = GetProcAddress(hLib, "Zombie_Release")
    MsgBox pZombie


[BV]

Код: Выделить всё

1711378559

Ну тогда не понимаю - зачем нужно было дублировать???

[tyomitch]

ANDLL, спасибо. Всё понятно.

[GSerg]

Ну тогда не понимаю - зачем нужно было дублировать???

Ну как тебе сказать

Вот есть unsigned int. Но для пущей ясности завели ещё и DWORD, который тоже unsigned int на самом деле - но с ним яснее и красивее

[ANDLL]

2GSerg:вообще-то DWORD=unsigned long int=ULONG=HRESULT=HANDLE=HWND=HICON=HDC=HBITMAP=любой тип длиной 4 байта. А unsigned int имеет длину 3 байта. Вроде бы...

[tyomitch]

Длину 3 байта не имеет вообще ничего, кроме пожалуй RGBTRIPLE
long и int в Win32 - синонимы.

[ANDLL]

Вот блин. 2GSerg:Дико извиняюсь, что усомнился в Ваших знаниях.

[ANDLL]

Вод код функции Zombie_Release:

Код: Выделить всё

  mov         eax,dword ptr [esp+4]
  mov         eax,dword ptr [eax+8]
  push        eax 
  mov         ecx,dword ptr [eax]
  call        dword ptr [ecx+8]
  ret         4   


А вот еще кое-что:

Код: Выделить всё

  mov         eax,dword ptr [esp+4]
  mov         eax,dword ptr [eax+8] 
  mov         eax,dword ptr [eax]
  jmp         dword ptr [eax+8]
  int 3 ;Шось не так...


Не кажеться ли Вам, что этот код несколько быстрее и компактнее? И главное полностью идентичен. Последнюю строчку можно, в принципе, убрать...

[tyomitch]

Вод код функции Zombie_Release:

Код: Выделить всё

  mov         eax,dword ptr [esp+4]
  mov         eax,dword ptr [eax+8]
  push        eax 
  mov         ecx,dword ptr [eax]
  call        dword ptr [ecx+8]
  ret         4   


А вот еще кое-что:

Код: Выделить всё

  mov         eax,dword ptr [esp+4]
  mov         eax,dword ptr [eax+8] 
  mov         eax,dword ptr [eax]
  jmp         dword ptr [eax+8]
  int 3 ;Шось не так...


Не кажеться ли Вам, что этот код несколько быстрее и компактнее? И главное полностью идентичен. Последнюю строчку можно, в принципе, убрать...

Не идентичен. Оригинальный код передаёт параметром dword ptr [dword ptr [esp+4]+8], а твой нет.
Но пару call dword ptr [ecx+8]; ret 4 - действительно можно заменить на jmp dword ptr [ecx+8]. Дело в том, что MSVBVM писали не на асме, а на сях. Сишный компилятор так не умеет.

[ANDLL]

Не понял. В качестве dword ptr [esp+4] передается экземпляр нашего объекта(т.е. наш примудрый vtable**). Функция Release, кажеться, ожидает в качестве единственного параметра именно это значение.

Разберемся:
mov eax,dword ptr [esp+4] 'eax=vtable**
mov eax,dword ptr [eax+8] 'Зачем???

И еще: если выполнялась команда push, то уже нельзя выполнять jmp на функцию. Т.е. твой вариант не подходит.

[GSerg]

Что значит зачем?
vtable получил, а указатель на release?

[ANDLL]

А зачем
push eax

[tyomitch]

Что значит зачем?
IUnknown::Release же должна параметр получить?
Легко заметить, что в оригинальном коде в стек кладётся не dword ptr [esp+4], а совсем другое значение.

Про то, что если есть push, то jmp не сработает: согласен. А зато вот так можно:

Код: Выделить всё

  mov         eax,dword ptr [esp+4]
  mov         eax,dword ptr [eax+8]
  mov         dword ptr [esp+4], eax
  mov         ecx,dword ptr [eax]
  jmp         dword ptr [ecx+8]


[ANDLL]

Да. Но она должна получить то же, что получила наша зомби. Т.е. просто [esp+4], а не [[esp+4]+8]

[ANDLL]

Есть подозрение, что Zombie_Release вовсе не вызывает функцию Release() COM-класса. Т.е. для классов, написанных не на VB данная функция работать не будет.

[tyomitch]

Да. Но она должна получить то же, что получила наша зомби. Т.е. просто [esp+4], а не [[esp+4]+8]

Чего-то ты конкретно гонишь. По-твоему, функция выглядит так?

Код: Выделить всё

ULONG BASIC_CLASS::Release() {return this.Release();}


Если да, то очевидно, что она зацикливается. Отсюда вывод: она делает совсем не это.

[tyomitch]

Есть подозрение, что Zombie_Release вовсе не вызывает функцию Release() COM-класса.

А что, по-твоему, она делает?

Т.е. для классов, написанных не на VB данная функция работать не будет.

Совершенно верно. Потому что это не standalone функция, а метод VB-класса. Параметром this она ожидает именно VB-класс.

[ANDLL]

Ну если так, то все понятно.

[tyomitch]

На всякий случай: она делает вот это -

Код: Выделить всё

ULONG BASIC_CLASS::Release() {return this.pUnk.Release();}

IUnknown* pUnk - третье поле объекта.
Т.е. в this[0] лежит pVTbl, в this[4] - чёрти-что, в this[8] - pUnk.
Тебя сначала, по-видимому, смутило совпадение индексов (8 там и 8 тут).

[ANDLL]

Откуда такие познания? Сам допер, или где-то по этому поводу есть информация?

[tyomitch]

Сам допёр, из соображений здравого смысла
Если кто-то предложит более правдоподобную гипотезу - с интересом выслушаю.