Ayuda problema fecha de caducidad.
Publicado por Emilio Perez (1 intervención) el 08/01/2013 14:55:01
Saludos a todos, soy nuevo en este foro.
Me ha surgido un problema con una aplicación que desarrollé en Visual Basic hace 10 años.
Dicha aplicación tenía unas lineas de código para que dejase de funcionar el "01/01/2013".
Ahora la uso para el trabajo, pero ya no tengo el código fuente, solamente el .exe.
Me ha dejado de funcionar este 1 de enero y quisiera saber como puedo arreglar esto desde ensamblador.
El codigo en VB es:
Private Sub MDIForm_Activate()
Call FechaLimite
End Sub
Sub FechaLimite()
If (FNDIES(Date)) >= 41275 Then Unload Me
End Sub
FNDIES ES UNA FUNCION QUE SE LE PASA UNA FECHA
Y DEVUELVE EL NUMERO DE DIAS PASADOS
DESDE EL UNO DE ENERO DEL 1900
Lo he intentado con el editor hexadecimal de HACKMAN, pero soy nuevo en esto y no se que buscar.
Si alguien me hechara una mano le estaría eternamente agradecido.
Me ha surgido un problema con una aplicación que desarrollé en Visual Basic hace 10 años.
Dicha aplicación tenía unas lineas de código para que dejase de funcionar el "01/01/2013".
Ahora la uso para el trabajo, pero ya no tengo el código fuente, solamente el .exe.
Me ha dejado de funcionar este 1 de enero y quisiera saber como puedo arreglar esto desde ensamblador.
El codigo en VB es:
Private Sub MDIForm_Activate()
Call FechaLimite
End Sub
Sub FechaLimite()
If (FNDIES(Date)) >= 41275 Then Unload Me
End Sub
FNDIES ES UNA FUNCION QUE SE LE PASA UNA FECHA
Y DEVUELVE EL NUMERO DE DIAS PASADOS
DESDE EL UNO DE ENERO DEL 1900
Lo he intentado con el editor hexadecimal de HACKMAN, pero soy nuevo en esto y no se que buscar.
Si alguien me hechara una mano le estaría eternamente agradecido.
Valora esta pregunta
0