Как можно привязать комп к конкретной машине?

[kif]

kif
Код возвращает набор байтов. Это он, что ли уникален для каждого компа

Это мак-адрес сетевой карты.

[RayShade]

Читал название топика. Много думал.

[Alexander N. Samarin]

kif
Код возвращает набор байтов. Это он, что ли уникален для каждого компа

Это мак-адрес сетевой карты.

[Лексей]

на счет сетевой платы в W XP и 2000 МАСадрес легко подменить (считанные секунды и причем виндонозными же средствами)

[Alexander N. Samarin]

Поэтому желательно использовать еще что-нибудь.
PS:: на компах без сетевой платы - не раблтает - выдает одни нули

[Inferno]

А она хоть того стоит, чтобы так с этим бится?
Считываешь со случайного места в своей проге определенное количество байт и толкаешь их контрольную сумму и хэш начальной области считывания в реестр. И пусть парятся кому не лень. Над алгоритмом хеширования лучше потрудится самому. Пусть он будет незащищенным, но зато он будет неизвестным

[Cryonyx]

А лучше всего сделать так, чтобы взломщики проги задолбались сзламывать и плюнули на всё это дело
Так что реализуй всё, что было сказано выше, придумай ещё что-нить своё и ехидно ухмыляйся, когда кто-то быдет пытаться хакнуть твою прогу

[Alexander N. Samarin]

Можно при каждой такой попытке автоматом отправлять email

[Amed]

...самому себе с дампом памяти

[elsen]

проще всего к дате создания BIOS материнской платы. Адрес расположения даты в памяти: F000:FFF5


Type BIOS_DATE
s As String * 8
End Type

Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" _
(pDest As Any, pSource As Any, ByVal ByteLen As Long)

Public Function BIOS() As Long
Dim sDB As BIOS_DATE

CopyMemory sDB, ByVal &HFFFF5, 8&
BIOS = DateSerial(Mid(sDB.s, 7, 2), Mid(sDB.s, 1, 2), Mid(sDB.s, 4, 2))
End Function

[Cryonyx]

Народ, объясните мне кто-ниудь, как действует ф-ция CopyMemory
Уже который раз её встречаю, но никак не могу понять

[alibek]

Копирует содержимое памяти из одного фрагмента в другой.