OT. La que viene

[hmpaquito]

¿ Alguien sabe en qué nos puede concernir el RGPD ?

http://www.agpd.es/portalwebAGPD/temas/ ... -idphp.php

[Baxajaun]

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,

[hmpaquito]

Gracias Félix,

¿ Alguien podría probar este ejemplo de encriptacion dbf ?
A mi no me funciona con Harbour 3.2.0dev (r1704061005)

Code: Select all  Expand view  RUN

//-------------------------------------------------------------------------//
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 NIL
 

[Baxajaun]

Si me das tu cuenta de correo te puedo enviar unas presentaciones con algunos de los artículos de la GDPR.

Saludos

[hmpaquito]

hmpaquito en hotmail punto com

Gracias

[José Luis Sánchez]

Hola,
Creo que usando ADS puedes encriptar cualquier DBF incluyendo campos memo.

Saludos,
José Luis

[hmpaquito]

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.

[Antonio Linares]

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

[Rick Lipkin]

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:

Code: Select all  Expand view  RUN

//------------------------

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