ブログはじめました。日本語だと不便です。機能も少ないです。 なのでそのうち他のサービスを探します。ここはとりあえず実験的に。

日曜日, 6月 04, 2023

Reversing Pascal String Object

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. Hacker Tools Apk
  2. Nsa Hacker Tools
  3. Hack Website Online Tool
  4. Hacking Tools Pc
  5. Hacker Tools Linux
  6. Hacking Tools Usb
  7. Hack Tool Apk
  8. Growth Hacker Tools
  9. Pentest Tools Free
  10. Hack Apps
  11. Hacker Tools 2019
  12. New Hack Tools
  13. Free Pentest Tools For Windows
  14. Termux Hacking Tools 2019
  15. Black Hat Hacker Tools
  16. Pentest Tools Subdomain
  17. Hacking Tools And Software
  18. Hacker
  19. Hack Tool Apk No Root
  20. Pentest Tools List
  21. New Hacker Tools
  22. Kik Hack Tools
  23. Pentest Tools Download
  24. Hack Rom Tools
  25. Growth Hacker Tools
  26. Hack Rom Tools
  27. Pentest Tools Alternative
  28. Hacking Tools Hardware
  29. Pentest Box Tools Download
  30. Hack Tools Download
  31. Hacker Tools Windows
  32. Nsa Hack Tools Download
  33. Tools For Hacker
  34. Hack Tools Online
  35. Hack Tools Github
  36. Android Hack Tools Github
  37. Nsa Hack Tools Download
  38. Pentest Reporting Tools
  39. Hack Tools Download
  40. Hacker Search Tools
  41. Hacker Techniques Tools And Incident Handling
  42. Hacker Tools 2019
  43. Hacker Security Tools
  44. Hacking Tools For Beginners
  45. Pentest Tools Bluekeep
  46. Hack And Tools
  47. Hacker Techniques Tools And Incident Handling
  48. Hack Tools 2019
  49. Wifi Hacker Tools For Windows
  50. Hacker Security Tools
  51. Free Pentest Tools For Windows
  52. Hacker Tools Windows
  53. Nsa Hack Tools
  54. Growth Hacker Tools
  55. Hacker Tools Apk Download
  56. Hacker Tools For Mac
  57. Pentest Tools Alternative
  58. Hacking Tools 2020
  59. Hacker Tools For Ios
  60. Hacking Tools Online
  61. Hack Tools
  62. Hacking Tools Software
  63. Hacking Tools Kit
  64. World No 1 Hacker Software
  65. Hacking Tools Free Download
  66. Hacking Tools Online
  67. Hack Tool Apk
  68. Top Pentest Tools
  69. Hacking Tools Usb
  70. Beginner Hacker Tools
  71. Hacker Hardware Tools
  72. Top Pentest Tools
  73. Usb Pentest Tools
  74. Black Hat Hacker Tools
  75. Best Hacking Tools 2019
  76. Hacking Tools Software
  77. Hacker Tools For Mac
  78. Pentest Tools Github
  79. Pentest Box Tools Download
  80. Hacker Techniques Tools And Incident Handling
  81. Pentest Tools Url Fuzzer
  82. Pentest Tools For Android
  83. Hack Tools
  84. Hack Tools
  85. Hack Tools Online
  86. Hacker Tools For Mac
  87. Hacking Tools Github
  88. Best Hacking Tools 2019
  89. Pentest Tools Website
  90. Hacker
  91. Pentest Automation Tools
  92. Hack Apps
  93. Hacking App
  94. Top Pentest Tools
  95. Hacker Tools Software
  96. New Hacker Tools
  97. Hacking Tools Download
  98. Pentest Tools Find Subdomains
  99. Hack Tools
  100. Hack Website Online Tool
  101. Nsa Hack Tools Download
  102. Tools Used For Hacking
  103. Install Pentest Tools Ubuntu
  104. Hacker Tools Hardware
  105. Nsa Hacker Tools
  106. Pentest Tools For Ubuntu
  107. Hacker Tools 2019
  108. Hacks And Tools
  109. Pentest Tools Bluekeep
  110. Hacking Tools For Windows
  111. Hack Tools For Games
  112. Hacking Tools For Games
  113. Hacking Tools For Pc
  114. Hacking Tools For Beginners
  115. Pentest Tools Download
  116. Pentest Tools For Mac
  117. Tools Used For Hacking
  118. Hacking Tools Usb
  119. How To Install Pentest Tools In Ubuntu
  120. How To Hack
  121. Hack Tools Pc
  122. Pentest Tools Github
  123. Hack Tool Apk No Root
  124. Hack Tool Apk No Root
  125. Hackers Toolbox
  126. Game Hacking
  127. Hacker Tools For Pc
  128. Game Hacking
  129. Pentest Automation Tools
  130. Hacker Tools For Ios