Декомпиляция программы написанной Делфи

Сейчас на форуме: UniSoft, bartolomeo (+6 невидимых)

Посл.ответ	Сообщение
anvabes Ранг: 1.0 (гость) Активность: 0=0 Статус: Участник	Создано: 02 февраля 2011 16:05 · Личное сообщение · #1 Помогите разобраться, к примеру, я написал на делфи две процедуры procedure my(); begin ShowMessage('Hello'); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin my(); end; После компиляции и декомпиляции получил одну procedure TForm1.BitBtn1Click(Sender: TObject); begin // Address $45F358 {* 0045F358 E8E3FFFFFF call 0045F340 0045F35D C3 ret } end; Как мне восстановить работоспособность программы по этому коду? Заключение в скобки Code: asm end не помогает Такой код тоже не работает ругается на call Code: asm call* 0045F340 ret end; Как быть? Восстановить реально?

mysterio Ранг: 307.9 (мудрец), 196thx Активность: 0.18↘0 Статус: Участник	Создано: 02 февраля 2011 16:16 · Поправил: mysterio · Личное сообщение · #2 Войди в/разверни call и все востановишь Другими словами получи содержание процедуры. ----- Don_t hate the cracker - hate the code.
anvabes Ранг: 1.0 (гость) Активность: 0=0 Статус: Участник	Создано: 02 февраля 2011 16:21 · Личное сообщение · #3 Я извеняюсь но что значит войти? Я в ассемблере не особо вроде, если можно примерчик как это делается, все декомпилируется и работает, а вот с вызовом функций беда прям
Hellspawn Ранг: 990.2 (! ! !), 380thx Активность: 0.68↘0 Статус: Модератор Author of DiE	Создано: 02 февраля 2011 16:21 · Личное сообщение · #4 если бы всё так просто было) полностью восстановить не удастся, но в твоем примере возможно. попробуй вот этот инструмент https://ssl.cracklab.ru/f/action=vthread&forum=3&topic=15434 без нормальных знаний, даже нечего пытаться. ----- [nice coder and reverser] \| Сообщение посчитали полезным: anvabes
anvabes Ранг: 1.0 (гость) Активность: 0=0 Статус: Участник	Создано: 02 февраля 2011 17:12 · Личное сообщение · #5 Спасибо полезная прога да вот только получилось следующее Code: procedure sub_0045F340(); asm mov eax, 'Hello' call ShowMessage ret end; procedure TForm1.BitBtn1Click(Sender: TObject); begin // Address $45F358 asm call sub_0045F340 ret end; end; Вместо сообщения Hello вылетает новая форма, больших размеров
Hellspawn Ранг: 990.2 (! ! !), 380thx Активность: 0.68↘0 Статус: Модератор Author of DiE	Создано: 02 февраля 2011 17:21 · Личное сообщение · #6 ну потому что не так нужно))) Code: procedure sub_0045F340(); const shello : string = 'Hello'; asm mov eax,shello call ShowMessage end; ----- [nice coder and reverser]
anvabes Ранг: 1.0 (гость) Активность: 0=0 Статус: Участник	Создано: 02 февраля 2011 17:27 · Личное сообщение · #7 Спасибо , помогло дальше пока сам копаться, хороший форум)))

Для печати