Fórum Avast detecta falso virus na rotina em delphi #529457

class function TCriptografia.Decode(Valor: string): string;
var
  nTamanhoChave : Integer;
  nPosicaoChave : Integer;
  nValorRandom  : Integer;
  sRetorno      : String;
  nPosicaoValor : Integer;
  nPosicaoAsc   : Integer;
  nTmpSrcAsc    : Integer;
  nTamanho      : Integer;

begin

  if (Valor = '') Then
  begin
    Result:= '';
    Exit;
  end;
  sRetorno      := '';
  nTamanhoChave := Length(Chave);
  nPosicaoChave := 0;
  nPosicaoValor := 0;
  nPosicaoAsc   := 0;
  nTamanho      := 256;
  nValorRandom  := StrToInt('$' + copy(Valor,1,2));
  nPosicaoValor := 3;
  repeat
    nPosicaoAsc := StrToInt('$' + copy(Valor,nPosicaoValor,2));
    if (nPosicaoChave < nTamanhoChave) Then
      nPosicaoChave := nPosicaoChave + 1
    else
      nPosicaoChave := 1;
    nTmpSrcAsc := nPosicaoAsc Xor Ord(Chave[nPosicaoChave]);
    if nTmpSrcAsc <= nValorRandom then
      nTmpSrcAsc := 255 + nTmpSrcAsc - nValorRandom
    else
      nTmpSrcAsc  := nTmpSrcAsc - nValorRandom;
    sRetorno      := sRetorno + Chr(nTmpSrcAsc);
    nValorRandom  := nPosicaoAsc;
    nPosicaoValor := nPosicaoValor + 2;
  until (nPosicaoValor >= Length(Valor));
  Result:= sRetorno;

end;

    nTmpSrcAsc := nPosicaoAsc Xor Ord(Chave[nPosicaoChave]);