Encriptacion de Bases de Datos desde xHarbour

User avatar
José Vicente Beltrán
Posts: 279
Joined: Mon Oct 10, 2005 8:55 am
Location: Algeciras, España
Contact:

ejemplos de encrypt() y decrypt()

Post by José Vicente Beltrán »

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

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

saludos
User avatar
José Luis Sánchez
Posts: 484
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España
Contact:

Post by José Luis Sánchez »

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,
User avatar
José Vicente Beltrán
Posts: 279
Joined: Mon Oct 10, 2005 8:55 am
Location: Algeciras, España
Contact:

Post by José Vicente Beltrán »

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. :shock:
sildata
Posts: 38
Joined: Thu May 11, 2006 7:41 pm

encriptacion de DBF

Post by sildata »

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
sildata
Posts: 38
Joined: Thu May 11, 2006 7:41 pm

encriptar DBf

Post by sildata »

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. :shock:
Serias tan amable de enviarme un ejemplo de tu solucion de encriptacion de las tablas DBF, anticipadamente gracias.
RODOLFO SILVA
sildata@cantv.net
User avatar
Manuel Valdenebro
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Post by Manuel Valdenebro »

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?
Un saludo

Manuel
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:

Re: ejemplos de encrypt() y decrypt()

Post by jose_murugosa »

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.........
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
Manuel Valdenebro
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Re: ejemplos de encrypt() y decrypt()

Post by Manuel Valdenebro »

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.
Un saludo

Manuel
sildata
Posts: 38
Joined: Thu May 11, 2006 7:41 pm

Re: Encriptacion de Bases de Datos desde xHarbour

Post by sildata »

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
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:

El tiro....

Post by jose_murugosa »

Manuel,

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

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 :D
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
José Luis Sánchez
Posts: 484
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España
Contact:

Post by José Luis Sánchez »

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,
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Post by Raymundo Islas M. »

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 :wink: , ademas el propio Jose Luis dice que funciona OK. :lol:

En fin, que cada quien que saque sus conclusiones.

Saludos y espero no causar incovenientes por postear esto.
FWH 10.6 + xHarbour + Borland 582
User avatar
Manuel Valdenebro
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Post by Manuel Valdenebro »

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 _ "caracteres".
Un saludo

Manuel
Post Reply