• Lunes 12 de Mayo de 2025, 04:35

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - martinss

Páginas: 1 [2]
26
Visual Basic 6.0 e inferiores / Re: Inyección En Vb
« en: Sábado 30 de Septiembre de 2006, 17:28 »
Bueno te comento... la dll le pedi yo a un amigo que la haga porque yo de "C" no se mucho, la dll lo que hace es mandar un mensaje a la consola del CS para autentificar eso es todo.

27
Visual Basic 6.0 e inferiores / Re: Inyección En Vb
« en: Sábado 30 de Septiembre de 2006, 17:17 »
el nombre de la ventana del cs es Valve001 , probe con ese y la inyecto.. pero la dll no hace lo que deberia..

28
Visual Basic 6.0 e inferiores / Re: Inyección En Vb
« en: Sábado 30 de Septiembre de 2006, 14:45 »
la dll tiene que estar en el mismo directorio que el inyector, y el codigo seria asi:

en un Módulo:

Código: Text
  1. Option Explicit
  2.  
  3. Public hModule          As Long
  4. Public hProcess         As Long
  5. Public dwSize           As Long
  6. Public dwPid            As Long
  7. Public dwBytesWritten   As Long
  8. Public dwTid            As Long
  9.  
  10. Public SE               As SECURITY_ATTRIBUTES
  11.  
  12. Public Const PAGE_READONLY              As Long = &H2
  13. Public Const PAGE_READWRITE             As Long = &H4
  14. Public Const PAGE_EXECUTE               As Long = &H10
  15. Public Const PAGE_EXECUTE_READ          As Long = &H20
  16. Public Const PAGE_EXECUTE_READWRITE     As Long = &H40
  17. Public Const MEM_RELEASE                As Long = &H8000
  18. Public Const MEM_COMMIT                 As Long = &H1000
  19. Public Const MEM_RESERVE                As Long = &H2000
  20. Public Const MEM_RESET                  As Long = &H80000
  21. Public Const STANDARD_RIGHTS_REQUIRED   As Long = &HF0000
  22. Public Const SYNCHRONIZE                As Long = &H100000
  23. Public Const PROCESS_ALL_ACCESS         As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
  24. Public Const INFINITE                   As Long = &HFFFFFF
  25.  
  26. Public Type SECURITY_ATTRIBUTES
  27.       nLength                 As Long
  28.       lpSecurityDescriptor    As Long
  29.       bInheritHandle          As Long
  30. End Type
  31.  
  32. Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
  33. Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
  34. Public Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
  35. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  36. Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
  37. Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  38. Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
  39. Public Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
  40. Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
  41. Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
  42. Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  43.  
  44. Sub Main()
  45. Inject App.Path & "\autentificacion.dll", "Counter-Strike"
  46. End Sub
  47.  
  48. Public Function Inject(szDll As String, szTargetWindowClassName As String) As Boolean
  49. Dim hWnd        As Long
  50. Dim k32LL       As Long
  51. Dim Thread      As Long
  52.  
  53.   SE.nLength = Len(SE)
  54.   SE.lpSecurityDescriptor = False
  55.  
  56.   'Encontrar la ventana y abrir el proceso
  57.   hWnd = FindWindow(szTargetWindowClassName, vbNullString)
  58.   GetWindowThreadProcessId hWnd, dwPid
  59.   hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, dwPid)
  60.   If hProcess = 0 Then GoTo Inject_Error
  61.   k32LL = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")
  62.  
  63.   'Reservamos memoria
  64.   hModule = VirtualAllocEx(hProcess, 0, LenB(szDll), MEM_COMMIT, PAGE_READWRITE)
  65.   If hModule = 0 Then GoTo Inject_Error
  66.   WriteProcessMemory hProcess, ByVal hModule, ByVal szDll, LenB(szDll), dwBytesWritten
  67.  
  68.   Thread = CreateRemoteThread(hProcess, SE, 0, ByVal k32LL, ByVal hModule, 0, dwTid)
  69.   If Thread = 0 Then GoTo Inject_Error
  70.  
  71.   'Clean up a bit
  72.   WaitForSingleObject Thread, 100
  73.   VirtualFreeEx hProcess, hModule, 0&, MEM_RELEASE
  74.   CloseHandle Thread
  75.  
  76. Exit Function
  77.  
  78. Inject_Error:
  79.   Inject = False
  80.   MsgBox "error"
  81.   Exit Function
  82. End Function
  83.  

Form:

Código: Text
  1. Private Sub Command1_Click()
  2. Inject App.Path & "\autentificacion.dll", "Counter-Strike"
  3. End Sub
  4.  

cuando hago click en el botón da el error

29
Visual Basic 6.0 e inferiores / Re: Inyección En Vb
« en: Sábado 30 de Septiembre de 2006, 00:17 »
Cita de: "Eternal Idol"
¿Y en que consiste el "AntiCheat" sino es la DLL? Si tu codigo no es el inyector ni el inyectado ... ¿Que hace realmente?

¿De ese codigo que pusiste que no te funciona exactamente?
la DLL es la que tiene que autentificar con el servidor... osea, verifica que cada player que entre al servidor tenga el anticheat activado  :)

