Номер CD

[Yurich]

Здачка - сделать мало-мальскую защиту от копирования CD. Слыхал я, что есть проги, которые умеют считывать номер болванки.
В VB это возможно?

[Sebas]

номер болванки - это UPC -Universal Product Code
решается CloneCD

Не взломанная защита на сей день это StarForce
VB здесь ни сбоку!
юзай поиск!

[GSerg]

Хех, невзломанная.
"Казаки" чем защищены? Ею! И что? Прекрасно работают без диска! а почему? Потому что умные люди написали свою protect.dll, которая говорит, что диск ОК, и в экзешнике немного поковырялись.

[diz]

По моему Alcohol отлично справляется с эмуляцией.

[Ducis]

Вот, юзай:

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
Public Const GET_SERIAL = 1
Public Const GET_LABEL = 2
Public Const GET_TYPE = 3

Public Function GetDriveInfo(strDrive As String, iType As Integer) As String
'возвращает информацию о диске
Dim SerialNum As Long
Dim strLabel As String
Dim strType As String
Dim lRetVal As Long
strLabel = Space(256)
strType = Space(256)
lRetVal = GetVolumeInformation(strDrive, strLabel, Len(strLabel), SerialNum, 0, 0, strType, Len(strType))
Select Case iType
Case Is = GET_SERIAL
GetDriveInfo = CStr(SerialNum)
Case Is = GET_LABEL
GetDriveInfo = strLabel
Case Is = GET_TYPE
GetDriveInfo = strType
End Select
End Function

Как ты понял, GET_SERIAL - и есть серийный номер. Только букву диска передавай со слешем (прим.: "Е:\")
Если надо подскажу как по дискам в системе пробежать и определить кто из них кто (флопик, винт, сидюк и т.п.)

[Yurich]

Всем спасибо, особенно Ducis за код. Дальше не нужно. За выходные успел побыть на нескольких сайтах. Кое-что почерпнул!

[Sebas]

"Казаки" чем защищены? Ею! И что? Прекрасно работают без диска! а почему? Потому что умные люди написали свою protect.dll, которая говорит, что диск ОК, и в экзешнике немного поковырялись.

Я говорю о защите диска, а не отучалках...
это разные вещи.

[W@D'ok]

Вообщето понатуре отучалки от СД это разные вещи ! А так возьми хрен ты защиту сломаешь при копировании

[alibek]

В Alcohol можно указать тип диска и там есть тип "StarForce 1.x/2.x". Что подрузамевает, что он умеет копировать защищенные диски Правда я еще не проверял его способности, как-то все не было под рукой защищенного диска.
А для CloneCD у меня есть профиль именно для копирования дисков, защищенных StarForce.

Файл "StarForce.cpp"
[CloneCD ReadPrefs]
ReadSubData=0
ReadSubAudio=0
FirstSessionOnly=0
RegenerateData=1
FastErrorSkip=0
IntelligentBadSectorScan=0
SectorSkip=0
ReadSpeedData=0
ReadSpeedAudio=0
AudioQuality=0
AbortOnReadError=0
NoErrorReport=0
[CloneCD WritePrefs]
DontRepairSubchannelData=0
AlwaysCloseLastSession=0
AmplifyWeak=0
WriteSpeed=0

[Sebas]

Уж поверь мне, что многие проверяли...

[Yurich]

Ребяты! Не спорьте по пустякам. Я просто спрашивал, как защитить от дурачка. Хочется чуть заработать и забыть.
Но тут дважды выплылал вопрос про "StarForce", что меня тоже интересует (относительно русской версии "Pirates Carribbean"). Предлагаю перенести разговор в "Балаган".
http://bbs.vbstreets.ru/viewtopic.php?t=3247