السلام عليكم
لقد اكملت برنامجي بعد تعب استمر لعدة شهور والان عندي مشكلة وهي حماية البرنامج ,كيف استطيع ان اجعل البرنامج يعمل على حاسوب واحد فقط اي اذا تم نسخه الى حاسوب اخر فلن يعمل البرنامج ,طبعا انا اعلم ان حماية البرنامج بشكل 100% غير ممكن فكما يقال (كل برنامج قابل للتنفيذ قابل للكسر)كل ما اريده هو ان يكون اصعب للكسر
12-12-2019, 09:35 AM (آخر تعديل لهذه المشاركة: 12-12-2019, 09:36 AM بواسطة bouh25.)
اليك هذه المكتبة لمعرفة السيريال للرقم التسلسلي للديسك hdd [size=small][size=small]اليك هذه المكتبة لمعرفة السيريال للرقم التسلسلي للديسك hdd[/size] [/size]
عن خبرة في حماية مشاريع VBA اكسس .. طبعا لا أنصحك بأستخدام سريال بارتيشن الهارد لانه يتغير بعد فرمات
بعد بحث استغرق أكثر من نصف سنه أنصحك بأستخدام UUID أبحث عن طريقة أستخراجة من الجهاز
فهو أفضل من الهارد والمعالج والماذربورد ..
وأفضل من رقم الماك ادرس الذي يسبب مشاكل أذا كان العميل مثبت لدية النظام الوهمي وكذلك يتطلب اتصال مع الشبكة
كل من 1 user says قال شكرا ل qathi على المشاركة المفيدة1 user says Thank You to qathi for this post • احمد العراقي
(12-12-2019, 10:10 AM)qathi كتب : عن خبرة في حماية مشاريع VBA اكسس .. طبعا لا أنصحك بأستخدام سريال بارتيشن الهارد لانه يتغير بعد فرمات
بعد بحث استغرق أكثر من نصف سنه أنصحك بأستخدام UUID أبحث عن طريقة أستخراجة من الجهاز
فهو أفضل من الهارد والمعالج والماذربورد ..
وأفضل من رقم الماك ادرس الذي يسبب مشاكل أذا كان العميل مثبت لدية النظام الوهمي وكذلك يتطلب اتصال مع الشبكة
شكرا على المساعدة ولكن ماهو UUID فانا لم اسمع به من قبل ياليت لو يكون هناك شرح او كود او ماشابه
12-12-2019, 02:25 PM (آخر تعديل لهذه المشاركة: 12-12-2019, 02:32 PM بواسطة qathi.)
شكرا على المساعدة ولكن ماهو UUID فانا لم اسمع به من قبل ياليت لو يكون هناك شرح او كود او ماشابه
[/quote]
(12-12-2019, 02:25 PM)qathi كتب : شكرا على المساعدة ولكن ماهو UUID فانا لم اسمع به من قبل ياليت لو يكون هناك شرح او كود او ماشابه
[/quote]
أخي هذا رقم طويل مكون من ارقام وأحرف
يمكنك البحث في جوجل عن هذا كود من مصادر دلفي
حاليا لدي كود VBA لاستخراج الرقم وهو:
كود :
'--------------- Universally Unique Identification Number (UUID) ---------------------
Public Function GetUUID()
On Error Resume Next
Dim strComputer As String
Dim objWMIService, colItems, objItem
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48)
(12-12-2019, 02:25 PM)qathi كتب : شكرا على المساعدة ولكن ماهو UUID فانا لم اسمع به من قبل ياليت لو يكون هناك شرح او كود او ماشابه
(12-12-2019, 02:25 PM)qathi كتب : شكرا على المساعدة ولكن ماهو UUID فانا لم اسمع به من قبل ياليت لو يكون هناك شرح او كود او ماشابه
[/quote]
أخي هذا رقم طويل مكون من ارقام وأحرف
يمكنك البحث في جوجل عن هذا كود من مصادر دلفي
حاليا لدي كود VBA لاستخراج الرقم وهو:
كود :
'--------------- Universally Unique Identification Number (UUID) ---------------------
Public Function GetUUID()
On Error Resume Next
Dim strComputer As String
Dim objWMIService, colItems, objItem
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48)
begin try CoInitialize(nil); try GetCIM_ConfigurationInfo; finally CoUninitialize; end; except on E:EOleException do Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); on E:Exception do Writeln(E.Classname, ':', E.Message); end; Writeln('Press Enter to exit'); Readln; end.
كل من 2 users say قال شكرا ل onexite على المشاركة المفيدة2 users say Thank You to onexite for this post • أبو معاذ, bassem_43