Защита программы

[Demien]

Сори! Знаю что повторяюсь,
но я так и не смог разобраться с привязкой программы к железу.
Допустим как определить ID веника, мамки, процессора или сетевухи?
В поиске нашел массу подобных тем, но никакой реализации в коде... ((
Если у кого есть - выложите (по возможности с коментариями).

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

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

[Utkin]

Насчет ID процессора - у меня в БИОСе есть опция, которая не разрешает доступ к получению идентификатора, так что прикрутить к нему скорее всего не получится.

[Demien]

Сообщение от Utkin

... так что прикрутить к нему скорее всего не получится.

Значит процессор отпадает.
Как мне кажется - оптимальный вариант жесткий диск. Но как получить его ID?

[BaronTreep]

(grep (grep (:google "WMI %Your_Windows_Platform%") "msdn") "example")

   => http://msdn.microsoft.com/en-us/library/aa394072(VS.85).aspx 
   => http://msdn.microsoft.com/en-us/library/aa389273(VS.85).aspx#_hmm_motherboard_controller_and_port_classes

Вообщем microsoft гарантирует поддержку только для своего средства WMI classes. Как в Delphi - со временем все меньше ссылок, потому что на новых системах это всё труднее. Ещё видел обсуждения типа "сделаю за $$", что и понятно - тема то выгодная.

Как узнать об HDD. Работает XP/Vista. Идем в windows.pas и смотрив все импорты из kernell.dll по маске get*, потом пишем такой код:

var
  VolumeName,
  FileSystemName : array [0..MAX_PATH-1] of Char;
  VolumeSerialNo : DWord;
  MaxComponentLength,FileSystemFlags: Cardinal;
begin
  GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo, MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH);
  Memo1.Lines.Add('VolumeName = '+VolumeName);
  Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8));
  Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength));
  Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4));
  Memo1.Lines.Add('FSName = '+FileSystemName);
  Memo1.Lines.Add('Version = '+IntToStr(GetVersion));
end;

[Utkin]

Кроме того, WMI также можно подвинуть (правда Сведения о Системе не работают, но нам ли жить в печали ?). Как будет работать Ваша прога - если данная служба будет остановлена?

[DeKot]

Генераторы ключей (паролей) смотрим здесь
http://www.programmersforum.ru/showthread.php?t=55009

[BaronTreep]

Если нуна много кода, то сюда:

http://www.wasm.ru/forum/viewtopic.php?id=29716

[Demien]

Спасибо BaronTreep.
Все давольно просто и к тому-же работает!!! ))
Не могу только понять что такое "VolumeName" и почему данное свойство пустое?

DeKot ссылка на тему рабочая, а вот исходники скачать не вышло... (( Битые... Возможно из-за давности темы архивы с исходниками удалили.

[Utkin]

Это метка диска - и она у Вас скорее всего просто отсутствует.
Да и еще кое-что. Представьте что Вашу прогу поставили на съемный винчестер. Собственно это не означает, что программа будет растиражирована, но это означает, что программа будет привязана к винту, но не к компу... А съемными винтами пользуются как раз для подключения к различным компьютерам..... Но и это еще не все. Как насчет сети?

[DeKot]

Demien держи исходник