1 respuesta en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Mostrar la Lista de funciones exportadas de una DLL.

 

Hay que adicionar esta unidad

delphi

uses ImageHlp;

delphi

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

Ejemplo de uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
	var
	  List: TStrings;
	  i: Integer;
	  s: string;
	begin
	  List := TStringList.Create;
	  try
	    ListDLLExports('C:\WINDOWS\SYSTEM32\browseui.dll', List);
	    ShowMessage(IntToStr(list.Count) + ' functions in dll');
	    s := 'Lista de funciones:';
	    for i := 0 to List.Count - 1 do
	      s := s + #13#10 + List[i];
	    ShowMessage(S);
	  finally
	    List.Free
	  end;
	end;

Saludos!

[escafandra]

Hace ya varios años publiqué una herramienta propia capaz de encontrar las funciones y datos exportados e importados por un ejecutable y/o dll: Explorar datos y funciones exportadas e importadas en el formato PE.

 

Es una herramienta que me ha sido de muchísima utilidad a la hora de conocer que funciones o variables exportaba o usaba determinada dll o ejecutable. Esa información es muy útil a la hora de usar una dll o diseñar métodos de ataque por inyección 

 

Aún hoy en día la sigo usando y ha sido uno de mis juguetes preferidos y que más disfruté escribiendo.

 

 

Saludos.