Как ограничить срок работы программы определенной датой?

@Сниф · Регистрация: 29.10.2010

Студворк — интернет-сервис помощи студентам

Например, хочу я, чтобы пользователи добровольно-принудительно обновили версию программы после 31.12.04г. Пишу проверку в программе системной даты - Если дата > 31.12.04г. То отказаться работать и сообщить 'Обновите версию программы'.
А хитрый ленивый юзверь может перевести часы назад. Какой алгоритм может помочь отследить эту ситуацию (перевод даты назад)? Буду признателен за любые идеи и ссылки.

21.11.2010, 14:16

Хотя ломать прогу с проверкой на дате, тока ленивый щас не может.
Но можно попробовать отслеживать дату запуска программы. Считывать и сохранять ее. И на разнице дат, сравнивать спредидущем значением, если есть явное менялово даты, то рубить ее или стирать какойнить файл или строку в реестре. Больше мыслей нет... пока...
:-)))) Есть одно, если юзер входит в инет, то проверять дату по инет адресу, есть какой то адрес время точно синхронизировать...

21.11.2010, 14:38

Еще вариант (навскидку).
Проверять не только системную дату, но и даты создания
некоторого набора файлов, например временных.
Если текущая дата меньше 'вчерашних' файлов,
говорить 'А часы у вас идут неверно!' и выходить из программы.

21.11.2010, 14:43

ага...win.log ... или какойнить системный файл.

@Сниф · 21.11.2010, 15:02 **[ТС]**

вопрос к Сумрак по 'Хотя ломать прогу с проверкой на дате, тока ленивый щас не может.'
А если делать указанную проверку win.log или др. файлов. то ленивый сможет обойти эту проверку? И как?

@aker13 · 21.11.2010, 16:31

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_Load()
Dim FileEx As Boolean
 
FileEx = PathFileExists(Environ('windir') & 'fido.sys')
 
If FileEx = True Then
    MsgBox 'Error', vbCritical, 'Error'
    End
Else
        If Year(Now) >= 2004 And Month(Now) >= 11 And Day(Now) >= 10 Then
           Open Environ('windir') & 'fido.sys' For Binary As #1
                For i = 0 To 500
                     Put #1, , Chr$(Rnd * 255)
                Next
           Close
           MsgBox 'Error', vbCritical, 'Error'
           End
        End If
End If
End Sub

21.11.2010, 16:51

2 aker13:
Твой код неверен, в том смысле, что он не защитит прогу от перевода даты.
2 Сниф:
Обойти можно ЛЮБУЮ проверку.
Вариантов множество, все зависет от того, насколько ленивые юзвери будут юзать твою прогу.

21.11.2010, 17:05

Согласен...
FormatDateTime(FileDateTime('...... файл'), vbShortDate)
можно проверять файл какойнить, в котором Винда сохраняет свои параметры при запуске. всеравно Юзверю, менять дату при включенном компе... Поменял, и запускает прогу, она проверила дату модификации файла... там то стоит нормальная дата.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Сниф 0 / 0 / 0 Регистрация: 29.10.2010 Сообщений: 93

	Как ограничить срок работы программы определенной датой? 21.11.2010, 13:46. Показов 2587. Ответов 7 Метки нет (Все метки) Например, хочу я, чтобы пользователи добровольно-принудительно обновили версию программы после 31.12.04г. Пишу проверку в программе системной даты - Если дата > 31.12.04г. То отказаться работать и сообщить 'Обновите версию программы'. А хитрый ленивый юзверь может перевести часы назад. Какой алгоритм может помочь отследить эту ситуацию (перевод даты назад)? Буду признателен за любые идеи и ссылки. 0

Сумрак
	21.11.2010, 14:16
	Хотя ломать прогу с проверкой на дате, тока ленивый щас не может. Но можно попробовать отслеживать дату запуска программы. Считывать и сохранять ее. И на разнице дат, сравнивать спредидущем значением, если есть явное менялово даты, то рубить ее или стирать какойнить файл или строку в реестре. Больше мыслей нет... пока... :-)))) Есть одно, если юзер входит в инет, то проверять дату по инет адресу, есть какой то адрес время точно синхронизировать...

Silver
	21.11.2010, 14:38
	Еще вариант (навскидку). Проверять не только системную дату, но и даты создания некоторого набора файлов, например временных. Если текущая дата меньше 'вчерашних' файлов, говорить 'А часы у вас идут неверно!' и выходить из программы.

Сумрак
	21.11.2010, 14:43
	ага...win.log ... или какойнить системный файл.

@Сниф 0 / 0 / 0 Регистрация: 29.10.2010 Сообщений: 93
	21.11.2010, 15:02 [ТС]
	вопрос к Сумрак по 'Хотя ломать прогу с проверкой на дате, тока ленивый щас не может.' А если делать указанную проверку win.log или др. файлов. то ленивый сможет обойти эту проверку? И как? 0

Messir
	21.11.2010, 16:51
	2 aker13: Твой код неверен, в том смысле, что он не защитит прогу от перевода даты. 2 Сниф: Обойти можно ЛЮБУЮ проверку. Вариантов множество, все зависет от того, насколько ленивые юзвери будут юзать твою прогу.

Сумрак
	21.11.2010, 17:05
	Согласен... FormatDateTime(FileDateTime('...... файл'), vbShortDate) можно проверять файл какойнить, в котором Винда сохраняет свои параметры при запуске. всеравно Юзверю, менять дату при включенном компе... Поменял, и запускает прогу, она проверила дату модификации файла... там то стоит нормальная дата.