Problemas con TLS1.0

[Willi Quintana]

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]

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

[cnavarro]

Hace tiempo me hice una pequeña function para comprobar la versión de TLS que ejecutaba, a ver si te sirve

Code: Select all  Expand view

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

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

[karinha]

Willi, reporte el problema, porfa.

Tipo asi:

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


Saludos.

[FranciscoA]

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.

[karinha]

//\samples\TLS1.PRG


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

Code: Select all  Expand view

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

[cnavarro]

Joao, funciona perfectamente

[karinha]

Master, falta alguan LIB ó és la versión de Harbour? Y en xHarbour és posible? Gracias.



Saludos.

[cnavarro]

Joao, antes de nada, comprueba esto en tu ordenador

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

[karinha]

Maestro,



Saludos.

[karinha]

Ni Harbour y o xHarbour no me funciona. Misterio... jajajajajaja

Code: Select all  Expand view

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

[FranciscoA]

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: Select all  Expand view

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

[cnavarro]

Francisco, si tu problema para ejecutar mi ejemplo es ese, será porque utilizas xHarbour
En ese caso pon al principio del ejemplo:

Code: Select all  Expand view

#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?

[FranciscoA]

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.

[cnavarro]

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