CONSULTA API USANDO INDY : ERRO : Error connecting with SSL

[AnDes Sistemas]

Companheiros

Gostaria de solicitar ajuda dos amigos para um assunto que tenho pouco domínio.

Em um sistema legado que estou encarregado de fazer manutenção, existe um recurso 
já antigo para interagir com a seguinte Api : https://www.receitaws.com.br/v1/cnpj/[cnpj].

O problema é que imagino que os mantedores deste site devem ter mudado os requisitos do GET para TLS.
O Código-fonte em vigor é o que listo abaixo ( que utiliza o componente Indy IDHttp ).

O resultado desta rotina é o seguinte erro :
Error connecting with SSL.
Error connecting with SSL.
error:14077410:SSL routines:SSL23_GET_SERVER_HELLO:sslv3 alert handshake failure

Podem os companheiros me auxiliar indicando o que posso mudar para resolver o erro ?

Grato 

    Código-Fonte:
    IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

    IdHTTP1 := TIdHTTP.Create(nil);

    IdSSLIOHandlerSocketOpenSSL1.Name := 'IdSSLIOHandlerSocketOpenSSL1';
    IdSSLIOHandlerSocketOpenSSL1.Port := 0;
    IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23;
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.SSLVersions := [sslvTLSv1];
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmBoth;
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode := [];
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 0;

    IdHTTP1.Name := 'IdHTTP1';
    IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
    IdHTTP1.Request.ContentLength := -1;
    IdHTTP1.Request.ContentRangeEnd := -1;
    IdHTTP1.Request.ContentEncoding := 'utf-8';
    IdHTTP1.Request.ContentType := 'application/json';
    IdHTTP1.Request.ContentRangeStart := -1;
    IdHTTP1.Request.ContentRangeInstanceLength := -1;
    IdHTTP1.Request.Accept := 'text/javascript';
    IdHTTP1.Request.BasicAuthentication := False;

    URL = '

https://www.receitaws.com.br/v1/cnpj/27865757000102';

    IdHTTP1.Get(url, retorno);
 

[Daniel Simoes]

17 minutos atrás, AnDes Sistemas disse:

    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23;

Será que esse site, não requer TLSv12 ?

[Juliomar Marchetti]

9 minutos atrás, AnDes Sistemas disse:

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23;
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.SSLVersions := [sslvTLSv1];

mudar para TLS 1.2

caso não tenha vai precisar atualizar o indy

[AnDes Sistemas]

Sr. Juliomar

Bom Dia!

Efetuei o seguinte ajuste :

   IdSSLIOHandlerSocketOpenSSL1.SSLOptions.SSLVersions := [{sslvSSLv2, sslvSSLv3,} sslvTLSv2];

Mas continua resultando no seguinte erro ( :

Será que é uma limitação do Delphi em que o Erp foi desenvolvido ? ( Delphi XE2 )?

O senhor teria mais alguma sugestão ?

Grato

 

[Daniel Simoes]

o erro indica que você ainda está tentando conexão por SSL3

[Juliomar Marchetti]

2 horas atrás, AnDes Sistemas disse:

Sr. Juliomar

Bom Dia!

Efetuei o seguinte ajuste :

   IdSSLIOHandlerSocketOpenSSL1.SSLOptions.SSLVersions := [{sslvSSLv2, sslvSSLv3,} sslvTLSv2];

Mas continua resultando no seguinte erro ( :

Será que é uma limitação do Delphi em que o Erp foi desenvolvido ? ( Delphi XE2 )?

O senhor teria mais alguma sugestão ?

Grato

 

Acho que é versão do Indy vai precisar atualizar

[AnDes Sistemas]

Sr. Juliomar

Muito obrigado por sua ajuda.

Vou fazer atualização do Indy.

Também mandei um email para o pessoal de ti deste site : www.receitaws.com.br solicitando ajuda.

Se desejarem já podem fechar este post.

 

 

[Daniel Simoes]

Experimente usar a Synapse, (pasta Terceiros do ACBr)

http://www.ararat.cz/synapse/doku.php/public:howto:whysynapse

http://www.ararat.cz/synapse/doku.php/public:howto:httpgetpage

para conexão segura, apenas adicione a Unit: ssl_openssl

http://www.ararat.cz/synapse/doku.php/public:howto:sslplugin

[AnDes Sistemas]

Sr. Daniel

Boa Noite!

Muito interessantes estes links que o senhor apontou.

Estou estudando eles para fazer ajuste na aplicação.

Muito obrigado.

[AnDes Sistemas]

Sr. Daniel

Sua sugestão resolveu o meu problema.

Utilizando a Synapse a consulta funcionou plenamente.

Aproveitei a oportunidade e desenvolvi uma Consulta ao Contribuinte utilizando também os componentes : AcbrNfe e AcbrConsultaCNPJ.

Muito obrigado por sua ajuda.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.