Size: a a a

2020 April 28

DB

Dmitry Belkevich in Delphi & Lazarus
вот - если клиенту прописать, то он насколько я помню будет проверяться и работать полностью нормально
источник

DB

Dmitry Belkevich in Delphi & Lazarus
а так то канал пошифруется, только что клиент будет ругаться, что сертификат плохой
источник

AZ

Andrey Zubov in Delphi & Lazarus
ну там это отключается и ворнинги не лезут, вот например как самоподписанный у меня в браузере выглядит
источник

DB

Dmitry Belkevich in Delphi & Lazarus
и если не повезет, то вообще не пустит - от настроек зависит насколько помню
источник

AZ

Andrey Zubov in Delphi & Lazarus
источник

DB

Dmitry Belkevich in Delphi & Lazarus
вот может в опциях нужно шурудить, что бы ошибки или предупреждения не лезли
источник

DB

Dmitry Belkevich in Delphi & Lazarus
ну или прописать на клиентах, тогда будет нормально всегда. но тоже на 100% не скажу
источник

AZ

Andrey Zubov in Delphi & Lazarus
браузер конечно ругается в первый раз, но просто вносишь в настройки и дальше работает без проблем, а если чисто из дельфи то там на уровне компонента опция и все работает
источник

AZ

Andrey Zubov in Delphi & Lazarus
а вот так на клиенте сделать чтобы на такой сертификат не ругалось
источник

AZ

Andrey Zubov in Delphi & Lazarus
procedure TfmClientMain.OnRemoteDBHttpClientEvent(Sender: TObject;
 Client: THttpClient);
begin
   TWinHttpEngine(Client.Engine).BeforeWinHttpSendRequest :=
   procedure(Handle: HINTERNET)
   var
     dwFlags: DWORD;
   begin
     dwFlags := SECURITY_FLAG_IGNORE_UNKNOWN_CA or
       SECURITY_FLAG_IGNORE_CERT_WRONG_USAGE or
       SECURITY_FLAG_IGNORE_CERT_CN_INVALID or
       SECURITY_FLAG_IGNORE_CERT_DATE_INVALID;
     WinHttpCheck(WinHttpSetOption(Handle, WINHTTP_OPTION_SECURITY_FLAGS, @dwFlags, SizeOf(dwFlags)));
   end;
end;
источник

AZ

Andrey Zubov in Delphi & Lazarus
и дальше все работает как по маслу :)
источник

AS

Alexey Shumkin in Delphi & Lazarus
Andrey Zubov
procedure TfmClientMain.OnRemoteDBHttpClientEvent(Sender: TObject;
 Client: THttpClient);
begin
   TWinHttpEngine(Client.Engine).BeforeWinHttpSendRequest :=
   procedure(Handle: HINTERNET)
   var
     dwFlags: DWORD;
   begin
     dwFlags := SECURITY_FLAG_IGNORE_UNKNOWN_CA or
       SECURITY_FLAG_IGNORE_CERT_WRONG_USAGE or
       SECURITY_FLAG_IGNORE_CERT_CN_INVALID or
       SECURITY_FLAG_IGNORE_CERT_DATE_INVALID;
     WinHttpCheck(WinHttpSetOption(Handle, WINHTTP_OPTION_SECURITY_FLAGS, @dwFlags, SizeOf(dwFlags)));
   end;
end;
оох
источник

AS

Alexey Shumkin in Delphi & Lazarus
Andrey Zubov
ну самосгенерированные не проверяются вроде и только канал шифруют, а настоящий вроде через центр проверить можно. хотя я в этой теме не силен
чем "настоящий" от "ненастоящего" отличается? )))
только наличием в корневых СА нужного СА ))
источник

AZ

Andrey Zubov in Delphi & Lazarus
Alexey Shumkin
чем "настоящий" от "ненастоящего" отличается? )))
только наличием в корневых СА нужного СА ))
ну да, либо ты купил его за денежку, либо сгенерировал его сам на халяву :)
источник

GB

George Bakhtadze in Delphi & Lazarus
Andrey Zubov
ну да, либо ты купил его за денежку, либо сгенерировал его сам на халяву :)
можно нормальный сгенерить бесплатно
источник

GB

George Bakhtadze in Delphi & Lazarus
Andrey Zubov
а вот так на клиенте сделать чтобы на такой сертификат не ругалось
зачем все-то проверки отключать?
источник

AZ

Andrey Zubov in Delphi & Lazarus
George Bakhtadze
можно нормальный сгенерить бесплатно
можно, но зачем? шифровать траффик в локалке и такой сгодится
источник

AZ

Andrey Zubov in Delphi & Lazarus
да и каждые 3 месяца надо новый генерить, а тут сделал на 10 лет и забыл :)
источник

GB

George Bakhtadze in Delphi & Lazarus
ну и да, вместо отключения проверки CA лучше конечно добавить корневой серт в доверенные приложению. вот тут http.sys начнет ставить палки в колеса :)
источник

GB

George Bakhtadze in Delphi & Lazarus
Andrey Zubov
да и каждые 3 месяца надо новый генерить, а тут сделал на 10 лет и забыл :)
если шифрование просто чтоб было, то да. а если для безопасности, то лучше менять периодически
источник