FiveTech Software tech support forums

Posted: **Sat Aug 31, 2019 5: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

Posted: **Sat Aug 31, 2019 6: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

Posted: **Sun Sep 01, 2019 2: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: Select all | Expand


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

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

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.

Posted: **Thu Sep 05, 2019 6: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.

Posted: **Fri Sep 06, 2019 1:41 pm**

//\samples\TLS1.PRG

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

Code: Select all | Expand


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

Posted: **Fri Sep 06, 2019 2:02 pm**

Joao, funciona perfectamente

Posted: **Fri Sep 06, 2019 2:26 pm**

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

Saludos.

Posted: **Fri Sep 06, 2019 2:45 pm**

Joao, antes de nada, comprueba esto en tu ordenador

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

Posted: **Fri Sep 06, 2019 2:51 pm**

Maestro,

Saludos.

Posted: **Fri Sep 06, 2019 3:21 pm**

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

Code: Select all | Expand


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

Posted: **Sun Sep 08, 2019 9: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: Select all | Expand

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

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


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

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.

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

FiveTech Software tech support forums

Problemas con TLS1.0

Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0

Re: Problemas con TLS1.0