تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التسجيل برقم الهارد
#1
هل يمكن تفعيل المشروع برقم الهارد ؟
الرد }}}
تم الشكر بواسطة:
#2
ممكن ذلك عن طريق الدالة التالية:

كود :
   ' getting harddrive Serial NO
   Function Gettingharddriveid() As String
       Dim x As String = ""
       Try
           Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
           For Each dvs As ManagementObject In hd.Get()
               x = dvs("SerialNumber").ToString()
               Exit For
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

       Gettingharddriveid = x
   End Function

نتيجة هذه الدالة هو الرقم المتسلسل للهارد دسك
و بالامكان استخدام الرقم المتسلسل للمذر بورد كالتالي:
كود :
   ' getting Mother Board Serial NO
   Function GettingMotherBoardID() As String
       Dim x As String = ""
       Dim oConn As ConnectionOptions = New ConnectionOptions
       Dim oMs As System.Management.ManagementScope = New System.Management.ManagementScope("\\machineID")
       Dim oQuery As System.Management.ObjectQuery = New System.Management.ObjectQuery("select SerialNumber from Win32_BaseBoard")
       Dim oSearcher As ManagementObjectSearcher = New ManagementObjectSearcher(oMs, oQuery)
       Dim oReturnCollection As ManagementObjectCollection = oSearcher.Get
       For Each oReturn As ManagementObject In oReturnCollection
           x = oReturn("SerialNumber").ToString
       Next
       GettingMotherBoardID = x
   End Function

كما انه بالامكان استخدام الرقم المتسلسل للمعالج كما يأتي:
كود :
   ' getting processor Serial NO
   Function Gettingprocessorid() As String
       Dim x As String = ""
       Dim win32MgmtClass As System.Management.ManagementClass
       win32MgmtClass = New System.Management.ManagementClass("Win32_Processor")
       Dim processors As System.Management.ManagementObjectCollection
       processors = win32MgmtClass.GetInstances()

       For Each processor As System.Management.ManagementObject In processors
           x = processor("ProcessorID").ToString()
       Next
       Gettingprocessorid = x

   End Function


بقي ان انبه الى انه يجب استيراد النطاق التالي :
كود :
Imports System.Management

ارجو ان يكون الشرح وافيا
تحياتي..
الرد }}}
#3
(29-09-16, 11:34 PM)ابراهيم النعيمي كتب : ممكن ذلك عن طريق الدالة التالية:

كود :
   ' getting harddrive Serial NO
   Function Gettingharddriveid() As String
       Dim x As String = ""
       Try
           Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
           For Each dvs As ManagementObject In hd.Get()
               x = dvs("SerialNumber").ToString()
               Exit For
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

       Gettingharddriveid = x
   End Function

نتيجة هذه الدالة هو الرقم المتسلسل للهارد دسك
و بالامكان استخدام الرقم المتسلسل للمذر بورد كالتالي:
كود :
   ' getting Mother Board Serial NO
   Function GettingMotherBoardID() As String
       Dim x As String = ""
       Dim oConn As ConnectionOptions = New ConnectionOptions
       Dim oMs As System.Management.ManagementScope = New System.Management.ManagementScope("\\machineID")
       Dim oQuery As System.Management.ObjectQuery = New System.Management.ObjectQuery("select SerialNumber from Win32_BaseBoard")
       Dim oSearcher As ManagementObjectSearcher = New ManagementObjectSearcher(oMs, oQuery)
       Dim oReturnCollection As ManagementObjectCollection = oSearcher.Get
       For Each oReturn As ManagementObject In oReturnCollection
           x = oReturn("SerialNumber").ToString
       Next
       GettingMotherBoardID = x
   End Function

كما انه بالامكان استخدام الرقم المتسلسل للمعالج كما يأتي:
كود :
   ' getting processor Serial NO
   Function Gettingprocessorid() As String
       Dim x As String = ""
       Dim win32MgmtClass As System.Management.ManagementClass
       win32MgmtClass = New System.Management.ManagementClass("Win32_Processor")
       Dim processors As System.Management.ManagementObjectCollection
       processors = win32MgmtClass.GetInstances()

       For Each processor As System.Management.ManagementObject In processors
           x = processor("ProcessorID").ToString()
       Next
       Gettingprocessorid = x

   End Function


بقي ان انبه الى انه يجب استيراد النطاق التالي :
كود :
Imports System.Management

ارجو ان يكون الشرح وافيا
تحياتي.
بارك الله فيك وجزاك الله خيرا
الرد }}}
تم الشكر بواسطة: ابراهيم النعيمي
#4
Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")

            For Each dvs As ManagementObject In hd.Get()

