Mensajes

[Adf.ly Clicker]

Un Control Recién salido del Horno , Literalmente lo hice ayer.

Adf.ly Clicker


Tal como dice el titulo, Con ella puedes generas visitas a tu Link Adf.ly ..

Código (vbnet) [Seleccionar] Expandir


---------------------------------------Parchado


Bueno Fue bueno mientras duro. pero ya fue Parchado el code. osea que ia no sirve, y no voy a actualizar.

[Mi Vieja Clase para Injectar DLLs .]

Mi Vieja Clase para Injectar DLLs .



DestroyerInjector.vb

Código (vbnet) [Seleccionar] Expandir

'Hack Trainer | Private SDK
'Made by Destroyer | Discord : Destroyer#3527
'Creation date : 4/02/2017
'Last Update : 26/06/2019  - Minimal Update

Namespace DestroyerSDK

   Public Class Injector

#Region " Declare's "

       Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As UInt32) As IntPtr
       Declare Function CloseHandle Lib "kernel32" (ByVal hObject As IntPtr) As Int32
       Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Boolean
       Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As IntPtr, ByVal methodName As String) As IntPtr
       Declare Function GetModuleHandleA Lib "kernel32" (ByVal moduleName As String) As IntPtr
       Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As IntPtr, ByVal flAllocationType As UInteger, ByVal flProtect As UInteger) As IntPtr
       Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpThreadAttribute As IntPtr, ByVal dwStackSize As IntPtr, ByVal lpStartAddress As IntPtr, ByVal lpParameter As IntPtr, ByVal dwCreationFlags As UInteger, ByVal lpThreadId As IntPtr) As IntPtr
       Declare Function GetPrivateProfileStringA Lib "kernel32" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As System.Text.StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
       Declare Function WritePrivateProfileStringA Lib "kernel32" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer

#End Region

#Region " Method's "

       Private Shared Function CreateRemoteThread(ByVal procToBeInjected As Process, ByVal sDllPath As String) As Boolean
           Dim lpLLAddress As IntPtr = IntPtr.Zero
           Dim hndProc As IntPtr = OpenProcess(&H2 Or &H8 Or &H10 Or &H20 Or &H400, 1, CUInt(procToBeInjected.Id))
           If hndProc = IntPtr.Zero Then
               Return False
           End If
           lpLLAddress = GetProcAddress(GetModuleHandleA("kernel32.dll"), "LoadLibraryA")
           If lpLLAddress = CType(0, IntPtr) Then
               Return False
           End If
           Dim lpAddress As IntPtr = VirtualAllocEx(hndProc, CType(Nothing, IntPtr), CType(sDllPath.Length, IntPtr), CUInt(&H1000) Or CUInt(&H2000), CUInt(&H40))
           If lpAddress = CType(0, IntPtr) Then
               Return False
           End If
           Dim bytes As Byte() = System.Text.Encoding.ASCII.GetBytes(sDllPath)
           Dim ipTmp As IntPtr = IntPtr.Zero
           WriteProcessMemory(hndProc, lpAddress, bytes, CUInt(bytes.Length), ipTmp)
           If ipTmp = IntPtr.Zero Then
               Return False
           End If
           Dim ipThread As IntPtr = CreateRemoteThread(hndProc, CType(Nothing, IntPtr), IntPtr.Zero, lpLLAddress, lpAddress, 0, CType(Nothing, IntPtr))
           If ipThread = IntPtr.Zero Then
               Return False
           End If
           Return True
       End Function

       Public Shared Function InjectDLL(ByVal ProcessName As String, ByVal sDllPath As String) As Boolean
           Dim p As Process() = Process.GetProcessesByName(ProcessName)
           If p.Length <> 0 Then
               If Not CreateRemoteThread(p(0), sDllPath) Then
                   If p(0).MainWindowHandle <> CType(0, IntPtr) Then
                       CloseHandle(p(0).MainWindowHandle)
                   End If
                   Return False
               End If
               Return True
           End If
           Return False
       End Function

#End Region

   End Class

End Namespace




Modo de uso :

Código (vbnet) [Seleccionar] Expandir

 Dim InjectDll As Boolean = InjectDLL("ProcessGame", "DLL_Path")

[Listar los Modulos de un Proceso. (Incluyendo su MainModule)]

Listar los Modulos de un Proceso. (Incluyendo su MainModule)

