Как защетить прогу от копирования ???

[CRClub]

Как защетить мою прогу от копирования с дискеты ???
Чтоб её нельзя было скопировать к себе на жесткий...
Только запуск с дискеты....
Жду ответов

[tyomitch]

Никак. Любая защита взламывается за определённое время.

[CRClub]

Да её ломать никто не будет
Просто мне надо дать прогу пару челам, на некоторое время, но чтоб она у них на компе не осталась.
И в взломе прог они вообще не рубят.
Хотя бы есть самый простой метод защиты ???
Может кто подскажет ???

[Faust]

К примеру, так: берешь "битую" дискету, записываешь на неё файл 42.dll так, чтобы он не читался, и свою прогу так, чтоб читалась. В проге делаешь проверку:

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

If Dir(App.Path & "\42.dll") ="" Then MsgBox "Не найден файл 42.dll. Жизнь потеряла смысл!"

Для работы программы эта библиотека не нужна а факт её наличия система проверяет "не вчитываясь". Зато при попытке скопировать твою прогу ничего не получится.
ЗЫ. Согласен, что метод дегенератский, зато работает без низкоуровневого кодинга.

[CRClub]

Спасибо пойду пробовать
Может есть ешо какойнить метод ???

[ANDLL]

If left(app.path,1)="A" then ... else msgbox "good by"

[CRClub]

Яж не профи в VB расшифруй плиз .......

[ANDLL]

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

private sub Form_load()
If not left(app.path,1)="A" then msgbox "good by":end
'Здесь пиши все, что тебе нужно
end sub


Вот так. Если программа не лежит на дискете, она выводит сообщение good by и завершается.

[CRClub]

Спасибки ANDLL ...
Но походу её можно скопировать на другую дискету и она будет похать !?
Если так, то не прокатит

[A.A.Z.]

Например:
1) в DOS'е набери A:, потом Dir /p
2) там будет "Volume Serial Number is ...", его запиши в прогу
3) при запуске смотри с.н. диска проги через GetVolumeInformation и сравнивайс с.н. той дискеты.

[CRClub]

У меня нет Dosa !!!
Без него можно узнать серийник ???

[A.A.Z.]

Это в "цитату" надо
Я имел ввиду, что... Ладно, забей Попробуй так:

1) Вставь этот код и получи сериал дискеты:

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

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Form_Load()
Dim SN As Long
GetVolumeInformation "A:\", vbNullString, 0, SN, 0, 0, vbNullString, 0
MsgBox SN
End Sub

2) В твою прогу вставь этот код:

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

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Form_Load()
Dim SN As Long
GetVolumeInformation VBA.Left(App.Path,3), vbNullString, 0, SN, 0, 0, vbNullString, 0
If SN <> <здесь номер, который ты получил из кода 1> Then MsgBox "Жизнь прошла", vbCritical: End
End Sub

Использование:
1) Запуск кода 1
2) Допустим, что после запуска кода 1 у тебя появился номер "1234567"
3) Иди в свою прогу и вставь туда код 2
4) В строчке

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

If SN <> <здесь номер, который ты получил из кода 1> Then MsgBox "Жизнь прошла", vbCritical: End

меняешь "<здесь номер, который ты получил из кода 1>" на "1234567"
5) Сохраняешь на дискету

Прога будет работать только с этой дискеты.

[CRClub]

Большое человеческое спасибо
ТАк что ты имел ввиду ???

[A.A.Z.]

Что это можно и из командной строки ввести А DOS, пока еще, есть у всех Или уже нет?

[CRClub]

Просто я командной не работаю она у меня глючная
Всю жизень ошибки выдаёт !!!

[CRClub]

Ешо возник маленький вопрос
Когда я сделал свою прогу и использовал в ней всякие компоненты, чтоб прога пошла на другом компе мне надо скинуть все контролы в папку с прогой ???

[tyomitch]

Просто я командной не работаю она у меня глючная
Всю жизень ошибки выдаёт !!!

У всех работает, а у тебя глючная?

Притом банальный diskcopy в данном случае рушит всю "защиту".

[CRClub]

Защита рушится ???
С сериным номером дискеты ???

[tyomitch]

Ешо возник маленький вопрос
Когда я сделал свою прогу и использовал в ней всякие компоненты, чтоб прога пошла на другом компе мне надо скинуть все контролы в папку с прогой ???

Этого мало, их все надо зарегистрировать. Ищи по слову "regsvr32"

[tyomitch]

Защита рушится ???
С сериным номером дискеты ???

Конечно. diskcopy, входящий в поставку Винды, скопирует на новую дискету и его тоже.

[CRClub]

ТОгда как быть ???

[tyomitch]

Использовать предложенный Faust-ом метод (поцарапать дискету в определённом месте). Это уже не так просто обойти, но и тебе кодить придётся прилично, чтобы удостовериться, что царапина на месте...

[CRClub]

Ну а полегче програмнымм методом без царапин обойтись мона ???

[tyomitch]

Нет. Если твоя дискета не будет физически уникальной, тогда как твоя прога отличит её от любой другой?

[CRClub]

Не знаю поэтому и спрашиваю здесь...
Так что теперь делать дискету царапать ???
Да я даже не знаю как это заделать так ешо и программировать надо

[Sonic the Hedgehog]

Меня тоже заинтересовала тема защиты от копирования програм с дискеты:
но способы которые вы перечислели у меня что то не получаютца!
АААААААААААААА УА УА УА УА УА УА УА

[tyomitch]

Блин, ну естественно ведь, что придётся много писать! Вы думали, в VB есть стандартная функция ПроверитьПодлинностьДискеты? Однозначно, что это не для новичков - писать свою защиту... Неужели настолько ценная программа-то, что потребовалось так её защищать?

[CRClub]

С серийником от дискеты всё работает, сам тока проверял, правда говорят это обойти может даже ламёр, а как быть я не знаю
Может ктонить чтонить умное подскажет ???
Буду ждать....

[CRClub]

Просто она НЕдолжна (прога) остатьтся на вражеском компе

[tyomitch]

Если она перестанет работать после определённой даты, как неактивированная Винда - этого достаточно?