из асм в паскаль

[AET]

народ нужна подсказка при переводе из асм кода в код паскаль

[gold-goblin]

... Зная только паскаль в реверсе делать нечего (мое мнение)
Такой программы точно нет... если переводить то только в ручную

[zythar]

HexRays – декомпилятор нового поколения: превращаем любой бинарник в C-код
http://www.xakep.ru/post/42769/default.asp

не паскаль конечно но.. подойдет наверна

[ProTeuS]

народ нужна подсказка при переводе из асм кода в код паскаль

и где бинарник? опять телепатией заниматься? если нужен совет - показывай файл или задавай конкретный вопрос, а асбстракно - дизассемблируй и руками реверси в паскаль-код...

[AET]

вот сылка на сому программу http://karkarschool5.narod.ru/10/main_pro.rar
а вот на дизасамблированую http://karkarschool5.narod.ru/10/program.rar
вот приблизительно что получилась http://karkarschool5.narod.ru/10/MAINPROG.rar но дальше никак не могу разобрать а конкретнее нужен процедуры sub_2E4 и loc_0 это программа распаковает на фаилы R0 до Rn где n число блоков считывает из фаиля
вот сылка на фаил http://karkarschool5.narod.ru/10/main1.rar

[AET]

HexRays – декомпилятор нового поколения: превращаем любой бинарник в C-код
http://www.xakep.ru/post/42769/default.asp

не паскаль конечно но.. подойдет наверна
а откуда скачать можно

[ProTeuS]

а откуда скачать можно
http://cracklab.ru/download.php?action=get&n=MjE1

[desTiny]

м-м-м... а может ТС хочет DeDe?

[s0lar]

такой проги однозначно нет, если кода немного переведи вручную, если листинг огромный смотри в сторону декомпилеров

[zythar]

а откуда скачать можно

а ты статью прочитал? вам только готовое подавать...

[AET]

такой проги однозначно нет, если кода немного переведи вручную, если листинг огромный смотри в сторону декомпилеров
я это и имел виду чтобы мне подсказали тоесть я его сабираю сам но чтото крива получается в двух процедурах здесь sub_2E4 и здесь loc_0 просто подсказать

[ProTeuS]

функцийка sub_102E4 proc near объямная по коду, но не по смыслу, никто кроме тебя самого просто так киорбайты листинга ковырять не будет - отлад4ик в руки и сиди смотри 4то куда кладется, функции все вызываемые ида распознала, т.е. за тобой осталась тупо машинальная ру4ная работа, но объемная и длительная по времени

ЗЫ советую посмотреть это, может помо4ь уменьшить времчя портирования в разы: http://www.cracklab.ru/f/index.php?action=vthread&forum=6&topic=9818&page=0

[AET]

нет я просто буду сам расматривать а вы просто подправте что правельна а что нет

mov al, byte ptr [bp+var_202+1]
xor ah, ah
xor dx, dx
mov word_2364, ax
mov word_2366, dx
les di, [bp+arg_0]
push es
push di
push word_2392
push word_2390
call @Seek$qm4File7Longint ; Seek(var f; n: Longint)


а на паскале выглядит помоему так

word_2364:=Var_202[1];
seec (arg_0,word_2390)

[X-FRITS]

есть переходи из паскаля в асм:

var ...
begin
asm
{тело кода асм}
end;
{тело проги}
end.

можешь так попробывать прописать))

[AET]

есть переходи из паскаля в асм:

var ...
begin
asm
{тело кода асм}
end;
{тело проги}
end.

можешь так попробывать прописать))

блогодарен но мне нужен просто перевести из асм а паскаль