FoxPro/Visual FoxPro - Ayuda con una función de foxpro 9

 
Vista:
Imágen de perfil de Walter
Val: 2
Ha aumentado su posición en 17 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Ayuda con una función de foxpro 9

Publicado por Walter (1 intervención) el 17/11/2019 03:40:16
Hola a todos espero me puedan ayudar a resolver un problema que tengo.
resulta que tengo un programa desarrollado en foxpro 9, y necesito ingresar pero pide usuario y contraseña pero no tengo la clave de acceso, he visto en uno de sus códigos que la contraseña la encripta con esta función:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
public usua,clav
clave = '‚D:ApRK '
store space(7) to vtrans
V1 = substr(clave,1,1)
V2 = substr(clave,2,1)
V3 = substr(clave,3,1)
V4 = substr(clave,4,1)
V5 = substr(clave,5,1)
V6 = substr(clave,6,1)
V7 = substr(clave,7,1)
IF V6 = SPACE(1)
*    V6 = CHR(ASC(V1) + 10)
    V6 = SPACE(1)
ENDIF
IF V7 = SPACE(1)
*    V7=CHR(ASC(V2) + 15)
    V7 = SPACE(1)
ENDIF
V1 = CHR(ASC(V1) - 80)
V2 = CHR(ASC(V2) - 20)
V3 = CHR(ASC(V3) - 10)
V4 = CHR(ASC(V4) - 13)
V5 = CHR(ASC(V5) - 55)
V6 = CHR(ASC(V6) - 32)
V7 = CHR(ASC(V7) - 12)
VTRANS = V1+V2+V3+V4+V5+V6+V7
clav=vtrans
WAIT windows clav

como puedo hacer para recuperar la clave de la base de datos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder