OT. La que viene

OT. La que viene

Postby hmpaquito » Wed Dec 27, 2017 9:28 am

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

http://www.agpd.es/portalwebAGPD/temas/ ... -idphp.php
hmpaquito
 
Posts: 953
Joined: Thu Oct 30, 2008 2:37 pm

Re: OT. La que viene

Postby Baxajaun » Wed Dec 27, 2017 10:25 am

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,
User avatar
Baxajaun
 
Posts: 693
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Re: OT. La que viene

Postby hmpaquito » Wed Dec 27, 2017 12:28 pm

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
//-------------------------------------------------------------------------//
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
 
hmpaquito
 
Posts: 953
Joined: Thu Oct 30, 2008 2:37 pm

Re: OT. La que viene

Postby Baxajaun » Wed Dec 27, 2017 12:53 pm

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

Saludos
User avatar
Baxajaun
 
Posts: 693
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Re: OT. La que viene

Postby hmpaquito » Wed Dec 27, 2017 1:11 pm

hmpaquito en hotmail punto com

Gracias :)
hmpaquito
 
Posts: 953
Joined: Thu Oct 30, 2008 2:37 pm

Re: OT. La que viene

Postby José Luis Sánchez » Thu Dec 28, 2017 7:27 am

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

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

Re: OT. La que viene

Postby hmpaquito » Thu Dec 28, 2017 8:25 am

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.
hmpaquito
 
Posts: 953
Joined: Thu Oct 30, 2008 2:37 pm

Re: OT. La que viene

Postby Antonio Linares » Sat Dec 30, 2017 8:03 am

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 35267
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: OT. La que viene

Postby Rick Lipkin » Sat Dec 30, 2017 2:56 pm

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

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

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:
Image

Rick Lipkin
User avatar
Rick Lipkin
 
Posts: 2153
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: karinha and 5 guests