Получение таблицы импорта pe файла

[kotov-zhenja]

С экспортом разобрался, теперь бы получить импорт. Нашел статьи но не могу разобраться(

[VIK_aka_TOR]

и все конечно знают о каком, куда и чего вы импорте/экспорте говорите.

[Stilet]

А точно так же. Есть секция импорта - ее и читать.

[kotov-zhenja]

type
   TDWordArray = array [0..$FFFFF] of DWORD;
 var
   imageinfo: LoadedImage;
   pImport: PImageImportDescriptor;
   dirsize: Cardinal;
   pDummy: PImageSectionHeader;
   i: Cardinal;
   pNameRVAs: ^TDWordArray;
   Name: string;
 begin
   List.Clear;
   if MapAndLoad(PansiChar(AnsiString(FileName)),PansiChar(AnsiString(path)), @imageinfo, True, True) then
   begin
     try
       pImport := ImageDirectoryEntryToData(imageinfo.MappedAddress,
         False, IMAGE_DIRECTORY_ENTRY_IMPORT, dirsize);
       if (pImport <> nil) then
       begin
         pNameRVAs := ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,
           DWORD(pImport^.Name), pDummy);
         for i := 0 to pImport^.Name - 1 do
         begin
           Name := PansiChar(ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,
             pNameRVAs^[i], pDummy));
           List.Add(Name);
         end;
       end;
     finally
       UnMapAndLoad(@imageinfo);
     end;
   end;
 end;

вылетает вот тут

Name := PansiChar(ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,

[kotov-zhenja]

Количество импорта просто ужасно большое

и все конечно знают о каком, куда и чего вы импорте/экспорте говорите.

увы вы ошиблись, цели не те

помощь так и прет(( может тему в другой раздел надо

[ДралсяСошибками]

А что именно ВЫ хотите увидеть и в каком виде?

[kotov-zhenja]

Количество импортируемых функций и их название.

procedure TForm1.ListDLLImport(const FileName, path: string; List: TStrings);
var
 hFile, hMap : THandle;
 iid : PIMAGE_IMPORT_DESCRIPTOR;
 itd : PImageThunkData;
 iibn : PImageImportByName;
 Image : pointer;
 ImageAdr : cardinal absolute Image;
 ifh : PImageFileHeader;
 ioh : PImageOptionalHeader32;
 nthdrs : PImageNtHeaders32;
 DirSize : cardinal;
 Dir : pointer;

 function va(rva : cardinal) : cardinal;
 var
   LastSection : PImageSectionHeader;
 begin
   LastSection := nil;
   Result := cardinal(ImageRvaToVa(nthdrs, Image, rva, LastSection));
 end;

begin

 hMap := CreateFileMapping(hFile, nil, PAGE_READONLY, 0, 0, nil);
 Image := MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, 0);
 nthdrs := (Image);

 ifh := @nthdrs^.FileHeader;
 ioh := @nthdrs^.OptionalHeader;

 dir := ImageDirectoryEntryToData (Image, FALSE, IMAGE_DIRECTORY_ENTRY_IMPORT, DirSize);
 iid := PIMAGE_IMPORT_DESCRIPTOR(dir);
 itd := PImageThunkData(va(cardinal(iid.FirstThunk)));
 while itd.Ordinal<>0 do
 begin
   if (itd.Ordinal shr 31) = 1 then
   begin
    // List.Add('index:');
     List.Add('index:' + inttostr(itd.Ordinal));
   end
   else
   begin
     iibn := PImageImportByName(va(cardinal(itd.AddressOfData)));
     List.add('name:' + PChar(@iibn.Name) + ' ' + inttostr(iibn.hint));
   //  List.add('name:');
   end;
   inc(cardinal(itd), sizeof(itd^));
 end;

end;

Вылетает при чтение адреса, но даже количество не совпадает

[kotov-zhenja]

Сделал. Выкладываю код

procedure TForm1.Button1Click(Sender: TObject);
var
   List: TStrings;
   i: Integer;
   s: string;
 begin
   List := TStringList.Create;
  try
     ListBox1.Items.Clear;
     ListDLLExports(Edit1.Text,Edit2.Text, List);
     ListBox1.Items.Add(IntToStr(list.Count) + ' Exports functions in dll');
     s := 'List of functions:';
     for i := 0 to List.Count - 1 do
       ListBox1.Items.Add(List[i]);
   finally
     List.Free
   end;
   List := TStringList.Create;
   try
     ListBox2.Items.Clear;
     ListDLLImport(Edit1.Text,Edit2.Text, List);
     ListBox2.Items.Add(IntToStr(list.Count) + ' Imports functions in dll');
     s := 'List of functions:';
     for i := 0 to List.Count - 1 do
       ListBox2.Items.Add(List[i]);
   finally
     List.Free
   end;
 end;

procedure TForm1.ListDLLExports(const FileName,path: string; List: TStrings);
type
   TDWordArray = array [0..$FFFFF] of DWORD;
 var
   imageinfo: LoadedImage;
   pImport: PImageExportDirectory;
   dirsize: Cardinal;
   pDummy: PImageSectionHeader;
   i: Cardinal;
   pNameRVAs: ^TDWordArray;
   Name: string;
 begin
   List.Clear;
   if MapAndLoad(PansiChar(AnsiString(FileName)),PansiChar(AnsiString(path)), @imageinfo, True, True) then
   begin
     try
       pImport := ImageDirectoryEntryToData(imageinfo.MappedAddress,
         False, IMAGE_DIRECTORY_ENTRY_EXPORT, dirsize);
       if (pImport <> nil) then
       begin
         pNameRVAs := ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,
           ULONGLONG(pImport^.AddressOfNames), pDummy);
         for i := 0 to pImport^.NumberOfNames - 1 do
         begin
           Name := PansiChar(ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,
             pNameRVAs^[i], pDummy));
           List.Add(Name);
         end;
       end;
     finally
       UnMapAndLoad(@imageinfo);
     end;
   end;
 end;


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;
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);
        Image := Pointer(Integer(Image) + sizeof(IMAGE_IMPORT_DESCRIPTOR));
      end;
    end;
  end;
end;