Fórum Virus em EXE feito em Delphi localizado pelo AVAST #319992
26/04/2006
0
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
Curtir tópico
+ 0Posts
26/04/2006
Paulocesar1301
Gostei + 0
26/04/2006
Carlosib
Gostei + 0
26/04/2006
Martins
: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
26/04/2006
Paulocesar1301
desinstala o seu sistema do cliente, passe o AVAST, reinicie e instale seu sistema denovo... se o problema persistir...
:!: :!: é problema de ´junta´ :!: :!:
Gostei + 0
26/04/2006
Delphi32
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
26/04/2006
Carlosib
Uso os componentes padrões do Delphi.
Gostei + 0
26/04/2006
Godzilla_xf
pode ser que ajude. Instale o Avast em sua maquina tbm para ver o que da.
Gostei + 0
27/04/2006
Carlosib
Tenho esses antivirus instalados em minha máquina.
Instalei o AVAST e ao gerar o EXE no Delphi já recebo a mensagem.
Gostei + 0
27/04/2006
Paulocesar1301
Gostei + 0
27/04/2006
Carlosib
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
27/04/2006
Carlosib
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
27/04/2006
Adriano Santos
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
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;
OutValue := ´´;
{$B-}
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(not (ord(StrValue[I])-Chave));
{$B+}
Result := OutValue;
Nossa, pirei na batata lendo este tópico, bem loko né?
Gostei + 0
27/04/2006
Paullsoftware
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
28/04/2006
Paulocesar1301
... e brow, que código hein :!: :!: :wink:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)