Moderadores Arimateia Jr Postado 2 Outubro Moderadores Compartilhar Postado 2 Outubro @Daniel Simoes Debugou o código para certificar-se que o CryptAcquireContext com a flag CRYPT_DELETEKEYSET tenha sido executado? Os arquivos temporários que não foram apagados foram criados pelos seus testes? Lembrando que o comando acima deleta exclusivamente o arquivo que foi criado durante a execução do PFXImportCertStore do mesmo contexto. Arquivos antigos que porventura estiverem na pasta não serão excluídos. Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 2 Outubro Fundadores Compartilhar Postado 2 Outubro Sim.. eu apaguei toda a pasta "RSA", e iniciei a conexão.. ele criou os arquivos temporários, passou por CryptAcquireContext com a flag CRYPT_DELETEKEYSET, quando encerrei a aplicação... mas mesmo assim os arquivos temporários ficaram no disco... Será que ele limpa esses arquivos, em outro processo de limpeza futuro ? Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 2 Outubro Fundadores Compartilhar Postado 2 Outubro Humm.. notei que a chamada está falhando... Ok := CryptAcquireContext(CryptProv, PAnsiChar(ContainerName), PAnsiChar(ProviderName), ProviderType, CRYPT_DELETEKEYSET); (Ok fica False) Vou tentar alguns ajustes... Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Arimateia Jr Postado 2 Outubro Moderadores Compartilhar Postado 2 Outubro 1 hour ago, Daniel Simoes said: Será que ele limpa esses arquivos, em outro processo de limpeza futuro ? A exclusão do arquivo temporário é feita imediatamente na execução do CryptAcquireContext com a flag CRYPT_DELETEKEYSET. Fiz testes em minha máquina de desenvolvimento (Windows 11) e em produção (Windows 2019 Server) com sucesso. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Arimateia Jr Postado 2 Outubro Moderadores Compartilhar Postado 2 Outubro 56 minutes ago, Daniel Simoes said: Humm.. notei que a chamada está falhando... Ok := CryptAcquireContext(CryptProv, PAnsiChar(ContainerName), PAnsiChar(ProviderName), ProviderType, CRYPT_DELETEKEYSET); As variáveis ContainerName, ProviderName e ProviderType estão sendo preenchidas corretamente na função GetProviderInfo? Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 2 Outubro Fundadores Compartilhar Postado 2 Outubro Sim, retornam... estou testando no Lazarus.. vou testar no Delphi.. Pode ser algo com AnsiChar vs WideChar Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 3 Outubro Fundadores Compartilhar Postado 3 Outubro Consegui fazer funcionar no D7, D12 e FPC... Realmente é a forma como a API trata os tipos "String" de WidString quando usando Unicode ou String, nos Delphis mais antigos... Obrigado pela contribuição.. se possível, por favor teste para ver se funciona no seu ambiente... Commit [r35488] 1 Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 4 Outubro Fundadores Compartilhar Postado 4 Outubro Por favor rode o Instalador, ou apague a pasta "ACBr\Lib" provavelmente a sua Unit ACBr_WinCrypt não foi recompilada... Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 8 Outubro Moderadores Compartilhar Postado 8 Outubro Em 04/10/2024 at 10:55, Daniel Simoes disse: Por favor rode o Instalador, ou apague a pasta "ACBr\Lib" provavelmente a sua Unit ACBr_WinCrypt não foi recompilada... Daniel. Bom dia . mas parece que essa implementação está excluindo a chave privada dos certificados Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 8 Outubro Fundadores Compartilhar Postado 8 Outubro Você Fala dos certificados que foram instalados no Windows e acessados pelo Número de Serie ? Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 8 Outubro Moderadores Compartilhar Postado 8 Outubro 25 minutos atrás, Daniel Simoes disse: Você Fala dos certificados que foram instalados no Windows e acessados pelo Número de Serie ? ao que parece sim Daniel. até vi esse commit abaixo Citar BigWings — Hoje às 08:52 Sim, o commit 35488 introduziu o problema. Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Consultores EMBarbosa Postado 8 Outubro Consultores Compartilhar Postado 8 Outubro 25 minutos atrás, Daniel Simoes disse: Você Fala dos certificados que foram instalados no Windows e acessados pelo Número de Serie ? Parece que sim: https://www.projetoacbr.com.br/forum/topic/68001-o-recipiente-da-chave-não-pode-ser-aberto-erro-80090016/?do=findComment&comment=517680&_rid=775 []'s Elton Profissionalize o ACBr na sua empresa, conheça o ACBr Pro. (15) 2105-0750 (15)99790-2976. Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas. Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh. Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 8 Outubro Fundadores Compartilhar Postado 8 Outubro vou modificar, pra verificar se carregou por PFX 1 Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 8 Outubro Fundadores Compartilhar Postado 8 Outubro apliquei uma possível correção para o problema... Commit [r35533] Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora