erro division by zero

[ThiagoRS]

Boa Tarde,

ao Preencher a senha do certificado no ACBRNFe esta retornando mensagem de erro "Division by Zero" na Função StrCrypt(

a chave para criptografar a senha esta vazia.

começou após a atualização que fiz hoje.

[Juliomar Marchetti]

boa tarde!

não lembro de ter essa função dentro do componente ACBrNFe!

[ThiagoRS]

ACBRDFeConfiguracoes

 

o problema não estava nela, o meu delphi estava testando as duas condições mesmo a primeira sendo falsa

 

procedure TCertificadosConf.SetSenha(AValue: AnsiString);
begin

{Erro ao executar a função com FK vazio}
    if (FK <> '') and (FSenha = StrCrypt(AValue,FK)) then
    Exit;

  FK := FormatDateTime('hhnnsszzz',Now);
  FSenha :=StrCrypt(AValue, FK);  // Salva Senha de forma Criptografada, para evitar "Inspect"

  TACBrDFe(FConfiguracoes.Owner).SSL.Senha := AValue;
end;

 

 

ACBRUtil

{-----------------------------------------------------------------------------
 Retorna a String <AString> encriptada por <StrChave>.
 Use a mesma chave para Encriptar e Desencriptar
 ---------------------------------------------------------------------------- }
function StrCrypt(const AString, StrChave: AnsiString): AnsiString;

 

[Juliomar Marchetti]

há tá tu está usando em seu código as funções!

bom acho que está enviando um espaço vázio ou algo assim!