Reversing Pascal String Object

Posted by Informasi Pekerjaan Thursday, August 20, 2020 0 comments
There are many goodware and malware developed in pascal, and we will see that the binary generated by the pascal compilers is fascinating, not only because the small and clean generated binaries, or the  clarity of the pascal code, but also the good performance. In Linux we have Lazarus which is a good free IDE like Delphi and Kylix the free pascal IDE for windows.

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 


And our starting point is a function called entry that calls the console initialization and retrieve some console configurations, and then start a labyrinth of function calls.



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:


Simply right button create function:

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

  1. Hacking Tools
  2. Pentest Tools Bluekeep
  3. What Is Hacking Tools
  4. What Are Hacking Tools
  5. Hacking Tools Github
  6. How To Make Hacking Tools
  7. World No 1 Hacker Software
  8. Blackhat Hacker Tools
  9. Hack Tools For Pc
  10. Hacker
  11. Blackhat Hacker Tools
  12. How To Make Hacking Tools
  13. Hacking Tools For Mac
  14. Hacker Techniques Tools And Incident Handling
  15. Hacking Tools For Pc
  16. Hacker Tools Free Download
  17. Hack Tools Online
  18. Pentest Tools Alternative
  19. Easy Hack Tools
  20. Pentest Tools Online
  21. Hacking Tools Name
  22. Hackrf Tools
  23. Black Hat Hacker Tools
  24. Hacker Tools 2020
  25. World No 1 Hacker Software
  26. Hack And Tools
  27. Hack Tools For Ubuntu
  28. Wifi Hacker Tools For Windows
  29. Pentest Reporting Tools
  30. Hack Tools For Pc
  31. Hacking Tools For Windows Free Download
  32. Hacking Tools Pc
  33. Pentest Recon Tools
  34. Pentest Reporting Tools
  35. Pentest Tools For Mac
  36. Growth Hacker Tools
  37. Pentest Tools Bluekeep
  38. Hack Tools For Mac
  39. Tools 4 Hack
  40. Hacking Tools Download
  41. Hacks And Tools
  42. Github Hacking Tools
  43. Hacking Tools For Kali Linux
  44. Hacker Tools Software
  45. Termux Hacking Tools 2019
  46. Hacker Security Tools
  47. Hack Tools For Windows
  48. Hacker Tools 2019
  49. Hack Tool Apk
  50. Easy Hack Tools
  51. Hack Tools
  52. Hack Tools For Games
  53. Hack Tool Apk
  54. Hacker Security Tools
  55. Pentest Automation Tools
  56. Hack Apps
  57. How To Make Hacking Tools
  58. Tools Used For Hacking
  59. Hack Rom Tools
  60. Hack Tools Github
  61. Tools 4 Hack
  62. Hack Tools For Games
  63. Hak5 Tools
  64. Hacker
  65. Pentest Tools Nmap
  66. Hack Website Online Tool
  67. Hacking Apps
  68. Hacker Tools 2019
  69. Pentest Tools For Android
  70. Hacking Tools Mac
  71. Hack Tools Pc
  72. Hacking Tools Pc
  73. Hacking Tools
  74. Hack Tools For Pc
  75. Wifi Hacker Tools For Windows
  76. What Are Hacking Tools
  77. Growth Hacker Tools
  78. Hack Apps
  79. Hacker Tools Apk
  80. Growth Hacker Tools
  81. Pentest Tools Nmap
  82. Hacker Hardware Tools
  83. Hacker Tools 2020
  84. Hacking Tools Pc
  85. Hack Tools Github
  86. Hacking Tools Hardware
  87. Hacker Tools Hardware
  88. Hacker Tools
  89. Pentest Tools For Ubuntu
  90. Hacking Tools 2020
  91. Pentest Automation Tools
  92. Hacking Tools Mac
  93. Hack Apps
  94. Black Hat Hacker Tools
  95. Hacker Techniques Tools And Incident Handling
  96. Pentest Tools Download
  97. Pentest Tools For Mac
  98. Hack Tools Github
  99. Hacking Tools Usb
  100. New Hacker Tools
  101. Hacking Tools And Software
  102. Hacker Hardware Tools
  103. Pentest Tools
  104. Hack Tools For Ubuntu
  105. Best Hacking Tools 2020
  106. Hacking Tools Online
  107. Hacking Tools For Mac
  108. Hacker Tools Hardware
  109. Hacker Tool Kit
  110. Hack And Tools
  111. Easy Hack Tools
  112. Hack Tools Online
  113. Hack Tool Apk No Root
  114. Hack Tools For Ubuntu
  115. Pentest Tools Website Vulnerability
  116. Hacker Tools Mac
  117. Pentest Tools Review
  118. New Hack Tools
  119. Physical Pentest Tools
  120. Hack Tool Apk
  121. Pentest Tools Open Source
  122. Hack Tools Online
  123. Hacks And Tools
  124. Pentest Tools Windows
  125. Beginner Hacker Tools
  126. Hacking Tools For Beginners
  127. Hackers Toolbox
  128. Pentest Tools Website Vulnerability
  129. Hacker Tools For Ios
  130. Pentest Tools For Mac
  131. Hacker Tool Kit
  132. Hacker
  133. Hacking Tools Mac
  134. Pentest Tools Tcp Port Scanner
  135. Hackers Toolbox
  136. Black Hat Hacker Tools
  137. Hack Tools 2019
  138. Pentest Tools
  139. Pentest Tools Find Subdomains
  140. Wifi Hacker Tools For Windows
  141. Pentest Tools
  142. Pentest Automation Tools
  143. Pentest Tools For Android
  144. Hacking Tools Pc
  145. Github Hacking Tools
  146. Pentest Tools Bluekeep
  147. Pentest Automation Tools
  148. Github Hacking Tools
  149. Hack Tools For Ubuntu
  150. Tools For Hacker
  151. Pentest Tools Find Subdomains
  152. Hacker Tools For Ios
  153. Hacking Tools Github
  154. Hack Website Online Tool
  155. Hack Tools Mac
  156. Pentest Tools Website Vulnerability
  157. Hacker Tools
  158. Hacker Tools Online
  159. Github Hacking Tools
  160. Pentest Tools Subdomain
  161. Hack Tools For Ubuntu
  162. Tools Used For Hacking
  163. Pentest Tools Review
  164. Hack Website Online Tool
  165. Hacking Tools For Beginners
  166. Hacking Tools 2020
  167. What Are Hacking Tools
  168. Hacking Tools Kit
  169. Hack Tools 2019
  170. Hacker Tools Linux
  171. Hacker Tool Kit
  172. Pentest Tools For Android
  173. Tools Used For Hacking
  174. Hacker Tools Linux
  175. Pentest Tools Review
  176. Install Pentest Tools Ubuntu
  177. Top Pentest Tools


Anda sedang membaca artikel tentang Reversing Pascal String Object dan anda bisa menemukan artikel Reversing Pascal String Object ini dengan url http://hobi-kesenangan.blogspot.com/2020/08/reversing-pascal-string-object.html?m=0,anda boleh menyebar luaskannya atau mengcopy paste-nya jika artikel Reversing Pascal String Object ini sangat bermanfaat bagi teman-teman anda,namun jangan lupa untuk meletakkan link Reversing Pascal String Object sebagai sumbernya.

Silahkan sobat tinggalkan komentar jika dirasa ada informasi yang sobat butuhkan

0 comments:

Post a Comment

vivanews.com

nines cantik