FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Problemas con TLS1.0
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Problemas con TLS1.0
Posted: Sat Aug 31, 2019 05:19 PM

Hola amigos...
Ayer tuve un problema con Windows 7 y FW, resulta que Win-7 no soporta TLS1.0, esto tienen que ver con FW ? o es solo asunto del win-7, por que con Win-10 no hubo problemas
Gracias

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con TLS1.0
Posted: Sat Aug 31, 2019 06:15 PM
Hasta donde yo sé, no tiene nada que ver con Fw, ya que eso se controla en "Opciones de internet", que hay que elegir tu configuración

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con TLS1.0
Posted: Sun Sep 01, 2019 02:31 AM
Hace tiempo me hice una pequeña function para comprobar la versión de TLS que ejecutaba, a ver si te sirve
Code (fw): Select all Collapse
//----------------------------------------------------------------------------// 
// ( C ) Cristobal Navarro Lopez ( 2017 - 2018 )
//----------------------------------------------------------------------------//

#include "Fivewin.ch"

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

Function Main()

   ? CheckSSLTLSConexion()

Return nil

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

Function CheckSSLTLSConexion()

   local oHttp
   local cJson
   local lTls   := .F.

   oHttp     := CreateObject( "MSXML2.ServerXMLHTTP.3.0" ) 
   oHttp:Open( "GET", "https://howsmyssl.com/a/check", .F. )
   oHttp:Send()

   cJson     := hb_JsonDecode( oHttp:responseText )
   if hb_HHaskey( cJson, "tls_version" )
      if !Empty( cJson[ "tls_version" ] )
         if hb_HHaskey( cJson, "rating" )
            if !Empty( At( "ok", Lower( cJson[ "rating" ] ) ) )
               ? cJson[ "rating" ], cJson[ "tls_version" ]
               lTls   := .T.
            endif
         endif
      endif
   endif

   //XBrowse( cJson )

   oHttp := nil

Return lTls

//----------------------------------------------------------------------------//
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Problemas con TLS1.0
Posted: Mon Sep 02, 2019 12:17 PM
Willi, reporte el problema, porfa.

Tipo asi:

http://fivewin.com.br/index.php?/topic/28182-erro-muito-estranho-resolvido/


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Problemas con TLS1.0
Posted: Thu Sep 05, 2019 06:47 PM
cnavarro wrote:Hasta donde yo sé, no tiene nada que ver con Fw, ya que eso se controla en "Opciones de internet", que hay que elegir tu configuración



Amigo.
Este post resolvió mi problema con las descargas desde HTTPS.

Saludos.
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Problemas con TLS1.0
Posted: Fri Sep 06, 2019 01:41 PM
//\samples\TLS1.PRG


Master Navarro, prueba esta versíón porfa, no funciona. Gracias.

Code (fw): Select all Collapse
//----------------------------------------------------------------------------//
// ( C ) Cristobal Navarro Lopez ( 2017 - 2018 )
//----------------------------------------------------------------------------//

#include "Fivewin.ch"

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

FUNCTION Main()

   ? CheckSSLTLSConexion()

RETURN nil

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

FUNCTION CheckSSLTLSConexion()

   LOCAL oHttp
   LOCAL cJson
   LOCAL lTls   := .F.

   Try

      oHttp     := CreateObject( "MSXML2.ServerXMLHTTP.3.0" )
      oHttp:Open( "GET", "https://howsmyssl.com/a/check", .F. )
      oHttp:Send()

      IF ! oHttp:open()

         ? "Problemas?"

         Break

      ENDIF

      cJSON := oHttp:readAll()
      oHttp:close()

      cJson     := hb_JsonDecode( oHttp:responseText )

      IF hb_HHaskey( cJson, "tls_version" )

         IF !Empty( cJson[ "tls_version" ] )

            IF hb_HHaskey( cJson, "rating" )

               IF !Empty( At( "ok", Lower( cJson[ "rating" ] ) ) )

                  ? cJson[ "rating" ], cJson[ "tls_version" ]

                  lTls   := .T.

               ENDIF

            ENDIF

         ENDIF

      ENDIF

   Catch

      ? "No funciona, Master Navarro..."

   END

   //XBrowse( cJson )

   oHttp := nil

RETURN lTls

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


Saludos
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con TLS1.0
Posted: Fri Sep 06, 2019 02:02 PM
Joao, funciona perfectamente

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Problemas con TLS1.0
Posted: Fri Sep 06, 2019 02:26 PM
Master, falta alguan LIB ó és la versión de Harbour? Y en xHarbour és posible? Gracias.



Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con TLS1.0
Posted: Fri Sep 06, 2019 02:45 PM

Joao, antes de nada, comprueba esto en tu ordenador

viewtopic.php?f=6t=37703view=unread#p225396

&&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Problemas con TLS1.0
Posted: Fri Sep 06, 2019 02:51 PM
Maestro,



Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Problemas con TLS1.0
Posted: Fri Sep 06, 2019 03:21 PM
Ni Harbour y o xHarbour no me funciona. Misterio... jajajajajaja

Code (fw): Select all Collapse
//----------------------------------------------------------------------------//
// ( C ) Cristobal Navarro Lopez ( 2017 - 2018 )
//----------------------------------------------------------------------------//

