Динамическое создание функций в run-time. Как реализовать?

[jangle]

Никак не могу придумать, как реализовать. Допустим есть такая функция.

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

Function Foo1(ByVal X as Long) as Long
....
....
End Function

В процессе работы программы, мне нужно создать несколько экземпляров таких функций. Эти функции, я вызываю по указателю.
Программка на PB, поэтому всякий ООП здесь не прокатит

[Antonariy]

Первое, что приходит в голову (это только предположение) - склонировать участок памяти, занимаемый функцией, с помощью CopyMemory. Потом VirtualProtect и остальные па.

А зачем это вообще нужно?

[jangle]

Нужно для подключения плагинов, у каждого плагина должна быть своя CallBack функция внутри основной программы, для обмена данными. Количество подключенных плагинов, заранее неизвестно и может быть произвольным

[Хакер]

jangle
Создаёшь новую приватную кучу, изначально выставляя её выполняемой. (Можешь конечно возиться с Virtual(Alloc|Protect|Free), если есть желание делать свой механизм куч).

Для каждой новой динфункции вызываешь HeapAlloc (нужного размера) и затем делаешь CopyMemory туда код своей оригинальной функции функции.

Удаляешь соответственно HeapFree-ом.

В конце приватную кучу также уничтожаешь HeapDestroy-ем.

Antonariy
Применений может быть великиое множество: динамические WindowProc-и, узлы конечных автоматов и т.д.

[jangle]

Cпасибо, действительно, оказывается проще всего скопировать функцию в другое место. Можно даже запихнуть ее в переменную и вызывать от туда. Нашел вот такой код, как раз то что нужно:

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

#Compiler PBWin
#Compile Exe
#Dim All

Declare Function template (ByVal param As Long) As Long
'
Function work(ByVal param As Long) As Long
    Local s As Long
    s=param*100&
    Function=s
End Function
'
Function PBMain () As Long
  Local fn,dwRes,fake As Dword
  Dim sFunc As Static String *1024
' copy function to string
  sFunc=Peek$(CodePtr(work),CodePtr(PBMain)-CodePtr(work))
  Open "FunctionInString.bin" For Output As #1
    Print #1, sFunc; 'Save important function as external file.You can even crypt it.
  Close #1
'=====================================
  sFunc="" '<------- just for prove
  Open "FunctionInString.bin" For Binary As #1
    Get$ #1,Lof(1),sFunc ' If will be crypted , then run uncrypt algo
  Close #1
' get address of string
  fn=VarPtr(sFunc)
' Call function located in string
  Call Dword fn Using template(ByVal 20&) To dwRes
' Display result of function in string
  ? Str$(dwRes)
 
  Call Dword fn Using template(ByVal 40&) To dwRes
' Display result of function in string
  ? Str$(dwRes)
 
 
End Function           

[Хакер]

Этот код НЕЛЬЗЯ использовать. Ни в коем случае.

Он DEP-Unsafe.

По логике этого кода - динкод помещается в стек -- это грубейшее нарушение.

[jangle]

Этот код НЕЛЬЗЯ использовать. Ни в коем случае.

Он DEP-Unsafe.

По логике этого кода - динкод помещается в стек -- это грубейшее нарушение.

Странно, включил режим DEP для всех программ, перезагрузил комп. Попробовал запустить этот пример. Работает однако... Может он его в стек не помещает?

[Хакер]

Вряд ли локальные переменные помещаются не в стек. Впрочем, я не знаю, как это сделано в PB.

Возможно, это баги DEP. На некоторых процессорах он хоть и включен, работает неадекватно.

Возможно, что PB перед тем как делать Call Dword fn Using template(ByVal 20&) To dwRes ставит странице с fn E-флаг. Это тоже плохо - данные не должны быть execut-абельными, иначе от вторжений никакой DEP не спасёт.

[jangle]

Кстати, я где-то видел пример использования ассемблера в VB6. Там ассемблерная строка, компилировалась в HEX последовательность, и потом запускалась из VB-переменной, API функцией CallWindowProc.
IMHO здесь тоже самое. Или я ошибаюсь?

[Хакер]

Это морально устаревшие кривые примеры. Видел ты их в FAQ.

Когда их писали - небыло DEP.

Теперь (да, собственно, всегда: но теперь - особо строго) код должен быть исключительно в R_E-страницах, а данные - в R(W)_-страницах.


Что тебе мешает использовать приватную кучу?

[jangle]

Надо будет попробовать пример с приватой кучей, мне важно чтобы программа работала на всех машинах. И всякие потенциальные проблемы иметь неохота

[ANDLL]

[Хакер] :: Нецензурщина вырезена.

Нужно для подключения плагинов, у каждого плагина должна быть своя CallBack функция внутри основной программы, для обмена данными. Количество подключенных плагинов, заранее неизвестно и может быть произвольным

Конкретно в описанной задаче генерировать новую функию вообще не нужно.
Я понимаю желание людей узнавших ассемблер применить его в первой попавшейся задаче, но все же надо знать меру:)

[jangle]

Конкретно в описанной задаче генерировать новую функию вообще не нужно.

Почему не нужно? Представть, что все плагины пишут данные одновременно в программу-сервер, причем с разной скоростью. Гораздо удобнее, если для каждого есть своя CallBack функция, чтобы сервер смог отреагировать на активность плагина, в промежутке занимаясь другими делами

[Хакер]

jangle
У тебя сгенерированные callback-и будут чем то отличаться друг от друга?

[ANDLL]

Нет, гораздо удобнее это когда одна callback функция и у нее есть параметр отвечающий за то, какой именно плагин ее вызвал. По крайней мере это правильнее

[jangle]

У тебя сгенерированные callback-и будут чем то отличаться друг от друга?

Ничем, одни все однотипные.

Нет, гораздо удобнее это когда одна callback функция и у нее есть параметр отвечающий за то, какой именно плагин ее вызвал. По крайней мере это правильнее

Вот как раз определить, какой из плагинов отправил данные я не могу. Плагин просто вызывает мою функцию, и передает в нее параметры без всякой индификации. Поэтому, и появилась мысль, сделать для каждого свою callback

[Хакер]

Ничем, одни все однотипные.

Тогда смысла действительно нет.

Вот как раз определить, какой из плагинов отправил данные я не могу. Плагин просто вызывает мою функцию, и передает в нее параметры без всякой индификации. Поэтому, и появилась мысль, сделать для каждого свою callback

Ну так программа же твоя - измени протокол общения плагинов с программой - введи дополнительный параметр - хэндл плагина.

[jangle]

Ну так программа же твоя - измени протокол общения плагинов с программой - введи дополнительный параметр - хэндл плагина.

Это невозможно. Протокол фиксирован разработчиками плагинов изменить его нельзя. Хендл тоже немогу узнать, т.к. моя программа сама выдает хендл, своей CallBack функции, когда ей приходит команда типа: "Выдай мне указатель на свою функцию, куда буду передавать тебе данные. А затем вызови скриптовый движок, функцию XXXX в скрипте, и передай в нее мои данные"...

Т.е. моя программа это промежуточный, интерфейсный слой, между плагинами и скриптовой частью cистемы. Задача состоит в трансляции данных из плагинов, в определенные функции скрипта, в тот момент, когда происходит передача очередной порции данных.

[ANDLL]

Эмм, ну это тяжкий случай архитектурной дистрофии....
Ну значит HeapAlloc и фперед...

[alibek]

Тогда сделай в своей проге-посреднике диспетчер.
Заглушки будут вызывать основную callback-процедуру, передавая в нее также идентификатор родителя.

[Хакер]

Могу предложить ещё один блэккодинговый вариант: определять вызывающий плагин по адресу возврата в стеке.

Предупреждаю сразу, что способ ненадёжен. Например - если кэлбэк вызывается через тот же CallWindowProc.

[keks-n]

Есть вариант с созданием динамического переходника. В кучу с правами на выполнение записывается последовательность команд:
pop eax
push plug_id
push eax
push func_adr
ret

Вместо plug_id подставить унакальный для каждого плагина номер, вместо func_adr - адрес функции обработчика.
Переходник добавит в стек id-плагина и он окажется первым параметром функции. Переходник работает при stdcall конвенции вызова. Для других конвенций нужен другой переходник. Данный подход хорош тем, что не надо создавать копию функции, а нужно всего лишь несколько байт на плагин.

[Хакер]

[offtopic]
keks-n
И получаем что? Правильно -- прототип таблицы интерцепторов.
[/offtopic]

[keks-n]

Я так CompletionRoutine классо-зависимой делал. Работало.