سریال قطعات سخت افزار سیستم جهت قفل

[mahmood]

سلام

برای کد هارد از کد زیر میتونید استفاده کنید.


//////////////////////////////////////////////////////////////////////////////////////////////
function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLetter + ':\'),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format('%8.8X',
[VolumeSerialNumber])
//Result := '01020304';
end;


استفاده در کد ما هم
edit3.Text := GetHardDiskSerial('c')


البته شنیدم که کد هارد قابل هک است . مطمئن نیستم. کد ویندوز هم هست که میگن مطمئن تره اگه لازم داشتید اونم کپی کنم.


استفاده از قفل های سخت افزاری هم خوبه - به صورت usb هست. هم برای نرم افزار دسکتاپ و سرور
یه مدل tiny هست خوبه . تو تهران هم شرکتش هست.
یه مدل انگلیسی هست میگن تاحالا هک نشده
rocky4nd فکر کنم اسمش هست. قیمت حدودی هم 30 هزار تومان