|
Welcome,
Guest
|
Discussions for CodeTyphon Studio Installation and Setup.
TOPIC:
Strange Behavior With Compiler Optimization 6 years 5 months ago #11077
|
|
Please Log in or Create an account to join the conversation. |
Strange Behavior With Compiler Optimization 6 years 5 months ago #11078
|
Thanks Sir
I think it's programming logical Error... <<i need it to be in the same order>> if you want the same you must use this Order: program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, sysutils, shellcode
{ you can add units after this };
var
code_size, i: Integer;
f: array[0..70-36] of Pointer = ( // <======================== New Order
@__begin,
@algo,
@ex_trunc,
@opcodelength,
@iswin9x,
@calcjump,
@apihook,
@apiunhook,
@getfieldoffset,
@getimagefirstsection,
@getheaderdictionary,
@getimageordinal,
@getimagesnapbyordinal,
@copysections,
@performbaserelocation,
@allocmem,
@strcomp,
@buildimporttable,
@getsectionprotection,
@finalizesections,
@btmemoryloadlibary,
@btmemorygetprocaddress,
@hash,
@kernel_base,
@asmmove,
@movememory,
@find_function,
@__getmodulefilenamew_pointer,
@getmodulefilenamew_new,
@__getmodulehandlea_pointer,
@getmodulehandlea_new,
@__ep_pointer,
@ep,
@__pointer,
@__end);
fn: array[0..70-36] of string = ( // <======================== New Order
'__begin',
'algo',
'ex_trunc',
'opcodelength',
'iswin9x',
'calcjump',
'apihook',
'apiunhook',
'getfieldoffset',
'getimagefirstsection',
'getheaderdictionary',
'getimageordinal',
'getimagesnapbyordinal',
'copysections',
'performbaserelocation',
'allocmem',
'strcomp',
'buildimporttable',
'getsectionprotection',
'finalizesections',
'btmemoryloadlibary',
'btmemorygetprocaddress',
'hash',
'kernel_base',
'asmmove',
'movememory',
'find_function',
'__getmodulefilenamew_pointer',
'getmodulefilenamew_new',
'__getmodulehandlea_pointer',
'getmodulehandlea_new',
'__ep_pointer',
'ep',
'__pointer',
'__end');
sl: TStringList;
begin
sl := TStringList.Create;
for i := Low(f) to High(f) do
sl.AddObject(IntToHex(PtrUInt( f[i] ), SizeOf(PtrInt)), TObject(i));
//sl.Sort; // <======================== Delete
for i := Low(f) to High(f) do // <======================== New Order
// for i := 0 to sl.Count-1 do
WriteLn(fn[Integer(sl.Objects[i])]:30,': ',sl[i]);
code_size := integer (@__end) - integer (@__begin) - sizeof (dword);
WriteLn('');
WriteLn('code_size: ', code_size);
ReadLn;
end.Output after your App Reconstruction __begin: 4247D0
algo: 424BA0
ex_trunc: 4247E0
opcodelength: 424830
iswin9x: 424A00
calcjump: 424C40
apihook: 424CA0
apiunhook: 424ED0
getfieldoffset: 4250B0
getimagefirstsection: 4250D0
getheaderdictionary: 425110
getimageordinal: 425130
getimagesnapbyordinal: 425150
copysections: 425180
performbaserelocation: 425290
allocmem: 4253A0
strcomp: 424A10
buildimporttable: 4253D0
getsectionprotection: 4255F0
finalizesections: 425700
btmemoryloadlibary: 425850
btmemorygetprocaddress: 425AF0
hash: 424A40
kernel_base: 424A70
asmmove: 424AA0
movememory: 425C40
find_function: 424AF0
__getmodulefilenamew_pointer: 424B50
getmodulefilenamew_new: 425C60
__getmodulehandlea_pointer: 424B60
getmodulehandlea_new: 425CC0
__ep_pointer: 424B70
ep: 425D00
__pointer: 424B80
__end: 424B90
code_size: 956Have fun... It's my first coffee...  PilotLogic Architect and Core Programmer
Attachments: |
|
Please Log in or Create an account to join the conversation. |
Strange Behavior With Compiler Optimization 6 years 5 months ago #11079
|
hello and that was not my question
i don't need to sort the functions i need the compiled functions to be in order in file and memory for example : __begin @ addr = 0x00000001 ex_trunc @ addr = 0x00000002 ..... __end @ addr = 0x00000037 check this forum.lazarus.freepascal.org/index.php/topic,38829.0.html i was discussing the same problem and i found that the FPC 3.1.1 have a problem with compiled Functions order and FPC 3.0.2 works just fine check the link you may understand my question more and one more thing why not using latest stable version of FPC (3.0.2) i really like typhon so much i'm using it for all my projects so i think stable versions is better than the beta ones and thanks in advance  |
|
Please Log in or Create an account to join the conversation. |
Strange Behavior With Compiler Optimization 6 years 5 months ago #11080
|
No problem Sir
you can use FPC 3.0.2 ... PilotLogic Architect and Core Programmer
|
|
Please Log in or Create an account to join the conversation. |
Strange Behavior With Compiler Optimization 6 years 5 months ago #11082
|
|
Please Log in or Create an account to join the conversation. |
