Virus em EXE feito em Delphi localizado pelo AVAST

Delphi

26/04/2006

Olá pessoal,
tenho um exe criado com o Delphi 7.0. Uso o antivirus AVG e nunca tive problemas.

Um de meus clientes usa o AVAST e ele esta dizendo(o Avast) que o meu EXE tem um cavalo de tróia chamado: Win32:Delf-gen7 [Trj]

Como resolver isso?


Carlosib

Carlosib

Curtidas 0

Respostas

Paulocesar1301

Paulocesar1301

26/04/2006

Já tentou passar o avast em sua máquina... posso estar falando besteira, mas o seu delphi pode estar infectado e os programas compilados com ele podem conter o vírus... se for realmente um vírus, pq o avast dá uma de maluco às vezes.


GOSTEI 0
Carlosib

Carlosib

26/04/2006

Passei sim... e nada acusou....


GOSTEI 0
Martins

Martins

26/04/2006

Passei sim... e nada acusou....


:shock:

Então a Heurística do AVAST ficou louca!!

Vc rodou o AVAST no seu PC?

muito estranho, de q se trata seu aplicativo?


GOSTEI 0
Paulocesar1301

Paulocesar1301

26/04/2006

falei que era maluco...

desinstala o seu sistema do cliente, passe o AVAST, reinicie e instale seu sistema denovo... se o problema persistir...

:!: :!: é problema de ´junta´ :!: :!:


GOSTEI 0
Delphi32

Delphi32

26/04/2006

já verificou se algum outro anti-vírus também identifica o vírus? faça isso para ter certeza se é um problema do avast ou se realmente tem algo no seu exe.

Também poderia ser algum componente no seu projeto que está fazendo o avast identificar um vírus. Não sei como funciona o avast, mas o alerta pode estar sendo dado por causa de algum componente que acessa a rede, a internet, etc.

t+!


GOSTEI 0
Carlosib

Carlosib

26/04/2006

Sim.... já passei o AVG e nada foi detectado.

Uso os componentes padrões do Delphi.


GOSTEI 0
Godzilla_xf

Godzilla_xf

26/04/2006

Vc ja tentou entrar em modo de segurança e passar o Antivirus no sistema, Seu e do Cliente???

pode ser que ajude. Instale o Avast em sua maquina tbm para ver o que da.


GOSTEI 0
Carlosib

Carlosib

26/04/2006

Passei o AVG, o Norton e nada foi encontrado.

Tenho esses antivirus instalados em minha máquina.

Instalei o AVAST e ao gerar o EXE no Delphi já recebo a mensagem.


GOSTEI 0
Paulocesar1301

Paulocesar1301

26/04/2006

Ao gerar...?? ou seja... antes mesmo de ser executado ?... sei lá.. tô achando que tem algo no seu Delphi


GOSTEI 0
Carlosib

Carlosib

26/04/2006

Pessoal,
estive analisando e chegei em uma unit (.DCU) passando o Avast por ela ele dizia que tinha um cavalo de troia nela.

Deletei-a e a recompilei.... o novo DCU continua com o cavalo de troia informação recebida pelo AVAST.

Fui no código fonte e no ´método´ tentativa e erro cheguei no código abaixo:

      OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));


Retirando o [b:5db9cb77fb]not[/b:5db9cb77fb] e recompilando o Avast não localizou mais o erro.

A função esta abaixo:

  function EnDecryptString(StrValue : String; Chave: Word) : String;
  var
    I: Integer;
    OutValue : String;
  begin
    OutValue := ´´;
    for I := 1 to Length(StrValue) do
      OutValue := OutValue + char(Not( ord(StrValue[I]) - Chave));
    Result := OutValue;
  end;


Alguém tem idéia de como resolver isso?[/b]


GOSTEI 0
Carlosib

Carlosib

26/04/2006

Consultando o HELP cheguei a isso:

    OutValue := ´´;
    {$B-}
    for I := 1 to Length(StrValue) do
      OutValue := OutValue + char(not (ord(StrValue[I])-Chave));
    {$B+}
    Result := OutValue;


e o Avast parou de reclamar....


GOSTEI 0
Adriano Santos

Adriano Santos

26/04/2006

Pessoal, estive analisando e chegei em uma unit (.DCU) passando o Avast por ela ele dizia que tinha um cavalo de troia nela. Deletei-a e a recompilei.... o novo DCU continua com o cavalo de troia informação recebida pelo AVAST. Fui no código fonte e no ´método´ tentativa e erro cheguei no código abaixo: 
      OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
Retirando o [b:515d6ae14f]not[/b:515d6ae14f] e recompilando o Avast não localizou mais o erro. A função esta abaixo: 
  function EnDecryptString(StrValue : String; Chave: Word) : String;
  var
    I: Integer;
    OutValue : String;
  begin
    OutValue := ´´;
    for I := 1 to Length(StrValue) do
      OutValue := OutValue + char(Not( ord(StrValue[I]) - Chave));
    Result := OutValue;
  end;
Alguém tem idéia de como resolver isso?[/b]


Consultando o HELP cheguei a isso: 
    OutValue := ´´;
    {$B-}
    for I := 1 to Length(StrValue) do
      OutValue := OutValue + char(not (ord(StrValue[I])-Chave));
    {$B+}
    Result := OutValue;
e o Avast parou de reclamar....



Nossa, pirei na batata lendo este tópico, bem loko né?


GOSTEI 0
Paullsoftware

Paullsoftware

26/04/2006

Eu já usei e nunca tive problemas usando o Nortom, AVG, NOD32...

 function EnDecryptString(StrValue : String; Chave: Word) : String; 
  var 
    I: Integer; 
    OutValue : String; 
  begin 
    OutValue := ´´; 
    for I := 1 to Length(StrValue) do 
      OutValue := OutValue + char(Not( ord(StrValue[I]) - Chave)); 
    Result := OutValue; 
  end;

muito estranho isso :twisted: :twisted: :twisted:


GOSTEI 0
Paulocesar1301

Paulocesar1301

26/04/2006

... na pior das hipóteses, muda a função de codificação !!
... e brow, que código hein :!: :!: :wink:


GOSTEI 0
POSTAR