Недавно решил написать на Delphi, программку редактор DBF-файлов (таблиц), чтобы можно было открывать, редактировать поля, сортировать, искать по полю, и сохранять в том же DBF формате, не изменяя структуру DBF.
В интернете наткнулся на продвинутый компонент DBGridEh _http://www.ehlib.com/ehlibeva.exe , который выполняет расширенные функции в отличии от стандартного компонента DBGrid. Установил библиотеку компонента, все нормально, создал небольшую программку, но библиотека то платная, в Delphi после компиляции запускается нормально, но выйдся из Delphi, программа уже не работает (выскакивает Message, с содержанием This evalution copy of EHLib only works while Delphi is runing. Please contact author of EHlib to order a full version. ) Из сообщения ясно, что программа работает только при Delphi, и нужно сязаться с автором для заказа полной версии... которая стоит Ehlib без исходника $79 , и с исходником $129. Жалко денег стало, и я пошел другим путем:
1) Имея уровень 0-1 в кряке , я решил обойти защиту автора... Я открыл скомпилированную прогу, она же находится здесь _http://xfen.narod.ru/chm/Project1.rar с помощью Олли, нашел строку сравнения по адресу: 460CB5 CMP BYTE PTR DS:[EAX+9C],0 , затем 0 поменял на 1, выскочило опять Message, я нажал OK и прога запустилась, все таблицы с помощью нее открываются, кароче в полной функциональности используется компонент DBGridEh, НО..... выйти из программы не получается обычным методом, только через taskkill....
Подскажите как дальше быть, я в этом деле новичек.

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

fen там ищецца окна программ, следовательно бряк на FindWindow и все, либо поищи эти компоненты в отломанном виде на борде.

-----
StarForce и Themida ацтой!

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

Или можешь еще проще сделать... В заголовке она напиши Delphi, защита будет думать что делфи работает

Можно вот так сделать:

Было:
/*418694*/ PUSH EBP
/*418695*/ MOV EBP, ESP
/*418697*/ ADD ESP, -0C


стало:

/*418694*/ XOR AL, AL
/*418696*/ INC AL
/*418698*/ RETN
/*418699*/ NOP

-----
-=истина где-то рядом=-

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

Хотел код запастить, форматированние не сохраняеццо...

Процедура в аттаче.

-----
-=истина где-то рядом=-

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

не аттачиццо...

Попытка номер 2

fbfe_29.11.2007_CRACKLAB.rU.tgz - 004490b4.txt

-----
-=истина где-то рядом=-

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

Или можешь еще проще сделать... В заголовке она напиши Delphi, защита будет думать что делфи работает

Можно вот так сделать:
Было:
/*418694*/ PUSH EBP
/*418695*/ MOV EBP, ESP
/*418697*/ ADD ESP, -0C

стало:

/*418694*/ XOR AL, AL
/*418696*/ INC AL
/*418698*/ RETN
/*418699*/ NOP


KingSise, Попробывал заголовок формы поменять на Delphi,Delphi 6 ... не запускается..заменил команды по тем адресам что дал.. после этого появляется только чистая форма...
Из атача понял немного, комментарии к веткам условия описал бы, если можно.

Но спасибо что подсказали с findwindow, сейчас просматриваю их.
И можно вопрос почему только findwindow, может еще к чему то привязывается?

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

fen потому что триальная версия смотрит под дельфи ты запускаешь или нет, делает это она поиском окна. Можешь попробовать просто прогу запустить, с открытой дельфей (без проектов), должно работать

-----
StarForce и Themida ацтой!

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

fen пишет:
осле этого появляется только чистая форма...

Я вот тоже думал, что тут что то не так... Ну а вообще я бы посоветовал при запущенной делфи пройтить по пункциям от того адресса, что я в аттаче дал и посмотреть, что выполняется а что нет.

-----
-=истина где-то рядом=-

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

Если занопить procedure ReadState(), то грузицца снова пустая форма...

00042338 C3 RETN

-----
-=истина где-то рядом=-

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

Вобщем я пока не разобрался где патчить, но если твой вариан работает (00460A3E MOV BYTE PTR DS:[ESI+9C], 1 меняем на MOV BYTE PTR DS:[ESI+9C], 0) коректно, но остаются проблеммы с закрытием приложения, то можно как временный вариан закрывать программу таким способом:

004FC1C8 MOV EAX, DWORD PTR DS:[500E7C] - событие при нажатии на кнопку "закрыть"

заменяем на 004FC1C8 JMP 00404411

т.е. на
00404411 |. 50 |PUSH EAX ; /ExitCode
00404412 |. E8 0DCFFFFF |CALL 00401324 ; \ExitProcess


Но это опять же временное решение, как скачаеццо делфи 2007 буду смотреть, как не через патчить...

-----
-=истина где-то рядом=-

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

KingSise
спасибо, работает правда у меня чуть выше по адресу 4FC1D8 находится, но неважно.
Как ты пришел к 004FC1C8 MOV EAX, DWORD PTR DS:[500E7C], узнал что именно это событие закрыть, расскажи последовательность твоих действий в отладчике, если не трудно.

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

fen пишет:
расскажи последовательность твоих действий в отладчике, если не трудно.

Я и не в отладчике смотрел... Оскрой любым декомпилятором.

1-й DeDE: rapidshare.com/files/66761369/dede_3.50.04.zip" target="_blank">--> Link 1<--, --> Link 2<-- http://rapidshare.com/files/67411922/delphi_decompiler.rar
2-й De Dec: -----
-=истина где-то рядом=-

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

KingSise
спс, понял, раньше я не мог догадаться ) но все таки это событие после нажатия на буттон, нормальным же методом не получится закрыть... ну ниче буду смотреть еще.

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

Чтоб народ не мучался, вот выкладываю ПОЛНЫЙ ehLib (рар с паролем) (взят диска к книге по БД):
slil.ru/25182698

to fen:
пасс напешу те в личку

ЗЫ
Кому ещё надо пасс, пишите в личку, всётаки cracklab - не варезник... =)

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

alexey_k, ты б лучше сказал где патчить... Мне например ПОЛНЫЙ ehLib не интересен, интересно от делфи отучить то, что топикстартер в первом посте зааттчачил.

-----
-=истина где-то рядом=-

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

KingSise пишет:
ты б лучше сказал где патчить...
Да зачем патчить-то, если это бесплатная либа (для exUSSR).

Сам я шаро-версию не смотрел, сёдня вечером ток. смогу (если траф позволит), ажж самому интересно стало =)

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

KingSise пишет:
ты б лучше сказал где патчить...
Берем DBGridEh.dcu из папки Delphi7 и патчим по офсетам
03D5D5 26h => 00h
03D5FB 75h => EBh
Сам не компилил, но думаю будет работать
Есть статья по компонентам http://www.exelab.ru/art/?action=view&id=297

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