VPF::Уникальный код установки Windows - Форум программистов

z645

Дата 6.4.2008, 04:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.4.2008

Репутация: нет
Всего: нет

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

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

Спасибо.

ama_kid

Дата 6.4.2008, 07:15 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95

Цитата(z645 @ 6.4.2008, 04:07

)

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

Иди сюда - там найдешь много полезного в исходниках и примерах...

Цитата

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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.4.2008

Репутация: нет
Всего: нет

ama_kid, Большое СПАСИБО!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »