FoxClub Forums > Visual Foxpro, Foxpro for DOS > Прога стала вылетать ::

• Войти

Страницы: 1 2 3 4

Re: Прога стала вылетать
po2 Сообщений: 2864 Откуда: Иркутск Дата регистрации: 22.12.2001	po2 11.12.18 17:26:16 Да, есть защита. ReFox'ом разбирается. Если все правильно понял, то достаточно перезаписать единственную строку в одной из баз. В таких случаях обычно советую связаться с автором. Мне ваши с ним условия сотрудничества неизвестны.

po2

Сообщений: 2864
Откуда: Иркутск
Дата регистрации: 22.12.2001

po2

11.12.18 17:26:16

Да, есть защита. ReFox'ом разбирается. Если все правильно понял, то достаточно перезаписать единственную строку в одной из баз. В таких случаях обычно советую связаться с автором. Мне ваши с ним условия сотрудничества неизвестны.

Re: Прога стала вылетать
PaulWist Сообщений: 14625 Дата регистрации: 01.04.2004	PaulWist 11.12.18 17:32:46 po2 Да, есть защита. ReFox'ом разбирается. Если все правильно понял, то достаточно перезаписать единственную строку в одной из баз. В таких случаях обычно советую связаться с автором. Мне ваши с ним условия сотрудничества неизвестны. ТС вроде пояснил: Цитата: Достать исходники возможности нет, автор в 2013 ушел из жизни. Остается в ехе-шнике поискать какие-нибудь комменты на авторство/почту/телефон. PS думаю, что ТС искренне говорит. ------------------ Есть многое на свете, друг Горацио... Что и не снилось нашим мудрецам. (В.Шекспир Гамлет)

Re: Прога стала вылетать

PaulWist

Сообщений: 14625
Дата регистрации: 01.04.2004

PaulWist

11.12.18 17:32:46

po2
Да, есть защита. ReFox'ом разбирается. Если все правильно понял, то достаточно перезаписать единственную строку в одной из баз. В таких случаях обычно советую связаться с автором. Мне ваши с ним условия сотрудничества неизвестны.

ТС вроде пояснил:

Цитата:
Достать исходники возможности нет, автор в 2013 ушел из жизни.

Остается в ехе-шнике поискать какие-нибудь комменты на авторство/почту/телефон.

PS думаю, что ТС искренне говорит.

------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)

Re: Прога стала вылетать
po2 Сообщений: 2864 Откуда: Иркутск Дата регистрации: 22.12.2001	po2 11.12.18 17:56:58 Прошу извинить. Был невнимателен, пропустил один из постов, поясняющих ситуацию. Тогда так. Насколько понял при старте срабатывает функция проверяющая содержимое строки базы license.dbf по алгоритму: PRIVATE on_error m.on_error = ON('error') ON ERROR quit USE IN 0 license IF .NOT. license.id = 10000000013 - ; summa(license.company) * i? - ; summa(license.username) * i? - ; summa(license.trademark) * 10000 - ; summa(license.copyright) * 10000 - ; summa(license.version) * 1000 - ; summa(license.applicatio) * 100 QUIT ENDIF USE IN license on error &on_error Код пользовательской функции summa таков: para string priv i,; summa m.summa = 0 for m.i = 1 to len(m.string) m.summa = m.summa + ; asc(subs(m.string, m.i, 1)) endf retu m.summa Пока мне не все понятно с первыми двумя множителями отображаемыми при разборе как - i? Давно не брал в руки шашек, не могу с ходу определить, что это за конструкция. Какой-то элемент защиты или ошибка в файле, которая и является причиной сбоя при запуске. Исправлено 1 раз(а). Последнее : po2, 11.12.18 17:57

Re: Прога стала вылетать

po2

Сообщений: 2864
Откуда: Иркутск
Дата регистрации: 22.12.2001

po2

11.12.18 17:56:58

Прошу извинить. Был невнимателен, пропустил один из постов, поясняющих ситуацию. Тогда так.
Насколько понял при старте срабатывает функция проверяющая содержимое строки базы license.dbf по алгоритму:


PRIVATE on_error
m.on_error = ON('error')
ON ERROR quit
USE IN 0 license
IF  .NOT. license.id = 10000000013                          - ;
                       summa(license.company)    * i?       - ;
                       summa(license.username)   * i?       - ;
                       summa(license.trademark)  * 10000    - ;
                       summa(license.copyright)  * 10000    - ;
                       summa(license.version)    * 1000     - ;
                       summa(license.applicatio) * 100
     QUIT
ENDIF
USE IN license
on error &on_error

Код пользовательской функции summa таков:


para string
priv i,;
     summa
     m.summa        = 0
 for m.i = 1 to len(m.string)
     m.summa        = m.summa + ;
                      asc(subs(m.string, m.i, 1))
endf
retu m.summa

Пока мне не все понятно с первыми двумя множителями отображаемыми при разборе как - i? Давно не брал в руки шашек, не могу с ходу определить, что это за конструкция. Какой-то элемент защиты или ошибка в файле, которая и является причиной сбоя при запуске.

Исправлено 1 раз(а). Последнее : po2, 11.12.18 17:57

Re: Прога стала вылетать
po2 Сообщений: 2864 Откуда: Иркутск Дата регистрации: 22.12.2001	po2 11.12.18 18:54:03 Пока, думаю, что поврежден exe-файл. В одном из файлов нашелся фрагмент с аналогичным кодом, где первые два множителя видны явно, это - 1000000 и 10000. Однако вычисленное и записанное в базу значение ID никак не помогло. У нас уж время позднее, потому я в пододеялу. Завтра, если коллеги на форуме не раскопают, продолжу.

Re: Прога стала вылетать

po2

Сообщений: 2864
Откуда: Иркутск
Дата регистрации: 22.12.2001

po2

11.12.18 18:54:03

Пока, думаю, что поврежден exe-файл. В одном из файлов нашелся фрагмент с аналогичным кодом, где первые два множителя видны явно, это - 1000000 и 10000. Однако вычисленное и записанное в базу значение ID никак не помогло. У нас уж время позднее, потому я в пододеялу. Завтра, если коллеги на форуме не раскопают, продолжу.

Re: Прога стала вылетать
PaulWist Сообщений: 14625 Дата регистрации: 01.04.2004	PaulWist 12.12.18 10:04:00 ON ERROR quit USE IN 0 license IF .NOT. license.id = 10000000013 - ; summa(license.company) * i? - ; summa(license.username) * i? - ; summa(license.trademark) * 10000 - ; summa(license.copyright) * 10000 - ; summa(license.version) * 1000 - ; summa(license.applicatio) * 100 QUIT ENDIF Если license.id не равно 10000000013, то намеренно вызывается оператор генерящий ошибку, а по ошибке quit. ------------------ Есть многое на свете, друг Горацио... Что и не снилось нашим мудрецам. (В.Шекспир Гамлет)

Re: Прога стала вылетать

PaulWist

Сообщений: 14625
Дата регистрации: 01.04.2004

PaulWist

12.12.18 10:04:00


ON ERROR quit  
  USE IN 0 license  
  IF  .NOT. license.id = 10000000013                          - ;  
                         summa(license.company)    * i?       - ;  
                         summa(license.username)   * i?       - ;  
                         summa(license.trademark)  * 10000    - ;  
                         summa(license.copyright)  * 10000    - ;  
                         summa(license.version)    * 1000     - ;  
                         summa(license.applicatio) * 100  
       QUIT  
  ENDIF

Если license.id не равно 10000000013, то намеренно вызывается оператор генерящий ошибку, а по ошибке quit.

------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)

Re: Прога стала вылетать
Crispy Сообщений: 18571 Дата регистрации: 16.05.2005	Crispy 12.12.18 10:08:21 po2 Пока, думаю, что поврежден exe-файл. Возможно не поврежден. А просто "защищен". Слышал, делали такое в скомпилированном уже в FPD ехешнике - несколько байтов правили через hex-редактор, на работу это не влияло, а рефоксеру выдавало баги. Тем более, раз на других компах работает, а копирование с них этого же самого файла ничего не меняет. Рефокс у меня к примеру с ошибками завершил. Аналогично новый ребилд полученного проекта дает ошибки. В частности якобы главное меню "испорчено". Ну и т.п. В целом же глянул на файлы - программа ужасающая и удручающая как бы. Ну это бы еще как говорится ладно. Текущую дырку в принципе залатать может и удастся. Но вот кто у них сопровождать ее собирается. Они про это видимо даже не думают. Тут как минимум нужен опыт с FPD, а уж без знания конкретной предметной области даже и бесполезно. И на освоение всего этого кому-то нужно будет потратить много времени. Либо отказаться от данной программы в пользу заказа/покупки новой. По нынешним временам - обычно 1С. Так что все это в большей степени административная проблема, на мой взгляд. ------------------ В действительности все иначе, чем на самом деле. (Антуан де Сент-Экзюпери)

