كيف يتم إستخراج Hard disk Serial number لحماية برامجي ؟

[foxmedo]

السلام عليكم

ابحث عن طريقة لإستخراج السيريال الخاص بالهاردسيك (القرص الصلب) السيريال الثابت إلي لا يتغير
كل الأكواد الموجودة تظهر ال Volume serial وهذا مشكلته إنه اي تعديل على Hardisk Partition او Hard disk format بيتغير

[TF6M]

و عليكم السلام و رحمة الله و بركاته
تم التطرق الى الموضوع سابقا , إستخدم خاصية البحث :
رقم تعريف للحاسب ، الرقم التسلسلي للقرص الصلب

- هناك أيضا أداة بسيطة , مبرمجة بدلفي : Hardware_IDExtractor
بالتوفيق ,,

[kachwahed]

وعليكم السلام ورحمة الله وبركاته

جربتهم كلهم و لم اجد نتيجة

إن كنت تستخدم إصدار دلفي 2009 فما فوق استخدم أنماط متوافقة:
http://www.delphi4arab.net/forum/showpos...ostcount=2

هناك طريقة أخرى لإيجاد الرقم التسلسلي باستخدام WMI...
المرفق...
الاستخدام:

PHP كود :

function GetIdeDiskSerialNumber: string;
var
  hdd: THDDInfo;
begin
  hdd := THDDInfo.Create(nil);
  try
    hdd.CanonicalScsiAddressing := false;
    hdd.Method := gimAuto;
    hdd.Drive := dPrimaryMaster;
    Result := hdd.Serial;
  finally
    hdd.Free;
  end;
end; 


بعد إضافة المكتبة hddinfo.pas.
متوافق مع إصدارات دلفي من 7 إلى 2010 على الأقل.
المصدر:

كود :

http://delphi-soft.ru/files/more/HDDInfo_2.3.html

هناك أيضا مكتبة GLibWMI بنفس المبدأ:

كود :

http://sourceforge.net/projects/glibwmi/

كذلك:

كود :

http://www.magsys.co.uk/delphi/magwmi.asp

عيب استخدام WMI أنه يتطلب صلاحية مسؤول على Vista/Seven،إضافة إلى إمكانية إيقاف خدمة WMI وبالتالي تعطيل التابع.

هناك مكونات تجارية لا تستخدم WMI تحسنت مؤخرا:

كود :

http://www.devlib.net/tgetdiskserial.htm

إلى حين تظهر ملفاته المصدرية جرب.
والله أعلم.

[foxmedo]

عزيزي الغالي جربت TGetDiskSerial ولاكن المشكلة إنه يطلب صلاحيات المدير على الويندوز 7 و فيستا
هل من حل؟

[kachwahed]

أفضل حل أن تخبر المستخدم أن يشغل البرنامج بصلاحيات مدير
أو حاول:
http://www.delphi4arab.net/forum/showthr...p?tid=3498

[issamdnn]

السلام عليكم ورحمة الله
أظن بان مشكلتك أخي هي أن بعض إعدادات البيوس يجب تغييرها أحياناً, قبل البحث عن موضوع صلاحيات المدير؟؟؟؟.

[kachwahed]

[COLOR="black"]issamdnn أهلا بعودتك

بعض إعدادات البيوس

أيها؟ ولماذا؟[/COLOR]

[issamdnn]

السلام عليكم ورحمة الله وبركاته
أخي كاش واحد بارك الله فيك ...عذراً على التاخير أحياناً و لكن ضروف العمل والحياة .
على ما أتذكر بأن الخاصية تسمى s.m.a.r.t و يجب أن تكون فعالة للتمكن من معرفة السيريال..

[kachwahed]

على ما أتذكر بأن الخاصية تسمى s.m.a.r.t و يجب أن تكون فعالة للتمكن من معرفة السيريال..

لعله السبب...
لاحظت أن التابع يعمل على بعض الأجهزة دون الأخرى
ظننت أن الأمر متعلق بالقرص نفسه، لكن يبدو أن السبب كما ذكرت، سوف أتأكد...
شكرا على المعلومة أخي عصام

[kachwahed]

الذي يبدو أن الخاصية S.M.A.R.T كما ذكرت وأنها غير مدعومة من قبل بعض الأقراص:

كود :

Seagate was joined by Conner, IBM, Quantum and Western Digital in the development of this new version, appropriately named S.M.A.R.T., which combines conceptual elements of Compaq's IntelliSafe and IBM's PFA.

المقال:

كود :

http://seagate.custkb.com/seagate/crm/selfservice/search.jsp?DocId=194645&NewLang=en