Mensajes

Lo que quieres es que te genere el programa el crack no?
Sé que tengo un programa por ahí, aunque es mejor hacerlo uno mismo.. de todos modos echaré un vistazo...

PD. Es posible ver las diferencias de 2 archivos (yo lo he utilizado alguna vez para archivos de texto) desde Simbolo de sistema:
Ej. > FC C:\archivo1.txt C:\archivo2.txt

[bytes]

Lo que tienes que hacer es abrir el ejecutable con un programa que compare los valores hexadecimales de ambos. Yo utilizo uno muy interesante el Hex Comparison.
Luego para modificar esos bytes puedes utilizar un editor hexadecimal o como hago yo, crearte tú mismo el programa.

Si son muchos bytes los que tienes que modificar esto que te comento puede requerir mucho tiempo. Creo que tengo algún programa que creaba el crack, pero sé que no lo uso porque no me llegó a convencer, lo buscaré si no..

Sound Effects

Efectos de sonido

Siguiendo el ejemplo que has hecho tú, puedes hacer lo siguiente:

Código [Seleccionar] Expandir

Private Sub Command1_Click()

    Dim Archivo As String, Busca As String, TODO As String
    Dim NumArchivo As Integer, x As Long
   
    Archivo = "C:\archivo.txt"
    NumArchivo = FreeFile()
   
  Open Archivo For Input As #NumArchivo
    TODO = Input(LOF(1), 1)
       
    For x = 1 To Len(TODO)
        If Mid(TODO, x, 1) = "," Then TODO = Mid(TODO, 1, x - 1) & Mid(TODO, x + 1, Len(TODO) - x1)
    Next x
       
  Close #NumArchivo
   
  Open Archivo For Output As #NumArchivo
    Print #NumArchivo, TODO
  Close #NumArchivo
   
    Text1 = TODO
   
End Sub

Los problemas que puedes tener y que me han pasado a mi en algún programa es:
-que si pasas tu archivo.txt a un textbox tienes que tener en cuenta que el límite de un textbox son 64K.
-otra cosa que me ocurrió es que una persona me abrió  el .txt con el Microsoft Word y tras modificarlo lo guardó. No puedes imaginar la cantidad de código que añade este programa y que me falseaba lo que yo buscaba...

Que tengas suerte

Es sencillo, esto es un ejemplo:
imagina que quieres encontrar si la cadena "aa" se encuentra en text1:
dim cadena as string, x as integer
cadena = "aa"
For x=1 to len(text1)-len(cadena)+1
   if mid(text1,x,len(cadena)) = cadena then stop 'existe cadena
next x

[Open]

Puedes abrir el archivo en modo binario o aleatorio y comparar cuándo aparece la ",":
Open nombre_fichero For modo As #nFichero
Utiliza Freefile para obterner el siguiente número disponible.

Después se me ocurre que cuando encuentre el programa una "," que mueva todo el contenido del archivo una posición a la izquierda, a partir de la "," encontrada.

[00473CB0]

Lo he mirado muy por encima..

He investigado lo primero a ver si existe o de dónde procede el programa y parecer ser que debe ser el registro de un programa de ayuda para odontología. Mira: http://www.kishar.com/ hay que pulsar en aplicaciones.

Parece ser que la subrutina que comentas que empieza en 473C98 verifica cuando se pulsa o se introduce algún carácter en el tercer texto: que es Nº de verificación.

En esta subrutina hay un par de cosas interesantes:
00473CB0 CMP BYTE PTR DS:[ECX],0D
Está analizando si la tecla que has pulsado en el tercer texto es el INTRO --> 0D equivale a INTRO.

Si no has pulsado el intro, te manda a otra comparación:
00473CFF CMP BYTE PTR DS:[ECX],1B
Aquí está verificando si se ha pulsado la tecla <- de borrar. (1B)

Es decir, que para que compruebe que el serial es bueno tienes que introducirlo y pulsar INTRO.

Hay tienes dos subrutinas.. he seguida una de ellas y no me voy a complicar la vida..porque no me ha llevado a mucho..Échales un vistazo a ver si sacas algo en claro..
Es posible que tras pulsar intro en el 2º texto haga alguna codificación con el número que aparece en el 1º texto. Tendrías que buscar esa subrutina como en el texto3 que verifica la tecla pulsada...como el código es fácil que sea algo similar podrías buscar algo parecido.
Pienso que descubrir cómo codifica el serial puede ser bastante costoso... que haya suerte.

El 4º parece que en vez de una sonrisa tiene un aparato de dientes. Yo no le pondría linea horizontal..
a mi me parecen bastante simples...me recuerdan a los principios del messenger..

Por qué no utilizas un botón para comparar?
por ejemplo

Ok dSx, pero la forma es válida para obtener el valor hexadecimal,
sea short o no, aunque bien mencionas que el valor hexadecimal será diferente.