Re: Прога стала вылетать

Crispy

Сообщений: 18571
Дата регистрации: 16.05.2005

Crispy

12.12.18 10:08:21

po2
Пока, думаю, что поврежден exe-файл.

Возможно не поврежден. А просто "защищен". Слышал, делали такое в скомпилированном уже в FPD ехешнике - несколько байтов правили через hex-редактор, на работу это не влияло, а рефоксеру выдавало баги.
Тем более, раз на других компах работает, а копирование с них этого же самого файла ничего не меняет.
Рефокс у меня к примеру с ошибками завершил. Аналогично новый ребилд полученного проекта дает ошибки. В частности якобы главное меню "испорчено". Ну и т.п.
В целом же глянул на файлы - программа ужасающая и удручающая как бы. Ну это бы еще как говорится ладно. Текущую дырку в принципе залатать может и удастся.
Но вот кто у них сопровождать ее собирается. Они про это видимо даже не думают.
Тут как минимум нужен опыт с FPD, а уж без знания конкретной предметной области даже и бесполезно. И на освоение всего этого кому-то нужно будет потратить много времени. Либо отказаться от данной программы в пользу заказа/покупки новой. По нынешним временам - обычно 1С.
Так что все это в большей степени административная проблема, на мой взгляд.

------------------
В действительности все иначе, чем на самом деле.
(Антуан де Сент-Экзюпери)

Re: Прога стала вылетать
vk65 Сообщений: 402 Дата регистрации: 08.04.2008	vk65 12.12.18 11:57:14 Crispy po2 Пока, думаю, что поврежден exe-файл. Возможно не поврежден. Конечно, не поврежден. Просто рефоксер у него видимо "не той системы". ;) Crispy В целом же глянул на файлы - программа ужасающая и удручающая как бы. Особенно доставляет вот такое: ;) Часть текста скрыта Закрыть

Re: Прога стала вылетать

vk65

Сообщений: 402
Дата регистрации: 08.04.2008

vk65

12.12.18 11:57:14

Crispy
po2
Пока, думаю, что поврежден exe-файл.

Возможно не поврежден.

Конечно, не поврежден. Просто рефоксер у него видимо "не той системы". ;)

Crispy
В целом же глянул на файлы - программа ужасающая и удручающая как бы.

Особенно доставляет вот такое: ;)

Часть текста скрыта

Re: Прога стала вылетать
Аспид Сообщений: 3475 Откуда: Москва Дата регистрации: 01.04.2005	Аспид 12.12.18 12:18:47 Может чего то не догоняю, но это не защита вовсе. Или защита, но на уровне БД. Все данные берутся из БД. Этот код, у всех одинаков. Значит, или все не могут (не сходится) или все могут. Или что то пропустил?

Re: Прога стала вылетать
Аспид Сообщений: 3475 Откуда: Москва Дата регистрации: 01.04.2005	Аспид 12.12.18 12:24:21 Ага. Понял. Где квадратики, может какие данные с машины. Ну обходится кажется просто. Арифметика.))) Добиться что бы summa(license.company) summa(license.username) возвращали 0, и подогнать остальное

Re: Прога стала вылетать
vk65 Сообщений: 402 Дата регистрации: 08.04.2008	vk65 12.12.18 12:28:18 Аспид Может чего то не догоняю, но это не защита вовсе. Это не защита, это проверка лицензии. А в качестве защиты там читается дата биоса компа и еще кое-что. Естественно, на новом железе запускаться не будет.

Re: Прога стала вылетать

vk65

Сообщений: 402
Дата регистрации: 08.04.2008

vk65

12.12.18 12:28:18

Аспид
Может чего то не догоняю, но это не защита вовсе.

Это не защита, это проверка лицензии.

А в качестве защиты там читается дата биоса компа и еще кое-что. Естественно, на новом железе запускаться не будет.

