FiveTech Software tech support forums

Thank you Cristóbal.

Do you refer to this?

https://github.com/vszakats/hb/blob/mas ... /hbcrypt.c

Muchas gracias. ¿No existe un método de encriptacion más fuerte? Look for the hb_Crypt and hb_Decrypt functions, and you can even support yourself for using these functions in the cMimeEnc and cMimeDec functions Pd: in this forum, please use the English language. Thank you Busca las funciones hb_Cr...

Muchas gracias.

¿No existe un método de encriptacion más fuerte?

... = function ($valor) use ($method, $clave, $iv) {     $encrypted_data = base64_decode($valor);     return openssl_decrypt($valor, $method, $clave, false, $iv); }; /* Genera un valor para IV */ $getIV = function () use ($method) {  ...

leandro wrote:En este momento me encuentro investigando y avanzando de a poco sobre el tema de encriptar con los comandos openssl apenas tenga resultados comento.

Leandro, What openssl functions are you using?

Moises, use functions hb_base64Encode and hb_base64Decode

Pues no es exactamente encriptar... pero para ocultar un poco el contenido puedes usar la codificación en base64. Encode y decode en xharbour cBas64 := hb_base64encode(::user+":"+::pass,len(::user+":"+::pass)) cString := hb_base64decode(::respuesta["q...

Hi,

Are there a set of functions that, for example, I encrypt the string in the php web page, and I read and decrypt in Habour -prg code?

Thank you

wich function is aes256_Decrypt ? where you found it ? I Have Un / protectstring for a string Un /protectFile for a file and these use a aes protocol 128/192/256 it'is build from this document https://csrc.nist.gov/csrc/media/publications/fips/197/final/documents/fips-197.pdf type: InitAes(128) //19...

>on new class I use Aes cifrature ADVANCED ENCRYPTION STANDARD 128 bit
Hello Silvio
how do you store the key.
c := aes256_Decrypt( c, @cKey )
Thank you and best regards
Otto

Hello Silvio
can you please show
some lines how TLicense decrypt.

Do you have something like:
::cPw := DECRYPT(Encrypted,"1234aeb")
in your class.
Thank you
and best regards
Otto

Hello Otto:

Is not enough for you the ENCRYPT() and DECRYPT() Classes?

Here is a sample:

Code: Select all  Expand view

Encrypted :=  ENCRYPT("Armando","1234aeb")
MsgInfo(Encrypted)

Decrypted := DECRYPT(Encrypted,"1234aeb")
MsgInfo(Decrypted)

 

Regards

carlos vargas wrote:please include

Code: Select all  Expand view

#include "hbcompat.ch"
 

Thanks Carlos!

please include

Code: Select all  Expand view

#include "hbcompat.ch"
 

I got it...

Str2Hex() and Hex2Str() ...

Hi All,

how to use HB_StrToHex()/HB_HexToStr() in xHarbour ... Any equivalent?