Page 1 of 1
TLS 1.2 doubt
Posted: Thu Jul 13, 2023 7:01 pm
by wartiaga
Hi, I have this code to conect:
TRY
oUrl = TUrl():New( 'http://www.averbeporto.com.br/websys/php/conn.php' )
CATCH
CurSorArrow()
MsgInfo('Erro ao criar a conexão','Erro')
RETURN(.F.)
END
IF !EMPTY( oUrl )
oCli = TIPClientHttp():New( oUrl )
IF !EMPTY( oCli )
oCli:nConnTimeout = -1
IF oCli:Open()
hQuery["mod"] := "login"
hQuery["comp"] := "5"
hQuery["user"] := "xxxxxxxxx"
hQuery["pass"] := "xxxxx"
oCli:cUserAgent:='Mozilla/3.0 (compatible; Indy Library)'
IF !oCli:PostMultiPart(hQuery)
CurSorArrow()
MsgInfo(oCli:lastErrorMessage,'Erro')
ELSE
cNFSeResp :=oCli:ReadAll()
RespC := oCli:GetCookies() // Captura cookie
ENDIF
//oCli:Close()
ENDIF
ENDIF
ENDIF
I received the news that they will only accept TLS 1.2 and above, having to change the address to https. Will this code work with just changing to https? If not, what else needs to be changed? Thanks.
Re: TLS 1.2 doubt
Posted: Thu Jul 13, 2023 7:27 pm
by karinha
Re: TLS 1.2 doubt
Posted: Thu Jul 13, 2023 7:37 pm
by karinha
Code: Select all | Expand
#include "FiveWin.ch"
STATIC oWnd
FUNCTION Main()
LOCAL cSite
cSite := ( "https://wws.averbeporto.com.br/websys/?comp=5" )
//-> Invisibilizo a Janela
DEFINE WINDOW oWnd FROM -10, -10 TO -5, -5
ACTIVATE WINDOW oWnd ;
ON INIT( ShellExecute(GetActiveWindow(),"OPEN",'"'+cSite+'"'), oWnd:End() )
RETURN NIL
Regards, saludos.
Re: TLS 1.2 doubt
Posted: Thu Jul 13, 2023 7:42 pm
by karinha
Artiaga, veja a "Aba" Ajuda, tem as novas instruções do Sistema de Averbação de Seguros da Porto Seguro.
Regards, saludos.
Re: TLS 1.2 doubt
Posted: Thu Jul 13, 2023 7:53 pm
by wartiaga
karinha wrote:Artiaga, veja a "Aba" Ajuda, tem as novas instruções do Sistema de Averbação de Seguros da Porto Seguro.
Regards, saludos.
Karinha, obrigado pela resposta mas o meu sistema já fazia a averbação através do webservice normalmente só que estão mudando para TSL 1.2 consequentemente mudaria somente http para https minha dúvida é se essa rotina vai funcionar somente mudando isso.
Re: TLS 1.2 doubt
Posted: Fri Jul 14, 2023 1:57 am
by karinha
wartiaga wrote:karinha wrote:Artiaga, veja a "Aba" Ajuda, tem as novas instruções do Sistema de Averbação de Seguros da Porto Seguro.
Regards, saludos.
Karinha, obrigado pela resposta mas o meu sistema já fazia a averbação através do webservice normalmente só que estão mudando para TSL 1.2 consequentemente mudaria somente http para https minha dúvida é se essa rotina vai funcionar somente mudando isso.
Não sei te informar. O melhor a fazer, é mudar para TLS 1.2 (windows 10 ou superior) testar e se não funcionar, entrar em contato com o suporte técnico da Porto Seguro, ok?
Como não uso esta ferramenta da Porto Seguro, não tenho como afirmar se vai funcionar. Eu acho que sim...
Em tempo: O teu Português está excelente. Parabéns!
Regards, saludos.
Re: TLS 1.2 doubt
Posted: Mon Jul 17, 2023 12:18 pm
by Jimmy
hi,
wartiaga wrote:I received the news that they will only accept TLS 1.2 and above, having to change the address to https.
i guess you work with hbtip Constribution which use ssleay32.dll / libeay32.dll
have a look which Version these *.DLL have ( Property -> Detail )
for TLS 1.2 you should have Version 1.02.xx e.g. from c:\fwh\samples\ssleay32.dll
Re: TLS 1.2 doubt
Posted: Mon Jul 17, 2023 5:04 pm
by wartiaga
Jimmy wrote:hi,
wartiaga wrote:I received the news that they will only accept TLS 1.2 and above, having to change the address to https.
i guess you work with hbtip Constribution which use ssleay32.dll / libeay32.dll
have a look which Version these *.DLL have ( Property -> Detail )
for TLS 1.2 you should have Version 1.02.xx e.g. from c:\fwh\samples\ssleay32.dll
Thanks for answer. Version of my ssleay32.dll = 1.0.2.11
Even linking tipssl.lib, ssleay32.lib and libeay32.lib this error occurs:
Error occurred at: 07/17/2023, 14:56:24
Error description: Error BASE/1081 Operation not supported: TIPCLIENTHTTP:New()
Args:
[ 1] = THE TIPCLIENTHTTP
[ 2] = C https