| Pregunta: | 40285 - ENCRIPTAR BASE DE DATOS |
| Autor: | Francis Diaz |
| Hola a todos, necesito saber como generar una BD. encriptada y desencriptar en visual foxpro. Gracias. | |
| Respuesta: | Jose Jaimes |
| hey primero revisa bien atras en las preguntas contestadas ya que esta la he contestado como 4 veces de todas maneras te envio una manera de encriptar
Parameters nombre NuevaCadena = "" &&Variable donde se almacenará la cadena Encriptada use c:\tempo\Clave.dbf order cClave Contador = len(alltrim(nombre)) &&Variable que contendrá la longitud de la cadena normal for i = 1 to Contador cChar = substr(alltrim(nombre),i,1) &&substracción caracter a caracter del registro cChar = asc(cChar) &&Devuelve el codigo ansi del caracter cRango = 240 - (cChar + i) &&Se realiza la encriptación NuevaCadena = NuevaCadena + chr(cRango) &&Se almacena caracter a caracter la cadena encriptada endfor seek(alltrim(NuevaCadena)) if found() wait window "El Registro ya se encuentra....." else append blank replace nombre with alltrim(NuevaCadena)&&Reemplaza la clave con la clave ya encriptada wait window "Registro almacenado" endif | |
| Respuesta: | Fernando Rodelo |
| Diseña tu propio algortimo, y luego podrias esconderlo en una de las propiedades de la base de datos.
para recuperarlo puedes usar BDGETPROP(), puede ser una solucion rapida y luego que nadie conocer tu algoritmo puedes controlar el ingreso a la base de datos. espero te sirva de algo. | |