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

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Ingeniería Inversa (Moderadores: karmany, .:UND3R:., MCKSys Argentina)
| | |-+  Duda sobre valores de la memoria!!!
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Duda sobre valores de la memoria!!!  (Leído 7,934 veces)
Dari0s

Desconectado Desconectado

Mensajes: 8


Ver Perfil
Duda sobre el post!!!
« Respuesta #10 en: 19 Noviembre 2008, 11:37 am »

Hola.. soy nuevo en el foro,
acabo de ver este post y al parecer veo la solucion a mi problema jeje..
pero en el codigo hay un problema creo yo.. esque tambien soy novato

aver si no me enrredo mucho...

Todo el codigo va en el codigo del la aplicacion?

O algo de el codigo va en un modulo de clase o modulo normal?

Código
  1. Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
  2. Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
  3. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  4. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  5.  
  6. Private Function WriteMemory(ByVal Offset As Long, ByVal ProcessID As Long, ByVal Value As Long, ByVal NumBytes As Long) As Boolean
  7.  
  8. Const PROCESS_VM_OPERATION As Long = &H8
  9. Const PROCESS_VM_WRITE As Long = &H20
  10.  
  11. Dim ProcessHandle As Long
  12. ProcessHandle = OpenProcess(PROCESS_VM_WRITE Or PROCESS_VM_OPERATION, False, ProcessID)
  13.  
  14. If ProcessHandle = 0 Then
  15.    MsgBox "No se encuentra el proceso", vbCritical, "Error de Lectura"
  16.    Exit Function
  17. End If
  18.  
  19. Dim exito As Boolean
  20. exito = WriteProcessMemory(ProcessHandle, Offset, Value, NumBytes, 0)
  21.  
  22. CloseHandle (ProcessHandle)
  23.  
  24. WriteMemory = exito
  25.  
  26. End Function
  27.  
  28. Private Sub Form_Load()
  29.  
  30. Dim MiArray(4) As Byte
  31. MiArray(0) = &H11
  32. MiArray(1) = &H22
  33. MiArray(2) = &H33
  34. MiArray(3) = &H44
  35. MiArray(4) = &H55
  36.  
  37. Dim exito As Boolean
  38. exito = WriteMemory(&H400000, GetCurrentProcessId(), VarPtr(MiArray(0)), 5)
  39.  
  40. End Sub

lo puse todo en el code del programa pero no se donde poner el nombre del proceso a editar la memoria.. me podrian decir donde va?
porfavor y gracias.. ojala me sirva... si tengo otra duda se las escribo bai..  :)
« Última modificación: 19 Noviembre 2008, 19:11 pm por Dari0s » En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Duda sobre memoria Ram « 1 2 3 »
Hardware
~ Ghost_Networks ~ 20 7,520 Último mensaje 25 Diciembre 2010, 11:13 am
por VILLANO
Duda sobre un metodo que devuelva tres valores random « 1 2 »
Java
Dyabel03 12 7,456 Último mensaje 13 Marzo 2011, 07:53 am
por .mokk.
Tomar valores hex de memoria con OllyScript??
Ingeniería Inversa
.:UND3R:. 4 2,265 Último mensaje 15 Noviembre 2011, 19:06 pm
por MCKSys Argentina
Duda, Valores usando EQU
ASM
x64core 2 1,979 Último mensaje 27 Noviembre 2011, 18:01 pm
por x64core
Duda sobre C
Programación C/C++
JPS 4 2,018 Último mensaje 8 Febrero 2018, 15:59 pm
por dijsktra
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines