Определение имени функции

[kotov-zhenja]

Всем доброго дня! Есть программа определяющая таблицу импорта РЕ файлов, куда именно она выводит я нашел, количество выводимых функций тоже, но их имена не получается. Вот код

procedure TForm1.ListDLLImport(const FileName, path: string; List: TStrings);
type
   TDWordArray = array [0..$FFFFFFF] of DWORD;
var
  ulSize: Cardinal;
  Image: PIMAGE_IMPORT_DESCRIPTOR;
  Name: PansiChar;
  Module: HMODULE;
  hFile, hMap : THandle;
  imageinfo: LoadedImage;
  pNameRVAs: ^TDWordArray;
  pDummy: PImageSectionHeader;
  iibn : PImageImportByName;
  k:Integer;
  itd : PImageThunkData;
function va(rva : cardinal) : cardinal;
var
  LastSection: PImageSectionHeader;
begin
  LastSection := nil;
  Result := cardinal (ImageRvaToVa (imageinfo.FileHeader, imageinfo.MappedAddress,
                      Image^.FirstThunk, LastSection));
end;
begin
   List.Clear;
   if MapAndLoad(PansiChar(AnsiString(FileName)),PansiChar(AnsiString(path)), @imageinfo, True, True) then
   begin
    Image := ImageDirectoryEntryToData(imageinfo.MappedAddress, false, IMAGE_DIRECTORY_ENTRY_IMPORT, ulSize);
    if Image <> nil then
    begin
      while Image.FirstThunk <> 0 do
      begin
        Name := PansiChar(ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,
             Image^.Name, pDummy));
        List.Add('    '+Name);
       k:=0;
       itd:= PImageThunkData (va (cardinal (Image.OriginalFirstThunk)));
       while itd.Ordinal <> 0 do
        begin
          if (itd.Ordinal shr 31) = 1 then
          begin
            List.add ('index: ' + inttostr (itd. Ordinal));
            inc (k);
          end
          else
          begin
            inc (k);
            iibn:= PImageImportByName (va (cardinal (itd^.AddressOfData)));
            List.add (' name: ' +  PansiChar(@iibn.Name));
          end;
          inc (cardinal (itd), sizeof (itd ^));
        end;
        inc (n);
        Image := Pointer(Integer(Image) + sizeof(IMAGE_IMPORT_DESCRIPTOR));
      end;
    end;
  end;
end;

[kotov-zhenja]

Неужели не кто не работал с таблицой импорта

[Stilet]

Я ее создавал (таблицу), и описывал это в статьях в журнале, который когда-то родился у нас в клубе. Но считывание никогда не делал. Хотя там ничего сложного нет.

[kotov-zhenja]

Stilet большое спасибо что написал. Почти разобрался но особенность, не все функции выводит в 64 битных библиотеках. Вроде особенностей быть не должно, но.. если можешь посмотри вот код

type
   TDWordArray = array [0..$FFFFFFF] of DWORD;
var
  ulSize: Cardinal;
  Image: PIMAGE_IMPORT_DESCRIPTOR;
  Name: PansiChar;
  imageinfo: LoadedImage;
  pDummy: PImageSectionHeader;
  iibn : PImageImportByName;
  itd : PImageThunkData;

function va(rva : cardinal) : cardinal;
var
  LastSection: PImageSectionHeader;
begin
  LastSection := nil;
  Result := cardinal (ImageRvaToVa (imageinfo.FileHeader, imageinfo.MappedAddress,
                      rva, LastSection));
end;

begin
   List.Clear;
   if MapAndLoad(PansiChar(AnsiString(FileName)),PansiChar(AnsiString(path)), @imageinfo, True, True) then
   begin
    Image := ImageDirectoryEntryToData(imageinfo.MappedAddress, false, IMAGE_DIRECTORY_ENTRY_IMPORT, ulSize);
    if Image <> nil then
    begin
      while Image.FirstThunk <> 0 do
      begin
        Name := PansiChar(ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,
             Image^.Name, pDummy));
        List.Add('    '+Name);
        inc (n);
      //  k:=0;
       itd:= PImageThunkData (va (cardinal (Image.Characteristics)));
       if itd<> nil then
       while itd.Ordinal <> 0 do
        begin
          if (itd.Ordinal shr 31) = 1 then
          begin
            List.add ('index: ' + inttostr (itd. Ordinal));
          end
          else
          begin
            iibn:= PImageImportByName (va (cardinal (itd.AddressOfData)));
            if iibn<>nil then List.add (' name: ' +  PansiChar(@iibn.Name))
            else List.add ('index: ' + inttostr (itd. Ordinal));;
          end;
          inc (cardinal (itd), sizeof (itd ^));
          inc (k);
        end;
        Image := Pointer(Integer(Image) + sizeof(IMAGE_IMPORT_DESCRIPTOR));
        //List.Add('    '+IntToStr(k));
      end;
    end;
  end;
end;

[kotov-zhenja]

и библиотека
http://files.webfile.ru/afac269abf9a...56f4699ffdf531

[Stilet]

MapAndLoad, ImageDirectoryEntryToData... Мне такие функции незнакомы. Я бы просто читал из файла данные по позиции секции, потом по структуре таблицы импорта...
Ну не знаю, если время будет, попробую показать примером.

[kotov-zhenja]

Спасибо, буду ждать

[Vapaamies]

Неужели в интернетах нет ни одного дампера PE-файлов на Delphi? Я в PE Tool думал со временем сделать подобное, но оно не в приоритетах.

[min@y™]

Неужели в интернетах нет ни одного дампера PE-файлов на Delphi? Я в PE Tool думал со временем сделать подобное, но оно не в приоритетах.

Как на счёт плугина к тоталкоммандыру?
1533231.jpg

[kotov-zhenja]

Решение нашел, осталось лишь определить тип файла PE или PE+
Обещаю скинуть исходники по окончанию