¿ Alguien sabe en qué nos puede concernir el RGPD ?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour OT. La que viene
Buenas,
por lo pronto, todas las bases de datos con datos de carácter personal deberían estar encriptadas, así como las comunicaciones también deberían ser encriptadas. Las copias de seguridad también deben ir encriptadas.
Algo muy importante que aparece es el derecho al olvido.
Tenemos 72 horas para comunicar una incidencia con datos de carácter personal, las multas son mayores. Hay que llevar un registro de todo los movimientos e incidencias con respecto al dato de carácter personal.
Recibe un cordial saludo,
Gracias Félix,
¿ Alguien podría probar este ejemplo de encriptacion dbf ?
A mi no me funciona con Harbour 3.2.0dev (r1704061005)
¿ Alguien podría probar este ejemplo de encriptacion dbf ?
A mi no me funciona con Harbour 3.2.0dev (r1704061005)
//-------------------------------------------------------------------------//
FUNCTION Main()
local aStruct := { ;
{ "Name", "C", 20, 0 }, ;
{ "Age", "N", 3, 0 }, ;
{ "Boy", "L", 1, 0 }, ;
{ "Birth", "D", 8, 0 } ;
}
request dbfcdx
rddsetdefault("DBFCDX")
SELECT 0
use dbcrypt
dbcrypt->( dbappend() )
dbcrypt->name := "Fred"
dbcrypt->age := 20
dbcrypt->boy := .t.
dbcrypt->birth := date() - (20 * 365)
/*
? "After create, ", dbcrypt->name, dbcrypt->age, dbcrypt->boy, dbcrypt->birth )
? "DBI_ENCRYPT - barneyrubble", dbcrypt->( dbinfo( DBI_ENCRYPT, "barneyrubble" ) ) )
? "DBI_ISENCRYPTED", dbcrypt->( dbinfo( DBI_ISENCRYPTED ) ) )
*/
CLOSE dbcrypt
RETURN NILSi me das tu cuenta de correo te puedo enviar unas presentaciones con algunos de los artículos de la GDPR.
Saludos
hmpaquito en hotmail punto com
Gracias 
Hola,
Creo que usando ADS puedes encriptar cualquier DBF incluyendo campos memo.
Saludos,
José Luis
Hola José Luis,
Pero me imagino que será usando la versión de pago de ADS, por lo cual en mi caso, hablamos de muchos €€€.
Parece ser que Harbour no lo tiene por cuestiones de compatibilidad de SIXCDX. Es decir, hay compatibilidad con SIXCDX ¿ quien lo usa ? pero en cambio no hay posibilidad de encriptar una dbf con memo, incluyendo la encriptacion del memo.
Yo esperaba que Harbour hubiera tenido esto resuelto. El asunto para los que usamos dbfs es muy grave.
Una pregunta, ¿ encripta ADS también el memo ?
Gracias.
Paco,
Tras revisar este post de Enrico:
https://www.mail-archive.com/xharbour-developers@lists.sourceforge.net/msg03329.html
parece que es aplicable a Harbour también
Puedo construir Harbour con esos cambios y los pruebas
Tras revisar este post de Enrico:
https://www.mail-archive.com/xharbour-developers@lists.sourceforge.net/msg03329.html
parece que es aplicable a Harbour también
Puedo construir Harbour con esos cambios y los pruebas
To All
I use these three functions to encrypt and de-encrypt data .. specifically sensitive fields like password, credit card numbers, etc. For years there has been talk of encrypting ( all ) Enterprise data as a last resort defense to protect personal data when our hapless Web site coders\engineers can't seem to write or plug even the most common penetration hacks.
Unfortunately, database encryption in the US seems to be stalled because all Enterprise Corporations and Government entities want to be able to use 'off the shelf' query tools to extract ( in-house ) ad-hoc information and reports. Encrypting RDMS data makes it impossible to use query tools because you have to de-encrypt the data first before you can make sense of the primary keys and data to join and create meaningful queries.
And .. if we create an encryption\de-encryption standard .. the 'bad guys' will just steal the algorithm and apply it to their stolen data and we are back to square one.
Here are the functions I use that I borrowed from one of Stephan Straley's ( public domain ) Clipper books many years ago:
Just yesterday there was an article in SlashDot.org .. that exposed 300,000 User's information from an Ancestry.com Data Leak:
Rick Lipkin
I use these three functions to encrypt and de-encrypt data .. specifically sensitive fields like password, credit card numbers, etc. For years there has been talk of encrypting ( all ) Enterprise data as a last resort defense to protect personal data when our hapless Web site coders\engineers can't seem to write or plug even the most common penetration hacks.
Unfortunately, database encryption in the US seems to be stalled because all Enterprise Corporations and Government entities want to be able to use 'off the shelf' query tools to extract ( in-house ) ad-hoc information and reports. Encrypting RDMS data makes it impossible to use query tools because you have to de-encrypt the data first before you can make sense of the primary keys and data to join and create meaningful queries.
And .. if we create an encryption\de-encryption standard .. the 'bad guys' will just steal the algorithm and apply it to their stolen data and we are back to square one.
Here are the functions I use that I borrowed from one of Stephan Straley's ( public domain ) Clipper books many years ago:
//------------------------
Func ENCRYPT( TO_DO )
LOCAL PADBACK := LEN(TO_DO), DONE := " ", QAZ
TO_DO := ALLTRIM(TO_DO)
FOR QAZ = LEN(TO_DO) TO 1 STEP -1
DONE := DONE + CHR(ASC(SUBSTR(TO_DO, QAZ, 1)) + 104)
NEXT
RETURN(FILL_OUT(DONE, PADBACK))
//--------------------
Func DENCRYPT( TO_DO )
LOCAL PADBACK := LEN(TO_DO), DONE := " ", QAZ
TO_DO := ALLTRIM(TO_DO)
FOR QAZ = LEN(TO_DO) TO 1 STEP -1
DONE := DONE + CHR(ASC(SUBSTR(TO_DO, QAZ, 1)) - 104)
NEXT
RETURN(FILL_OUT(DONE, PADBACK))
//----------------------
Func FILL_OUT( FILL_A, FILL_B )
IF PCOUNT() = 1
FILL_B := 80
ELSE
IF TYPE("FILL_B") = "C"
FILL_B := val(Fill_B) //VAL(B)
ENDIF
FILL_B := IIF(FILL_B <= 1, 80, FILL_B)
ENDIF
IF FILL_B <= LEN(FILL_A)
RETURN(FILL_A)
ENDIF
RETURN(FILL_A + SPACE(FILL_B - LEN(FILL_A)))Just yesterday there was an article in SlashDot.org .. that exposed 300,000 User's information from an Ancestry.com Data Leak:
Rick Lipkin