使用 idHTTP 在代理服务器后面发送 post 请求

Question

我在使用 IdHTTP 和 IdSSL 的代理服务器后面发送发布请求时遇到问题，

不确定我的代码或代理服务器是否缺少某些内容并发布，我已尽我所能。 我有时会收到错误 10061 连接被拒绝，连接超时。

使用 Delphi XE8

 var
  Params: TStrings;
  lHTTP: TIdHTTP;
  IdSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
 TThread.CreateAnonymousThread(procedure   ()
  begin
   Params := TStringList.Create;

   lHTTP := TIdHTTP.Create(nil);
   try
      IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP);
       IdSSL.SSLOptions.Method := sslvTLSv1_2;
       IdSSL.SSLOptions.SSLVersions := [sslvSSLv3];
      lHTTP.IOHandler := IdSSL;
      lHTTP.HandleRedirects := True;

       Params.Add('username=myuser');
       Params.Add('password=mypass');

      try
        lHTTp.ProxyParams.ProxyServer := '177.104.200.15';
        lHTTp.ProxyParams.ProxyPort := 35923;
        lHTTp.ReadTimeout := 60000;
        lHTTp.Connect('instagram.com', 80);
        lHTTP.Request.Accept := '*/*';
        lHTTP.Request.AcceptLanguage := 'en-US,en;q=0.5';
        lHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
        lHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0';
        Reply := lHTTP.Post('https://Instagram.com/login', Params);

         TThread.Synchronize(TThread.CurrentThread,
          procedure()
            begin
             memo3.lines.add(reply);
            end);


          IdSSl.Free;
          lHTTP.Free;

     except on E: EIdHTTPProtocolException do
       begin
         TThread.Synchronize (TThread.CurrentThread,
          procedure ()
            begin
             memo3.lines.add(E.ErrorMessage);
            end);
       end;
     end;

  except on E: EIdHTTPProtocolException do
       begin
         TThread.Synchronize (TThread.CurrentThread,
          procedure ()
            begin
             memo3.lines.add(E.ErrorMessage);
            end);
       end;
  end;
 end).Start;
end;

更新

错误信息：First chance exception at $751A2502. Exception class EIdOSSLUnderlyingCryptoError with message 'Error connecting with SSL. error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number'.

更新2 使用

IdSSL.SSLOptions.Method := sslvSSLv23; // enable all available versions first
IdSSL.SSLOptions.SSLVersions := IdSSL.SSLOptions.SSLVersions - [sslvSSLv2, sslvSSLv3];

给出错误：error:140770FC:SSL routines:SSL23_GET_SERVER_HELLO:unknown protocol'.

Answer 1

使用 SSL 连接时出错。
错误：1408F10B：SSL 例程：SSL3_GET_RECORD：版本号错误

该错误意味着您没有使用目标 HTTPS 服务器愿意接受的 SSL/TLS 版本。这就是握手失败的原因。这与使用代理无关。

在您的代码中，您正在设置 BOTH SSLOptions.Method 和 SSLOptions.SSLVersions 属性。 不要那样做！它们是相互排斥的，设置一个更新另一个。您首先将SSLOptions.Method 设置为sslvTLSv1_2，然后将SSLOptions.SSLVersions 设置为sslvSSLv3，这会将SSLOptions.Method 更改为sslvSSLv3 以匹配。因此，您正在尝试使用 SSL 3.0 连接到 HTTPS 服务器，但许多服务器不再接受它，因为它已被入侵。

使用ONE OR THE OTHER属性，而不是两者：

IdSSL.SSLOptions.Method := sslvTLSv1_2;
//IdSSL.SSLOptions.SSLVersions := [sslvSSLv3]; // <-- get rid of this

或者：

//IdSSL.SSLOptions.Method := sslvTLSv1_2; // <-- get rid of this
IdSSL.SSLOptions.SSLVersions := [sslvTLSv1_2]; // <-- and change this from SSL 3.0 to TLS 1.2

在后一种情况下，您应该更愿意启用所有可用的 TLS 1.x 版本，以便更多使用 TLS 1.0 和 TLS 1.1 但尚未使用 TLS 1.2 的 HTTPS 服务器更广泛地接受：

IdSSL.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];

或者，当新的 TLS 版本添加到 OpenSSL 时，为了让代码在未来得到验证：

IdSSL.SSLOptions.Method := sslvSSLv23; // enable all available versions first
IdSSL.SSLOptions.SSLVersions := IdSSL.SSLOptions.SSLVersions - [sslvSSLv2, sslvSSLv3]; // then remove compromised versions