Indy 10 и sslvTLSv1_2

Question

У меня есть сайт, на который я отправляю сообщение, которое в настоящее время поддерживает TLS v1.1 и TLS 1.2. Они скоро разрешат только соединения TLS ver 1.2. По этой причине я обновил Delphi 5 до Indy 10.

В настоящее время я создаю свои компоненты в коде, и все работает отлично работает 3 темы, в то время:

HTTp := TIdHttp.Create(nil); 
     HTTP.OnSelectAuthorization := HTTPSelectAuthorization; 
     HTTP.HTTPOptions := [hoInProcessAuth,hoForceEncodeParams,hoKeepOrigProtocol]; 

     HTTP.OnStatus := HTTPStatus; 
     HTTP.OnWorkEnd := HTTPWorkEnd; 
     HTTP.Request.ContentType := 'application/x-www-form-urlencoded'; 
     HTTP.ProxyParams.ProxyPort := ProxyPort; 
     HTTP.ProxyParams.ProxyUsername := ProxyUserName; 
     HTTP.ProxyParams.ProxyPassword := ProxyPassword; 
     HTTP.ProxyParams.BasicAuthentication := ProxyBasicAuth; 
    end; 

    If UseSSL and (SSL = nil) then 
    Begin 
     SSL := TIDSSLIOHandlerSocketOpenSSL.Create(nil); 
     SSL.SSLOptions.Mode := sslmClient; 
     SSL.OnGetPassword := SSLGetPassword; 
     SSL.SSLOptions.Method := sslvTLSv1_2; 
     HTTP.IOHandler := SSL; 
    end; 

Есть ли событие, которое я хотел бы сказать мне, что именно TLS версии я ток фактически соединяясь с при отправив сообщение? Я не хочу, чтобы это было неожиданностью, когда они, наконец, перестали принимать соединения TLS v1.1.

Спасибо.

Answer 1

Для этой цели нет события. Вам нужно будет напрямую запросить базовый объект SSL, например, в событии OnStatus, используя функцию SSL_get_version().

Однако вы устанавливаете Method в TLS 1.2, так что все Indy будет использовать (если вы используете версию OpenSSL, которая поддерживает 1.2, в противном случае Indy будет тихо отбрасывать до 1.0).

На стороне записки, ваш UseSSL, если блок должен выглядеть следующим образом:

If UseSSL then 
Begin 
    If (SSL = nil) then 
    Begin 
    SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); 
    SSL.SSLOptions.Mode := sslmClient; 
    SSL.OnGetPassword := SSLGetPassword; 
    SSL.SSLOptions.Method := sslvTLSv1_2; 
    End; 
    HTTP.IOHandler := SSL; 
end; 

Answer 2

Вот пример того, как вы можете получить информацию о версии SSL. (может потребоваться обновление, как я не использую последнюю версию Indy)

Декларация

procedure IdSSLIOHandlerSocketOpenSSLStatusInfoEx(ASender: TObject; 
    const AsslSocket: PSSL; const AWhere, Aret: Integer; const AType, 
    AMsg: string); 

Присвоить

SSL.OnStatusInfoEx:=IdSSLIOHandlerSocketOpenSSLStatusInfoEx; 

Использование

procedure THttpThread.IdSSLIOHandlerSocketOpenSSLStatusInfoEx(ASender: TObject; 
    const AsslSocket: PSSL; const AWhere, Aret: Integer; const AType, 
    AMsg: string); 
begin 
    if AsslSocket.version = TLS1_VERSION then 
    ... 
end;