#include "Fivewin.ch"
#include "hbcompat.ch"

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

FUNCTION Main()

   ? CheckSSLTLSConexion()

RETURN nil

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

FUNCTION CheckSSLTLSConexion()

   LOCAL oHttp
   LOCAL cJson
   LOCAL lTls   := .F.


   Try

      // oHttp     := CreateObject( "MSXML2.ServerXMLHTTP.3.0" )

      #IFDEF __XHARBOUR__  // xHarbour

         Try
             oHttp := CreateObject( "MSXML2.ServerXMLHTTP.6.0" )
         Catch
            MsgInfo('Erro na Criação do Serviço')
            Break
         End

      #ELSE

         Try
            oHttp := win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0")
         Catch
            MsgInfo('Erro na Criação do Serviço!', 'Atenção!')
            Break
         End

      #ENDIF

      oHttp:Open( "GET", "https://howsmyssl.com/a/check", .F. )
      oHttp:Send()

      IF ! oHttp:open()

         ? "Problemas?"

         Break

      ENDIF

      cJSON := oHttp:readAll()
      oHttp:close()

      cJson     := hb_JsonDecode( oHttp:responseText )

      IF hb_HHaskey( cJson, "tls_version" )

         IF !Empty( cJson[ "tls_version" ] )

            IF hb_HHaskey( cJson, "rating" )

               IF !Empty( At( "ok", Lower( cJson[ "rating" ] ) ) )

                  ? cJson[ "rating" ], cJson[ "tls_version" ]

                  lTls   := .T.

               ENDIF

            ENDIF

         ENDIF

      ENDIF

   Catch

      ? "No funciona, Master Navarro..."

   END

   //XBrowse( cJson )

   oHttp := nil

RETURN lTls

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



Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Problemas con TLS1.0
Posted: Sun Sep 08, 2019 09:55 PM
Joao, yo tampoco pude hacerlo funcionar en mi equipo.
Me da:
Error description: Error BASE/1123 Argument error: HB_HHASKEY
Args:
[ 1] = N 1161
[ 2] = C tls_version

Cristóbal:
Puedes probar el siguiente codigo (el tuyo modificado) y me dices tu opinión?:
Code (fw): Select all Collapse
//----------------------------------------------------------------------------//
// ( C ) Cristobal Navarro Lopez ( 2017 - 2018 )
//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//
//#include "Fivewin.ch"
//----------------------------------------------------------------------------//
Function CheckTLSConex()
   ? CheckSSLTLSConexion()
Return nil
//----------------------------------------------------------------------------//
Function CheckSSLTLSConexion()
   local oHttp
   local lTls := .F., aHashResp

   oHttp     := CreateObject( "MSXML2.ServerXMLHTTP.3.0" )
   oHttp:Open( "GET", "https://howsmyssl.com/a/check", .F. )
   oHttp:Send()

//Este funciona (HARBOUR), pero resultado es diferente a si lo hacemos directamente desde el navegador dando click en el link.
   aHashResp := Hash()
   hb_JsonDecode( oHttp:responseText, @aHashResp )
   XBrowse( aHashResp )  

   if hb_HHaskey( aHashResp, "tls_version" )
      if !Empty( aHashResp[ "tls_version" ] )
         if hb_HHaskey( aHashResp, "rating" )
            if !Empty( aHashResp[ "rating" ] )
               ? aHashResp[ "rating" ], aHashResp[ "tls_version" ]
               lTls   := .T.
            endif
         endif
      endif
   endif

   oHttp := nil

Return lTls

Saludos.
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con TLS1.0
Posted: Sun Sep 08, 2019 10:07 PM
Francisco, si tu problema para ejecutar mi ejemplo es ese, será porque utilizas xHarbour
En ese caso pon al principio del ejemplo:

Code (fw): Select all Collapse
#ifdef __XHARBOUR__
   #xtranslate hb_HHasKey( [<x,...>] )         => HHasKey( <x> )
#endif

En tu ejemplo no veo gran diferencia con respecto al mio, debería funcionar. Cuál es la diferencia que has visto entre ejecutarlo en el explorador y con el ejemplo?
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Problemas con TLS1.0
Posted: Sun Sep 08, 2019 10:42 PM
cnavarro wrote:
En tu ejemplo no veo gran diferencia con respecto al mio, debería funcionar. Cuál es la diferencia que has visto entre ejecutarlo en el explorador y con el ejemplo?


Sí... el ejemplo tuyo que modifiqué funciona (HARBOUR).
El valor devuelto al ejecutar el explorador es TLS1.3, y con el ejemplo resulta TLS1.0

Referente a lo otro, estoy probando con HARBOUR 3.2.0dev (r1501292255):
if "%FWDIR%" == "" set FWDIR=C:\FWH1204
if "%HBDIR%" == "" set HBDIR=c:\harbour_3.2_32bits_Borland582_20150205

Saludos.
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con TLS1.0
Posted: Sun Sep 08, 2019 11:23 PM

Eso no te preocupes, debe ser un comportamiento del propio webservice dependiendo del "location", lo importante es que te diga si tienes instalado TLS o no. Además no creo que tengas TLS 1.3 instalado. Yo sólo llego hasta el 1.2 y también me dice que tengo la 1.3

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Static archive · New replies & topics via GitHub Discussions