تعلم حماية برنامجك بحيث لا يعمل الا على قرص صلب واحد - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184) +--- الموضوع : تعلم حماية برنامجك بحيث لا يعمل الا على قرص صلب واحد (/showthread.php?tid=4976) |
تعلم حماية برنامجك بحيث لا يعمل الا على قرص صلب واحد - RaggiTech - 03-10-12 كاتب الموضوع : FlyToAbd
هذه الدالة ترجع قيمة الرقم التسلسلي للقرص الموجود به البرنامجكود : [SIZE=2][color=#0000ff]Public[/color][/SIZE][SIZE=2][color=#0000ff]Function[/color][/SIZE][SIZE=2] HardCode() [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][COLOR=#0000ff]String KD هو رقم القرص الصلب نجده من الدالة SN هو الرقم الذي يمثل معكوس KD ويمكن حسابه من Not KD هذا هو سر الفكرة مع اعادة جعل عدد مراتبه مساوي لثمانية نحفظ SN في قاعدة البيانات وعند تشغيل البرنامج نجلب SN من القاعدة ثم نقرأ KD من خلال الدالة اعلاه ونختبر Not SN=KD فاذا كانت النتيجة True فان البرنامج غير مسروق والا فهو اما مسروق او تم تنصيبه لاول مرة فنظهر رسالة للمستخدم تعطيه قيمة KD وتطلب منه تسليمه الى البائع للبرنامج ويطلب منه كتابة الرقم الذي يعطيه البائع والذي هو Not KD فعندما يدخل SN نحفظه في قاعدة البيانات ونفحص Not SN=KD اما يكون صحيح او نعيد عرض الرسالة وامكانية انهاء البرنامج |