Decrypt Harbour me genera diferentes resultados xharbour

[karinha]

Funciona con Harbour y xHarbour.

Code: Select all  Expand view

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

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



[Antonio Linares]

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.