FiveTech Software tech support forums

... like this: oCustomers:=TCustomers():new() This way you can add methods (which are now functions) to the database object. Possibly you could also decrypt and encrypt the data with the Load() and Save() methods. So try this: oCustomers:= TDatabase(, xVol+"\DBTMP\"+CustDbf.DBF") oCustomers:use() ...

Gilbert,

If you don't need to support cryptography for your encryption/decryption needs, then we could explain you how the FWH Encrypt()/Decrypt() work so you can code it in any language

Hello, for creating a connection to another software, I need to write a crypted password to a json file and decrypt it at the other project (.net / c#). Therefore I need an universal algorithm, that can be decrypted elsewhere. Is there any possibility within Fivewin / xHarbour? ...

... + cVar) return (cvar) --------------------------------------------------------------------------------------------------- Inside AJAX call we decrypt and check the time against the time passed. If there is more than 2 sec difference we answer with an error msg. function main () .. local hPairs: ...

Dear All, I use MariaDB and I got a problem with HB_Crypt( cPass, cKey ) and store in column (Latin1). When I use HB_Decrypt( oRs:cEncPass, cKey ), it returns incorrect. What kind of Charactor does support HB_Crypt() or How do I store HB_Crypt and HB_Decrypt() back correctly in MariaDB column. Thank...

... cChave) msginfo(clavencriptada,"encrypt") claveDecriptada :=hb_Decrypt(clavencriptada,cChave) msginfo(claveDecriptada,"decrypt") ENDIF IF lSalir Return Nil endif RETURN( NIL) Como seria hacer esto pero con la clase FWH Mysql/Mariadb

Hola Amigos del forum. Necesito almacenar contraseña con la clase fwh mysql/mariadb, utilizando el algorismo AES y averiguando encontré esto: Para encriptar INSERT INTO usuarios VALUES('usuario',AES_ENCRYPT('contraseña','llave')); Para desencriptar: INSERT INTO usuarios VALUES('usuario',AES_DECRYPT(...

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

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, ...

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

ok, this way works fine:

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

thanks Cristobal!

Yo lo uso así:

Code: Select all  Expand view

      cCad  := hb_Crypt( cCad, cPassW )
 

Code: Select all  Expand view

     cCad := hb_Decrypt( cCad, cPassW )
 

Dutch, This is a first idea that you could enhance: function Main()   ? IsEncrypted( hb_crypt( "Hello" ) )return nilfunction IsEncrypted( cText )   local c      for each c in cText      if ! Lower( c ) $ "abcdefghijklmnopqrstuvwxyz0123456789()[]...

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.

Yes, but in version 3.2 there are also
I use this functions with cMimeEnc and cMimeDec functions