DLL и DRKB

[vitalik007]

здравствуйте!!
в DRKB есть статья
Системные функции и WInApi-Windows-DLL-аналог DumpBin
я всё переписал
захожу в командную строку и ввожу что написано и у меня выдаёт сообщение о ошибке
в части
ImageBase := GetModuleHandle(PChar(cmdline));
if (ImageBase = 0) thenbegin
MessageBox(0, 'Error Load ModuleQ', 'Error', MB_OK);
halt(0);
end;
помогите!!!

[Ring0Sn]

Выложи код полностью че ты там написал

[vitalik007]

program ExpDump;

uses windows;

var
ImageBase : DWord;
DosHeader : PImageDosHeader;
PeHeader : PImageNtHeaders;
PExport : PImageExportDirectory;
pname : PDWord;
name : PChar;
i : Integer;
cmdline : string;
function Dump(const log: PChar): boolean;
Var hFile : THandle;
dwError : DWord;
dwWritten : DWord;
buffer : PChar;
begin
hFile := CreateFile(PChar(cmdline + '_fexport.txt'), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);


dwError := SetFilePointer(hFile, 0, nil, FILE_END);

buffer := PChar(log + #13#10);
WriteFile(hFile, buffer^, length(buffer), dwWritten, nil);



end;

begin
if (ParamCount < 1) then halt(0) else cmdline := ParamStr(1);

ImageBase := GetModuleHandle(PChar(cmdline));

DosHeader := PImageDosHeader(ImageBase);


PEHeader := PImageNtHeaders(DWord(ImageBase) + DWord(DosHeader^._lfanew));


PExport := PImageExportDirectory(ImageBase + DWord(PEHeader^.OptionalHeader.Data Directory[IMAGE_DIRECTORY_ENTRY_EXPORT].VirtualAddress));
pname := PDWord(ImageBase + DWord(PExport^.AddressOfNames));


Dump(PChar('Programm ExpDump =)'));
Dump(PChar(cmdline + ' functions:'));
Dump(PChar(#13#10));

For i := 0to PExport^.NumberOfNames - 1dobegin
name := PChar(PDWord(DWord(ImageBase) + PDword(pname)^));
if (not Dump(name)) then halt(0);
inc(pname);
end;
end.

[Ring0Sn]

Заметь что у тебя функиця Dump(const log: PChar): boolean; невозвращает результата а здесь

if (not Dump(name)) then halt(0);

на её результат ссылаешься + хэндлы незакрываешь ))
Попробуй так:

program PeDump;
{$APPTYPE CONSOLE}
uses
  windows;

var
  ImageBase : DWord;
  DosHeader : PImageDosHeader;
  PeHeader : PImageNtHeaders;
  PExport : PImageExportDirectory;
  pname : PDWord;
  name : PChar;
  i : Integer;
  cmdline : string;

  function Dump(const log: PChar): boolean;
  Var hFile : THandle;
      dwError : DWord;
      dwWritten : DWord;
      buffer : PChar;
  begin
    Result:= false;
    hFile := CreateFile(PChar(cmdline + '_fexport.txt'), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
    dwError := SetFilePointer(hFile, 0, nil, FILE_END);
    buffer := PChar(log + #13#10);
    if (hFile > 0) or (dwError = 0) then
      if WriteFile(hFile, buffer^, length(buffer), dwWritten, nil) then
        Result:= true;
    CloseHandle(hFile);
  end;

  begin
    if paramcount < 1 then halt(0) else cmdline := ParamStr(1);

    ImageBase := GetModuleHandle(PChar(cmdline));
    DosHeader := PImageDosHeader(ImageBase);
    PEHeader := PImageNtHeaders(DWord(ImageBase) + DWord(DosHeader^._lfanew));
    PExport := PImageExportDirectory(ImageBase + DWord(PEHeader^.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].VirtualAddress));
    pname := PDWord(ImageBase + DWord(PExport^.AddressOfNames));

    Dump(PChar('Programm ExpDump =)'));
    Dump(PChar(cmdline + ' functions:'));
    Dump(PChar(#13#10));

    For i := 0 to PExport^.NumberOfNames - 1 do
    begin
      name := PChar(PDWord(DWord(ImageBase) + PDword(pname)^));
      if (not Dump(name)) then Halt(0);
      inc(pname);
    end;
  end.

[Ring0Sn]

Прикрепил полностью исходник подправленный:

[vitalik007]

все равно не работает захожу в командную строку ввожу имя ехе а потом DLL
и пишет ошибку и ничего в файл не записывается

[Ring0Sn]

код твой для всех рабоать и несобирался изначально ! для user32.dll, kernel32.dll, .. работать должен

[Ring0Sn]

Смотри что пишут

Эта таблица содержит необязательные (по мнению Microsoft, ничего себе ;-) имена экспортируемых функций. Данный массив используется для совместно с Name Table Pointers и Ordinal Table для обеспечения связывания загрузчиком импорта/экспорта по имени. Механизм описывался выше. Каждый элемент являет собой ASCIZ строку с именем экспортируемой функции. Никто не говорит, что они должны в файле идти друг за другом последовательно, хотя так и построено большинство файлов. Надо отметить, что имена экспорта чувствительны к регистру.
Отметим особенность загрузчика - при связывании, если адрес функции находится в секции экспорта, то на самом деле по указанному адресу лежит строка переадресующая к другой библиотеке экспортирующей данную функцию (с указанием библиотеки и самой функции), это называется передача экспорта (если верить Мэту Питреку, я данную фичу еще не проверял).

Если интересно то рой в сторону ФОРМАТ ИСПОЛНЯЕМЫХ ФАЙЛОВ PortableExecutables (PE)

[vitalik007]

Сообщение от Ring0Sn

код твой для всех рабоать и несобирался изначально ! для user32.dll, kernel32.dll, .. работать должен

ну не знаю у меня не работает проверь у себя

[Ring0Sn]

Я бы нестал говорить тебе что БУДЕТ РАБОТАТЬ непроверив у себя ))
Думаю с путями что то нето делаешь
пробуй тошто ниже тогда
Распакуй просто архив и запусти батник