artem3213212/RuntimeBuilder
1
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Securiti fix

Browse Source
This commit is contained in:
Artem3213212
2018-06-03 14:54:27 +03:00
parent b4da0b0b7a
commit 8b7cc86d23
6 changed files with 65 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Tests/Unit1.pas
View File

@@ -27,11 +27,21 @@ var
begin
Fasm:=TRTBFasmCompiler.Create('..\..\..\lib\FasmOnDelphi\fasmw172\fasm');
Src:=Fasm.GenNewSrc;
Src.Text:='use32'+sLineBreak+'main:'+sLineBreak+'pop ecx'+sLineBreak+'pop eax'+sLineBreak+'jmp ecx'+sLineBreak+'Pmain dd 0'+
sLineBreak+'varmain:'+sLineBreak+'mov eax,[Pmain]'+sLineBreak+'ret';
Src.RegisterFunction('','main');
Src.RegisterFunction('','varmain');
Src.Register('','Pmain',TypeInfo(integer));
with Src do
begin
Text:='use32'+sLineBreak+
'main:'+sLineBreak+
'pop ecx'+sLineBreak+
'pop eax'+sLineBreak+
'jmp ecx'+sLineBreak+
'Pmain dd 0'+sLineBreak+
'varmain:'+sLineBreak+
'mov eax,[Pmain]'+sLineBreak+
'ret';
RegisterFunction('','main');
RegisterFunction('','varmain');
Register('','Pmain',TypeInfo(integer));
end;
Module:=Src.Compilate;
Func1:=Module.Funtion['main'];
Func2:=Module.Funtion['varmain'];