y el programa se encarga de las detecciones de cheats...  :comp:

y ese codigo.. da error cuando hago click en "Inyectar"

http://img156.imageshack.us/img156/7111/dibujole2.jpg

30
Visual Basic 6.0 e inferiores / Re: Inyección En Vb
« en: Viernes 29 de Septiembre de 2006, 23:00 »
Cita de: "JuanK"
totalmente de acuerdo, creo que estas un tanto desubicado.

Seria bueno que nos dijeras como son los intentos que has hecho.
uno de los codigos que he probado a sido este pero da error a la hora de inyectar:

Código: Text
  1. Option Explicit
  2.  
  3. Public hModule          As Long
  4. Public hProcess         As Long
  5. Public dwSize           As Long
  6. Public dwPid            As Long
  7. Public dwBytesWritten   As Long
  8. Public dwTid            As Long
  9.  
  10. Public SE               As SECURITY_ATTRIBUTES
  11.  
  12. Public Const PAGE_READONLY              As Long = &H2
  13. Public Const PAGE_READWRITE             As Long = &H4
  14. Public Const PAGE_EXECUTE               As Long = &H10
  15. Public Const PAGE_EXECUTE_READ          As Long = &H20
  16. Public Const PAGE_EXECUTE_READWRITE     As Long = &H40
  17. Public Const MEM_RELEASE                As Long = &H8000
  18. Public Const MEM_COMMIT                 As Long = &H1000
  19. Public Const MEM_RESERVE                As Long = &H2000
  20. Public Const MEM_RESET                  As Long = &H80000
  21. Public Const STANDARD_RIGHTS_REQUIRED   As Long = &HF0000
  22. Public Const SYNCHRONIZE                As Long = &H100000
  23. Public Const PROCESS_ALL_ACCESS         As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
  24. Public Const INFINITE                   As Long = &HFFFFFF
  25.  
  26. Public Type SECURITY_ATTRIBUTES
  27.        nLength                 As Long
  28.        lpSecurityDescriptor    As Long
  29.        bInheritHandle          As Long
  30. End Type
  31.  
  32. Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
  33. Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
  34. Public Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
  35. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  36. Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
  37. Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  38. Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
  39. Public Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
  40. Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
  41. Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
  42. Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  43.  
  44. Sub Main()
  45. Inject App.Path & "\Ejemplo.dll", "Notepad"
  46. End Sub
  47.  
  48. Public Function Inject(szDll As String, szTargetWindowClassName As String) As Boolean
  49. Dim hWnd        As Long
  50. Dim k32LL       As Long
  51. Dim Thread      As Long
  52.  
  53.    SE.nLength = Len(SE)
  54.    SE.lpSecurityDescriptor = False
  55.    
  56.    'Encontrar la ventana y abrir el proceso
  57.    hWnd = FindWindow(szTargetWindowClassName, vbNullString)
  58.    GetWindowThreadProcessId hWnd, dwPid
  59.    hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, dwPid)
  60.    If hProcess = 0 Then GoTo Inject_Error
  61.    k32LL = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")
  62.    
  63.    'Reservamos memoria
  64.    hModule = VirtualAllocEx(hProcess, 0, LenB(szDll), MEM_COMMIT, PAGE_READWRITE)
  65.    If hModule = 0 Then GoTo Inject_Error
  66.    WriteProcessMemory hProcess, ByVal hModule, ByVal szDll, LenB(szDll), dwBytesWritten
  67.    
  68.    Thread = CreateRemoteThread(hProcess, SE, 0, ByVal k32LL, ByVal hModule, 0, dwTid)
  69.    If Thread = 0 Then GoTo Inject_Error
  70.    
  71.    'Clean up a bit
  72.    WaitForSingleObject Thread, 100
  73.    VirtualFreeEx hProcess, hModule, 0&, MEM_RELEASE
  74.    CloseHandle Thread
  75.  
  76. Exit Function
  77.  
  78. Inject_Error:
  79.    Inject = False
  80.    MsgBox "error"
  81.    Exit Function
  82. End Function
  83.  

31
Visual Basic 6.0 e inferiores / Re: Inyección En Vb
« en: Viernes 29 de Septiembre de 2006, 22:39 »
la dll no la hice yo, la creo un amigo que sabe mucho de C y era necesario que sea en ese lenguaje ya que el juego esta creado en C/C++, el anticheat que vendria a ser en VB lo hice yo, se bastante de VB pero nada de C.. si no me quieren ayudar todo bien entiendo sus "sospechas" pero bueno yo les digo la verdad.

Saludos a todos.  :hola:

32
Visual Basic 6.0 e inferiores / Inyección En Vb
« en: Viernes 29 de Septiembre de 2006, 21:28 »
Hola a todos, actualmente estoy realizando un AntiCheat para el Counter-Strike, ya tengo todo armado pero lo unico que me falta es inyectarle una DLL hecha en "C" al proceso del juego con VB, he probado un monton de codigos sin exito... si alguien tiene uno por favor que lo postee, saludos y gracias

Páginas: 1 [2]