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

[ حل ] تخطي الانظمه الوهميه ومنع تشغيل برنامجك بطريقه احترافيه

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

كاتب الموضوع : !»°بہًكہًر الہًعہًراقہًي°«! المشاهدات : 678 الردود : 31 ‏12 يوليو 2016
حالة الموضوع:
مغلق
  1. غير متصل

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

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

    [​IMG]
    كيف الحال اعضاء وزوار ومشرفين وادارين عراق تيم

    عسا ان
    تكونوا بصحه وعافيه

    اما بعد

    [​IMG]
    اقدم لكم كود بلغه vb.net
    لمنع تشغيل برنامجك داخل الانظمه الوهميه

    لا اطيل عليكم الكود واضح وسهل ولا يحتاج الى كلام مطول
    [​IMG]
    الكود
    كود:
    Imports System.Management
    Public Class Form1
        'Types of Virtual Machines
        'Xen, Hyper-V, LynxSecure, Oracle VM Server for SPARC, VMware ESX/ESXi, Adeos, XtratuM, z/VM, KVM, L4Linux, Mac-on-Linux, Mac-on-Mac, Microsoft Virtual Server, Parallels Workstation, Parallels Desktop for Mac, Parallels Server for Mac, PearPC, QEMU, VirtualBox, Virtual Iron, Virtual Machine Manager, VMware Fusion, VMware Player, VMware Server, VMware Workstation, Windows Virtual PC, Win4Lin
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'example usage
            Select Case True
                Case PointingDevice(), DiskDrive(), BaseBoard()
                    End
            End Select
        End Sub
        Private Function PointingDevice() As Boolean
            Dim wqlQuery As WqlObjectQuery
            wqlQuery = New WqlObjectQuery("Select * from Win32_PointingDevice")
    
            Dim searcher As ManagementObjectSearcher
            searcher = New ManagementObjectSearcher(wqlQuery)
    
            Dim mouse As ManagementObject
            For Each mouse In searcher.Get()
                If mouse("Caption").ToString().Contains("VMware") Then Return True
                If mouse("Description").ToString().Contains("VMware") Then Return True
                If mouse("HardwareType").ToString().Contains("VMware") Then Return True
                If mouse("InfSection").ToString().Contains("VMware") Then Return True
                If mouse("Manufacturer").ToString().Contains("VMware") Then Return True
                If mouse("Name").ToString().Contains("VMware") Then Return True
                If mouse("Manufacturer").ToString().Contains("Microsoft") Then Return True
            Next
            Return False
        End Function
        Private Function DiskDrive() As Boolean
            Dim wqlQuery As WqlObjectQuery
            wqlQuery = New WqlObjectQuery("Select * from Win32_DiskDrive")
    
            Dim searcher As ManagementObjectSearcher
            searcher = New ManagementObjectSearcher(wqlQuery)
    
            Dim disk As ManagementObject
            For Each disk In searcher.Get()
                If disk("Caption").ToString().Contains("Virtual") Then Return True
                If disk("Model").ToString().Contains("Virtual") Then Return True
                If disk("Caption").ToString().Contains("VMware") Then Return True
                If disk("Model").ToString().Contains("VMware") Then Return True
            Next
            Return False
        End Function
        Private Function BaseBoard() As Boolean
            Dim wqlQuery As WqlObjectQuery
            wqlQuery = New WqlObjectQuery("Select * from Win32_BaseBoard")
    
            Dim searcher As ManagementObjectSearcher
            searcher = New ManagementObjectSearcher(wqlQuery)
    
            Dim motherboard As ManagementObject
            For Each motherboard In searcher.Get()
                If motherboard("Manufacturer").ToString().Contains("Microsoft") Then Return True
                If motherboard("Product").ToString().Contains("Virtual") Then Return True
            Next
            Return False
        End Function
    End Class
    [​IMG]
    ارجو ان اكون قد وفقت
    واخيرا
    ان وفقت فمن الله
    وان اخطائت فمن نفسي والشيطان
    [​IMG]
    [​IMG]
    امير ايكل
    مستر جوكر
    السفاح
    علي العراقي
    جوني العراقي
    ولك انت اخي الكريم
    [​IMG]
    [​IMG]


     


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

    Mr. Stephen
    موقوف لمخالفة الشروط

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

    احسنت استمر عزيزي بكوري
     


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

    حسن هكسور
    rankrank
    Developer

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

    عشت اخي بكر موضوع رائع جدا
     


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

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

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

    نورت
     


  5. غير متصل

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

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

    نورت
     


  6. غير متصل

    Mr Thoalfqaar
    Active DeveloPer

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

    والله عاشت الايادي حبيبي
     


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

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

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

    نورت
     


  8. غير متصل

    αℓɪ αℓɪяαqɪ
    New Developer

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

    عاشت ايدك شريك دائما مواضيعك مميزه
    استمر ولا تحرمنا من جديدك
     


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

    -مصطفى الموسوي- :.HackTheBad:.
    DeveloPer Plus

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

    يعطيك العافية
    ولكن هذا لتخطي الـ
    اVMware
    فقط
    لو اردنا تخطي virtualbox
    نقوم فقط بالتعديل على الاكواد
    مثلا بدل من اVMware نضع virtualbox
     


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

    !_عبدالله عباس_!
    DeveloPer Plus

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

    عاشت يدك بكوري
     


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

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

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