Para los que aún sigan interesados en el ejemplo de uso lo teneis en

http://hyperupload.com/download/02c5a3e ... T.txt.html

saludos

Hola:
He estado viendo el código que mandas y la idea es buena, pero lo que haces es una parte de mi problema. A mi me interesa tener la dbf encriptada al cerrar, y desencriptar al abrir pero dando la posibilidad de encriptar sin salir del programa en un momento dado. De todos modos gracias por el código y a ver si consigo sacarle punta al asunto.

Saludos,

José Luis,
En el código que te mando la DBF esta encriptada SIEMPRE, nunca se desencripta, tan solo al leer se lee desencriptada en memoria, los datos de la DBF jamas se desencriptan, así que si la aplicación se rompe por cualquier causa, los datos nunca pueden quedar abiertos.

Supongo que es a eso a lo que te refieres.

saludos.

José Luis Sánchez wrote:Jose Vicente:
A mi me gustaría mucho ver un ejemplo de la enriptación tal como la haces tu. Si me la puedes enviar por e-mail te lo agradecezco mucho.

Saludos,

Si te llego respuesta serias tan amable de reenviarmela a mi tambien pues estoy muy interesado.
Gracias
RODOLFO SILVA
sildata@cantv.net

José Vicente Beltrán wrote:José Luis,
En el código que te mando la DBF esta encriptada SIEMPRE, nunca se desencripta, tan solo al leer se lee desencriptada en memoria, los datos de la DBF jamas se desencriptan, así que si la aplicación se rompe por cualquier causa, los datos nunca pueden quedar abiertos.

Supongo que es a eso a lo que te refieres.

saludos.

Serias tan amable de enviarme un ejemplo de tu solucion de encriptacion de las tablas DBF, anticipadamente gracias.
RODOLFO SILVA
sildata@cantv.net

José Luis Sánchez wrote:Hola:
He estado viendo el código que mandas y la idea es buena, pero lo que haces es una parte de mi problema.

Jose Luis,

¿Para probar la encriptación de Six xHarbour que libreria se necesita y donde puede conseguirse?

José Vicente Beltrán wrote:Para los que aún sigan interesados en el ejemplo de uso lo teneis en

http://hyperupload.com/download/02c5a3e ... T.txt.html

saludos

Por favor caballeros, en vez de pedir lean los mensajes.........

jose_murugosa wrote:Por favor caballeros, en vez de pedir lean los mensajes.........

Jose,

Si el tiro va por mi, comentarte que si lees bien mi mensaje, lo que le estoy pidiendo a Jose Luis es la libreria SIX de xHarbour, que es un RDD nativo del propio xHarbour, realizado por Przemyslaw Czerpak y que nada tiene que ver con el ejemplo de Jose Vicente.

Amigo Raymundo:
Si lograste conseguir respuesta a tu problema de encriptacion de Tablas
serias tan amable de hacermelas saber, pues de todas las que he leido
en el foro, pienso que la mas acertada es la de ADS, aunque no se como utilizarlas o las que vienen con XHARBOUR, pero tampoco se como utilizarlas, pues solo conozco lo que he leido de ellas.

RODOLFO SILVA

sildata@cantv.net

Manuel,

Por quien precisamente NO IBA era por tí , pero además, no era un tiro, no ofendo a mis compañeros ya que sus aportes al foro me ayudan permanentemente.

Intentaba resaltar el hecho que ya había un ejemplo para descargar para quienes nuevamente lo solicitaban (no para six), y no con el fin de ofender.

Me disculpo si la forma en que lo expresé no fué la más feliz.

Un abrazo

Manuel:
Para usar la encriptacion de SIX no hace falta más que enlazar hbsix.lib con tu programa. Mirate el ejemplo que puso Przemek en el foro de xHarbour que funciona perfecto.

Saludos,

Jose Luis,

Serías tan amable de copiar aqui el ejemplo, ó alojarlo en www.hyperupload.com (si es grande) y copiar aqui el link de descarga ? gracias

Hola a todos

Este es el ejemplo que habla Jose Luis, que el mismo Przemyslaw Czerpak le posteo en las news.

include "dbinfo.ch"

proc main()
field F1, F2
local aStru := {{"F1","C",10,0},{"F2","C",10,0}}, nRow
dbCreate( "tst", aStru )
use tst

/ set encryption key for new and modified records /
dbInfo( DBI_PASSWORD, "mypasswd" )

/ add few records /
dbAppend()
F1:="Hello"; F2:="World"
dbAppend()
F1:="Can you"; F2:="see it?"
dbcommit()

? "Let's see the table"
wait
nRow:=row(); dbgotop(); browse(); setpos(nRow+1,0)

? "Clear encryption key and see the table again"
wait
dbInfo( DBI_PASSWORD, "" )
nRow:=row(); dbgotop(); browse(); setpos(nRow+1,0)

? "Restore valid encryption key then"
? "copy table to the new unencrypted one and browse it"
wait

dbInfo( DBI_PASSWORD, "mypasswd" )
copy to tst2
use tst2 new
nRow:=row(); dbgotop(); browse(); setpos(nRow+1,0)
close all

? "Create new table then set encryption key for it and"
? "append records from other unencrypted table"
Wait

dbCreate( "tst3", aStru )
use tst3
dbInfo( DBI_PASSWORD, "mypasswd" )
append from tst2
nRow:=row(); dbgotop(); browse(); setpos(nRow+1,0)

? "That's all folks "
Wait

return

Lo acabo de bajar y empezare mis pruebas, pero si viene del mismisimo Przemek, creo que hay garantia , ademas el propio Jose Luis dice que funciona OK.

En fin, que cada quien que saque sus conclusiones.

Saludos y espero no causar incovenientes por postear esto.

José Luis Sánchez wrote:Manuel:
Para usar la encriptacion de SIX no hace falta más que enlazar hbsix.lib con tu programa.

Jose Luis,

Muchas gracias por tu información.

He estado probando el ejemplo y por lo que veo, estamos en las mismas. Solo encripta los campos "caracteres".