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

powerpro

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

FishC

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

1. delphi
   
2. uses
   
3.   Windows, SysUtils, Classes;
   
4. 
   
5. type
   
6.   TPEHeader = record
   
7.     Signature: DWORD;
   
8.     Machine: WORD;
   
9.     NumberOfSections: WORD;
   
10.     TimeDateStamp: DWORD;
    
11.     PointerToSymbolTable: DWORD;
    
12.     NumberOfSymbols: DWORD;
    
13.     SizeOfOptionalHeader: WORD;
    
14.     Characteristics: WORD;
    
15.   end;
    
16. 
    
17. procedure ReadPEFile(const FileName: string);
    
18. var
    
19.   Stream: TFileStream;
    
20.   PEHeader: TPEHeader;
    
21. begin
    
22.   try
    
23.     Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
    
24.     try
    
25.       // 读取PE头部
    
26.       Stream.ReadBuffer(PEHeader, SizeOf(PEHeader));
    
27. 
    
28.       // 输出PE头部信息
    
29.       WriteLn('Signature: ', PEHeader.Signature);
    
30.       WriteLn('Machine: ', PEHeader.Machine);
    
31.       WriteLn('Number of Sections: ', PEHeader.NumberOfSections);
    
32.       WriteLn('Time/Date Stamp: ', PEHeader.TimeDateStamp);
    
33.       WriteLn('Pointer to Symbol Table: ', PEHeader.PointerToSymbolTable);
    
34.       WriteLn('Number of Symbols: ', PEHeader.NumberOfSymbols);
    
35.       WriteLn('Size of Optional Header: ', PEHeader.SizeOfOptionalHeader);
    
36.       WriteLn('Characteristics: ', PEHeader.Characteristics);
    
37.     finally
    
38.       Stream.Free;
    
39.     end;
    
40.   except
    
41.     on E: Exception do
    
42.       WriteLn('Error: ', E.Message);
    
43.   end;
    
44. end;
    
45. 
    
46. begin
    
47.   ReadPEFile('YourPEFile.exe');
    
48. end.

复制代码

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

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

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

powerpro

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

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

FishC

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

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

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

1. uses
   
2.   Windows, SysUtils, Classes;
   
3. 
   
4. type
   
5.   TPEHeader = record
   
6.     Signature: DWORD;
   
7.     Machine: WORD;
   
8.     NumberOfSections: WORD;
   
9.     TimeDateStamp: DWORD;
   
10.     PointerToSymbolTable: DWORD;
    
11.     NumberOfSymbols: DWORD;
    
12.     SizeOfOptionalHeader: WORD;
    
13.     Characteristics: WORD;
    
14.   end;
    
15. 
    
16. procedure ReadPEFile(const FileName: string);
    
17. var
    
18.   Stream: TFileStream;
    
19.   PEHeader: TPEHeader;
    
20. begin
    
21.   try
    
22.     if not FileExists(FileName) then
    
23.       raise Exception.Create('File not found');
    
24.       
    
25.     Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
    
26.     try
    
27.       // 读取PE头部
    
28.       Stream.ReadBuffer(PEHeader, SizeOf(PEHeader));
    
29.       // 输出PE头部信息
    
30.       WriteLn('Signature: ', PEHeader.Signature);
    
31.       WriteLn('Machine: ', PEHeader.Machine);
    
32.       WriteLn('Number of Sections: ', PEHeader.NumberOfSections);
    
33.       WriteLn('Time/Date Stamp: ', PEHeader.TimeDateStamp);
    
34.       WriteLn('Pointer to Symbol Table: ', PEHeader.PointerToSymbolTable);
    
35.       WriteLn('Number of Symbols: ', PEHeader.NumberOfSymbols);
    
36.       WriteLn('Size of Optional Header: ', PEHeader.SizeOfOptionalHeader);
    
37.       WriteLn('Characteristics: ', PEHeader.Characteristics);
    
38.     finally
    
39.       Stream.Free;
    
40.     end;
    
41.   except
    
42.     on E: Exception do
    
43.       WriteLn('Error: ', E.Message);
    
44.   end;
    
45. end;
    
46. 
    
47. begin
    
48.   ReadPEFile('YourPEFile.exe');
    
49. end.

复制代码

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

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

powerpro

明白了，控制台程序：

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

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

program Project6;

{$APP ...

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

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