how to check Encrypt() and Decrypt()?

[dutch]

If I Encrypt() data in a field. How to I ensure that, this field contain Encrypt data?

As Six Driver SX_TABLETYPE(), it will return 1 as Normal, 2 as Encrypt DBF.

How to check it, because when I use Encrypt() again. It did as twice encrypt.

Thanks in advance.

[Antonio Linares]

Dutch,

This is a first idea that you could enhance:

Code: Select all

function Main()

   ? IsEncrypted( hb_crypt( "Hello" ) )

return nil

function IsEncrypted( cText )

   local c
   
   for each c in cText
      if ! Lower( c ) $ "abcdefghijklmnopqrstuvwxyz0123456789()[]{}"
         return .T.
      endif
   next
   
return .F.

Anyhow I have found with great surprise that this is not wotking fine:
? hb_decrypt( hb_crypt( "hello" ) )

[cnavarro]

Yo lo uso así:

Code: Select all

      cCad  := hb_Crypt( cCad, cPassW )
 

Code: Select all

     cCad := hb_Decrypt( cCad, cPassW )
 

[Antonio Linares]

ok, this way works fine:

? hb_decrypt( hb_crypt( "hello", "key" ), "key" )

thanks Cristobal!

[dutch]

Dear Antonio&Cnavarro,

Thank you both of you. I got it, we have to write our own function. I've another question.

Which is the best Hb_crypt() and Encrypt() or etc.? Because of GDPR.

Thank you in advance

[Antonio Linares]

Dutch,

Having hb_crypt() and hb_decrypt() and I would advise to use them instead of FWH Encrypt() and Decrypt()

Please be aware that they are not compatible. So please decrypt before changing encryption functions

On the other hand, Harbour functions source code is available, meanwhile FWH encription functions source code it is not

[dutch]

Dear Antonio,

Thanks a lot, I got it.

Dutch,

Having hb_crypt() and hb_decrypt() and I would advise to use them instead of FWH Encrypt() and Decrypt()

Please be aware that they are not compatible. So please decrypt before changing encryption functions

On the other hand, Harbour functions source code is available, meanwhile FWH encription functions source code it is not