Билдер в Delphi

[garyanikin]

Здравствуйте.
Мне нужно создать билдер.
Есть программа написанная мною и нужно менять в ней некоторые параметры из другой программы как это возможно реализовать?
Заранее спасибо.

[GvR]

Очень интересная тема! Сам давненько этим интересуюсь

[raxp]

например, через обмен сообщениями wm_copydata... на блоге выложен подробный пример... или через сокеты, вариантов множество.

[Пепел Феникса]

в запущенной проге?
или создавать новый exe с новыми данными?

[GvR]

Новий .exe

[Пепел Феникса]

ну если текстовые данные то очень просто...а вот если числовые...integer и тд...то труднее.

для текста в программе болванке задаем текстовую константу длиною 255 допустим из '0'(символа 0), потом через Хекс редактор находим смещение этой константы и перезаписываем её(в конструкторе через FileStream например)...но помните, что нельзя превышать длину.
можно уменьшить её..заполнив излишек #0

[JTG]

Project -> Options -> Linker, Map file: Publics
Компилируем, получаем карту файла с адресами всех структур project1.map

 Start         Length     Name                   Class
 0001:00000000 0004CC20H .text                   CODE
 0002:00000000 00001130H .data                   DATA
 ...

 Address         Publics by Name
 ...
 0002:00000D3C   testvar

По нему узнаём, что переменная testvar (она у нас cardinal, 4 байта) в секции #2 (.data) по смещению 00000D3Ch
Грузим экзешник в любой PE-редактор (PE Tools, DiE, PEID), смотрим смещение секции .data (Raw Offset, в данном случае 4D200h), прибавляем смещение переменной D3Ch, получаем физический адрес в файле 4DF3Ch - именно там лежат эти заветные 4 байта



Переменная должна быть глобальной инициализированной переменной или константой, иначе она попадёт в секцию неинициализированных данных и в файле её не будет.
Ещё там обратный порядок следования байт: число 1234ABCD будет храниться как CDAB3412

Написание собственно патчера на вашей совести, это несложно, главное знать сколько байт писать и куда (TFileStream.Create, Seek, Write, Free).
Если всё это для трояна - шлю лучи поноса

[JTG]

Заведи в программе несколько переменных

var size: cardinal = 1024;
     ext: array[0..2] of char = ('t','x','t');
     ...

Получится экзешник, назовём его stub.exe, который по умолчанию создаёт текстовик в 1 кб. Доводишь его до ума, узнаёшь адреса, по которым хранятся эти переменные (как описано выше) и больше его не изменяешь.

Билдер будет хранить stub.exe в ресурсах, при необходимости извлекать в память, править переменные по нужным адресам (TResourceStream.Seek, TResourceStream.Write) и записывать на диск (TResourceStream.SaveToFile). Написал же "Мне нужно создать", вот и создавай, пинок в нужном направлении тебе дали

И не нужно создавать кучу тем, сообщения с ссылками на файлообменники отмечаются как потенциальный спам, поэтому отображаются не сразу, а только после проверки модератором