I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
看你的bin中是怎么写的了, 如果是个完整的过程(带ret), 也许有办法. 试试下面方法
(别怪我没试就拿出来呀, 实在找不到bin可供我测试)
procedure Caller;
var
f: Integer;
l: Integer;
Buffer: array [0..4096] of Byte;
begin
f := FileOpen('YourBin.bin');
l := FileSeek(f, 0, 2);
FileSeek(f, 0, 0);
FileRead(f, Buffer[0], l);
FileClose(f);
asm
LEA EAX, Buffer
CALL EAX
end;
end;
(别怪我没试就拿出来呀, 实在找不到bin可供我测试)
procedure Caller;
var
f: Integer;
l: Integer;
Buffer: array [0..4096] of Byte;
begin
f := FileOpen('YourBin.bin');
l := FileSeek(f, 0, 2);
FileSeek(f, 0, 0);
FileRead(f, Buffer[0], l);
FileClose(f);
asm
LEA EAX, Buffer
CALL EAX
end;
end;