Hola a todos y gracias por su ayuda
Tengo una rutina para encriptar la clave de usuario, es esta:
PARAMETER rclave
PRIVATE max_len_clave
max_len_clave = 20
cod1 = "BDA01EFJ78GHL6MCNUOPRXYZ23STVW45IK9"
cod2 = "EFJK9MCNUOPZ278GDAHL601RXY45IB3STVW"
inicla = rclave
lenrclave = LEN(rclave)
STORE '' TO nclave
FOR x = 1 TO lenrclave
nclave = nclave+ALLTRIM(STR(ASC(SUBSTR(rclave, x, 1))))
ENDFOR
lennclave = LEN(ALLTRIM(nclave))
IF lennclave<max_len_clave
nclave = nclave+LEFT(cod1, max_len_clave-lennclave)
ENDIF
pssw = CHRTRAN(nclave, cod1, cod2)
RETURN pssw
y la clave encriptada es 7WUUUYUKOX7W7OEFJK9M
Necesito ayuda para revertir la clave.
Gracias
