hola Graphixx nose quien te insulto pero muncha gente de aqui le tiene respeto a alguien que tiene mas de 1000 mensajes jajajajjajjajajaja eso es de risa y de tontos para mi (aclaro no te estoy ofendiendo ati).

Y te preguntaras por que bueno.
En el sub-foro de ing.inversa hay un usuario llamado peterpunk y no tiene 1000 mensajes a lo mejor no llega a 500 pero te cuento este cuate es una FIERA una BARREDORA en todo el sentido de la palabra debora cualquier proteccion que le pongas en frente y este para mi si es de respeto y creo que si el me insulta creo que si me boy del foro.
Y con respeto a tu caso y estoba para todos en general no por que tengan 1000000 de mensajes llason hacker o gente de respeto, quitense esa tontera de la cabeza pero en fin.
Y si desides irte hay tu sabes pero a la persona que le gusta el hacking nunca lo deja en mi opinion todo el tiempo estara curiosiando.

Salu2 Flamer

Hola amigos esto es una duda que seme viene a la cabeza que si se podra vivir de las paginas como: fanporfan,paid2youtube,sumafan,fanslave,pisaygana y otras mas.

Eso es la duda por que para crear un video en youtube y que tenga fama esta cañon o crearte un software tambien esta difisil.

Bueno saludos flame

hola dimitrix e estado viendo el hilo primero en hacking avanzado y ahora aqui y nadie lo esta intentado? es mi pregunta, nadie te a pedido la ip...
Bueno yo tengo conexion restringida a internet no es como la de ustedes...pero dame la ip aver que puedo hacer de perdis escanear los puertos

Saludos Flamer y no hay juaker aqui

Hola amigo navegando en internet me encontre con esta pagina.

www.emaillookup128.com/

no la e revisado toda pero tienen una opcion de buscar el correo de x persona y por una cantidad creo que tedan mas datos de la persona del correo.

saludos Flamer y diganme si me equivoco ya que el ingles no es lo mio

Hola fly si...... FindWindow entra al if si esta en ejecucion el crackme y GetWindowThreadProcessId si me de vuelbe el PID ya lo verifique en el administrador de tareas y OpenPrecess me de vuelbe un numero y no cero como antes o me falta algo?

Lo del olly lo boy a intentar.... luego te digo

---------------------Edito--------------
ya lee solo faltaba compilarlo y con el olly da igual que el vb solo 0 eso pienso es por que estaba siendo depurado... problema ahora es que no son los valores que esperaba

saludos Flamer

Hola asesino las apis todo el tiempo se declaran en privado si no te genera un error el cual orita no me acuerdo y no estamos  para ablar de eso.
Y con la api GetWindowTheadProcessId no estoy tratando de ablarle a ningun string si no al id del proceso que es un numero y por otro lado lo del label es un objeto que cierra el programa y como todos los objetos por default van en privado

Saludos Flamer

Si te refieres poner un punto de interrupcion y presionar F8 en vb ya lo hice y la variable valor no pesca ningun valor solo 0

saludos Flamer

Hola amigos otra ves vengo con la duda que abrí en el sub-foro de ingeniería inversa

http://foro.elhacker.net/ingenieria_inversa/como_leer_posicion_de_memoria_con_vb6-t415165.0.html

Pero ahora con el código que tengo en vb6 es el siguiente:

Este es el form:

Option Explicit
Private Sub Form_Load()
lbl_Nombre.Caption = Environ("ComputerName")
If AbrirProceso Then
   lbl_Password.Caption = Leer(&H14FC80)
End If
End Sub
Private Sub Label1_Click()
End
End Sub
 

Este es el modulo:

Option Explicit
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
 
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private P_HANDLE As Long
Private P_PID As Long
 
Public Function AbrirProceso() As Boolean
If FindWindow(vbNullString, "CrackShit") Then
   GetWindowThreadProcessId FindWindow(vbNullString, "CrackShit"), P_PID
   P_HANDLE = OpenProcess(PROCESS_ALL_ACCESS, False, P_PID)
End If
If P_PID = 0 Then
   MsgBox "El Crackme CrackShit No Esta en Ejecucion...", vbCritical, "Error De Ejecucion"
   AbrirProceso = False
   Exit Function
End If
If P_HANDLE = 0 Then
   MsgBox "El KeyGen No Pudo Abrir El Proceso CrackShit...", vbCritical, "Error Al Abrir El Proceso"
   AbrirProceso = False
   Exit Function
End If
AbrirProceso = True
End Function
Public Function Leer(Address As Long) As Byte
Dim Valor As Byte
Dim i As Long
For i = 0 To 12
  ReadProcessMemory P_HANDLE, Address + i, Valor, 1, 0&
  MsgBox Valor
Next i
Leer = Valor
End Function
 

Espero me ayuden ya que no lee nada

Nota: lo de el msgbox dentro del for son pruebas que asía yo para ver si leía algo y lo de retornar un byte también son pruebas con eso no hay problema eso déjenlo así si quieren yo después lo arreglo ya que me digan como a serle para leer

Saludos Flamer

Hola tinco la verdad el keygen lo quiero hacer en vb6 y ya estuve investigando la api ReadProcessMemory pero no entiendo nada.
Ejemplo estoy en el celular e:
pordon por el ejemplo pero alguien me podria explicar si estoy bien y que valor tiene que ir en la ultima opcion o mas bien si alguien me envia un ejemplo descargable en un rar y analisarlo mejor.
A y yase que tengo que usar la api OpenProcess la cual meda cero y lo aguardo en idproceso.

Saludos Flamer

Hola sasske creo que el programa toma su propio tiempo y por otro lado si se cierra deberas tracear un poco y buscar el evento donde ase dicha accion y parchar.
Para enpesar se que eres nobato igual que yo primero fijate si no esta empacado para ver si lo puedes tracear y si no esta empacado busca el evento que te digo enpiesa por la apis

Saludos Flamer y si esta empacado  que mal suerte