Hola amigos del foro:
Deseo una opinion de ustedes con relacion a lo siguiente:
Voy a distribuir un software que estara contenido en una memoria USB y me interesa que la informacion de las bases de datos este protejida.
Para despistar un poco he cambiado la extension de los archivos de DBF a otra cosa pero alguien con un poco de tiempo podria descubrirlo y abrir los arhivos facilmente.
He utilizado la funcion ENCRYPT() para encriptar algunos datos relevantes pero no desearia aplicarlo a todos los archivos ya que al momento de efectuar un mantenimiento de la informacion se tornaria muy tedioso.
La pregunta es que opinan sobre la funcion que les adjunto que permite asignarle una proteccion contra apertura a la base de datos ? Mi temor es que algo suceda y no pueda abrir el archivo protejido.
Algun comentario ?
Gracias
FUNCTION PROTEJE( nAction, cFile )
local nHandle := 0
local cBuffer := space( 32 )
DEFAULT nAction := 1
nHandle := FOpen( cFile, FO_READWRITE + FO_SHARED )
if nHandle != -1
if FRead( nHandle, @cBuffer, 32 ) == 32
if nAction == 0 // Proteger
if SubStr( cBuffer, 1, 1 ) <> Chr( 26 )
cBuffer := Chr( 26 ) + SubStr( cBuffer, 1, 31 )
endif
else // Desproteger
if SubStr( cBuffer, 1, 1 ) == Chr( 26 )
cBuffer := SubStr( cBuffer, 2, 31 ) + Chr( 0 )
endif
endif
FSeek( nHandle, 0 )
FWrite( nHandle, cBuffer, 32 )
endif
FClose( nHandle )
endif
return( FError() )