Re: Прога стала вылетать
Crispy Сообщений: 18571 Дата регистрации: 16.05.2005	Crispy 12.12.18 12:30:58 vk65 Да чего уж там, автора как бы уже нет. Старался защитить видимо. А так, она и названа в общем-то с юмором "Бухгалтерия 2С". [attachment 30401 sshot_1.jpg] Что-то напоминает кстати, где-то слышал такое название. Может просто они превысили число лицензий? Или типа срок лицензии истек. Файл лицензии кстати ТС в архив не вложил (как и собственно таблиц для работы, хотя говорили ведь), а без этого там несколько проверок с вылетом. Ну в принципе можно конечно просто тупо поставить заглушки везде, но что толку. Сопровождать-то у них кто ее будет? Странно также что у ТС "фокс 2.6 ставиться отказывается". Такого вообще говоря "не может быть". ;) ------------------ В действительности все иначе, чем на самом деле. (Антуан де Сент-Экзюпери)

Re: Прога стала вылетать

Crispy

Сообщений: 18571
Дата регистрации: 16.05.2005

Crispy

12.12.18 12:30:58

vk65

Да чего уж там, автора как бы уже нет.

Старался защитить видимо.
А так, она и названа в общем-то с юмором "Бухгалтерия 2С".

[attachment 30401 sshot_1.jpg]

Что-то напоминает кстати, где-то слышал такое название.

Может просто они превысили число лицензий? Или типа срок лицензии истек.
Файл лицензии кстати ТС в архив не вложил (как и собственно таблиц для работы, хотя говорили ведь), а без этого там несколько проверок с вылетом.
Ну в принципе можно конечно просто тупо поставить заглушки везде, но что толку. Сопровождать-то у них кто ее будет?

Странно также что у ТС "фокс 2.6 ставиться отказывается". Такого вообще говоря "не может быть". ;)

------------------
В действительности все иначе, чем на самом деле.
(Антуан де Сент-Экзюпери)

Re: Прога стала вылетать
vk65 Сообщений: 402 Дата регистрации: 08.04.2008	vk65 12.12.18 12:40:55 Crispy Может просто они превысили число лицензий? Или типа срок лицензии истек. Я выше сказал, почему не запускается. Crispy Файл лицензии кстати ТС в архив не вложил (как и собственно таблиц для работы, хотя говорили ведь), а без этого там несколько проверок с вылетом. Ну я чисто из интереса запустил, не имея таблиц. Часть текста скрыта Закрыть Crispy Странно также что у ТС "фокс 2.6 ставиться отказывается". Такого вообще говоря "не может быть". ;) Оно-то странно, только, думаю, установка фокса в такой ситуации ничем не поможет. ;)

Re: Прога стала вылетать

vk65

Сообщений: 402
Дата регистрации: 08.04.2008

vk65

12.12.18 12:40:55

Crispy
Может просто они превысили число лицензий? Или типа срок лицензии истек.

Я выше сказал, почему не запускается.

Crispy
Файл лицензии кстати ТС в архив не вложил (как и собственно таблиц для работы, хотя говорили ведь), а без этого там несколько проверок с вылетом.

Ну я чисто из интереса запустил, не имея таблиц.

Часть текста скрыта

Crispy
Странно также что у ТС "фокс 2.6 ставиться отказывается". Такого вообще говоря "не может быть". ;)

Оно-то странно, только, думаю, установка фокса в такой ситуации ничем не поможет. ;)

Re: Прога стала вылетать
Crispy Сообщений: 18571 Дата регистрации: 16.05.2005	Crispy 12.12.18 12:43:00 vk65 Оно-то странно, только, думаю, установка фокса в такой ситуации ничем не поможет. ;) Ну дык тем не менее. Сам факт. [attachment 30404 bk.gif] ------------------ В действительности все иначе, чем на самом деле. (Антуан де Сент-Экзюпери)

Re: Прога стала вылетать

Crispy

Сообщений: 18571
Дата регистрации: 16.05.2005

Crispy

12.12.18 12:43:00

vk65
Оно-то странно, только, думаю, установка фокса в такой ситуации ничем не поможет. ;)

Ну дык тем не менее. Сам факт. [attachment 30404 bk.gif]

------------------
В действительности все иначе, чем на самом деле.
(Антуан де Сент-Экзюпери)

Re: Прога стала вылетать
PaulWist Сообщений: 14625 Дата регистрации: 01.04.2004	PaulWist 12.12.18 13:04:36 Во теперь можно написать на ящик автора, если не откликнется в течении недели, то ... ------------------ Есть многое на свете, друг Горацио... Что и не снилось нашим мудрецам. (В.Шекспир Гамлет)

