По многочисленным просьбам в асю, мыло, ЛС - выкладываю бета версию DE Decompiler'а.

URL: http://www.de-decompiler.com/files/de_decompiler_lite.zip http://www.de-decompiler.com/files/de_decompiler_lite.zip

Чего в ней есть

1. Поддержка ВСЕХ версий Delphi начиная с третьей;
2. Автоматическая распаковка если EXE пакован (спасибо Archer'у);
3. Декомпиляция файла проекта, форм, заголовков юнитов, дизассемблирование кода.

Чего нет

Сразу оговорюсь - это LITE, то есть оттуда вырезан эмулятор кода ПОЛНОСТЬЮ.

На что это влияет:

1. некорректно определяется конец процедур (так как эмулятор вырезан из Lite - процедуры обрезаются по первому ret);
2. только асм листинг (детект сигнатур VCL и ООП также отключен в Lite).

C++ Builder пока не поддерживается (точнее поддерживается но с глюками обработки заголовков юнитов и без гарантированного разбора всех элементов форм).

На что следует обратить внимание желающим потестить:

1. на совместимость с разными версиями дельфей
2. на корректную работу опций Show User Classes и Show VCL Classes.

Обо всех багах просьба писать на support {@} de-decompiler.com

Желающие получить Pro версию (когда она выйдет)

1. Могут написать нужный и полезный плагин для декомпилятора
(предварительно согласовав со мной тему)
2. Купить программу (цены теже что и на VB Decompiler)

PS: весь бетатестинг - это по желанию. Желающих пофлудить просьба тут не писать.

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

Интересно, а сколько будет стоить Pro-версия?

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

intro пишет:
Интересно, а сколько будет стоить Pro-версия?

Расценки почти те же что и на VB Decompiler (99 - single user license, 199 company license).
А вообще в Lite версии есть пункт меню Order Pro version - прямая ссылка на цены, правда я еще не обновлял дизайн страницы (там он от VB), но пока это бета - это не критично.

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

и что кто-то покупает из СНГ?

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

Это интересно! Но.. за 99 у.е. Pro версию получить не желаю.

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

GPcH,
Валится при запуске (XP SP2 + Updates RUS)
[img=http://img156.imageshack.us/img156/8727/deerrorzd5.th.png] http://img156.imageshack.us/my.php?image=deerrorzd5.png

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

drin пишет:
и что кто-то покупает из СНГ?
Как ни странно - да.

YDS пишет:
Это интересно! Но.. за 99 у.е. Pro версию получить не желаю.
Напиши плагин и получи за так.

soho пишет:
Валится при запуске (XP SP2 + Updates RUS)

Слишком мало данных. Включен ли DEP, как именно валится (какие адреса), запуск от админа или нет?

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

GPcH а то что он не работает с приложениями написаными на KOL это недаработка или так задуманно???

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

KOL вообще другая история.

add:
GPcH, у меня попрежнему копится полтора вмз =]

-----
may all your PUSHes be POPed!

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

//Начинаем бонусы зарабатывать
GPcH
У мну на одном гавне(D7),выдал что нужОн VB Decompiler.
Там под вынупаком,вмпрот остался.DE DE DaFixer грызёт.

-----
Чтобы юзер в нэте не делал,его всё равно жалко..

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

GPcH пишет:
Включен ли DEP
DEP включен только для основных программ и служб Windows (1-я опция)
запуск от админа или нет?
Да, запуск от админа

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

хм вот тоже еще один глюк(хотя хз моэ это опять же не глюк) на одной дельфовой проге подвис очень на долго...думал ...думал в итоге выдал сообщение об ошибке http://img509.imageshack.us/my.php?image=errorpv2.jpg http://img509.imageshack.us/my.php?image=errorpv2.jpg

правда потом додекомпилили

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

ne0n пишет:
а то что он не работает с приложениями написаными на KOL это недаработка или так задуманно???

А как с ними работать если там голый API? Для них используй REC как и для сей. Мой декомпиль разбирает только VCL

Bronco пишет:
У мну на одном гавне(D7),выдал что нужОн VB Decompiler.
Там под вынупаком,вмпрот остался.

Ты лучше упакованный открой - он предложит распаковать. А вообще - пришли мне - гляну.

Bronco пишет:
DE DE DaFixer грызёт.

Ну так он запускает и дампит прогу - мой ничего не запускает кроме LoadLibrary для выдирки ресурсов (и то это временно - как нить напишу свой парсер ресурсов).

soho

Ну тогда я хз - у меня все работает. Если есть знания и опыт - открой в олли и погляди где падает.

ne0n пишет:
думал ...думал в итоге выдал сообщение об ошибке

Это парсер форм - выложи прогу - буду смотреть что ему в формах не понравилось.

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

GPcH
Delphi 7, не отображаются вызовы api функций. Или этого тоже нет в Lite?

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

GPcH пишет:
Это парсер форм - выложи прогу - буду смотреть что ему в формах не понравилось.
www.tidystartmenu.com/

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

seeq пишет:
Delphi 7, не отображаются вызовы api функций. Или этого тоже нет в Lite?

Если ты про функции VCL - ограничение Lite

ne0n

Сетапить я ничего не буду. Если есть возможность - выложи один EXE на рапиду или пошли мылом.

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

GPcH
Нет, я ж написал WinApi функции:

procedure TForm1.Button1Click(Sender: TObject);
begin
GetModuleHandle('Kernel32.dll');
end;

--------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
{ '44D944
loc_0044D944: push 0044D950h ; 'Kernel32.dll'
loc_0044D949: call 00405E60h ;
loc_0044D94E: ret
}
end;

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

seeq пишет:
Нет, я ж написал WinApi функции

Странно - проверю. Вообще раз дизасм поставил точку с запятой в конце строки значит чето у него с API не вышло (гляну) - видать баг.

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

GPcH пишет:
Расценки почти те же что и на VB Decompiler (99 - single user license

однако: www.vb-decompiler.org/p=Products
Price $0 $99
в русском варианте: www.vb-decompiler.org/p=Products&lang=rus
Цена 1 копии программы 0 1200 рублей
итого: выгоднее брать в рублях!

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

GPcH пишет:
Сетапить я ничего не буду. Если есть возможность - выложи один EXE на рапиду или пошли мылом.
ок! rapidshare.com/files/64630607/TidyStartMenu.rar.html

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

seeq пишет:
Нет, я ж написал WinApi функции:

Проверил - баг. Исправил. Пока выкладывать апдейт не буду - сначала погляжу остальные баги что понаписали выше.

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

GPcH
сунул прогу, после снятия екзекриптора, дык он заорал что вбдекомпилер надо...

а вообще DeDe by DaFixer имхо функциональнее и дешевле...твоему проекту ещё долго до него по стабильности...и по цене...

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

Разобрался. Падает, если не находит начиненного раздела "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\DE Decompiler.exe".
ИМХО, стОит пофиксить - не такая уж важная цаца...

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

mushr00m пишет:
итого: выгоднее брать в рублях!

Дык не для кого не секрет что для СНГ цена 1200 рублей. Америку открыл прям
Тут даже кнопка оплатить есть: www.dotfix.net/module.php?module=@7d786e7b

sniperZ пишет:
сунул прогу, после снятия екзекриптора, дык он заорал что вбдекомпилер надо...

Ну так Прога то не заточена под противозаконное использование - это ты делаешь на свой страх и риск. Это DeDe писал мембер кректимы.
Теперь вопрос - там EXE не полупакованный? Просто DeDe запускает а потом смотрит дамп, мой же смотрит что есть. А вообще кинь на рапиду и мне ссылку в приват - посмотрю что там.

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

soho пишет:
Разобрался. Падает, если не находит начиненного раздела "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\DE Decompiler.exe".

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

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

ne0n пишет:
ок! rapidshare.com/files/64630607/TidyStartMenu.rar.html

Баг в конверсии буквы "ё" из UTF-8... зря я понадеялся на самописный конвертор из UTF-8, написанный 5 лет назад для нужд русификации WinAmp 3.0 (у него все строки в UTF-8 в XML были, а в те года не было блокнотов с поддержкой UTF-8 - пришлось свой городить). Короче взял универсальный вариант под все языки - теперь не глючит.

Спасибо за найденный баг.

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

Я так понимаю, надо ждать, пока YAG зарелизят полную версию

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

Bronco пишет:
У мну на одном гавне(D7),выдал что нужОн VB Decompiler.
Там под вынупаком,вмпрот остался.DE DE DaFixer грызёт.

Посмотрел я твой test.exe. DE Decompiler просто сигнатуру дельфей не находит на EP.
Встрой туда в EP чтонить из этого:

'delphi
signDB(1) = "C3E9::::::FF8D40"
signDB(2) = "E8::::::::6A::E8::::::::8905::::::::E8::::::::8905::::::::C705::::::: :0A::::::B8::::::::C3"
signDB(3) = "506A::E8::::FFFFBA::::::::528905::::::::894204"
signDB(4) = "BA::::::::837D0C0175::5052C605::::::::::8B4D08890D::::::::894A04"
signDB(5) = "538BD833C0A30::::::06A00E80::::0FFA30::::::0A10::::::0A30::::::033C0A 30::::::033C0A30::::::0E8"
signDB(6) = "538BD833C0A3::::::::6A00E8::::::FFA3::::::::A1::::::::A3::::::::33C0A 3::::::::33C0A3::::::::E8"
signDB(7) = "558BEC83C4"
'cpp builder
signDB(8) = "EB1066623A432B2B484F4F4B90"

Я встроил - сразу все декомпилялось.

А вообще кто-нить накатал бы тулзу для этого на основе моего скрипта для DotFix Engine:

messagebox Do you want to patch this program?, 4, Patch, retval
goto exit , if retval = 7
setoem Delphi stub
getoep oep, va_oep
getimagebase imagebase
add @va_oep@,@imagebase@,va_oep
invert @va_oep@, va_oep
length 558BEC83C40068@va_oep@C3,len
createsection cool,@len@,raw,va
putcode @raw@, 558BEC83C40068@va_oep@C3
setoep @va@
setflag C0000020
goto ok
exit
label ok
messagebox New oep: @va@,16
label exit

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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

GPcH

а чё версию по еп детектишь? это не айс...

-----
[nice coder and reverser]

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

Hellspawn пишет:
а чё версию по еп детектишь?

Версию я детекчу иначе (через класс TControl) как в DeDe:

sTemp = 0
For j = 0 To 10
sTemp = InStr(sTemp + 1, sText, Chr(8) & "TControl")
If sTemp = 0 Then Exit For
Get #strFile, sTemp + 9, xLng
If VaToOffset(strFile, xLng) > 0 Then
Get #strFile, VaToOffset(strFile, xLng) - 39, xLng
Select Case xLng
Case 0: sDelphiVersion = "Delphi 3"
Case &HB4: sDelphiVersion = "C++ Builder"
Case &H114: sDelphiVersion = "Delphi 4"
Case &H120: sDelphiVersion = "Delphi 5"
Case &H138: sDelphiVersion = "Kylix"
Case &H128: sDelphiVersion = "Delphi 6"
Case &H15C: sDelphiVersion = "Delphi 7"
Case &H160: sDelphiVersion = "Delphi 7"
Case &H190: sDelphiVersion = "Delphi 2007"
Case Else: sDelphiVersion = "Delphi 7"
End Select
Exit For
End If
Next

А то что я приводил ранее это просто набор сигн для определения Delphi/не Delphi

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

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