问题描述
||
我需要枚举用delphi编写的外部应用程序中使用的类
，因此我需要访问VMT表以获取该信息，但是我找不到任何有关如何在exe（由delphi生成）文件中找到VMT（虚拟方法表）的位置（地址）的文档。
解决方法
.exe文件中没有单个VMT。每个类都有自己的VMT。 AFAICT没有可靠的方法来枚举可执行文件中的类。我认为可执行文件只是一个文件。唯一的方法是分析此类数据如何存储在.exe文件中。
但是，即使.exe正在运行，并且您可以访问其中一个对象，也只能找到该对象类的VMT（在对象的偏移量0处）。这也使您可以访问该类的基类，但仅此而已。
,请注意，运行时类型信息和VMT有所不同。如果您需要RTTI而不是VMT的类型信息（如方法和类型的名称）；如果可以到达VMT（可以通过类类型的RTTI通过类型，请参见下文）将包含指向方法的指针列表，并且不包含方法mname，参数信息等。Delphi不会为每个对象创建IDispatch之类的信息以及每个类/接口。
在Delphi 2007之前，您没有所有类型的列表，更高的版本可能相同，但我不确定。如果您有一个映射文件，则可以从中获取一些数据，也可以使用一些启发式方法来搜索该文件：Delphi中的类型总是以指向self的指针开头（例如，指向PTypeInfo的PPTypeInfo）。由于PTypeinfo也具有特定的格式，因此您可以通过扫描可执行文件来很容易地检测到它们。
一旦找到PTypeInfo，您就可以解析产生typename并具有TypeData的数据。对于类类型，您可以在该类中找到包含VMT且正偏移的类。包含已发布方法/属性的类型将在类型数据之后。您可以在单元TypInfo中找到结构的所有详细信息。
除了映射文件外，您将找不到所有方法的所有地址。只有带有RTTI的方法（例如已发布的方法）具有带有名称的地址。只有一组选定的类型具有RTTI（后来的Delphi具有新的RTTI信息，但我不知道它们在模块中的构造）。
祝好运。
,是的，在某种程度上是可能的！
为了描述它，您需要一种类似于IDE的pascal单位的EXE文件类浏览器。
交互式Delphi Reconstructor是该概念的最佳高级应用程序之一。
DeDe 3.50.02 Build 1619也是如此（包括源代码？）。
Revendepro的源代码说明了解决该问题的方法。
摘录自http://www.ggoossen.net/revendepro/findingClasses.html（现在看来似乎是无效链接）：
I := Code - vmtSelfPtr;
while I < Code + CodeSize do
begin
// vmtSelfPtr must point to itself.
if PPChar(I + vmtSelfPtr)^ = I then
begin
if PPChar(I + vmtParent)^ = nil then
try
// If no classParent then class can be object
if (not UsePackages) and (TClass(I).ClassName = \'TObject\') then
// if class if object add it to classes.
Add(TClass(I))
except
on EAccessViolation do
end
else
// className must be in the code section.
// classParent must be in the code section or the import section (when it is imported).
if (PPChar(I + vmtClassName)^ <= Code + CodeSize) and
(PPChar(I + vmtClassName)^ >= Code) and
(((PPChar(I + vmtParent)^ <= Code + CodeSize) and
(PPChar(I + vmtParent)^ >= Code)) or
((PPChar(I + vmtParent)^ <= ImportStart + ImportSize) and
(PPChar(I + vmtParent)^ >= ImportStart))) then
// Add possible class to possible class list.
PossClasses.Add(I);
end;
Inc(I,4);
end;
// Can\'t be more then 1 TObject.
if (not TPEFileClass(PEFileClass).UsePackages) and (Count > 1) then
raise EDecompilerError.Create(\'There can only be one TObject.\');
// If no classParent then class can be object
if TClass(I).ClassName = \'TObject\' then
Add(TClass(I)) // if class if object add it to classes.
// Add Classes to the list which parent is in the list.
repeat
Added := False;
for J := PossClasses.Count -1 downto 0 do
begin
// Try to find parent class in classList
if FindClass(TClass(PossClasses[J]).ClassParent) <> nil then
begin
// Class in class list
Add(PossClasses[J]);
PossClasses.Delete(J);
Added := True;
end;
// Try to find parent class in a other package.
for K := 0 to High(PEFiles) do
if PEFiles[K].Classes.FindClass(TClass(PossClasses[J]).ClassParent) <> nil then
begin
// Class in class list
Add(PossClasses[J]);
PossClasses.Delete(J);
Added := True;
Break;
end;
end;
until not Added;