Re: Прога стала вылетать
Crispy Сообщений: 18571 Дата регистрации: 16.05.2005	Crispy 12.12.18 13:40:01 PaulWist Во теперь можно написать на ящик автора, если не откликнется в течении недели, то ... Судя по версии (2003) - программа с тех пор вероятно не модифицировалась. И если это старый адрес в яху на тот момент, то его давно нет в любом случае. После 2010 кажется (может чуть позже) их сервер полностью поменялся, все старые адреса уничтожили. ------------------ В действительности все иначе, чем на самом деле. (Антуан де Сент-Экзюпери)

Re: Прога стала вылетать

Crispy

Сообщений: 18571
Дата регистрации: 16.05.2005

Crispy

12.12.18 13:40:01

PaulWist
Во теперь можно написать на ящик автора, если не откликнется в течении недели, то ...

Судя по версии (2003) - программа с тех пор вероятно не модифицировалась.
И если это старый адрес в яху на тот момент, то его давно нет в любом случае. После 2010 кажется (может чуть позже) их сервер полностью поменялся, все старые адреса уничтожили.

------------------
В действительности все иначе, чем на самом деле.
(Антуан де Сент-Экзюпери)

Re: Прога стала вылетать
Simple777 Сообщений: 33855 Дата регистрации: 05.11.2006	Simple777 12.12.18 14:30:40 Crispy названа в общем-то с юмором "Бухгалтерия 2С". Возможно, и 3C уже существует...

Re: Прога стала вылетать
Simple777 Сообщений: 33855 Дата регистрации: 05.11.2006	Simple777 12.12.18 14:32:17 Crispy После 2010 кажется (может чуть позже) их сервер полностью поменялся, все старые адреса уничтожили. А всех, кто знал об этом, в целях безопасности расстреляли.

Re: Прога стала вылетать
LackyFox Автор Сообщений: 16 Дата регистрации: 10.12.2018	LackyFox 12.12.18 16:00:32 yadi.sk залил ядиск dbf-ки. Сама прога yadi.sk Еще один каталог, лежит в корне диска Сyadi.sk Исправлено 3 раз(а). Последнее : LackyFox, 12.12.18 18:13

Re: Прога стала вылетать
nik_l Сообщений: 47 Откуда: Лида Дата регистрации: 28.12.2011	nik_l 13.12.18 00:31:51 проверял работу программы в папке zarp лицензия проверку проходит не проходит проверку файл protect.mem в котором должна находиться зашифрованная строка "серийный номер"+"дата bios" для формирования правильного protect.mem предлагаю программу prot.prg, которую надо запустить в той папке, откуда запускается start_z.bat бухгалтерия запустилась, но как она должна работать я не вникал. ТС пусть даст оценку...

Re: Прога стала вылетать

nik_l

Сообщений: 47
Откуда: Лида
Дата регистрации: 28.12.2011

nik_l

13.12.18 00:31:51

проверял работу программы в папке zarp
лицензия проверку проходит
не проходит проверку файл protect.mem в котором должна находиться зашифрованная строка "серийный номер"+"дата bios"
для формирования правильного protect.mem предлагаю программу prot.prg, которую надо запустить в той папке, откуда запускается start_z.bat
бухгалтерия запустилась, но как она должна работать я не вникал. ТС пусть даст оценку...

Re: Прога стала вылетать
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 13.12.18 00:41:12 Crispy В целом же глянул на файлы - программа ужасающая и удручающая как бы. vk65 Особенно доставляет вот такое: ;) ... Зато программа защищена от крадежа! Всем бы так - наплевать на функционал, но не забыть о защите ------------------ WBR, Igor Исправлено 1 раз(а). Последнее : Igor Korolyov, 13.12.18 00:41

Re: Прога стала вылетать

Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

13.12.18 00:41:12

Crispy
В целом же глянул на файлы - программа ужасающая и удручающая как бы.

vk65
Особенно доставляет вот такое: ;)
...

Зато программа защищена от крадежа! Всем бы так - наплевать на функционал, но не забыть о защите

------------------
WBR, Igor

Исправлено 1 раз(а). Последнее : Igor Korolyov, 13.12.18 00:41

Страницы: 1 2 3 4

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 33 (Гостей: 33)