Как подключиться к серверу с использованием OpenSSL и Delphi, не уверен, нужен ли мне IOHandler, например IdSSLIOHandlerSocketOpenSSL1

Question

Как подключиться к серверу с использованием OpenSSL и Delphi? Я не уверен, нужен ли мне IOHandler, например TIdSSLIOHandlerSocketOpenSSL.

В настоящее время сервер не выполняет аутентификацию клиента на уровне TLS. Таким образом, сертификаты клиентов не требуются. Стандартный сервер X.509 v3, подписанный сторонним ЦС (центром сертификации), используется сервером.

Я скопировал DLL OpenSSL в папку своего приложения.

Я могу подключиться к серверу без использования IOHandler. Я не уверен, что это защищенная связь или нет.

Без IOHandler он прекрасно соединяется, но я не знаю, надежно ли он подключен. Вот код:

procedure TFrmMain.Button1Click(Sender: TObject); 
begin 
    With IdSSLIOHandlerSocketOpenSSL1 do 
    begin 
    Destination := 'dev-eclaimsrx.relayhealth.com:18009'; 
    Host := 'dev-eclaimsrx.relayhealth.com'; 
    Port := 18009; 
    SSLOptions.Method := sslvTLSv1_2; 
    end; 

    IdTCPClient1.IOHandler := IdSSLIOHandlerSocketOpenSSL1; 
    IdTCPClient1.Host := 'dev-eclaimsrx.relayhealth.com'; 
    IdTCPClient1.Port := 18009; 
    IdTCPClient1.Connect; 
end; 

Answer 1

Это безопасно только в том, что передача данных шифруются между клиентом и сервером и не может быть перехвачена, но не в полной безопасности, так как клиент не проверяет идентичность сервера. Для этого вам необходимо включить флаг sslvrfPeer в свойстве TIdSSLIOHandlerSocketOpenSSL.SSLOptions.VerifyMode (и необязательно флаг sslvrfFailIfNoPeerCert), а также проверить значения сертификата сервера в событии TIdSSLIOHandlerSocketOpenSSL.OnVerifyPeer.