论坛 › Delphi交流 › 哪位还有小甲鱼少爷的Delphi读取PE信息的源码？

powerpro 发表于 2024-2-7 18:45:09

哪位还有小甲鱼少爷的Delphi读取PE信息的源码？

https://fishc.com.cn/forum.php?mod=viewthread&tid=75429
找到一个来晚了。。。啥也没有啦。。。{:5_91:}

FishC 发表于 2024-2-7 18:45:21

不要灰心！我来帮你找一下Delphi读取PE文件信息的源码。以下是一个示例代码，它使用了Delphi的TFileStream类来读取PE文件的信息：

delphi
uses
Windows, SysUtils, Classes;

type
TPEHeader = record
    Signature: DWORD;
    Machine: WORD;
    NumberOfSections: WORD;
    TimeDateStamp: DWORD;
    PointerToSymbolTable: DWORD;
    NumberOfSymbols: DWORD;
    SizeOfOptionalHeader: WORD;
    Characteristics: WORD;
end;

procedure ReadPEFile(const FileName: string);
var
Stream: TFileStream;
PEHeader: TPEHeader;
begin
try
    Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
    try
      // 读取PE头部
      Stream.ReadBuffer(PEHeader, SizeOf(PEHeader));

      // 输出PE头部信息
      WriteLn('Signature: ', PEHeader.Signature);
      WriteLn('Machine: ', PEHeader.Machine);
      WriteLn('Number of Sections: ', PEHeader.NumberOfSections);
      WriteLn('Time/Date Stamp: ', PEHeader.TimeDateStamp);
      WriteLn('Pointer to Symbol Table: ', PEHeader.PointerToSymbolTable);
      WriteLn('Number of Symbols: ', PEHeader.NumberOfSymbols);
      WriteLn('Size of Optional Header: ', PEHeader.SizeOfOptionalHeader);
      WriteLn('Characteristics: ', PEHeader.Characteristics);
    finally
      Stream.Free;
    end;
except
    on E: Exception do
      WriteLn('Error: ', E.Message);
end;
end;

begin
ReadPEFile('YourPEFile.exe');
end.

你需要将"YourPEFile.exe"替换为你要读取的PE文件的完整路径。这段代码会打开指定的PE文件，读取其PE头部信息，并将其输出到控制台。

希望对你有帮助！如果还有其他问题，请随时提问。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

powerpro 发表于 2024-2-7 20:21:13

FishC 发表于 2024-2-7 18:45
不要灰心！我来帮你找一下Delphi读取PE文件信息的源码。以下是一个示例代码，它使用了Delphi的TFileStream ...

Project Project6.exe raised exception class EInOutError with message 'I/O error 105'.
哥们，报错啊。

FishC 发表于 2024-2-7 20:21:39

powerpro 发表于 2024-02-07 20:21
Project Project6.exe raised exception class EInOut ...

嗯，这个错误通常是由于文件读取操作失败引起的。可能是由于文件不存在、文件被其他程序占用或者权限不足导致的。请确保你提供的文件路径是正确的，并且有足够的权限进行读取。

另外，请注意在打开文件之前，先判断文件是否存在，可以使用`FileExists`函数进行检查。代码示例如下：

uses
Windows, SysUtils, Classes;

type
TPEHeader = record
    Signature: DWORD;
    Machine: WORD;
    NumberOfSections: WORD;
    TimeDateStamp: DWORD;
    PointerToSymbolTable: DWORD;
    NumberOfSymbols: DWORD;
    SizeOfOptionalHeader: WORD;
    Characteristics: WORD;
end;

procedure ReadPEFile(const FileName: string);
var
Stream: TFileStream;
PEHeader: TPEHeader;
begin
try
    if not FileExists(FileName) then
      raise Exception.Create('File not found');
      
    Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
    try
      // 读取PE头部
      Stream.ReadBuffer(PEHeader, SizeOf(PEHeader));
      // 输出PE头部信息
      WriteLn('Signature: ', PEHeader.Signature);
      WriteLn('Machine: ', PEHeader.Machine);
      WriteLn('Number of Sections: ', PEHeader.NumberOfSections);
      WriteLn('Time/Date Stamp: ', PEHeader.TimeDateStamp);
      WriteLn('Pointer to Symbol Table: ', PEHeader.PointerToSymbolTable);
      WriteLn('Number of Symbols: ', PEHeader.NumberOfSymbols);
      WriteLn('Size of Optional Header: ', PEHeader.SizeOfOptionalHeader);
      WriteLn('Characteristics: ', PEHeader.Characteristics);
    finally
      Stream.Free;
    end;
except
    on E: Exception do
      WriteLn('Error: ', E.Message);
end;
end;

begin
ReadPEFile('YourPEFile.exe');
end.

请确保你提供的文件路径是正确的，并且有足够的权限进行读取。如果问题仍然存在，请检查文件是否被其他程序占用或者权限是否足够。如果还有其他问题，请随时问我。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

powerpro 发表于 2024-2-7 20:29:35

明白了，控制台程序：

program Project6;

{$APPTYPE CONSOLE}

{$R *.res}

uses
Windows,
SysUtils,
Classes;

type
TPEHeader = record
    Signature: DWORD;
    Machine: WORD;
    NumberOfSections: WORD;
    TimeDateStamp: DWORD;
    PointerToSymbolTable: DWORD;
    NumberOfSymbols: DWORD;
    SizeOfOptionalHeader: WORD;
    Characteristics: WORD;
end;

procedure ReadPEFile(const FileName: string);
var
Stream: TFileStream;
PEHeader: TPEHeader;
begin
try
    Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
    try
      // 读取PE头部
      Stream.ReadBuffer(PEHeader, SizeOf(PEHeader));

      // 输出PE头部信息
      WriteLn('Signature: ', PEHeader.Signature);
      WriteLn('Machine: ', PEHeader.Machine);
      WriteLn('Number of Sections: ', PEHeader.NumberOfSections);
      WriteLn('Time/Date Stamp: ', PEHeader.TimeDateStamp);
      WriteLn('Pointer to Symbol Table: ', PEHeader.PointerToSymbolTable);
      WriteLn('Number of Symbols: ', PEHeader.NumberOfSymbols);
      WriteLn('Size of Optional Header: ', PEHeader.SizeOfOptionalHeader);
      WriteLn('Characteristics: ', PEHeader.Characteristics);
    finally
      Stream.Free;
    end;
except
    on E: Exception do
      WriteLn('Error: ', E.Message);
end;
end;

begin
ReadPEFile('X:\看雪论坛精华\西班牙网站下载的全套CrackMe教学\000-100\0-temp\CRACKME.EXE');
Readln;
end.

FishC 发表于 2024-2-7 20:29:46

powerpro 发表于 2024-02-07 20:29
明白了，控制台程序：

program Project6;

{$APP ...

这段代码看起来没有问题。但是要注意一点，你需要将`Readln`放在最后一行的末尾，这样程序才能在输出结果后等待用户按下回车键继续执行。另外，你需要确保给定的文件路径是正确的，并且有足够的权限进行读取。如果还有其他问题，请随时问我。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

查看完整版本: 哪位还有小甲鱼少爷的Delphi读取PE信息的源码？