[aljzazy]

وعليكم السلام ورحمة الله وبركاته
من الواضح انه مستخدم مكتبة المهندس عثمان خورشيد وهو طرحها بشكل مجاني
تابع الفيديو ورايح تفهم ان شاء الله

---

لحماية برنامج فيجوال بيسك بحيث يتم تفعيله على جهاز واحد فقط، يمكن استخدام رمز تعريف الجهاز (Hardware ID)، والذي يعتمد على الخصائص الفريدة للجهاز مثل رقم المعالج أو القرص الصلب. إليك الخطوات مع مثال كامل:

---

الفكرة الأساسية:

1. استخراج رمز تعريف الجهاز (Hardware ID): يتم استخراج معرف فريد للجهاز.
   
2. إنشاء مفتاح التفعيل: يُستخدم معرف الجهاز لإنشاء مفتاح تفعيل خاص بالجهاز.
   
3. التحقق من المفتاح: يتم مقارنة المفتاح المدخل مع المفتاح المولد من معرف الجهاز.
   

---

مثال كامل
1. استخراج معرف الجهاز (Hardware ID)
استخدام خاصية مثل

كود :

ManagementObjectSearcher

لاستخراج معلومات عن الجهاز.
vb
نسخ الكود

كود :

Imports System.Management

Public Function GetHardwareID() As String
   Dim id As String = ""
   Try
       Dim searcher As New ManagementObjectSearcher("SELECT ProcessorId FROM Win32_Processor")
       For Each obj As ManagementObject In searcher.Get()
           id = obj("ProcessorId").ToString()
           Exit For
       Next
   Catch ex As Exception
       id = "Unknown"
   End Try
   Return id
End Function

2. إنشاء مفتاح التفعيل
استخدام دالة لتشفير معرف الجهاز وإنشاء مفتاح تفعيل.
vb
نسخ الكود

كود :

Imports System.Security.Cryptography
Imports System.Text

Public Function GenerateActivationKey(hardwareID As String) As String
   Using sha256 As SHA256 = SHA256.Create()
       Dim bytes As Byte() = sha256.ComputeHash(Encoding.UTF8.GetBytes(hardwareID))
       Dim sb As New StringBuilder()
       For Each b As Byte In bytes
           sb.Append(b.ToString("X2")) ' تحويل إلى نص سداسي عشري
       Next
       Return sb.ToString().Substring(0, 16) ' أول 16 رمز
   End Using
End Function

3. التحقق من المفتاح
مقارنة المفتاح المدخل مع المفتاح المُولد.
vb
نسخ الكود

كود :

Public Function IsActivationKeyValid(inputKey As String) As Boolean
   Dim hardwareID As String = GetHardwareID()
   Dim generatedKey As String = GenerateActivationKey(hardwareID)
   Return inputKey.Equals(generatedKey)
End Function

4. واجهة المستخدم
إنشاء واجهة بسيطة تحتوي على مربع نص لإدخال مفتاح التفعيل وزر للتحقق.
vb
نسخ الكود

كود :

Private Sub btnActivate_Click(sender As Object, e As EventArgs) Handles btnActivate.Click
   Dim inputKey As String = txtActivationKey.Text
   If IsActivationKeyValid(inputKey) Then
       MessageBox.Show("تم تفعيل البرنامج بنجاح!", "تفعيل")
       ' حفظ حالة التفعيل
       My.Settings.IsActivated = True
       My.Settings.Save()
   Else
       MessageBox.Show("مفتاح التفعيل غير صحيح.", "خطأ")
   End If
End Sub

5. حفظ حالة التفعيل
استخدام إعدادات التطبيق لتخزين حالة التفعيل.

1. افتح إعدادات المشروع وأضف مفتاحًا جديدًا باسم
   IsActivated
2. من النوع
   Boolean
3. وقيمة افتراضية
   False
4. .
   
5. تحقق من حالة التفعيل عند بدء تشغيل البرنامج:
   

vb
نسخ الكود

كود :

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   If Not My.Settings.IsActivated Then
       MessageBox.Show("البرنامج غير مفعل. يرجى إدخال مفتاح التفعيل.", "تنبيه")
       Me.Close() ' إغلاق البرنامج
   End If
End Sub

---

المخرجات:

• عند تشغيل البرنامج على جهاز جديد، يتم توليد معرف الجهاز ومقارنته مع المفتاح المُدخل.
  
• لن يعمل البرنامج إلا إذا كان المفتاح صحيحًا ومطابقًا لمعرفة الجهاز.
  

ملاحظات:

• يمكنك استخدام خوارزميات تشفير إضافية لتعزيز الأمان.
  
• يمكن تخزين المفتاح في خادم بعيد للتأكد من عدم التلاعب.
  

كما يمكنك نخزين رقم التفعيل في الريجستري مثل المثال التالي :

كيفية تخزين المفتاح في الريجستري
1. استيراد مكتبة الريجستري
تحتاج إلى استيراد مكتبة التعامل مع الريجستري.
vb
نسخ الكود

كود :

Imports Microsoft.Win32

2. كتابة المفتاح في الريجستري
استخدام الكود التالي لتخزين حالة التفعيل أو مفتاح التفعيل في الريجستري:
vb
نسخ الكود

كود :

Public Sub SaveActivationKeyToRegistry(activationKey As String)
   Try
       Dim registryKey As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\MyApplication")
       registryKey.SetValue("ActivationKey", activationKey, RegistryValueKind.String)
       registryKey.Close()
   Catch ex As Exception
       MessageBox.Show("حدث خطأ أثناء تخزين المفتاح في الريجستري: " & ex.Message, "خطأ")
   End Try
End Sub

3. قراءة المفتاح من الريجستري
استخدام الكود التالي لاسترجاع المفتاح من الريجستري:
vb
نسخ الكود

كود :

Public Function GetActivationKeyFromRegistry() As String
   Try
       Dim registryKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\MyApplication", False)
       If registryKey IsNot Nothing Then
           Dim activationKey As String = registryKey.GetValue("ActivationKey", "").ToString()
           registryKey.Close()
           Return activationKey
       End If
   Catch ex As Exception
       MessageBox.Show("حدث خطأ أثناء قراءة المفتاح من الريجستري: " & ex.Message, "خطأ")
   End Try
   Return String.Empty
End Function

4. التحقق من حالة التفعيل
تعديل الكود للتحقق من المفتاح المخزن في الريجستري بدلاً من إعدادات البرنامج:
vb
نسخ الكود

كود :

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   Dim storedKey As String = GetActivationKeyFromRegistry()
   If String.IsNullOrEmpty(storedKey) OrElse Not IsActivationKeyValid(storedKey) Then
       MessageBox.Show("البرنامج غير مفعل. يرجى إدخال مفتاح التفعيل.", "تنبيه")
       Me.Close() ' إغلاق البرنامج
   End If
End Sub

5. تخزين المفتاح بعد التفعيل
عندما يتم التحقق من صحة المفتاح، يتم تخزينه في الريجستري:
vb
نسخ الكود

كود :

Private Sub btnActivate_Click(sender As Object, e As EventArgs) Handles btnActivate.Click
   Dim inputKey As String = txtActivationKey.Text
   If IsActivationKeyValid(inputKey) Then
       SaveActivationKeyToRegistry(inputKey)
       MessageBox.Show("تم تفعيل البرنامج بنجاح!", "تفعيل")
       Me.Close() ' إغلاق نافذة التفعيل
   Else
       MessageBox.Show("مفتاح التفعيل غير صحيح.", "خطأ")
   End If
End Sub

---

مزايا تخزين المفتاح في الريجستري:

1. صعوبة وصول المستخدم العادي للمفتاح أو تعديله.
   
2. المفتاح يظل محفوظًا حتى بعد حذف التطبيق وإعادة تثبيته.
   

ملاحظات أمان:

• استخدم التشفير لحماية المفتاح عند تخزينه في الريجستري.
  
• اختر مفتاحًا فريدًا داخل الريجستري لتجنب التعارض مع تطبيقات أخرى (مثل:
  "Software\MyApplication"
• ).
  
• تأكد من أن الكود يتعامل مع استثناءات الوصول إلى الريجستري بحذر، خاصةً إذا كان المستخدم يعمل بدون صلاحيات إدارية.