FoxPro/Visual FoxPro - Problema con claves

Hola a todos y gracias por su ayuda
Tengo una rutina para encriptar la clave de usuario, es esta:

y la clave encriptada es 7WUUUYUKOX7W7OEFJK9M

Necesito ayuda para revertir la clave.

Colega.

Su código es muy simple para que cualquiera, con un poquito de tiempo, pueda revertir cualquier clave que se guarde con esta modalidad.

La cosa es que ya existen librerías muy completas que nos permiten encriptar claves. La idea de una clave es mantenerla en secreto y bien protegida, por eso normalmene como programador no me gustan las rutinas de "desencripten" claves. Lo que hago es un programa para modificar la clave y listo y que sólo el administrador del sistema tenga acceso a ello.

En mi caso utilizo la clase Vernam (si no la tiene con gusto se la paso por correo) y su uso es tan simple como declararla al inicio, y hacer dos funciones muy simples:

SET CLASSLIB TO ubicación_de_la_clase)vernam.vcx

Para codificar una clave:

FUNCTION Codifica(xValor) &&xValor es el valor de lo digitado como clave de forma ordinaria
obj_enc=NEWOBJECT("vernam.vernam")

RETURN obj_enc.encriptarlibreta(xValor,Enc_Llave)

Y si lo desea decodificar:

FUNCTION vDeCodifica(xValor) &&xValor aquí es la cadena codificada utilizando la clase Vernam
obj_enc=NEWOBJECT("vernam.vernam")

RETURN obj_enc.desencriptarlibreta(xValor,Enc_Llave)

La clase Vernam lo que requiere es un valor que sirva de clave. Será el parámetro que llamamos en las funciones "Enc_llave" (una secuencia de caracteres a discresión). En ambas funciones debe ser la misma.

Con esto, tenés una clave robusta guardada en las bases de datos que virtualmente nadie podrá decifrar (dependiendo de la complejidad de la variable Enc_Llave que usted utilice)

Saludos

yo no me preocuparia por revertir la clave ,
siempre guardo la clave encriprada y al buscarla simplemente paso la clave encriptada a la rutina de busqueda

un ejemplo
Locate For Alltrim(Codigo) == Alltrim(Encriptar(clave de uruario))

asi no me preocupo cual es la clave que el usuario digito no mucho menos de revertir el proceso

Gracias por la respuesta Jose,
implemente el codigo en otro programa que nos pidieron en clase y hasta ahora todo va bien.
El dilema es que el codigo por el cual solicite ayuda es parte de una tarea pendiente.
Nuevamente gracias por tu ayuda