Reversing Pascal String Object
Thursday, August 20, 2020
0
comments
The program:
program strtest;
var
cstr: array[0..10] of char;
s, s2: ShortString;
begin
cstr := 'hello world';
s := cstr;
s2 := 'test';
WriteLn(cstr + ' ' + s + ' ' + s2);
end.
We are going to compile it with freepascal and lazarus, and just the binary size differs a lot:
lazarus 242,176 btytes 845 functions
freepascal 32,256 bytes 233 functions
turbopascal 2,928 bytes 80 functions (wow)
And surprisingly turbopascal binaries are extremely light.
Lets start with lazarus:
Logically it imports from user32.dll some display functions, it also import the kernel32.dll functions and suspiciously the string operations of oleaut32.dll
On functions 10000e8e0 there is the function that calls the main function.
I named execute_param2 because the second param is a function pointer that is gonna be executed without parameters, it sounds like main calling typical strategy.
And here we are, it's clearly the user code pascal main function.
What it seems is that function 100001800 returns an string object, then is called its constructor to initialize the string, then the string is passed to other functions that prints it to the screen.
This function executes the method 0x1c0 of the object until the byte 0x89 is a null byte.
What the hell is doing here?
First of all let's create the function main:
After a bit of work on Ghidra here we have the main:
Note that the struct member so high like 0x1b0 are not created by default, we should import a .h file with an struct or class definition, and locate the constructor just on that position.
The mysterious function was printing byte a byte until null byte, the algorithm the compiler implemented in asm is not as optimized as turbopascal's.
In Windbg we can see the string object in eax after being created but before being initialized:
Just before executing the print function, the RCX parameter is the string object and it still identical:
Let's see the constructor code.
The constructor address can be guessed on static walking the reverse-cross-references to main, but I located it in debugging it in dynamic analysis.
The constructor reads only a pointer stored on the string object on the position 0x98.
And we have that the pointer at 0x98 is compared with the address of the literal, so now we know that this pointer points to the string.
The sentence *string_x98 = literal confirms it, and there is not memory copy, it only points reusing the literal.
Freepascal
The starting labyrinth is bigger than Lazarus so I had to begin the maze from the end, searching the string "hello world" and then finding the string references:There are two ways to follow the references in Ghidra, one is [ctrl] + [shift] + F but there is other trick which is simply clicking the green references texts on the disassembly.
At the beginning I doubted and put the name possible_main, but it's clearly the pascal user code main function.
The char array initialization Is converted by freepascal compiler to an runtime initialization using mov instructions.
Reducing the coverage on dynamic we arrive to the writeln function:
EAX helds a pointer to a struct, and the member 0x24 performs the printing. In this cases the function can be tracked easily in dynamic executing the sample.
And lands at 0x004059b0 where we see the WriteFile, the stdout descriptor, the text and the size supplied by parameter.
there is an interesting logic of what happens if WriteFile() couldn't write all the bytes, but this is other scope.
Lets see how this functions is called and how text and size are supplied to figure out the string object.
EBX helds the string object and there are two pointers, a pointer to the string on 0x18 and the length in 0x18, lets verify it on windbg.
And here we have the string object, 0x0000001e is the length, and 0x001de8a68 is the pointer.
Thanks @capi_x for the pascal samples.
More articles
- Hacking Tools
- Pentest Tools Bluekeep
- What Is Hacking Tools
- What Are Hacking Tools
- Hacking Tools Github
- How To Make Hacking Tools
- World No 1 Hacker Software
- Blackhat Hacker Tools
- Hack Tools For Pc
- Hacker
- Blackhat Hacker Tools
- How To Make Hacking Tools
- Hacking Tools For Mac
- Hacker Techniques Tools And Incident Handling
- Hacking Tools For Pc
- Hacker Tools Free Download
- Hack Tools Online
- Pentest Tools Alternative
- Easy Hack Tools
- Pentest Tools Online
- Hacking Tools Name
- Hackrf Tools
- Black Hat Hacker Tools
- Hacker Tools 2020
- World No 1 Hacker Software
- Hack And Tools
- Hack Tools For Ubuntu
- Wifi Hacker Tools For Windows
- Pentest Reporting Tools
- Hack Tools For Pc
- Hacking Tools For Windows Free Download
- Hacking Tools Pc
- Pentest Recon Tools
- Pentest Reporting Tools
- Pentest Tools For Mac
- Growth Hacker Tools
- Pentest Tools Bluekeep
- Hack Tools For Mac
- Tools 4 Hack
- Hacking Tools Download
- Hacks And Tools
- Github Hacking Tools
- Hacking Tools For Kali Linux
- Hacker Tools Software
- Termux Hacking Tools 2019
- Hacker Security Tools
- Hack Tools For Windows
- Hacker Tools 2019
- Hack Tool Apk
- Easy Hack Tools
- Hack Tools
- Hack Tools For Games
- Hack Tool Apk
- Hacker Security Tools
- Pentest Automation Tools
- Hack Apps
- How To Make Hacking Tools
- Tools Used For Hacking
- Hack Rom Tools
- Hack Tools Github
- Tools 4 Hack
- Hack Tools For Games
- Hak5 Tools
- Hacker
- Pentest Tools Nmap
- Hack Website Online Tool
- Hacking Apps
- Hacker Tools 2019
- Pentest Tools For Android
- Hacking Tools Mac
- Hack Tools Pc
- Hacking Tools Pc
- Hacking Tools
- Hack Tools For Pc
- Wifi Hacker Tools For Windows
- What Are Hacking Tools
- Growth Hacker Tools
- Hack Apps
- Hacker Tools Apk
- Growth Hacker Tools
- Pentest Tools Nmap
- Hacker Hardware Tools
- Hacker Tools 2020
- Hacking Tools Pc
- Hack Tools Github
- Hacking Tools Hardware
- Hacker Tools Hardware
- Hacker Tools
- Pentest Tools For Ubuntu
- Hacking Tools 2020
- Pentest Automation Tools
- Hacking Tools Mac
- Hack Apps
- Black Hat Hacker Tools
- Hacker Techniques Tools And Incident Handling
- Pentest Tools Download
- Pentest Tools For Mac
- Hack Tools Github
- Hacking Tools Usb
- New Hacker Tools
- Hacking Tools And Software
- Hacker Hardware Tools
- Pentest Tools
- Hack Tools For Ubuntu
- Best Hacking Tools 2020
- Hacking Tools Online
- Hacking Tools For Mac
- Hacker Tools Hardware
- Hacker Tool Kit
- Hack And Tools
- Easy Hack Tools
- Hack Tools Online
- Hack Tool Apk No Root
- Hack Tools For Ubuntu
- Pentest Tools Website Vulnerability
- Hacker Tools Mac
- Pentest Tools Review
- New Hack Tools
- Physical Pentest Tools
- Hack Tool Apk
- Pentest Tools Open Source
- Hack Tools Online
- Hacks And Tools
- Pentest Tools Windows
- Beginner Hacker Tools
- Hacking Tools For Beginners
- Hackers Toolbox
- Pentest Tools Website Vulnerability
- Hacker Tools For Ios
- Pentest Tools For Mac
- Hacker Tool Kit
- Hacker
- Hacking Tools Mac
- Pentest Tools Tcp Port Scanner
- Hackers Toolbox
- Black Hat Hacker Tools
- Hack Tools 2019
- Pentest Tools
- Pentest Tools Find Subdomains
- Wifi Hacker Tools For Windows
- Pentest Tools
- Pentest Automation Tools
- Pentest Tools For Android
- Hacking Tools Pc
- Github Hacking Tools
- Pentest Tools Bluekeep
- Pentest Automation Tools
- Github Hacking Tools
- Hack Tools For Ubuntu
- Tools For Hacker
- Pentest Tools Find Subdomains
- Hacker Tools For Ios
- Hacking Tools Github
- Hack Website Online Tool
- Hack Tools Mac
- Pentest Tools Website Vulnerability
- Hacker Tools
- Hacker Tools Online
- Github Hacking Tools
- Pentest Tools Subdomain
- Hack Tools For Ubuntu
- Tools Used For Hacking
- Pentest Tools Review
- Hack Website Online Tool
- Hacking Tools For Beginners
- Hacking Tools 2020
- What Are Hacking Tools
- Hacking Tools Kit
- Hack Tools 2019
- Hacker Tools Linux
- Hacker Tool Kit
- Pentest Tools For Android
- Tools Used For Hacking
- Hacker Tools Linux
- Pentest Tools Review
- Install Pentest Tools Ubuntu
- Top Pentest Tools
0 comments:
Post a Comment