Melhoria no método de leitura de dados do certificado Pfx

[João Antônio]

Bom dia,

Iniciei alguns testes com Delphi + Linux + ACBNFSeX. Verifiquei que ao carregar os dados do certificado digital .pfx no Linux causa erro ERangeError, quando Range checking está habilitado nas configurações do projeto (estranhamente que em ambiente windows mesmo com RangeChecking habilitado nao causa erro)

Identifiquei onde o problema é causado e melhorei o método para evitar esse erro. Segue a unit modificada. 

Testado em Win32/Win64/Linux64 para carregamento de certificados A1.

ACBrDFeOpenSSL.pas

Método alterado: BioToStr

 

function BioToStr(ABio : pBIO) : AnsiString ;
Var
  Ret : Integer ;
  Lin : AnsiString ;
begin
  Result := '';
  Ret := BIO_ctrl(ABio, BIO_CTRL_PENDING, 0, nil);
  if Ret > 0 then
  begin
    SetLength(Lin, Ret);
    BioRead( ABio, Lin, Ret);
    Result := Lin;
  end;
end ;

 

[Italo Giurizzato Junior]

Boa tarde João,

Passei a sua contribuição para a Equipe ACBr avaliar.

Estando tudo OK, com certeza vai para o SVN.

Desde já muito obrigado pela contribuição.

[Daniel Simoes]

@João Antônio, em qual linha exatamente, ocorria o erro de RangeChecking ?

function BioToStr(ABio : pBIO) : AnsiString ;
Var
  Ret : Integer ;
  Lin : AnsiString ;
begin
  Result := '';
  repeat
    SetLength(Lin,1024);
    Ret := BioRead( ABio, Lin, 1024);
    if Ret > 0 then
    begin
      Lin := copy(Lin,1,Ret) ;
      Result := Result + Lin;
    end ;
  until (Ret <= 0);
end ;

Eu prefiro essa implementação, pois ela trabalha com um Buffer de 1K, e não teria problemas de memória, mesmo que o conteúdo de pBio, fosse muito grande..

[João Antônio]

O erro ocorre em 

Ret := BioRead( ABio, Lin, 1024);

Esse método é chamado a primeira vez e lê os dados, sem erros. Nesse momentos os dados são lidos por completo, pois é menor que 1024. 

Prossegue-se o loop e ao chamar o metodo BioRead novamente ocorre o erro. Justamente por não há mais dados a serem lidos. 

Editado 1 Agosto, 2022 por João Antônio
Erro de escrita

[Daniel Simoes]

Obrigado pela resposta...

É esperado que BioRead retorne 0 ou algum valor negativo.. mas por "Ret" ser Integer, isso não seria problema.. e o IF abaixo, trata valores não positivos...

Qual a sua IDE ? Como você compila no Linux ?

[João Antônio]

Uso Delphi 10.4.2 Sydney compilando para Linux Ubuntu 20.04. 

Alterei a modificação que tinha feito BioToStr para continue lendo buffers de 1k e não gere a exceção de RangeCheck:

function BioToStr(ABio : pBIO) : AnsiString ;
Var
  RetTotal : Integer ;
  BufferLen: Integer;
  Lin : AnsiString ;
begin
  Result := '';
  RetTotal := BIO_ctrl(ABio, BIO_CTRL_PENDING, 0, nil);
  if RetTotal > 0 then
  begin
    BufferLen := 1024;
    while RetTotal > 0 do
    begin
      if RetTotal < BufferLen then
        BufferLen := RetTotal;

      SetLength(Lin, BufferLen);
      BioRead(ABio, Lin, BufferLen);
      Result := Result + Lin;
      Dec(RetTotal, BufferLen);
    end;
  end;
end ;

 

Segue anexo a unit alterada e um projeto teste que compila delphi win32,win64 e LInux64

ACBrDFeOpenSSL.pas OpenSSLACBr.zip

Editado 1 Agosto, 2022 por João Antônio
Erro de escrita

[Daniel Simoes]

Mas nesse caso, não temos o mesmo problema ?

    BioRead(ABio, Lin, BufferLen);

Estou tentando compreender o que pode gerar o problema de RangeChecking

[João Antônio]

23 minutos atrás, Daniel Simoes disse:

Mas nesse caso, não temos o mesmo problema ?

    BioRead(ABio, Lin, BufferLen);

Estou tentando compreender o que pode gerar o problema de RangeChecking

Não terá o problema porque só irá ler a quantidades de bytes restantes para leitura que foi obtido inicialmente pelo método BIO_ctrl.

Pelo que pude entender, o método original causa erro porque a posição de leitura já está no final de pBIO e quando tenta ler novamente causa o erro. 

Algo que não consegui entender é porque em ambiente Windows esse erro não acontece mesmo com o RangeCheck habilitado. Talvez seja um bug do Delphi na compilação Linux.

[Daniel Simoes]

1 minuto atrás, João Antônio disse:

Pelo que pude entender, o método original causa erro porque a posição de leitura já está no final de pBIO e quando tenta ler novamente causa o erro. 

Não parece ser o caso.. ele pode ler de 0 a 1024 Bytes, pois BufferLen é 1024...  "RetTotal" não está sendo usado na chamada de "BioRead"...

[João Antônio]

15 horas atrás, Daniel Simoes disse:

Não parece ser o caso.. ele pode ler de 0 a 1024 Bytes, pois BufferLen é 1024...  "RetTotal" não está sendo usado na chamada de "BioRead"...

Com certeza RetTotal é usado. Se o RetTotal é menor que 1024 BufferLen assume o valor de RetTotal. Quando RetTotal é maior que 1024 lê-se o buffer de 1024 e subtrai o valor de RetTotal para obter o valor restante a ser lido e retorna ao inicio do loop.

[Daniel Simoes]

Mas se 1024, causa o erro de RangeChecking (o que não deveria, pois estamos falando de um Integer)... então essa implementação ainda corre o risco de ocorrer problema...

[Juliana Tamizou]

Tópico fechado por falta de retorno do usuário