FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Decrypt Harbour me genera diferentes resultados xharbour
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Decrypt Harbour me genera diferentes resultados xharbour
Posted: Mon Jan 25, 2016 11:23 PM

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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 08:47 AM

Leandro,

Usas el mismo compilador de C para Harbour y xHarbour ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 11:51 AM

Muestre el código.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 03:10 PM
Leandro:

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

Code (fw): Select all Collapse
    REQUEST HB_CODEPAGE_ESWIN
    HB_CDPSELECT("ESWIN")


Ojalá te ayude, saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 06:08 PM
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 (fw): Select all Collapse
***********************************
*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
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 06:18 PM

Leandro,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 06:19 PM
Como hago e funciona perfecto:

Code (fw): Select all Collapse
                    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)


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 06:20 PM

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

Pero por el lado del decript aun no :cry:

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 06:23 PM
Code (fw): Select all Collapse
        //-> Retorno da Senha(password)
        rCampo := Decrypt(ALLTRIM((DbVendedor:cAlias)->CHAVE), "*+-." )


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 06:38 PM
Antonio Gracias por Responder

Valores antes de correr el decrip con harbour
Code (fw): Select all Collapse
J?%R4)

Valores antes de correr el decrip con xharbour
Code (fw): Select all Collapse
J+%R4)


Hay diferencias en el segundo caracter
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 08:11 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 10:42 PM

Vale ya mismo hago la prueba

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Tue Jan 26, 2016 11:09 PM
Otro caso

Con harbour
Code (fw): Select all Collapse
N?)"bZ


Con xharbour
Code (fw): Select all Collapse
NS)"bA
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Wed Jan 27, 2016 10:31 AM

Leandro,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Decrypt Harbour me genera diferentes resultados xharbour
Posted: Wed Jan 27, 2016 12:55 PM
Buenos días para todos

Con harbour
Code (fw): Select all Collapse
7hÔ1bŽ


Con xharbour
Code (fw): Select all Collapse
7hÔ1bÄ


Aquí otro por si acaso

Con harbour
Code (fw): Select all Collapse
4jŽñ¢Ž


Con xharbour
Code (fw): Select all Collapse
4jıóÄ
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Static archive · New replies & topics via GitHub Discussions