Server certificate invalid or not present ошибка

Помогла ли Вам статья?

Using C++Builder, I need to create a small app that gets some info from a PHP file on a remote site.

I have a TRESTClient, TRESTRequest and TRESTResponse that are properly setup.

Compiled under Windows 32-bit, I can repeatedly execute the function below and get data back.

However, compiled for Android 32-bit, the code below works ONLY the first time, returning data from the server. Any subsequent button clicks to reenter the function causes a generated error:

Server Certificate Invalid or not present

There is a related post at Server certificate Invalid or Not present, but it is of no help.

So, on Windows, this simple code works fine, again and again, but works only once on Android before failing.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    RESTRequest1->Resource = "";
    RESTRequest1->Method = TRESTRequestMethod::rmPOST;
    RESTRequest1->Response = RESTResponse1;
    RESTRequest1->Response->ContentType = "application/json";
    RESTRequest1->Response->ContentEncoding="UTF-8";
    RESTRequest1->Execute();
    
    Memo1->Lines->Add(RESTResponse1->Content);

Not sure how to get around this error.

Прикрепил тестовый проект на котором воспроизводится ошибка. Код дублирую для наглядности:

unit UnitFormMain;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ScrollBox,
  FMX.Memo, FMX.Controls.Presentation, FMX.StdCtrls,
  System.Net.HTTPClient,
  System.Net.Mime,
  System.Net.URLClient;

type
  TFormMain = class(TForm)
    ButtonPost: TButton;
    Memo: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure ButtonPostClick(Sender: TObject);
  private
    { Private declarations }
    FHTTPClient: THTTPClient;
    FMultipartFormData : TMultipartFormData;
    HTTPResponse: IHTTPResponse;
    procedure HTTPClientValidateServerCertificate(const Sender: TObject;
      const ARequest: TURLRequest; const Certificate: TCertificate;
      var Accepted: Boolean);
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.fmx}

procedure TFormMain.FormCreate(Sender: TObject);
begin
  FHTTPClient:=THTTPClient.Create;
  FHTTPClient.HandleRedirects:=False;
  FHTTPClient.AllowCookies:=True;
  FHTTPClient.MaxRedirects:=3;
  FHTTPClient.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8';
  FHTTPClient.AcceptEncoding:='gzip, deflate';
  FHTTPClient.AcceptLanguage:='ru,en-US;q=0.8,en;q=0.6';
  FHTTPClient.ContentType:='application/x-www-form-urlencoded';
  FHTTPClient.UserAgent:='Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36';
  FHTTPClient.OnValidateServerCertificate:=HTTPClientValidateServerCertificate;

  FMultipartFormData:=TMultipartFormData.Create;
  FMultipartFormData.AddField('action','login');
  FMultipartFormData.AddField('id_domain', '21');
  FMultipartFormData.AddField('login', '102355555');
  FMultipartFormData.AddField('password', 'n7icyq34783q');
end;

procedure TFormMain.ButtonPostClick(Sender: TObject);
Var ALocation : String;
begin
  try
    HTTPResponse:=FHTTPClient.Post('https://cabinet.komiesc.ru/cabinet',FMultipartFormData);
  except
    on E : Exception do
    begin
      if Not (E.Message.Contains('302') or E.Message.Contains('403')) then
      begin
        Memo.Lines.Add(E.Message);
        Exit;
      end;
    end;
  end;
// Код ниже можно игнорировать, это обработка редиректов при удачной авторизации
  if Assigned(HTTPResponse) then
  begin
    if HTTPResponse.StatusCode=302 then
    begin
      HTTPResponse.Headers;
      HTTPResponse.Date;
      FreeAndNil(FMultipartFormData);
      FMultipartFormData:=TMultipartFormData.Create;
      ALocation:=HTTPResponse.HeaderValue['Location'];
      ALocation:='https://cabinet.komiesc.ru/input_controlchecks';
      ALocation:='http://cabinet.komiesc.ru/input_controlchecks';
      if Not ALocation.IsEmpty then
      begin
        HTTPResponse:=FHTTPClient.Post('https://cabinet.komiesc.ru/input_controlchecks', FMultipartFormData);
        Memo.Lines.Text:=HTTPResponse.ContentAsString;
      end;
    end;
  end;
end;

procedure TFormMain.HTTPClientValidateServerCertificate(const Sender: TObject;
  const ARequest: TURLRequest; const Certificate: TCertificate;
  var Accepted: Boolean);
begin
  Accepted:=True;
end;

end.

test061 https.7z

Есть два способа решить эту проблему: либо установить новый сертификат, либо установить обновления ОС Windows.

Решение через ручную установку сертификата

Скачать сертификат можно по ссылке: https://letsencrypt.org/certs/isrgrootx1.der / зеркало (.der, 1.35Кб)

Необходимо запустить скачанный файл, на вкладке «Общие» нажать «Установить сертификат».

Выберите расположение «Локальный компьютер» и нажмите «Далее».

Выберите пункт «Поместить все сертификаты в следующее хранилище», нажмите «Обзор», выберите раздел «Доверенные корневые центры сертификации», нажмите «ОК» и «Далее», а в следующем окне – «Готово». При появлении вопросов об установке сертификатов – согласитесь на установку.

После этого перезапустите браузер и вновь попробуйте зайти на необходимый сайт.

Решение через установку обновлений

Для решения ошибки сертификата нужно установить обновления KB3020369 и KB3125574:

• KB3020369 из каталога Центра обновлений Microsoft
• KB3125574 из каталога Центра обновлений Microsoft

Дополнительно

Иногда установка одного лишь IdenTrust DST Root CA X3 может не помочь, так же рекомендуем дополнительно установить следующие корневые сертификаты:

• Go Daddy Root Certificate Authority
• GlobalSign Root CA