Código (vbnet) [Seleccionar] Expandir

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As UInt32) As IntPtr

        Public Shared Function GetProcessModules(ByVal Process_Name As String) As String
            Dim DataS As New StringBuilder
            Dim pc As Process() = Process.GetProcessesByName(Process_Name)

            Dim hndProc As IntPtr = OpenProcess(&H2 Or &H8 Or &H10 Or &H20 Or &H400, 1, CUInt(pc(0).Id))
            If hndProc = IntPtr.Zero Then
                Return "Error"
            End If

            Dim ModulesCount As Integer = pc(0).Modules.Count - 1
            For index As Integer = 0 To ModulesCount
                DataS.Append(pc(0).Modules(index).FileName & vbNewLine)
            Next

            Return DataS.ToString
        End Function

Modo de Empleo :

Código (vbnet) [Seleccionar] Expandir

TextBox1.Text = GetProcessModules("ProcessName")

Pues es una pena. pero nada se le puede hacer.   ahora que se chingue la sección de .Net, se nos fue un grande....

[Bueno , todos tienen su punto de vista y su propia forma de pensar, creo que todos aqui somos lo suficientemente maduros para Comprender eso.]

Bueno , todos tienen su punto de vista y su propia forma de pensar, creo que todos aqui somos lo suficientemente maduros para Comprender eso.

Acerca de que no se lleve bien algunos coAdmin, bueno Disputas siempre han habido.

pero que baneen al unico que activamente ayudaba y aportaba temas interesantes (En su Respectivo campo) no es muy inteligente de parte del Staff del foro.

vamos capaz y me banean a mi tambien....  

aclaremos que fue un poco mas que eso... para que el brujo permitiera el baneo de tal usuario, significa que el asunto escaló demasiado... no fue solo dar su opinion y no fue llevarse mal con un coadmin...

Que tan grave puede ser una disputa por la red? , es muy común. yo lo veo como un abuso de poder.

Supongamos que fue "ALGO" mas que eso.     ¿¿Que seria ese "ALGO"?? .


No fue suficiente que Primero de Degradaran de Rango .....  Moderador Global > Colaborador .

Despues de lo anterior, No fue suficiente le quitaran cualquier tipo de rango que tuviese . Ex-Staff

Despues de todo anterior, Lo Banearo?  

[5 de febrero]

Hola, Digo el Ex-Mod @Eleкtro siempre estaba activo, ayudaba e comentaba . pero desde el 5 de febrero no se conecto mas. le habrá dado coronavirus?.

Se preguntaran , Y a ti que te importa lo que le haya pasado?
bueno , realmente ando curioso, ademas de que el es el mas ayudaba, casi el Unico a resolver las preguntas en el subforo de .Net y Script. alguien sabe que le habrá pasado?

[Lo mismo que el que publique, solo que a este solo le tienes que actualizar 1 sola direccion . la de la camara.]

Dejo de funcionar porque las direcciones no están actualizadas... Es de código abierto también y si se actualizan sigue funcionando.

Lo mismo que el que publique, solo que a este solo le tienes que actualizar 1 sola direccion . la de la  camara. 

PD: de las adress de la pagina de unknowncheats solo sirve la adress del radar y las del halo PC (Combat Evolvet) .

[EvilAimbot]

El EvilAimbot de SilentK dejo de funcionar hace tiempo, cuando sacaron el parche 1.0.10 .

No he probado las adress de aqui : https://www.unknowncheats.me/wiki/Notes_and_Offsets_Halo 
despues veo q onda haber si todavía sirven.

[CameraSig y CameraMask]

Y que patrón se busca para buscar al enemigo?

Tiene que ver mucho con localizar, el adress, despues el offset, se localiza el pointer. y buscas los bytas con el explorador Hex del Cheat engine.

La unica adress que falta es la de CameraSig y CameraMask . Que son las direcciones en la memoria que permite el movimiento de la camara en el juego.

Esto tiene pinta de ser más lento que el caballo del malo.

todo lo contrario, la busqueda / localizacion de los bytes en la memoria por medio de Pattern scan o AoB Scan, como quieras llamarle, a lo mucho tarda unos 1.5s o menos.

[{0}{1}{2}{3}{4}{5}]

Osea, muestrame la salida en el listbox, osea un imagen de como van los numero . asi puedo identificar el formato que estas usando. ya que hay 6 elementos.

que serian algo como : {0}{1}{2}{3}{4}{5} . necesito ver la salida.