لم يتم التعرف على الدالتين المذكورتين باللون الاحمر ... شو المشكلة
علماً بأنني قمت باستدعاء المكتبة بالكود Imports System.Management
الرد }}}
تم الشكر بواسطة:
#5
ايهما ثابت ولا يتغير مهما حدث المازبورد ام البروسيسر؟؟؟
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد }}}
تم الشكر بواسطة:
#6
اظن اذا اراد الكراكر الجاهل كسر برنامجك سيحمل معه المذر بورد اينما حل لا داعي لان يستخدم برنامج OllyDbg او اي برنامج اخر لتتبع الشرط الموضوع على رقم المذر بورد او المعالج او الهارد ديسك و عكسه بحيث برنامجك يعمل على كل الاجهزة عدى الجهاز المصمم له و شكرا .
الرد }}}
#7
(20-08-19, 02:29 AM)asemshahen5 كتب : اظن اذا اراد الكراكر الجاهل كسر برنامجك سيحمل معه المذر بورد اينما حل لا داعي لان يستخدم برنامج OllyDbg او اي برنامج اخر لتتبع الشرط الموضوع على رقم المذر بورد او المعالج او الهارد ديسك و عكسه بحيث برنامجك يعمل على كل الاجهزة عدى الجهاز المصمم له و شكرا .


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

أخي و أستاذي الكريم " عاصم "
كفكرة فقط خطرت ببالي و قد أكون مخطئًا بتصوّرها
هل يمكن حماية البرنامج بتجميع رقم أي قطعة مميّزة من كومبيوتر العميل مع مثلاً رقم السي دي CD إذا كانت له سيريالات مميّزة
بحيث يتم تسليم المشروع للعميل على سي دي و هذا ألطف و أظرف و أشْيَكْ و أرقى .. و حتى و إن حاول نقله لجهاز آخر على فلاشة أخرى أو نسخه على سي دي آخر سيتم فقدان رقم السي دي المصدر .
هل الفكرة أخي عاصم قابلة للتنفيذ من وجهة نظرك و من وجهة نظر السادة الأكارم بالمنتدى
تحياتي
قناتنا على اليوتوب
الرد }}}
#8
استاذ:عبد العزيز البسكري.

الفكرة جيدة ولكن اذا كان العميل عن بعد فهذه هي المشكلة الوحيدة التي سنواجها وهي الخوف من تشيع او بيع عملك لاشخاص اخرين ارجو اقتراح لحماية البرنامج.
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#9
انا اقصد اخي العزيز ان يشفر الاكواد بعد عمل سيريال ممير لقطعة معينة بحيث يصعب عملية كسر البرنامج اما يضع كود قطعة مميزة و كود مفتوح لا فائدة منه انت فاهم قصدي المنتدى بيعلم طرق الحماية كسيريال البورد او الفلاش او الهارد و ما الى ذالك لكن اهم من كل ده تشفير الكود الاساسي للبرنامج و المكاتب الخاصة به و لكم جزيل الشكر .
الرد }}}
#10
(20-08-19, 03:06 AM)اسامه الهرماوي كتب : استاذ:عبد العزيز البسكري.

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


أتمنى ذلك أخي الغالي " أسامة الهرماوي "

تحياتي واحتراماتي

(20-08-19, 03:15 AM)asemshahen5 كتب : انا اقصد اخي العزيز ان يشفر الاكواد بعد عمل سيريال ممير لقطعة معينة بحيث يصعب عملية كسر البرنامج اما يضع كود قطعة مميزة و كود مفتوح لا فائدة منه انت فاهم قصدي المنتدى بيعلم طرق الحماية كسيريال البورد او الفلاش او الهارد و ما الى ذالك لكن اهم من كل ده تشفير الكود الاساسي للبرنامج و المكاتب الخاصة به و لكم جزيل الشكر .
هل تقصد مثلا ما يسمى على ما أظن شيء من هذا المعنى OBFUSCATOR .. لأني سمعت عنه فقط ؟
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , اسامه الهرماوي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حماية البرامج برقم مميز ssayed111 10 5,260 19-10-22, 07:22 AM
آخر رد: 1nokrashy
  [نقاش] مساعدتكم فى التسجيل مع شريط الحالة dr.programming 2 784 21-08-22, 01:52 PM
آخر رد: dr.programming
  تعدد التسجيل كيرلس رفعت 3 764 01-06-22, 07:45 PM
آخر رد: نيمو
  [VB.NET] سؤال حول استخراج سيريال الهارد -المذر-المعالج ابو انس 2 1,270 13-02-21, 07:17 PM
آخر رد: ابو انس
  المساعدة - بكود زر البحث وخانة رقم التسجيل crazykinko 0 951 18-01-21, 04:52 PM
آخر رد: crazykinko
  السلام عليك مشكل في رقم التسجيل برنامج المكتبة ساعدوني ارجوكم crazykinko 0 930 15-01-21, 04:55 PM
آخر رد: crazykinko
  مشكل في رقم التسجيل crazykinko 0 718 04-01-21, 06:22 PM
آخر رد: crazykinko
  عاوز اعمل سريل نمبر للبرنامج برقم mother bord بتاع الجهاز Hosam Ashraf Elwakel 1 1,461 01-08-20, 04:13 PM
آخر رد: essawq
  مطلوب كود لتاكيد سريال ننمبر عبر الهارد abdodz 2 1,422 27-06-20, 01:52 AM
آخر رد: abdodz
  ما طريقة حفظ محتويات الداتا جريد إلى ملف تكست على الهارد new_programer 3 1,535 30-03-20, 03:57 PM
آخر رد: new_programer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم