Decrypt Harbour me genera diferentes resultados xharbour

[leandro]

Buenas tardes para todos

Como dice el encabezado, tengo una rutina que almacena la contraseña del usuario de manera encriptada.. resulta que esa contraseña la encripte con xharbour, pero al ejecutar la desencriptacion con harbour me genera resultados diferentes y me dice que la contraseña es incorrecta.

También me di cuenta que no me muestra las ñ si no un símbolo extraño para mi.

Saludos

[Antonio Linares]

Leandro,

Usas el mismo compilador de C para Harbour y xHarbour ?

[karinha]

Muestre el código.

[Armando]

Leandro:

Intenta poniendo este código al principio de tu MAIN.PRG.

Code: Select all  Expand view

    REQUEST HB_CODEPAGE_ESWIN
    HB_CDPSELECT("ESWIN")
 

Ojalá te ayude, saludos

[leandro]

Muchas Gracias a todos por responder

Efectivamente Antonio, el compilador es el mismo BCC582. Solo cambie el lenguaje de programación.

El código es el siguiente:

Code: Select all  Expand view

***********************************
*VERIFICA LA EXISTENCIA DEL USUARIO
***********************************
FUNCTION pVerUsu()
//Aqui hacemos la conexion con la base de datos
oLamcla:cConecta()

if !Empty(oT1vg1)

  if !Empty(oT1vg2)

    TRY
      oVar:="SELECT * from lyma_usuarios WHERE u_alias='"+alltrim(oT1vg1)+"'"
          oConsBO:=CreateObject("ADODB.Recordset")
          oConsBO:CursorLocation = adUseClient
          oConsBO:CursorType     = adOpenForwardOnly   //adOpenKeyset /adOpenStatic  //
          oConsBO:Open( oVar, oLamcla:oCon )

          nRegistros := oConsBO:RecordCount()
      if nRegistros > 0
        oConsBO:MoveFirst()

            vClave:=Decrypt(oConsBO:Fields("u_clave"):Value)
         
            if oT1vg2#vClave
          MsgAlert("Usuario y/o Clave Incorrectos","Error de Datos")
          oT1og1:setfocus()
            else
          oLamcla:vCous:=vGusuario:=oConsBO:Fields("u_codig"):Value
              oLamcla:vColl:=oConsBO:Fields("u_llave"):Value
              oLamcla:vNous:=oConsBO:Fields("u_nombr"):Value
              oLamcla:vAlias:=oConsBO:Fields("u_alias"):Value
          ingreso:=.t.
          oDlg:END()
            endif

      else
        MsgAlert("Usuario y/o Clave Incorrectos","Error de Datos")
        oT1og1:setfocus()
      endif
    CATCH oError
       FW_ShowAdoError(oLamcla:oCon)
    END
   else
      MsgInfo("Por Favor Digite Clave","Error de Datos")
      oT1og2:setfocus()
   endif
 else
   MsgInfo("Por Favor Digite Usuario","Error de Datos")
   oT1og1:setfocus()
 endif
 

[Antonio Linares]

Leandro,

Comprueba si el valor de oConsBO:Fields("u_clave"):Value es el mismo con Harbour y xHarbour

[karinha]

Como hago e funciona perfecto:

Code: Select all  Expand view

                    oText:SetText( "Aguarde... Criando Senhas de Acesso" )

                    // llave
                    cChave := [123456] // supervisor

                    ADICIONE(0)
                    REPLACE COD        WITH [88]
                    REPLACE NOMBRE     WITH [SUPERVISOR - MASTER]
                    REPLACE CHAVE      WITH ENCRYPT( cChave, "*+-." )
                    DESTRAVA(0)
 



[leandro]

Muchas Gracias Armando.... el tema de la ñ quedo resuelto.

Pero por el lado del decript aun no

[karinha]

Code: Select all  Expand view

        //-> Retorno da Senha(password)
        rCampo := Decrypt(ALLTRIM((DbVendedor:cAlias)->CHAVE), "*+-." )
 



[leandro]

Antonio Gracias por Responder

Valores antes de correr el decrip con harbour

Code: Select all  Expand view

J?%R4)
 

Valores antes de correr el decrip con xharbour

Code: Select all  Expand view

J+%R4)
 

Hay diferencias en el segundo caracter

[Antonio Linares]

Leandro,

Puedes probarlo en otros registros y mostrar las diferencias ?

En este hay una diferencia de 20 (entre 63 y 43) y habria que ver en otro registro que diferencia hay

[leandro]

Vale ya mismo hago la prueba

[leandro]

Otro caso

Con harbour

Code: Select all  Expand view

N?)"bZ

Con xharbour

Code: Select all  Expand view

NS)"bA

[Antonio Linares]

Leandro,

Podrías probar con otro registro más ? gracias

[leandro]

Buenos días para todos

Con harbour

Code: Select all  Expand view

7hÔ1bŽ

Con xharbour

Code: Select all  Expand view

7hÔ1bÄ

Aquí otro por si acaso

Con harbour

Code: Select all  Expand view

4jŽñ¢Ž

Con xharbour

Code: Select all  Expand view

4jıóÄ