VPF::DLL - Форум программистов

Guest

Дата 18.3.2004, 21:16 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

kak uznat funktsi neizvestnoy DLL?
--------------------------------------------

---zaranee THANKS----

---Imagination is more important than knowledge---
A.Einstein

<Spawn>

Дата 18.3.2004, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Юзай дельфийский TDump.exe

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

oleg1973

Дата 18.3.2004, 22:29 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 1
Всего: 34

EXESCOPE
самая разрульная гляделка

--------------------

SST 465555
icq 200-512-712

p0s0l

Дата 19.3.2004, 07:47 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Может ему в программе надо узнать это ?
PS: В Win9x можно посмотреть экспорт простой стандартной прогой quikview...

--------------------

С уважением, г-н Посол.

Curve

Дата 20.3.2004, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 5.1.2004

Репутация: 1
Всего: 1

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

p0s0l

Дата 20.3.2004, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Если надо програмно узнать, то делается примерно так:

Код

procedure TForm1.Button2Click(Sender: TObject);
var
  h, fm : THandle;
  buf : pointer;
  size : cardinal;
  ied : PImageExportDirectory;
  i : integer;
  s : string;
  
  function VA (RVA : cardinal) : pointer;
  var
    _ish : PImageSectionHeader;
  begin
    _ish := nil;
    Result := ImageRVAtoVA (ImageNtHeader(Buf), Buf, RVA, _ish);
  end;

begin
  ListBox1.Items.Clear;

  h := CreateFile ('c:\windows\system32\kernel32.dll', GENERIC_READ,FILE_SHARE_READ+FILE_SHARE_WRITE+FILE_SHARE_DELETE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  fm := CreateFileMapping (h, nil, PAGE_READONLY, 0, 0, nil);
  Buf := MapViewOfFile (fm, FILE_MAP_READ, 0, 0, 0);
  ied := ImageDirectoryEntryToData (Buf, False, IMAGE_DIRECTORY_ENTRY_EXPORT, size);
  ListBox1.Items.Add('"' + PChar(VA(ied.Name)) + '":');
  for i := 0 to ied.NumberOfFunctions-1 do
  begin
    if i < ied.NumberOfNames then s := PChar(VA(PCardinal(Cardinal(VA(cardinal(ied.AddressOfNames)))+i*4)^))
      else s := '';
    ListBox1.Items.Add(IntToStr(PWord(cardinal(VA(cardinal(ied.AddressOfNameOrdinals)))+i*2)^ + ied.Base) + ': ' + s);
  end;

  UnmapViewOfFile (buf);
  CloseHandle (fm);
  CloseHandle (h);
end;

Хотя можно сделать и без Mapping-ов, просто надо будет найти секцию, в которой находится таблица экспорта... Просто было лень делать...

--------------------

С уважением, г-н Посол.

Guest

Дата 21.3.2004, 06:18 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Vsem Bolshoye SPASIBO

________________________________
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Imagination is more important than knowledge!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »