elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Traducir de C++ a VB6
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Traducir de C++ a VB6  (Leído 2,374 veces)
Rigoberta II

Desconectado Desconectado

Mensajes: 16


Ver Perfil
Traducir de C++ a VB6
« en: 19 Abril 2012, 01:46 »

Hola, necesito ver si alguien sabe o conoce algun code parecido a este pero en VB6 ya que esta hecho en C++/C.
Su función es modificar/cambiar/redireccionar la ip del juego por la de localhost ( 127.0.0.1 )

Código:
#include <windows.h>
#include <iostream>
 
using namespace std;
 
void EnableDebugPriv(); //Nos aumentamos los privilegios, para evitar problemas con permisos... (Ring 3)
 
void main() {
 
BYTE newvalue[] = {0x31, 0x00, 0x32, 0x00, 0x37, 0x00, 0x2E, 0x00, 0x30, 0x00, 0x2E, 0x00, 0x30, 0x00, 0x2E, 0x00, 0x31, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; //Este es el valor en hexadecimal, de la cadena: 1 2 7 . 0 . 0 . 1 (rellenamos con 0 los numeros del IP antiguo sobrantes)
 
HWND hwnd = FindWindow(0, "Solitario"); //Buscamos la ventana de nuestro juego/proceso (Yo hice la prueba con Solitario)
 
DWORD pid;//Declaramos la variable PID para almacenar el ID de nuestro juego/proceso
 
if(!hwnd) //Si no encontramos la ventana (el handle es nulo)
{
cout << "Error: No se pudo encontrar la ventana!" << endl;
system("pause");
exit(0);
}
else
{
GetWindowThreadProcessId(hwnd, &pid); //Obtenemos el Id del proceso (PID) en base al handle que nos devuelve FindWindow
 
HANDLE hProcess = OpenProcess(PROCESS_ALL_ACCESS, FALSE, pid); //Abrimos el proceso con acceso total (lectura, escritura)
 
if(!hProcess) //Si no encontramos el juego/proceso (...)
{
cout << "Error: No se pudo abrir el handle" << endl;
system("pause");
exit(0);
}
else //En caso contrario
{
if (WriteProcessMemory(hProcess, //Juego/Proceso a modificar
(LPVOID)0x0100700C, //Direccion de memoria a modificar (Que en tu caso, si no es dinamica deberia ser: 0x0028B244)
&newvalue, //Nuevos bytes a cambiar (en tu caso el nuevo IP)
sizeof(newvalue), //Tamano de los bytes a modificar
NULL)) //Este parametro lo podemos dejar nulo
 
cout << "Memoria editada con exito!" << endl; //Exito!
else
cout << "Fallo al editar la memoria!" << endl; //Memoria no existente o protegida
}
CloseHandle(hProcess); //Cerramos el handle abierto anteriormente
}
system("pause");
}
 
void EnableDebugPriv()
{
HANDLE hToken;
LUID sedebugnameValue;
TOKEN_PRIVILEGES tkp;
OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken);
LookupPrivilegeValue(NULL, SE_DEBUG_NAME, &sedebugnameValue);
tkp.PrivilegeCount = 1;
tkp.Privileges[0].Luid = sedebugnameValue;
tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, false, &tkp, sizeof tkp, NULL, NULL);
CloseHandle(hToken);
}


En línea

raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Traducir de C++ a VB6
« Respuesta #1 en: 19 Abril 2012, 01:56 »

Identifica las funciones de windows y solo las conviertes a API con sus respectivos tipos y punteros en las llamadas. Algo tedioso pero simple

FindWindows,  OpenProcess y Tokens, encontrás usos y declaraciones para vb6 en google fácilmente, solo convertí las llamadas


En línea

Rigoberta II

Desconectado Desconectado

Mensajes: 16


Ver Perfil
Re: Traducir de C++ a VB6
« Respuesta #2 en: 13 Mayo 2012, 01:11 »

No entiendo como hacer eso..
Necesito redireccionar el ip por el que yo quiero especie de proxy
Ip antigua : la del juego y IP nueva : 127.0.0.1 asi tiene que quedar alguien me ayuda plix?
En lo posible tiene que ser en visual basic 6
En línea

rembolso

Desconectado Desconectado

Mensajes: 163



Ver Perfil
Re: Traducir de C++ a VB6
« Respuesta #3 en: 13 Mayo 2012, 02:17 »

