@||MadAntrax||: Hace un tiempo hice un crackme que, entre otras cosas, tenia comprobacion del codigo de un evento.

El post es este: http://foro.elhacker.net/empty-t356892.0.html

Si lo deseas, esta noche subo el codigo fuente del crackme, pero lo recomendable aqui no es ver el source del crackme, sino el tutorial de la solucion que encontro Thunder: http://www.mediafire.com/file/spob6r4g8y92sel/Crackme4.By.MCKSysArgentina_Keygen.By.Thunder.rar

Aun hoy dia me sorprende el nivel de reversing aplicado...

Saludos!

Bueno, estaba buscando los "hacks" de Karcrack y me doy cuenta que es él quien estaba respondiendo asi que nada que hacer por estos lados... 

PD @||MadAntrax||: Seguro lo sabes pero te recuerdo que esa "API" lee 4 bytes (1 DWORD).

Saludos!

Si no entendí mal, el EXE se comprobaría a si mismo, por lo que ReadProcessMemory no seria necesario.

Bastaria con un "GetMem" de la direccion en concreto y listo...

O bien, entendí mal... 

Sin ánimos de ofender, tengo pregunta: Cuál es el objetivo de parchear la IAT del proceso que estas corriendo?

En todo caso, no sería mejor parchear la API?

Digo, porque por ej.. una DLL cargada por el ejecutable no va a usar la IAT del EXE, va a usar su propia IAT.

Por esto, no le veo la utilidad al parcheo de la IAT.

Podrías explicar la finalidad del parche?

Y cuál es ese país? 

PS: Bienvenido al foro. 

Si tienes una imagen virtualizada (Win98? XP?) en un ESX y le agregas un puerto LPT: donde conectas la llave? Al LPT de la maquina que tiene el ESX? La VM ve ese puerto? O ve el puerto virtual?

No entiendo la configuracion que estas planteando...

En el Explorador de Windows, Ve al menu Ayuda-Acerca de y la ventana dirá que Service Pack (SP) tiene instalado.

Te paso 2 funciones que emplean Cesar:

Function Cifrar (cad as string) as string
;Encriptacion HAL (HAL -> IBM: Cesar + 1)
Dim i as long
dim ret as string
 
ret = ""
for i = 1 to len(cad)
    ret = ret + chr(asc(mid(cad,i,1)) + 1)
next i
Cifrar = ret
end function
 
Function DESCifrar (cad as string) as string
;DESEncriptacion HAL (IBM -> HAL: Cesar - 1)
Dim i as long
dim ret as string
 
ret = ""
for i = 1 to len(cad)
    ret = ret + chr(asc(mid(cad,i,1)) - 1)
next i
DESCifrar = ret
end function
 

No tengo VB aca, pero deberian funcionar bien. Sólo es para que veas algo básico.

Saludos!

Bueno, dennis094 ya te ha respondido a casi todo excepto a lo ultimo: Puedes asignarle valores a los items 101, 102, etc. porque Pascal no estan comprobando la direccion de memoria donde escribes. No recuerdo bien ahora, pero revisa las opciones del IDE, creo que habia algo para activar estas comprobaciones.

Saludos!

EDIT: Si miras aqui verás algo parecido a tu problema y la explicación que le dieron en ese momento: http://www.delphigroups.info/2/c7/696.html

El instalador es lo necesario en estos casos, a menos que estes seguro de que todo lo necesario para que el programa arranque este en la carpeta de instalacion.