Вниз
Скачать: CL | DM;

ImportTable   Найти похожие ветки 

 
Gost1   (2004-05-12 12:46) [0]

type
  PImageImportByName = ^TImageImportByName;
  _IMAGE_IMPORT_BY_NAME=packed record
   HInst: Word;
   Name: Byte;
 end;
 TImageImportByName =_IMAGE_IMPORT_BY_NAME;

TThunk=packed record
case Integer of
0: (ForwarderString: PByte);
1: (thFunction: PDWORD);
2: (Ordinal: DWORD);
3: (AddressOfData: PImageImportByName);
end;

PImageThunkData=^TImageThunkData;
_IMAGE_THUNK_DATA=packed record
Thunk: TThunk;
end;
TImageThunkData=_IMAGE_THUNK_DATA;
IMAGE_THUNK_DATA=_IMAGE_THUNK_DATA;


 PImport := PImageImportDescriptor(DWord(PEHeader.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress) + DWord(ImageBase));
  while (PImport.Name > 0) do begin
   модули тут перебираются все ок!
   lstrcpyn(PChar(@buf), PChar(PImport.Name + ImageBase), 15);
   MessageBox(0, PChar(@buf), "", MB_OK);
   pThunk := PImageThunkData(ImageBase + DWord(PImport.FirstThunk));
   while (pThunk.Thunk.thFunction <> nil) do begin
скорее всего неверно - тут, как получить смешение на имя импортируемой ф-ии?
pImpName := PImageImportByName(DWord(pThunk.Thunk.AddressOfData) + ImageBase);
    lstrcpyn(PChar(@buf), PChar(pImpName.Name + ImageBase), 8);
    MessageBox(0, PChar(@buf), "", MB_OK);
    inc(pThunk);
   end;
  inc(PImport);
  end; {while name}

Поглядите, плзз на код. Я хочу перечислить все импортируемые ф-ии. Получаю указатель на PImageThunkData, потом в цикле до нулевой секции на PImageImportByName, но вот тут скорее всего и есть оишибка, как правильно получить этот указатель? Используемые record"ы приведены!


 
Digitman ©   (2004-05-12 13:27) [1]

после того как в ран-тайм импортируемый модуль был загружен и присоединен к импортирующему модулю, значение поля pThunk.Thunk.thFunction содержит не ссылку на имя имп.ф-ции (или ее ординал), а VA точки входа в саму ф-цию ... т.е. ссылка на имя/ординал импортируемой ф-ции теряется (затирается вычисленным реальным значением ее точки входа)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.119 c
3-1085706544
Slavik_v
2004-05-28 05:09
2004.06.20
Интеграция Delphi7 b Excel


1-1086580409
t100
2004-06-07 07:53
2004.06.20
Преобразование в длинное имя файла по короткому.


11-1075212085
Boguslaw
2004-01-27 17:01
2004.06.20
Stack overflow in KOL


1-1086214347
Win64
2004-06-03 02:12
2004.06.20
Запуск (скрытый) консоли и получение из нее текста в листбоск


14-1086082718
Computerny_Geniy
2004-06-01 13:38
2004.06.20
Сообщение перед спящим режимом




   Наверх