FoxPro/Visual FoxPro - Ayuda sobre un codigo Visual fox pro para camb

SET CENTURY ON

USE "A:\PRO.EXE"

fecha = Date

DIAS = 0

DO SEPARA WITH S

f1 = fecha

f2 = fecha + DIAS

fec_act = Date

if fec_act>=f1 .and. fec_act<=f2 then

        =messagebox("OK Continua la Instalacion")

Else

        =messagebox("Solicite un Numero de Serie de PRO_SYSTEM")

End If

USE

Return

******** PROCEDURE SEPARA

******** ----------------

******** Antes de LLamar a la funcion cree variables FECHA(TIPO DATE) Y DIAS(TIPO NUMERICO)

******** Al Retornar de esta funcion estas variables estarán rellenadas con los valores leidos

******** de la variable encriptada CADENA.

Procedure SEPARA

PARAMETER CADENA

ANIO1 = Right(CADENA, 2)

ANIO2 = Left(CADENA, 2)

ANIO = ANIO1 + ANIO2

MES = substr(CADENA, 3, 2)

DIA = substr(CADENA, 7, 2)

NDIA = substr(CADENA, 5, 2)

fecha = ctod(DIA + "/" + MES + "/" + ANIO)

DIAS = Val(NDIA)

Return

****** Obtiene un numero de serie autogenerado a partir de el numero de dias transcurridos

****** desde el 1 de Enero de 1900. Convierto este numero a cadena y a cada caracter le sumo 17

Function getserie(fecha)

n1 = fecha - ctod("01/01/1900")

c1 = allt(Str(n1))

L = Len(c1)

d1 = ""

For x = 1 To L

        d1 = d1 + Chr(Asc(substr(c1, x, 1)) + 17)

Next

Print d1

return d1

Function valPASS(SERIE)

        do form inputbox with "Introduzca clave de Instalacion : ","Nro Serie :"+ serie to nd

        If (Len(nd) <> 5) Then

                return .f.

        End If

        v = Val(nd)

        v1 = v / 2

        sv = allt(Str(v1))

        l1 = Chr(Val(substr(sv, 1, 2)))

        l2 = Chr(Val(substr(sv, 3, 2)))

        if l1=left(serie,1) .and. l2=right(serie,1) then

                return .t.

        Else

                return .f.

return PAS