ingenieria inversa VFP

Buenas, no logro craquear un programa hecho en VFP, alguien me puede ayudar?

USE &filelic
r = RECCOUNT()
IF r>0
SET CENTURY ON
STORE serie TO seriecodificada
STORE fecha TO fecha_fin
TRY
STORE fechaexe TO fecha_exe
STORE horaexe TO hora_exe
CATCH
DO cambia
ENDTRY
serieguardada = invertir(disminuir(des_encripta(ALLTRIM(seriecodif icada))))
cunidad = SYS(5)+""
serieverificada = convertirasc(serie(cunidad))
IF ALLTRIM(serieguardada)==ALLTRIM(serieverificada)
fechaactual = pfechasistema
cfechavence = CTOD(SYS(10, VAL(fecha_fin)))
cdiasvence = cfechavence-fechaactual
IF cdiasvence<=2 .AND. cdiasvence>0
IF MESSAGEBOX('El Sistema Requiere de Soporte Tecnico'+CHR(13)+'Comuniquese con 'SERVICIO TECNICO')=6
IF clave()
cs = INPUTBOX('Ingrese El Codigo de Soporte')
USE &filelic
REPLACE fecha WITH cs
ENDIF
ENDIF
ENDIF
IF cfechavence>fechaactual
TRY
ADIR(a, 'invarsoft.exe')
cfechaexe = a(1, 3)
choraexe = a(1, 4)
IF EMPTY(fecha_exe) .OR. EMPTY(hora_exe)
REPLACE fechaexe WITH cfechaexe
REPLACE horaexe WITH choraexe
ENDIF
IF (fecha_exe<=cfechaexe .AND. hora_exe<choraexe)
REPLACE fechaexe WITH cfechaexe
REPLACE horaexe WITH choraexe
DO cambia
ENDIF
DO FORM frm_login
CATCH
DO FORM frm_login
ENDTRY
ELSE
IF filelic='Serie'
SET SAFETY OFF
USE &filelic EXCLUSIVE
ZAP
ENDIF
DO FORM frmcopia
READ EVENTS
QUIT
ENDIF
ELSE
DO FORM frmcopia
READ EVENTS
QUIT
ENDIF
ELSE
DO FORM frmcopia
READ EVENTS
QUIT
ENDIF
CATCH
MESSAGEBOX('El Software No Esta Correctamente Instalado'+CHR(13)+'Comuniquese Con El Administrador del Sistema', 016, 'ATENCION')
CLOSE ALL
QUIT
ENDTRY
READ EVENTS
CLEAR EVENTS
ENDPROC


De antemano, muchas gracias, saludos.