Encryption error! (SOLVED)

[tiaofw]

Good day!

Intermittently I get an error in the encryption / decryption of a given string here on my system.

Here the piece of code:

Code: Select all | Expand

cChave: = 'TI040505' / / fictionalretorno_cbx: = 'UR010801752' / / actualseriec: = 'UR010801752' / / actualcChave: = ALLTRIM (cChave)replace serie with space(len(serie))replace seriec with space(len(seriec))dbcommit ()replace serie with ALLTRIM(retorno_cbx)replace seriec with Encrypt(ALLTRIM(retorno_cbx), cChave)retorno_cbx: = Decrypt(ALLTRIM(seriec), cChave)) 

Decryption is done when the string is returned a string that is not the same as it was recorded.

Is there any solution for this?


Thank you!

[MarcoBoschi]

Have you tried these other functions?

HB_CRYPT( cBufferIn, cKey ) )

HB_DECRYPT( cBufferIn, cKey ) )

maybe you can fix...

[Antonio Linares]

Try this and check if it works fine for you:

MsgInfo( Decrypt( Encrypt( "Hello world", "password" ), "password" ) )

Here it is working fine and shows "Hello world"

[tiaofw]

Good day!

Marco, by using the HB_Crypt the error is more constant!

I tested using the example of Antonio and worked with my data, the routine will check again to try to locate the problem!

Post here the result.

Thank you!

[tiaofw]

Please test the code below:

Code: Select all | Expand

cChave := 'TIAO'cTeste1 := 'UR010801733' // FIELD OF THE FOURTH The DBF THAT WITH ENCRYPTION SIZE 40 CHARACTERMSGINFO(cTeste1)cTeste2 := Encrypt(cTeste1, cChave)msginfo(cTeste2)cteste3 := Decrypt(alltrim(cTeste2),cChave)msginfo(cteste3) 

Test done using FWH / xHarbour 11.12

Thank you!

[Rossine]

Olá Tião,

Teu erro está nesta linha:

cteste3 := Decrypt(alltrim(cTeste2),cChave)

tem que ser assim:

cteste3 := alltrim(hb_Decrypt(cTeste2,cChave)) // olha o alltrim()

segue exemplo compilado em harbour puro:

Code: Select all | Expand

function MAINcChave := 'TIAO'cTeste1 := 'UR010801733' // FIELD OF THE FOURTH The DBF THAT WITH ENCRYPTION SIZE 40 CHARACTER? cTeste1cTeste2 := hb_crypt(cTeste1, cChave)? cTeste2cteste3 := alltrim(hb_Decrypt(cTeste2,cChave))? cTeste3return NIL 

Veja se isto funciona aí pra você,

Abraços,

Rossine.

[tiaofw]

Olá Tião,

Teu erro está nesta linha:

cteste3 := Decrypt(alltrim(cTeste2),cChave)

tem que ser assim:

cteste3 := alltrim(hb_Decrypt(cTeste2,cChave)) // olha o alltrim()

segue exemplo compilado em harbour puro:

Code: Select all | Expand

function MAINcChave := 'TIAO'cTeste1 := 'UR010801733' // FIELD OF THE FOURTH The DBF THAT WITH ENCRYPTION SIZE 40 CHARACTER? cTeste1cTeste2 := hb_crypt(cTeste1, cChave)? cTeste2cteste3 := alltrim(hb_Decrypt(cTeste2,cChave))? cTeste3return NIL 

Veja se isto funciona aí pra você,

Abraços,

Rossine.

Oi rossini, ja tentei usar a função HB_Crypt, mas ela tambem apresenta problema com determinadas strings, como o Fivewin possui a função própria e é mais facil pedir o auxílio ao Linhares preferi ver se consigo solução atraves da CRYPT/DECRYPT.

Mesmo assim obrigado!

[Daniel Garcia-Gil]

Hello


