Как сделать триальную версию проги ?

[W@D'ok]

Люди как на бэйсике сделать чтобы прога которую я написал допустим работала 3 дня, а после чего, выдовала бы сообщение что "зарегистрируйте программу....."
И еще при запуске выдовала бы, сколько дней осталось до окончания.
Пожалуйста подскажите как так сделать ? Только умоляю ничего не советуйте, а просто дайте код с подробным описание куда его писать и т.д

Заранее спасибо

[Хой]

Только умоляю ничего не советуйте, а просто дайте код с подробным описание куда его писать и т.д

Неужели лучше просто копировать код чем прошарить в нём самому?

[FaKk2]

Только умоляю ничего не советуйте, а просто дайте код с подробным описание куда его писать и т.д

Заранее спасибо

Хехе.....может и дам....что за прога? в хозяйстве пригодится?

[W@D'ok]

Хой я и сам седел неделю разбирался и так и недоперло, поэтуму и сказал чтобы сразу дали код, потому-что запарился уже ! Ты знаешь что такое сидеть неделю над какой-то фегней, но если это тебе сильно нужно ?

[Хой]

Хой я и сам седел неделю разбирался и так и недоперло, поэтуму и сказал чтобы сразу дали код, потому-что запарился уже ! Ты знаешь что такое сидеть неделю над какой-то фегней, но если это тебе сильно нужно ?

Ну тише, тише....модераторы не спят
Ну вот, специально для тебя сгенерил вот такой вот код, надеюсь тебе всё понятно:

Код: Выделить всё

Const DayWorkNoReg As Integer = 3 'Сколько дней работать до регистрации

Private Sub PerviiZapysk()
SaveSetting "MyApp", "Reg", "ToWork", Date
End Sub

Private Sub Form_Load()
Dim newDate As Date
Dim curDate As String
curDate = GetSetting("MyApp", "Reg", "ToWork")
If curDate = "" Then
PerviiZapysk
End If
newDate = CDate(curDate)
'''''''''''''''''''''''''''''''''''''''''
If newDate = Date + DayWorkNoReg Then
MsgBox "Демонстрационный период закончен......плати бабосы!"
End
Else
MsgBox "Я буду работать ещё " & Date - newDate + DayWorkNoReg & " дней"
End If

End Sub


Хм...я за 10 минут написал.... причём никогда такого неделал.....
-----------------
Настояятельно рекомендую зашифровать !ВСЕ! данные каким-нибудь супер шифровальным алгоритмом, а то видя такие "прямые" данные регистрацию можно оттянуть на многие тысячилетия!

[Георгий]

Беда этой программы в том, что она никогда не выведет текст:
"Демонстрационный период закончен......плати бабосы!"

[W@D'ok]

Хой ну теперь спасибо

[Хой]

Беда этой программы в том, что она никогда не выведет текст:
"Демонстрационный период закончен......плати бабосы!"

Эт ещё по чему?

[Георгий]

Я у себя в реестре напишу что она работает уже 4 дня и она будет работать бесконечно

[Хой]

Я у себя в реестре напишу что она работает уже 4 дня и она будет работать бесконечно

А ты не пиши! иш какой прям взломшик
А еслиб ты незнал где инфа в реестре хранится, а еслиб она закодированна была?
И вот специально для тестеров:

Код: Выделить всё

If newDate => Date + DayWorkNoReg Then

[Георгий]

Защита при помощи реестра - это миф...

[Георгий]

А ты не пиши! иш какой прям взломшик

Защита от дурака должна быть всегда...

А еслиб ты незнал где инфа в реестре хранится, а еслиб она закодированна была?

У меня в запасе 3 дня успею

[moderator]

Ребята, не обижайтесь - но это лажовая защита. RegMon в руки - и через 5 минут ее сломали. У любого, даже начинающего крякера, есть RegMon.

[Хой]

Ну а почельно в реестре инфу сохранять...можно и в файл!

[alibek]

А какого типа программа?
Я, например, делал прогу, которая для доступа использует зашифрованный файл со списком пользователей (логин, имя, пароль, категория и т.п.). И в этом файле так же хранилась дата, до которой он действует (как .key-файлы у Касперского). А редактор пользователей естественно был только у меня
Это я к тому, что в данном конкретном случае этой защиты было достаточно -- удалять файл было бесполезно, т.к. прога не позволяла запускаться без указания логина.

[Георгий]

Ну и насколько сложен был алгоритм шифрования?
У касперского помоему около полугода продержалас версия 3.5

[alibek]

Вопрос конечно интересный
Взломать можно все. Просто если защита реализована хорошо, то проще честно купить, чем взломать.
И еще одно но. Моя прога далеко не так популярна, как AVP Так что рассчитывать на crack.ru и т.п. с ней не выйдет, ломать придется самому А это не всякий сумеет.

[Георгий]

... А это не всякий сумеет.
Тут ты прав

[Георгий]

Третья тема на эту тему ShareWare похоже волнует многих