delphi - 是否有可能获得匿名例程实现的哈希值？

Question

procedure DoSomething;
var
  MyAnonymousProcedure : TProc;
begin
  //assign an anonymous procedure to a variable.
  MyAnonymousProcedure := procedure
  begin
    Foo;
  end;
  MyAnonymousProcedure(); //Call the newly assigned procedure.



  // do the same thing again but with a different anonymous method.
  MyAnonymousProcedure := procedure
  begin
    Bar;
  end;
  MyAnonymousProcedure();
end;

在上面的代码中有两个匿名过程。它们依次赋值给同一个 TProc 变量。每个匿名过程中的代码明显不同。有没有办法找到 MyAnonymousProcedure 变量引用的可执行代码？我想那将是一个内存位置。从那里可以计算在该内存位置找到的可执行代码的哈希值？

Answer 1

Is there a way to find the executable code that the MyAnonymousProcedure variable references?

总有“办法”，但在这种情况下它很棘手。

首先，匿名方法可以被视为对具有单个Invoke 方法的接口(interface)的引用，如Barry Kelly 所解释的那样。 .

将这个想法应用到您的代码中，我们得到:

procedure MethRefToProcPtr(const MethRef; var ProcPtr);
type
  TVtable = array[0..3] of Pointer;
  PVtable = ^TVtable;
  PPVtable = ^PVtable;
begin
  // 3 is offset of Invoke, after QI, AddRef, Release
  TMethod(ProcPtr).Code := PPVtable(MethRef)^^[3];
end;

不幸的是，返回的 ProcPtr 值不是您可能想要的 - 它是修复接口(interface)引用(将接口(interface)引用转换为对象引用)并跳转到该地址的 stub 代码的地址我们正在寻找。如果跟踪 ProcPtr 指向的代码，您会发现类似这样的内容(Delphi XE，32 位):

     add eax,-$10
     jmp FooBar

在FooBar地址你会找到

     call Foo

或

     call Bar

取决于匿名方法的当前值。

我想现在获取FooBar 地址的唯一方法是解析汇编器jmp 指令。

---

这是我用于实验的代码:

procedure Foo;
begin
  Writeln('Foo');
end;

procedure Bar;
begin
  Writeln('Bar');
end;

procedure MethRefToProcPtr(const MethRef; var ProcPtr);
type
  TVtable = array[0..3] of Pointer;
  PVtable = ^TVtable;
  PPVtable = ^PVtable;
begin
  // 3 is offset of Invoke, after QI, AddRef, Release
  TMethod(ProcPtr).Code := PPVtable(MethRef)^^[3];
end;

procedure DoSomething;
var
  MyAnonymousProcedure : TProc;
  MyProc : procedure;

begin
  //assign an anonymous procedure to a variable.
  MyAnonymousProcedure := procedure
  begin
    Foo;
  end;
//  MyAnonymousProcedure(); //Call the newly assigned procedure.

  MethRefToProcPtr(MyAnonymousProcedure, MyProc);
  Writeln(Format('%p', [@MyProc]));
  Writeln(Format('%p', [@Foo]));
  MyProc;

  // do the same thing again but with a different anonymous method.
  MyAnonymousProcedure := procedure
  begin
    Bar;
  end;
//  MyAnonymousProcedure();

  MethRefToProcPtr(MyAnonymousProcedure, MyProc);
  Writeln(Format('%p', [@MyProc]));
  Writeln(Format('%p', [@Bar]));
  MyProc;
end;