you can not use Alltrim in encrypted string, because some character converted maybe there are useful, in your case the first char is a CHR(10) and you are deleting this with alltrim function

try to understand my point

cteste3 := Decrypt(chr(10)+alltrim( cTeste2 ),cChave)

i personally do it...
convert the encrypted text to base64 encode using hb_base64encode/ hb_base64decode, using base64 i can save to table, dbf, ini file without problem

it's a test

#include "fivewin.ch"

Code: Select all | Expand

function main()local cChave, cTeste1, cTeste2cChave := 'TIAO'cTeste1 := 'UR010801733' // FIELD OF THE FOURTH The DBF THAT WITH ENCRYPTION SIZE 40 CHARACTERMSGINFO(cTeste1)cTeste2 := hb_Base64Encode( Encrypt(cTeste1, cChave) )Msginfo( cTeste2 )cteste3 := Decrypt( hb_Base64Decode( cTeste2 ),cChave)msginfo(cteste3)return nil

[tiaofw]

Hello


you can not use Alltrim in encrypted string, because some character converted maybe there are useful, in your case the first char is a CHR(10) and you are deleting this with alltrim function

try to understand my point

cteste3 := Decrypt(chr(10)+alltrim( cTeste2 ),cChave)

i personally do it...
convert the encrypted text to base64 encode using hb_base64encode/ hb_base64decode, using base64 i can save to table, dbf, ini file without problem

it's a test

#include "fivewin.ch"

Code: Select all | Expand

function main()local cChave, cTeste1, cTeste2cChave := 'TIAO'cTeste1 := 'UR010801733' // FIELD OF THE FOURTH The DBF THAT WITH ENCRYPTION SIZE 40 CHARACTERMSGINFO(cTeste1)cTeste2 := hb_Base64Encode( Encrypt(cTeste1, cChave) )Msginfo( cTeste2 )cteste3 := Decrypt( hb_Base64Decode( cTeste2 ),cChave)msginfo(cteste3)return nil

Hello Daniel,

Thanks for the reply!

Can you tell me what is the lib that contains the function hb_base64decode and where do I get?.

I use xHarbour!

Great week!

[Daniel Garcia-Gil]

Hello

sorry, this function is not added in xHarbour, the code exist, but is not added to lib

i'll test to try added it

[tiaofw]

Hello

sorry, this function is not added in xHarbour, the code exist, but is not added to lib

i'll test to try added it

Thank you!

[Daniel Garcia-Gil]

Hello

the current base64 code from xharbour not work properly, i modified the code and rebuilt the lib affected

please download the new lib http://www.sitasoft.net/fivewin/files/tip.zip

[tiaofw]

"e="Daniel Garcia-Gil"]Hello

the current base64 code from xharbour not work properly, i modified the code and rebuilt the lib affected

please download the new lib http://www.sitasoft.net/fivewin/files/tip.zip

Thank you Daniel!

Doing some testing here with the new tip.lib, I noticed a strange behavior apparently function hb_base64encode/hb_base64decode.

Please test the following code:

Code: Select all | Expand

for x := 1 to 10    cChave := 'TIAO'    cTeste1 := 'EMULADOR' // 'UR010801733' // CAMPO DO DBF QUE QUARTA A CRIPTOGRAFIA COM TAMANHO DE 40 CARACTERES    MSGINFO(cTeste1)    cTeste2 := hb_Base64Encode(Encrypt(cTeste1, cChave))    msginfo(cTeste2)    cteste3 := Decrypt(hb_Base64Decode(cTeste2),cChave)    msginfo(cteste3)next 

In some steps the return of function is different, you see!

Any idea what may be motivating the error?"

[Daniel Garcia-Gil]

Hello

download the new lib http://www.sitasoft.net/fivewin/files/tip.zip

[tiaofw]

Hello

download the new lib http://www.sitasoft.net/fivewin/files/tip.zip

Thank you Daniel!

Perfect!

I'll try more!

Any problems you know!