Как привязать запуск программы к наличию CD?

[EUR]

Значит, так. Есть прога, уже практически готовая (4-я версия). Понимаю, что не самая лучшая защита, но как сделать, чтобы экзешник запускался только при наличии в приводе CD с соответствующей меткой?

[Sirik]

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

Как по мне, это полный бред!!!

Самый протой способ: запиши на диск какой-нибудь файл(с атрибутом "Скрытый"), при запуске программы читай его и сравнивай данные

[baha76]

Не мучайся. Против "ClonCD" у тебя ничего не получится! Этот монстр создает идентичную копии твоего СД вместе с царапинами, с скрытыми файлами, даже ID номер болванке присваивает с оригинала. На моих глазах большой проект на этом месте провалился!

[EUR]

Да нет. Просто чтобы проверялось наличие в приводе CD с меткой ZODIAC4

[alibek]

Если оно того стоит, то обрати внимание на защиту StarForce

[Sirik]

Вот этот код "узнает" о диске "всё":

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

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()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Serial As Long, VName As String, FSName As String
    'Create buffers
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    'Get the volume information
    GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
    'Strip the extra chr$(0)'s
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    MsgBox "The Volume name of C:\ is '" + VName + "', the File system name of C:\ is '" + FSName + "' and the serial number of C:\ is '" + Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title
End Sub

А вот этот ставит метку (если конечно это тебе надо):

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

Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
Private Sub Command1_Click()
'replace the "d:\" below with the drive you want to change its label
'replace the "MyNewLabel" below with the drive new label
If SetVolumeLabel("c:\", "MysNewLabel") = 0 Then
MsgBox "An Error occured while trying to change drive label", vbCritical, "Error"
End If
End Sub


[EUR]

Спасибо.
А что это за StarForce?

[Sanya Z]

StarForce - система защиты СД от копирования. Эмулирует "другой метод" прожигания дисков и "создает" нестандартную ширину треков. Последнии версии (например,СтарФорс3) не взламываются даже крутыми Алкоголь120% и КлонСД.
Но СтарФорс ваще то юзают када нужно не допустить скопировать целый слепок диска, а нужный файл можно и так увести.

[EUR]

Насколько я понял, одна изь их технологий - писать на диски их производства, которые нельзя скопировать.
Интересно!

[Sanya Z]

Насколько я понял, одна изь их технологий - писать на диски их производства, которые нельзя скопировать.
Интересно!

Ни фига подобного! Болванки-то есть самые что ни есть стандартные, просто они как-то в головной сектор записывают инфу об их якобы "кривизне/нестандартности".

[ASD]

Насколько я понял, одна изь их технологий - писать на диски их производства, которые нельзя скопировать.
Интересно!

Проще делают, ломают exe и больше никакой проверки на StarForce.
Т.к. физические какието эмуляции сложнее.

[Sirik]

Насколько я понял, одна изь их технологий - писать на диски их производства, которые нельзя скопировать.
Интересно!

Проще делают, ломают exe и больше никакой проверки на StarForce.
Т.к. физические какието эмуляции сложнее.

А если exe файл размером в 10 метров, то... найти процедуру проверки не уж и просто...

[Mogavk]

А когда это СтарФорс стал лучше CCS ?