Donde Puedo Encontra un Soucer

[Trainerx]

Hola, a todos.

Quisiera saber donde puedo encontrar un soucer, de Injector Dll.

Es para un juego llamado rakion de Softnyx y me gustaria poder conseguir un soucer y de hay empezar a desarrollarlo poco a poco.

de Visual Basic .NeT

Gracias, por su atencion y amabilidad.

[[D4N93R]]

A que te refieres con Soucer? Source? de codigo fuente?

Puedes explicar un poco más tu pregunta.

[Trainerx]

si.. codigo fuente.

[.mokk.]

Aver si este te sirve es uno que tengo hace tiempo hehe

Código (vb.net) [Seleccionar] Expandir


Imports System.IO
Public Class Form1
   Private TargetProcessHandle As Integer
   Private pfnStartAddr As Integer
   Private pszLibFileRemote As String
   Private TargetBufferSize As Integer

   Public Const PROCESS_VM_READ = &H10
   Public Const TH32CS_SNAPPROCESS = &H2
   Public Const MEM_COMMIT = 4096
   Public Const PAGE_READWRITE = 4
   Public Const PROCESS_CREATE_THREAD = (&H2)
   Public Const PROCESS_VM_OPERATION = (&H8)
   Public Const PROCESS_VM_WRITE = (&H20)

   Public Declare Function ReadProcessMemory Lib "kernel32" ( _
   ByVal hProcess As Integer, _
   ByVal lpBaseAddress As Integer, _
   ByVal lpBuffer As String, _
   ByVal nSize As Integer, _
   ByRef lpNumberOfBytesWritten As Integer) As Integer

   Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
   ByVal lpLibFileName As String) As Integer

   Public Declare Function VirtualAllocEx Lib "kernel32" ( _
   ByVal hProcess As Integer, _
   ByVal lpAddress As Integer, _
   ByVal dwSize As Integer, _
   ByVal flAllocationType As Integer, _
   ByVal flProtect As Integer) As Integer

   Public Declare Function WriteProcessMemory Lib "kernel32" ( _
   ByVal hProcess As Integer, _
   ByVal lpBaseAddress As Integer, _
   ByVal lpBuffer As String, _
   ByVal nSize As Integer, _
   ByRef lpNumberOfBytesWritten As Integer) As Integer

   Public Declare Function GetProcAddress Lib "kernel32" ( _
   ByVal hModule As Integer, ByVal lpProcName As String) As Integer

   Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
   ByVal lpModuleName As String) As Integer

   Public Declare Function CreateRemoteThread Lib "kernel32" ( _
   ByVal hProcess As Integer, _
   ByVal lpThreadAttributes As Integer, _
   ByVal dwStackSize As Integer, _
   ByVal lpStartAddress As Integer, _
   ByVal lpParameter As Integer, _
   ByVal dwCreationFlags As Integer, _
   ByRef lpThreadId As Integer) As Integer

   Public Declare Function OpenProcess Lib "kernel32" ( _
   ByVal dwDesiredAccess As Integer, _
   ByVal bInheritHandle As Integer, _
   ByVal dwProcessId As Integer) As Integer

   Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
   ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Integer

   Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
   ByVal hObject As Integer) As Integer




   Private Sub Inject()
       Dim ExeName As String = (RichTextBox1.Text)
       On Error GoTo 1
       Timer1.Stop()
       Dim TargetProcess As Process() = Process.GetProcessesByName(Path.GetFileNameWithoutExtension(TextBox1.Text))
       TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
       pszLibFileRemote = ExeName
       pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
       TargetBufferSize = 1 + Len(pszLibFileRemote)
       Dim Rtn As Integer
       Dim LoadLibParamAdr As Integer
       LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
       Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
       CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
       'CloseHandle(TargetProcessHandle)
       Exit Sub
1:      Label4.Text = "Error al Injectar " & Path.GetFileName(RichTextBox1.Text)
       Exit Sub

   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Dim ExeName As String = (RichTextBox1.Text)
       If IO.File.Exists(ExeName) Then
           Dim TargetProcess As Process() = Process.GetProcessesByName(Path.GetFileNameWithoutExtension(TextBox1.Text))
           If TargetProcess.Length = 0 Then
               Label4.Text = ("Esperando por ..." & TextBox1.Text)
           Else
               Label4.Text = Path.GetFileName(RichTextBox1.Text) & " Injectada en " & TextBox1.Text
               Call Inject()

           End If
       Else
           Me.TextBox1.Text = (Path.GetFileName(ExeName) + ".dll no existe")

       End If
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Button1.Enabled = False
       Timer1.Interval = 50
   End Sub


   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       OpenFileDialog1.Filter = "Archivos DLL|*.dll"
       OpenFileDialog1.Title = "Selecciona la DLL"
       OpenFileDialog1.FileName = "Dll"
       If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           RichTextBox1.Text = OpenFileDialog1.FileName
           Button1.Enabled = True
       End If
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox1.Text <> "" Then
           If InStr(TextBox1.Text, ".exe") Then
               Timer1.Start()
           Else
               MsgBox("Debes colocar el nombre del proceso, Ejemplo: Gunz.exe", MsgBoxStyle.Critical, "Error")
           End If
       Else
           Label4.Text = "Coloca el nombre del Proceso"
       End If
   End Sub
End Class

Losé tiene cosas y codigos que ni al caso para el injector, esque lo tenia junto con otras funciones pero en si ese sera el injector hehe

[Choclito]

Ola a todos taba revisando este tema y vi muy interesante pero lo que quisiera saber un poco mas a profundidad es masomenos de que se trata el tema Dx .

[.mokk.]

En si lo que trata si has jugado alguna vez usando hack haz usado un injector osea se encarga de meter o injectar a un proceso una DLL o codigo dentro del mismo para asi tener cambios en el proceso u aplicacion.

[Choclito]

asha entonces por ejemplo si yo quiero desarrollar un aimbot tengo que usar este inyector tambien

[.mokk.]

mmmm si se podria decir que si pero esto seria solo una parte, aparte seria tambien crear la DLL con tales funciones o si es un tipo trainer seria o podria usarse directamente con WriteProcessMemory