Decrypt Harbour me genera diferentes resultados xharbour

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Wed Jan 27, 2016 01:18 PM

Funciona con Harbour y xHarbour.

// New FiveWin Encrypt() and Decrypt() functions

#include "FiveWin.ch"

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

function Main()

   local cTest1 := "123456789"
   local cTest2 := "123456789"

   MsgInfo( cTest1 := Encrypt( cTest1, "User1Key" ) )
   MsgInfo( cTest2 := Encrypt( cTest2, "Another" ) )

   MsgInfo( cTest1 := Decrypt( cTest1, "User1Key" ) )
   MsgInfo( cTest2 := Decrypt( cTest2, "Another" ) )

return nil

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Wed Jan 27, 2016 03:13 PM

Leandro,

Yo creo que el problema viene de que oConsBO:Fields("u_clave"):Value, por alguna razón, está funcionando distinto en xHarbour y Harbour.
Puede ser debido a una diferencia en el módulo de OLE en xHarbour y Harbour.

Se me ocurre que escribas una pequeña utilidad que desencripte las claves en xHarbour y que luego las vuelvas a encriptar usando Harbour.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion