| Сейчас на форуме: Magister Yoda, rtsgreg1989 (+7 невидимых) |
 |
eXeL@B —› Основной форум —› SUIPack от http://sunisoft.com |
| . 1 . 2 . >> |
| Посл.ответ | Сообщение |
|
|
Создано: 07 мая 2005 12:33 · Личное сообщение · #1 Скины для Delphi проектов. Демо верссия при запуске выводит два MessageBox'a о том что используется в программе демо версия, я "занопил" все выводы MessageBox'a, все равно не получается! Случайно увидел типа CreateFileA(00466F79: "\\.\ICEDUMP", C0000000, 00000003, 00000000, 00000003, 00000080, 00000000) returns: FFFFFFFF в kerberos, может из-за этого я не могу найти в чем проблема дизассемблирую IDA 4.1.5(там кроме ida ещё куча всего понаставлена, типа regmon, softice и тд) (если в процессах есть delphi32.exe, то сообщения не выводятся! но в дизассемблерном коде ни слова о Process32Next и тд..., хотя в листинге kerberos они есть) (в крякинге новичек, два крякми только сломал)  |
|
|
Создано: 07 мая 2005 13:16 · Личное сообщение · #2 rmf пишет: Демо верссия при запуске выводит два MessageBox'a Хм, уже много раз писалось, что дельфи не юзает MessageBox, нопить их делу не поможет. В дельфи юзается инструкции вида ShowMessage('Message'); Попробуй поискать строки, которые в мессаге выводятся... Юзай DeDe. |
|
|
Создано: 07 мая 2005 13:32 · Личное сообщение · #3 Нету таких строк!, может зашифрованны??? ShowMessage('Message'), а где здесь указать какую иконку использовать, какие кнопки??? Как же это так, не использует MessageBox??? Кстати, размер исполняемого файла после компиляции больше мегабайта... Было бы меньше, может легче нашел бы! |
|
|
Создано: 07 мая 2005 13:52 · Личное сообщение · #4 Да уловок куча что-бы не вызывать MessageBox, например просто нормальное окно. Попробуй поставить bp ShowWindow в ольке. Потом выходи обратно в код проги и трейсь с F8 до вечного цикла. После этого нажимаешь "Execute until return", заходишь обратно в прогу и нажимаешь ОК. Должно брякнутся. А вот после этого нажимаешь F8 и смотришь что выше. Какие прышки можно поправить что-бы не вызывать Call из которого мы вышли. Если нет ничего интересного то выходи и из этого Call-a и смотри там что выше. |
|
|
Создано: 07 мая 2005 13:53 · Личное сообщение · #5 rmf пишет: ShowMessage('Message'), а где здесь указать какую иконку использовать, какие кнопки??? Ну это я к примеру сказал. ХЗ что там юзается, если ты юзаешь дельфовые компоненты, то должен сам знать, как вызвать мессаги различные. MessageDlg, к примеру. |
|
|
Создано: 07 мая 2005 14:39 · Личное сообщение · #6 rep0A Проделал, начинает дизассемблировать user32.dll Ara А чё тогда в списках импорта появляется MessageBoxA, если вызываешь её??? |
|
|
Создано: 07 мая 2005 17:43 · Личное сообщение · #7 rmf пишет: А чё тогда в списках импорта появляется MessageBoxA, если вызываешь её??? Если уж тебе очень хочется, чтоб это был MessageBoxA, то поставь на нее бряк и посмотри, так ли это. |
|
|
Создано: 07 мая 2005 17:53 · Личное сообщение · #8 rmf пишет: Проделал, начинает дизассемблировать user32.dll А ты попробуй это с олли сделать. Или олька начинает дизасемблить user32.dll ??? |
|
|
Создано: 10 мая 2005 14:11 · Личное сообщение · #9 Ara Блин... ставится, все работает! rep0A Я это с Olly делал... |
|
|
Создано: 11 мая 2005 12:30 · Личное сообщение · #10 rmf На сколько я помню в предидущей версии китайцы юзали какую-то гадость под названием dcu protector. Забавно было порытся, а мессаги они вроде они с помощью сишных dll выводили шутники 
|
|
|
Создано: 11 мая 2005 17:12 · Личное сообщение · #11 Fallen Angel А что за Сишные dll, есть названия ф-ций, и можно их поставить на BPX ??? |
|
|
Создано: 11 мая 2005 17:52 · Личное сообщение · #12 rmf пишет: есть названия ф-ций Там не названия, там номеры. |
|
|
Создано: 11 мая 2005 18:20 · Личное сообщение · #13 А где можно посматреть какие номера что значат? кстати, в списках импорта никаких номерных ф-ций нету! |
|
|
Создано: 11 мая 2005 23:06 · Поправил: rep0A · Личное сообщение · #14 Номерные функции есть, если прога юзает MFC. |
|
|
Создано: 11 мая 2005 23:51 · Личное сообщение · #15 да нет. не юзает она mfc... Есть ещё какие то идеи??? Как программа прячет названия ф-ций от списка импортов... можно вообще как то сделать чтобы нельзя было одну какуюто ф-цию вызывать??? Кстати, программа при запуске раз 20 вызывает Process32Next, вроде нельзя незаметить, при пошаговом выполнении, но ничего такого не вижу... в чем дело? |
|
|
Создано: 12 мая 2005 12:45 · Личное сообщение · #16 rmf Честно говоря, давно я в нем ковырялся уже и не помню че творил, но сломался он легко .... А тебе нужна именно последняя версия, ведь есть 5.6 с исходниками ? |
|
|
Создано: 12 мая 2005 17:51 · Личное сообщение · #17 rmf Видно меня глючит, но скачать прогу я не как не могу. Дай плз полный адрес. |
|
|
Создано: 12 мая 2005 18:18 · Личное сообщение · #18 Патч одним байтом ! ищи текст "This is a trial version of SUISkin!" в exe-шнике Вот ща кавырну dcu-хи (это более итересно чем патчить каждый exe ) а там посмотрим .... |
|
|
Создано: 12 мая 2005 18:21 · Личное сообщение · #19 Вот кусок из IDA но адреса для каждой EXE наверно разные ; __fastcall Suiskinusing::initialization(void) .text:0040DA10 public @Suiskinusing@initialization$qqrv .text:0040DA10 @Suiskinusing@initialization$qqrv proc near ; DATA XREF: .text:00401212o .text:0040DA10 push ebp .text:0040DA11 mov ebp, esp .text:0040DA13 sub dword_4E685C, 1 .text:0040DA1A jnb short loc_40DA30 .text:0040DA1C mov eax, off_4E636C .text:0040DA21 cmp dword ptr [eax], 0FFFFFFFFh .text:0040DA24 jnz short loc_40DA30 .text:0040DA26 mov eax, offset _str_This_is_a_trial.Text .text:0040DA2B call @Dialogs@ShowMessage$qqrx17System@AnsiString ; Dialogs::ShowMessage(System::AnsiString) .text:0040DA30 .text:0040DA30 loc_40DA30: ; CODE XREF: Suiskinusing::initialization(void)+Aj .text:0040DA30 ; Suiskinusing::initialization(void)+14j .text:0040DA30 pop ebp .text:0040DA31 retn .text:0040DA31 @Suiskinusing@initialization$qqrv endp .text:0040DA31 .text:0040DA31 ; ---------------------------------------------------------------------- ----- .text:0040DA32 align 4 .text:0040DA34 _str_This_is_a_trial dd 0FFFFFFFFh ; _top .text:0040DA34 ; DATA XREF: Suiskinusing::initialization(void)+16o .text:0040DA34 dd 193 ; Len .text:0040DA34 db 'This is a trial version of SUISkin! If you like the componen'; Text .text:0040DA34 db 't, register it please.',0Dh,'You can get all source code and'; Text .text:0040DA34 db ' life-time free upgrade.',0Dh,0Dh,'http://www.sunisoft.com/s'; Text .text:0040DA34 db 'uiskin/',0Dh,'support@sunisoft.com',0; Text .text:0040DAFE align 10h |
|
|
Создано: 12 мая 2005 19:17 · Личное сообщение · #20 Ну вообщем поимел я её ! у меня builder 6.0 ищем файл suiskinc6.lib в директории BCB60\projects\lib (или где он там у тебя) этот библия линкуется с проектом если там есть этот SUISkin ищем в нем строку "This is a trial version of SUISkin!" чуть выше есть последовательность байт 55 8B EC 83 - это начало процед. проверки ну и вместо 55 -> C3 ! Вот оно счастье ! 
успехов |
|
|
Создано: 12 мая 2005 20:54 · Личное сообщение · #21 мдаа.... в Дельфях всё совсем не так 
посмотрим что можно сделать.... |
|
|
Создано: 12 мая 2005 23:46 · Личное сообщение · #22 ну вообщем так... Для Delphi 7.0 находим файл SUISkinUsing.dcu - лежит откуда устанавливал пакет \Source\delphi7\... открываем его в Hiew, ищем последовательность байт ( 01 0F 83 BE 4A 00 00 60 ) выше на 6 байт есть последовательность ( 83 2D xx xx xx xx) xx - может быть любое меняем 83 -> C3 сохраняем. НАГ в 
Такая-же бойда есть в файле suiskind7.bpl который лежит в DELPHI\PROJECT\BPL\ я по началу там махнул думая что при линковке DELPHI его цепляет и обламался ... почемуто у меня он ищет этот dcu а если его нет матерится .... ну незнаю.. (просто дальше разбиратся влом). Удачи. |
|
|
Создано: 13 мая 2005 20:41 · Личное сообщение · #23 Fallen Angel Нет, не именно эту версию! а где можно достать её??? rep0A www.sunisoft.net/download/suipacktrial_delphi.zip вот, всё скачивается! xDriver Нету там вообще таких строк!!! и delphi у меня! Слушай, а у тебя какая версия SuiSkin??? у меня вообще нету таких файлов SUISkinUsing.dcu и suiskind7.bpl! Кстати! А как ты узнал что именно эти байты нужно патчить? по какому признаку??? там же ни строк, ничего! Блин... не везёт мне в крякинге... |
|
|
Создано: 13 мая 2005 21:03 · Личное сообщение · #24 rmf Я брал с их сайта www.sunisoft.net/download/suiskintrial.zip Кстати! А как ты узнал что именно эти байты нужно патчить? по какому признаку??? там же ни строк, ничего! Это байты - начало процедуры которая выводить НАГ ставим там просто RET первым байтом |
|
|
Создано: 13 мая 2005 21:28 · Личное сообщение · #25 xDriver Скачал ещё раз, думал может обновился, нету таких файлов!!! Кстати, там появилась поддержка delphi 9.0, и там в suipublic.dcu сообщение открытым текстом, а в этих нету. Попробовал устаночить, не получилось... |
|
|
Создано: 13 мая 2005 21:31 · Личное сообщение · #26 xDriver SuiSkin??? это ещё что??? этож другой компонент! я про www.sunisoft.net/download/suipacktrial_delphi.zip писал. Это байты - начало процедуры которая выводить НАГ А как ты узнал что это начало процедуры??? |
|
|
Создано: 13 мая 2005 21:41 · Личное сообщение · #27 Да промахнулся то скины а это VCL копмпоненты от этой-же фирмы .... (а какая хрен разницато в конечном итоге ?) скачал, посмотрел, похоже тоже самое .... фирма-то одна
завтра ковырну тогда выложу что получилось ... (убегаю я)
|
|
|
Создано: 13 мая 2005 21:53 · Личное сообщение · #28 Ок. Спасибо что взялся помочь! Кстати, не втему, а как ты dcu в ida открыл? Все таки мне хочется чтобы не взломали её мне, а чтоб я сам... |
|
|
Создано: 13 мая 2005 22:29 · Личное сообщение · #29 rmf пишет: www.sunisoft.net/download/suipacktrial_delphi.zip вот, всё скачивается! Хм, скачал, а версия 5.5. 
|
|
|
Создано: 13 мая 2005 23:22 · Личное сообщение · #30 rep0A Блин... все время какая то фигня с этим пакетом... странно... у меня 5.7 - это я сегодня скачал, а неделю назад скачал, было 5.2 Fallen Angel Да, щас тоже DcuProtector какойто... |
| . 1 . 2 . >> |
|
eXeL@B —› Основной форум —› SUIPack от http://sunisoft.com |
| Эта тема закрыта. Ответы больше не принимаются. |
Для печати