FoxPress – Junio 2000

Encriptación Leve

http://www.fpress.com/ (sacado del FoxBoard – autor anónimo)

En ocasiones nos interesa hacer una encriptación leve de una tabla para que no se pueda leer desde el propio FoxPro. Entiendo por encriptación leve, modificar algo de la cabecera del .DBf que impida que el Fox lo lea de forma natural.

Este código cambia a bajo nivel un elemento en la cabecera e impide en adelante que sea leido sino es cambiando previamente ese elemento.

*con tablas libres.

Close All
Use impre && si la abre
Brow

Close All
Protejer("impre.dbf",.T.) && proteje
Use Impre && Error: Not A table

Close All
Protejer("impre.dbf",.F.) && desproteje
Use impre && si la abre
Brow

Procedure Protejer
Parameters xDbf,Protejer
If Not File((xDbf))

Wait "No existe el archivo" Window
Return

EndI
If Protejer

d=Fopen((xDbf),2) && se abre el arch a bajo nivel
=Fwrite(d,chr(9)) && se cambia el caracter
=FClose(d) && se cierra

Else

d=Fopen((xDbf),2)
=Fwrite(d,chr(3))
=Fclose(d)

EndIf

FoxPress – Junio de 2000