Bom dia pessoal.
Como todos sabem, na maioria das vezes em que o windows se atualiza ele marca aquelas opções de certificados revogados em "Opções da internet > Avançado" e, pelo menos comigo, gera uma grande quantidade de suporte à clientes.
O correto é ficar assim:
( ) Usar SSL 2.0
(x) Usar SSL 3.0
(x) Usar TSL 1.0
( ) Usar TSL 1.1
( ) Usar TSL 1.2
( ) Verificar revogação de certificados servidor*
(x) verificar se ha assinaturas em programas baixados
( ) Verificar se há revogação de certificados do editor
Então no final do ano passado até cheguei a comentar em um tópico se teria como modificar esses dados diretamente pelo delphi, pra facilitar nossa vida, mas não tinha ninguém com essa informação.
Pois bem, essa semana tive um tempinho e comecei a mexer com isso e creio que encontrei uma solução, segue abaixo programação para alterar o registro do windows com as opções corretas.
Já testado em alguns clientes e até o momento funcionando perfeitamente. (Testado em windows XP, 7, 2003 server)
uses Registry;
procedure TFPrincipal.FormCreate(Sender: TObject);
var
Registro: TRegistry;
begin
//acertando opções da internet (revogados / SSL / TSL)
//verificar revogação de certificados do servidor
Registro := TRegistry.Create(KEY_WRITE);
Registro.RootKey := HKEY_CURRENT_USER;
if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', true) then begin
Registro.WriteInteger('CertificateRevocation', 0);
end;
registro.CloseKey;
//verificar se há certificados revogados do fornecedor
if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\WinTrust\Trust Providers\Software Publishing', true) then begin
Registro.WriteInteger('State', 146944);
end;
registro.CloseKey;
//Usar SSL 3.0 / Usar TSL 1.0
if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', true) then begin
Registro.WriteInteger('SecureProtocols', 160);
end;
registro.CloseKey;
registro.Free;
end;
Espero ajudar o pessoal do ACBr com essa contribuição.
Um abraço a todos.