Làm cách nào để trích xuất thông tin biến cục bộ (địa chỉ và kiểu) từ chương trình Delphi hoặc thông tin gỡ lỗi do trình biên dịch tạo ra?

Mục tiêu của tôi là:

• Đưa ra một chuỗi bị treo trong chương trình Windows 32 hoặc 64 bit do Delphi biên dịch, để đi bộ (có thể làm được)
• Đưa ra các mục ngăn xếp, để liệt kê các biến cục bộ trong mỗi phương thức và giá trị của chúng. Đó là, ít nhất, hãy tìm địa chỉ và kiểu của chúng (số nguyên 32/64 / có dấu / không dấu, chuỗi, float, bản ghi, lớp ...) kết hợp chúng có thể được sử dụng để tìm giá trị của chúng.

Câu hỏi đầu tiên là tốt và câu hỏi thứ hai là về câu hỏi này. Ở mức cao, làm cách nào để liệt kê các biến cục bộ cho một mục ngăn xếp trong Delphi?

Ở cấp độ thấp, đây là những gì tôi đang điều tra:

RTTI: không liệt kê loại thông tin này về các phương pháp. Đây không phải là điều mà tôi thực sự từng nghĩ là một lựa chọn thực tế, nhưng dù sao cũng liệt kê ở đây.

Thông tin gỡ lỗi: Đang tải thông tin gỡ lỗi được tạo cho bản dựng gỡ lỗi.

• Tệp bản đồ: ngay cả tệp bản đồ chi tiết (tệp định dạng văn bản! Hãy mở một tệp và xem) không chứa thông tin biến địa phương. Về cơ bản, nó là một danh sách các địa chỉ và số dòng của tệp nguồn. Tuyệt vời cho địa chỉ để tệp & tương quan dòng, ví dụ: các chấm màu xanh lam trong rãnh nước; không tuyệt vời để biết thêm thông tin chi tiết
• Thông tin gỡ lỗi từ xa (tệp RSM) - không có thông tin nào về nội dung hoặc định dạng của nó.
• Tệp TD32 / TDS: dòng nghiên cứu hiện tại của tôi. Chúng chứa các ký hiệu toàn cầu và địa phương trong số rất nhiều thông tin khác.

Các vấn đề tôi gặp phải ở đây là:

• Không có tài liệu về định dạng tệp TD32 (mà tôi có thể tìm thấy.)
• Hầu hết kiến ​​thức của tôi về chúng đến từ mã Jedi JCL sử dụng chúng (JclTD32.pas) và tôi không chắc cách sử dụng mã đó hoặc liệu các cấu trúc có đủ rộng để hiển thị các vars cục bộ hay không. Tôi khá chắc chắn rằng nó sẽ xử lý các ký hiệu toàn cầu, nhưng tôi rất không chắc chắn về địa phương. Có rất nhiều hằng số được định nghĩa và không có tài liệu cho định dạng, để đọc ý nghĩa của chúng, tôi chỉ đoán. Tuy nhiên, những hằng số đó và tên của chúng phải đến từ đâu đó.
• Nguồn tôi có thể tìm bằng cách sử dụng thông tin TDS không tải hoặc xử lý các ký hiệu cục bộ.

Nếu đây là cách tiếp cận đúng, thì câu hỏi này sẽ trở thành 'Có tài liệu cho định dạng tệp TDS / TD32 không và có bất kỳ mẫu mã nào tải các biến cục bộ không?'

Một mẫu mã không cần thiết nhưng có thể rất hữu ích, ngay cả khi nó rất nhỏ.

Kiểm tra xem có bất kỳ ký hiệu gỡ lỗi nào không ở dạng nhị phân hay không. Cũng có thể là sử dụng GDB (trên Windows một cổng của nó). Sẽ thật tuyệt nếu bạn tìm thấy tệp .dbg hoặc .dSYM. Chúng chứa mã nguồn, ví dụ.

gdb> list foo
56 void foo()
57 {
58  bar();
59  sighandler_t fnc = signal(SIGHUP, SIG_IGN);
60  raise(SIGHUP);
61  signal(SIGHUP, fnc);
62  baz(fnc);
63 }

Nếu bạn không có bất kỳ tệp gỡ lỗi nào, bạn có thể thử lấy MinGW hoặc Cygwin và sử dụng nm (1) ( trang người đàn ông ). Nó sẽ đọc tên ký hiệu từ hệ nhị phân. Chúng có thể chứa một số kiểu, như kiểu C ++:

int abc::def::Ghi::jkl(const std::string, int, const void*)

Đừng quên thêm --demangletùy chọn sau đó hoặc bạn sẽ nhận được một cái gì đó như:

__ZN11MRasterFont21getRasterForCharacterEh

thay vì:

MRasterFont::getRasterForCharacter(unsigned char)

Hãy xem http://download.xskernel.org/docs/file%20formats/omf/borland.txt Sổ tay Kiến trúc Mở. Nó đã cũ, nhưng có thể bạn tìm thấy một số thông tin liên quan về định dạng tệp.