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:
como puedo hacer para recuperar la clave de la base de datos.
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,clavclave = '‚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=vtransWAIT windows clav
como puedo hacer para recuperar la clave de la base de datos.
Valora esta pregunta
0