| Pregunta: | 2536 - ENCRIPTAR UNA TABLA |
| Autor: | José Daniel Ayrám Quiroga |
| Saludos!!, mi pregunta es la siguiente: ¿como puedo encriptar una tabla dbf o protegerla para que nadie la pueda acceder? | |
| Respuesta: | Jose Jaimes |
| mira te ayudo con esto PUBLIC IT,UU,RES RES="" IT=THISFORM.Text2.VALUE LON=LEN(ALLTRIM(IT)) FOR U=1 TO LON CAD=SUBSTR(IT,U,1) QQ=ASC(CAD) UU=(CHR(QQ+1)) RES=RES+UU NEXT thisform.txtacceso.value=res WAIT WINDOWS "" +RES NOWAIT espero te sirva | |
| Respuesta: | Giuliano Gonzales Zeballos |
| En clipper existia una función que encriptaba un dbf, colocandole tambien un password, y solo con el password podias desencriptar la tabla, en Foxpro no existe tal función pero creo que puedes desarrollarla sabiendo basicamente como funciona esto. Lo que hacia la función es trabajar con los primeros bytes del archivo (cabecera del dbf), leia los primeros bytes y segun el password que ingresabas hacia un algoritmo de conversión de dichos bytes, obviamente para poder desencriptar esos bytes necesitabas el password ya que de esa cadena dependia el algoritmo, pero si no lo quieres hacer tan sofisticado, solo puedes cambiar ciertos bytes iniciales a unos que tu manejes, eso si cada vez que requieras abrir la tabla tienes que desencriptar la cabecera del dbf. Claro que con esto corres el riesgo de perder informacion ya que si realmente no restauras la cabecera como debe de ser no podras abrir el dbf. espero te aclare en algo la idea de querer colocar algo de seguridad en los dbf. | |