AzSDK HardwareID DLL + Source Code

Сейчас на форуме: vsv1, Rio, site-pro, -Sanchez- (+6 невидимых)

Посл.ответ	Сообщение
MasterSoft Ранг: 281.8 (наставник), 272thx Активность: 0.25↘0.01 Статус: Участник Destroyer of protectors	Создано: 20 августа 2011 00:37 · Поправил: MasterSoft · Личное сообщение · #1 AzSDK HardwareID DLL + Source Code v.3.1.0.0 AzSDK HardwareID DLL is a standard Windows Dynamic-link library and allows you to get unique machine fingerprint collected from CPU, HDD, BIOS, NIC components in your windows programs. HardwareID DLL can work with Windows 9x to Vista and Win7, doesn't require to have administrator rights and can work in restricted areas. The fingerprint ID is obtained directly from the hardware, not from registry. Our solution allows you to select hardware to make ID as you wish. AzSDK HardwareID is reliable API to generate unique simplified ID to identify each computer. You can use this ID to lock each license just by machine with your existing license copy protection. Now you can prevent unauthorized installation or coping and increase your sales. more... AzSDK.HardwareID.DLL.incl.source.code-KITA.rar \| Сообщение посчитали полезным: Abraham

Enigma Ранг: 88.3 (постоянный), 3thx Активность: 0.04↘0 Статус: Участник	Создано: 20 августа 2011 00:47 · Поправил: Enigma · Личное сообщение · #2 В хелпе написано: ####################### The fingerprint ID is obtained directly from the hardware, not from registry. Our solution allows you to select hardware to make ID as you wish. ####################### А вот и пример кода из u_Bios.pas Code: function GetRegInfoWinNT: string; const sFmt = '%s@@%s'; RegPath_NT = '\HARDWARE\DEforbiddenION\System'; RegPath_XP = '\HARDWARE\DESCRIPTION\System'; var vReg: TRegistry; sDate, sVer: string; begin vReg := TRegistry.Create; vReg.RootKey := HKEY_LOCAL_MACHINE; sDate := ''; sVer := ''; try if vReg.KeyExists(RegPath_NT) then vReg.OpenKey(RegPath_NT, False) else if vReg.KeyExists(RegPath_XP) then vReg.OpenKey(RegPath_XP, False); if vReg.KeyExists('SystemBIOSDate') then sDate := vReg.ReadString('SystemBIOSDate'); if vReg.KeyExists('SystemBIOSVersion') then sVer := ReadMultirowKey(vReg, 'SystemBIOSVersion'); except end; if (sDate = '') then sDate := '01/2007'; if (sVer = '') then sVer := 'SYSTEM_BIOS_VERSION'; Result := Format(sFmt, [sDate, sVer]); vReg.Free; end; нестыковочка... Хотя вот примеры получения серийника HDD нормальные, только все равно это тоже самое что и давно известное http://wasm.ru/src/6/hddid060530.zip
sendersu Ранг: 512.7 (!), 360thx Активность: 0.27↘0.03 Статус: Модератор	Создано: 20 августа 2011 11:58 · Поправил: sendersu · Личное сообщение · #3 W7x64 пойдет? upd на каком язике коменты? TDriverStatus = packed record bDriverError: Byte; // Çý¶¯Æ÷·µ»ØµÄ´íÎó´úÂë£¬ÎÞ´íÔò·µ»Ø0 bIDEStatus: Byte; // IDE³ö´í¼Ä´æÆ÷µÄÄÚÈÝ£¬Ö»ÓÐµ±bDriverError Îª SMART_IDE_ERROR Ê±ÓÐÐ§ ...
MasterSoft Ранг: 281.8 (наставник), 272thx Активность: 0.25↘0.01 Статус: Участник Destroyer of protectors	Создано: 20 августа 2011 13:51 · Личное сообщение · #4 sendersu пишет:. W7x64 пойдет? написанно на сайте, что пойдёт

Для печати