| Pregunta: | 3295 - T.S.U. EN INFORMATICA |
| Autor: | Richard A. Vielma R. |
| Como puedo encriptar las cabeceras de una base de dato, para que no pueda ser leida por ningun usuario, desde afuera del programa con un manejador de base de dato ejm. (dbu.exe), Si no con la herramienta que este diseñada previamente para este fin, o desde adentre de la aplicación. | |
| Respuesta: | Luis Torres |
| Alguna vez tuve el mismo problema, lo solucioné con la funciones de bajo nivel. Al entrar y al salir del programa coloque la rutina y.... ME FUNCIONO. Aquí te dejo el código. ante cualquier duda escríbeme. *--------------------------------- dbcloseall() mano:=fopen(´archivo.dbf´, 2) fseek(mano, 0) mibyte:=freadstr(mano,1) do case case mibyte==chr(3) byte:=1 cambia() case mibyte==´1´ byte:=chr(3) cambia() case mibyte==chr(131) byte:=´2´ cambia() case mibyte==´2´ byte:=chr(131) cambia() endcase procedure cambia fseek(mano,0) fwrite(mano, byte) fclose(mano) return Atte. | |