mira te e echo un ejemplo muy rapido. no lo e probado, seguro tiene errores pero  es lo q buscas, estoy apurado por irme de joda. cuando llegue te lo mejoro .
Código
  1. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
  2. Declare Function EnumWindows Lib "user32" (ByVal wndenmprc As Long, ByVal lParam As Long) As Long
  3. Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  4. Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
  5. Private Const ProAcceall As Long = &H1F0FFF
  6. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
  7. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  8. Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseox As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
  9. Private Declare Function WriteString Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseox As Any, ByVal lpBuffer As Any, ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long
  10. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  11.  
  12.  
  13.  
  14.  
  15. Dim NombreVentana As String, TexoRm As String, TexoOriginal As String, Direccion As Long'variables para utilzar con la memoria
  16. Public Sub Started(Nom As String, t As String, d As String, p As Long)'funcion que inicia la secuenia
  17. NombreVentana = Nom'nombre de la ventana a buscar o parte de ella
  18. TexoRm = t'texto a introducir
  19. TexoOriginal = d'texto original
  20. Direccion = p'direccionn de memoria
  21.    Call EnumWindows(AddressOf EnumCallback, 0)'almacena  los nombres obtenidos de ventanas e jecucion
  22. End Sub
  23.  
  24.  
  25.  
  26. Private Function EnumCallback(ByVal A_hwnd As Long, ByVal param As Long) As Long
  27.               Dim Size_buffer As Long, buffer As String * 256
  28. Dim str As String
  29. Size_buffer = GetWindowText(A_hwnd, buffer, Len(buffer))
  30.  
  31. If InStr(1, Left$(buffer, Size_buffer), NombreVentana) > 0 Then
  32.  
  33.  
  34.    str = ReadMem(A_hwnd, Direccion, LenB(TexoOriginal), TexoRm)
  35.  
  36.  
  37. Exit Function
  38. End If
  39.  
  40.    EnumCallback = 1
  41. End Function
  42.  
  43.  
  44. Private Function ReadMem(hWnd As Long, Ox As Long, Bytes As Long, Optional Rempla As String) As String
  45.  
  46.    On Error Resume Next
  47.    Dim Id As Long, sHandle As Long, bytValue As Long, i As Long, Text As String
  48.  
  49.  
  50.    GetWindowThreadProcessId hWnd, Id
  51.  
  52.  
  53.    sHandle = OpenProcess(ProAcceall, False, Id)
  54.  
  55.    If (sHandle = 0) Then
  56.  
  57.         Exit Function
  58.    End If
  59.    If Ox = 0 Then Exit Function
  60.  
  61.    For i = 1 To Bytes Step 2
  62.  
  63.       ReadProcessMemory sHandle, Ox + i - 1, bytValue, 1, 0&
  64.  
  65.       ReadMem = ReadMem & Chr$(bytValue)
  66.    Next
  67.  
  68.    If LenB(Rempla) <> 0 Then
  69.  
  70.        WriteString sHandle, Ox, StrPtr(Rempla), LenB(Rempla), 0&
  71.    End If
  72.  
  73.    CloseHandle sHandle
  74. End Function
  75.  
  76.  
« Última modificación: 14 Mayo 2012, 04:59 por rembolso » En línea

Rigoberta II

Desconectado Desconectado

Mensajes: 16


Ver Perfil
Re: Traducir de C++ a VB6
« Respuesta #4 en: 13 Mayo 2012, 04:57 »

Dale dale xd gracias, fijate si podes escribirme como funciona cada parte
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Traducir de C a ASM
Programación General
Søra 3 6,801 Último mensaje 6 Junio 2010, 05:10
por Og.
Traducir Code
Java
mapers 0 751 Último mensaje 9 Septiembre 2012, 19:33
por mapers
Traducir archivos exe y dll.
Ingeniería Inversa
amt1963 3 1,988 Último mensaje 13 Noviembre 2014, 23:01
por ivancea96
[Resuelto] Traducir pagina PHP « 1 2 »
PHP
exploiterstack 10 2,368 Último mensaje 15 Enero 2015, 14:11
por exploiterstack
Traducir de ensamblador a C
Ingeniería Inversa
adelaperez 8 5,466 Último mensaje 27 Febrero 2018, 01:20
por apuromafo CLS
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines