Привет ребята.
Подскажите пожалуйста в каком формате хранятся эти данные в PE файле.
В RC DATA накиданы ресурсы начинающиеся с TPF0,
не могу найти их структуру что бы прочитать.

| Сообщение посчитали полезным:

binary dfm

| Сообщение посчитали полезным:

1. использовать <View as Text> IDE
2. Для самостоятельной обработки используют
Смотри модуль Classes
procedure ObjectBinaryToText(Input, Output: TStream;
var OriginalFormat: TStreamOriginalFormat);
procedure ObjectTextToBinary(Input, Output: TStream);

| Сообщение посчитали полезным:

vitokopЯ не могу воспользоваться этим, я пишу не на Delphi.
Все что мне нужно вывести информацию в текстовом виде.
Для этого надо знать структуру в которой содержаться данные в ресурсе PE.

| Сообщение посчитали полезным:

утилита IDR
https://github.com/crypto2011/IDR

| Сообщение посчитали полезным:

sendersu
так она в конечном итоге на ту же ObjectBinaryToText выходит
>>Resources.cpp

void __fastcall TResourceInfo::GetFormAsText(TDfm* Dfm, TStrings* DstList)
{
TMemoryStream *memStream = new TMemoryStream;
memStream->Size = Dfm->MemStream->Size;
Dfm->MemStream->Seek(0, soFromBeginning);
ObjectBinaryToText(Dfm->MemStream, memStream);
memStream->Seek(0, soFromBeginning);
DstList->LoadFromStream(memStream);
delete memStream;
}


Может быть есть смысл порыться с сырках lazarus?
Вобщем-то формат незамысловатый: сигнатура + array(длина имени свойства, имя свойства, флаги свойства, значение свойства),
вся соль в интерпретации флагов. Найти enumeration для них только.

| Сообщение посчитали полезным:

RamMerlabsВот я покопался в HEX там идет ANSI строка, длина строки, и тд, между ними данные. Стоит некий флаг потом собственно число.
Где же документация то как интерпретировать эти флаги. Без этого не понять как перейти на следующую строку.

| Сообщение посчитали полезным:

>>Где же документация то как интерпретировать эти флаги
дык я ж об этом и говорю.
кстати, там не ansi, а utf8

| Сообщение посчитали полезным:

zombi-vadim
Вот тебе старого говнокода чуток. Интерпретируй

fbab_28.06.2020_EXELAB.rU.tgz - dec_forms.zip

| Сообщение посчитали полезным: RamMerlabs

zombi-vadim пишет:
я пишу не на Delphi
Я что мешает скачать делфи, взять из исходников юнит Classes.pas (или System.Classes.pas) и разобрать указанную vitokop функцию?
Никакой документации для этого не нужно, и структуру можно понять без тыканины в HEX и бинарниках.

| Сообщение посчитали полезным:

rmnЕсли вы разбираетесь в данном то подскажите пожалуйста вот к примеру
идет байт 04 за ним строка Left тут все понятно Далее идет байт 03 - непонятно что это
Далее 6901 это собственно значение (361)Далее опять длина строки.
Что означает 03?

| Сообщение посчитали полезным:

zombi-vadim
Блин, в его же исходниках всё есть:
>>#define vaInt16 3
Это и есть интерпретация флагов. Соответственно, нужно считать следующие 2 байта как значение свойства.

| Сообщение посчитали полезным: zombi-vadim

давно все изобретено до нас DFMEditor, DFMExplorer, DFMConvertor

-----
127.0.0.1, sweet 127.0.0.1

| Сообщение посчитали полезным: mak

RamMerlabsСпасибо вам большое, кажется начинает доходить..

| Сообщение посчитали полезным:

RamMerlabs
Благодаря вам все получилось, осталось только несколько непоняток.
Подскажите пожалуйста если вы в курсе, почему если строка закодирована
в UTF 8 или Unicode, то за каким то лядом впереди нее пишется несколько нулей,
причем эти нули в длине строки не учитываются, что это такое, если какое то выравнивание,
то почему с переди строки, не могу понять что это..

| Сообщение посчитали полезным:

zombi-vadim
Для бинарных данных размер - это dword. В сорцах же все есть, начинай с функции LoadFromBinaryDFM и смотри, как она парсит данные разных типов.

| Сообщение посчитали полезным: zombi-vadim

rmn
Спасибо вам за подсказки и терпение
Разбирать чужой код для меня всегда та еще задачка.

| Сообщение посчитали полезным: