Usar certificado A3 sem usar Capicom

[billbarsch]

Oi pessoal, já encontrei perguntas parecidas mas estou com dificuldade em algo que pode ser simples.

Tenho uma cliente que não consegue configurar aqueles detalhes do Internet explorer de "certificados revogados" etc.

Sempre que desmarco as opções, o pc dela volta a aparecer marcados depois de alguns dias, não sei o que pode ser.

Na prática eu preciso usar o certificado A3 de alguma outra forma que não dependa mais das configurações do internet explorer.

Já ouvi falar aqui no grupo que tem como, mas não sei nem por onde começar.

Alguem que já usa assim poderia me falar quais configurações devo fazer? 

Quais variaveis tenho que setar no componente pra substituir o Capicon por uma outra que funcione no windows para ler Certificados A3?

 

 

Desde já agradeço aos desenvolvedores. Espero não estar sendo repetitivo.

[billbarsch]

oi pessoal,

Acabei de descobrir uma solução!!!

Fiz uma função que altera as configurações do internet explorer automaticamente para o que é necessário.

aqui vai a função:

 

procedure CorrigeRegistro();
const
  RegKey = '\Software\Microsoft\Windows\CurrentVersion\Internet Settings';
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_CURRENT_USER;
    if Registry.OpenKey(RegKey, False) then begin
      Registry.WriteBool('CertificateRevocation',false);
      Registry.WriteInteger('SecureProtocols',128);
    end;
  finally
    Registry.Free;
  end;
end;  

 

Basicamente o que esta função faz é desligar as opções avançadas do internet explorer relativo a certificados revogados etc.

Com isso acredito que vá resolver finalmente o problema em todos os clientes que vem com essas configurações marcadas!!

 

 

 

[billbarsch]

função melhorada pra desmarcar tudo!

 

 

 

procedure CorrigeRegistro();
const
  RegKey1 = '\Software\Microsoft\Windows\CurrentVersion\Internet Settings';
  RegKey2 = '\Software\Microsoft\Internet Explorer\Download';
  RegKey3 = '\Software\Microsoft\Windows\CurrentVersion\WinTrust\Trust Providers\Software Publishing';

var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_CURRENT_USER;
    if Registry.OpenKey(RegKey1, False) then begin
      Registry.WriteBool('CertificateRevocation',false);
      Registry.WriteInteger('SecureProtocols',128);
    end;
    if Registry.OpenKey(RegKey2, False) then begin
      Registry.WriteString('CheckExeSignatures','no');
    end;
    if Registry.OpenKey(RegKey3, False) then begin
      Registry.WriteInteger('State',146944);
    end;
  finally
    Registry.Free;
  end;
end;    

 

 

 

 

 

[...]