Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Уникальный код установки Windows


Автор: z645 6.4.2008, 04:07
Возник вопрос:
Существует ли такой код, который Windows генерирует при установке, и чтобы был всегда разным (на каждом конкретном компьютере)?
И как получить такой код в Delphi?

Для чего нужно:
Защита программы от использования на другом компьютере.

Спасибо.

Автор: ama_kid 6.4.2008, 07:15
Цитата(z645 @  6.4.2008,  04:07 Найти цитируемый пост)
Для чего нужно:
Защита программы от использования на другом компьютере.
Иди http://vstepanov78.narod.ru/prog.htm - там найдешь много полезного в исходниках и примерах...
Цитата
7. Привязка к компьютеру. Привязка приложения к компьютеру путем чтения из оборудования информации о BIOS, CPU, HDD; также чтение системной информации тактовой частоте процессора, PCI-драйверах, версии Windows и Internet Explorer, доступных шрифтах:

    * чтение идентификатора и серийного номера CPU из оборудования, корректное определение тактовой частота процессора (модуль GGlbUtil.pas функции CPUInfo, GetCPUSpeed, CPUSpeed); чтение версии, даты, производителя и серийного номера BIOS из оборудования, пробуются один или несколько из 6 альтернативных способов в зависимости от операционной системы и прав пользователя, поддерживаются Windows 95/NT+, включая специальное сканирование памяти BIOS для определения параметров неизвестных моделей BIOS (модуль GDifUtil.pas функция BIOSInfo); чтение модели, версии и серийного номера для четырех первых контроллеров HDD, используется один или несколько из 7 альтернативных способов в зависимости от операционной системы и прав пользователя, поддерживаются Windows 95/98/ME/NT/2000/XP/2003 (модуль GDifUtil.pas функция HDDInfo); получение сводного идентификатора системы для привязки к компьютеру (модуль GDifUtil.pas функция SystemInfoStr), обеспечивается одинаковый результат в случае установки на машину разных версий Windows, при разных правах пользователя, пример возвращаемого идентификатора системы: 'CPU:GenuineIntel-0000068A-0387F9FF-0000C30C-9C8895C0|BIOS:02/16/96-Award Modular BIOS v4.50PG-02/17/96-i430FX-2A59CT4AC-00|HDD:FUJITSU MPA3043ATU-9517-01126571';
    * версия и тип Windows, версия и тип Internet Explorer, SID текущего пользователя, завершение работы текущего или указанного компьютера, открытие и закрытие CD, чтение информации о драйверах PCI, установленные в системе шрифты, чтение и задание настроек печати Internet Explorer (модуль GGlbUtil.pas функции GetWinVer, GetWinType, IEVer, IEFriendlyVer, ObtainCurrentSid, ShutdownComputer, OpenCD CloseCD, модуль GDifUtil.pas функции PCIDrivers, GetFontList, IEPageSetup).

Автор: z645 6.4.2008, 08:07
ama_kid, Большое СПАСИБО!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)