Desinfector Virus: Win32/Induc.A v2.0

[Douglas Soares]

Bom dia galera, tive um probleminha semana passada, com um virus chamado Win32/Induc.A, que infecta a lib do delphi, pensando nisso fiz um programa para desinfectar o delphi, e resolvi postar para vocês, ele serve para a versão 4, 5, 6 e 7 do delphi.

Segue um print e o link para Download:

Desinfector_Induc.A_por_Douglas_Soares

Se ajudei, agradeçam...

________________________________________________________________________________

Segue a versão 2.0 do Desinfector, agora mais automatico do que nunca, e mais light rsrsrsr, segue o Screen Shot e o Download:

Desinfector Win32 / Induc.A v2.0 por Douglas Soares

________________________________________________________________________________

Segue as Fontes Abaixo: :ninja: :ninja: :ninja:

Fontes

Abraços

Editado Agosto 26, 2009 por Douglas_Soares

[Jhonas]

Douglas o programa esta muito bom...

mas pense numa maneira e automatizar a escolha da versão do delphi, ou seja faça uma varredura no micro para saber qual é a versão que esta sendo utilizada e executar os procedimentos automaticamente.

abraço

[Douglas Soares]

eheheh, eu gostaria de fazer isso, mas não sei nem como começar, se tu me der uma dica eu poderia até lançar a versão 2.0, eheheh

Abraços

[DiabloX3]

Talvez se pensarmos qual o arquivo que delimita a versao do delphi no computador e aonde ele é instalado por padrão seja uma dica

É como se um programa instalasse sempre uma dll na pasta system. O que voce teria que fazer é ver a versão dessa dll pelo nome talvez.

Ou senão encontrar a chave do registro que o delphi é gravado e verificar a versão.

Abraço

[Douglas Soares]

Vamos nos unir e terminar isso, rsrsrs, pelo menos isso que eu fiz é pra ajudar todo mundo, ehehehe.

Abraços

[Jhonas]

eu gostaria de fazer isso, mas não sei nem como começar, se tu me der uma dica eu poderia até lançar a versão 2.0

Isso é bem simples.... use esta rotina para saber qual é a versão do delphi instalada na maquina, o resto voce já fez, é só modificar o seu código.

Uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: Tregistry;
  S: string;
begin
  Reg:=Tregistry.create;
  with Reg do
  begin
    rootkey := HKEY_CURRENT_USER;
    If Openkey('SOFTWARE\BORLAND\PACKAGE COLLECTION EDITOR\INSTALLED PROGRAMS\DELPHI\',false) then
       S := readstring('VERSION')
    else
       showmessage('Registro não encontrado');
    closekey;
  end;
  showmessage('Versão do Delphi = ' + s);
end;

abraço

[Douglas Soares]

Agora sim, melhorou muito, e estará sempre aberto para mais sugestões!

Quem sabe mais virus do delphi surgiram, e todos eles eu possa remover em um programa só, eheheheh.

Abraços!

[Jhonas]

Voce pode reduzir o seu código fonte para apenas 3 rotinas

abraço

[Douglas Soares]

Eu posso? :ninja: rsrsrsr, amanha ou hoje mesmo quando chegar eu vou carregar as fontes e anexar ao post, dai vocês se divertem!

Abraços!

[Douglas Soares]

Fontes Anexadas!, vamos ver noque isso se transforma, eheheh!

[Jhonas]

Fontes Anexadas!

Para outros .... onde ??? não vi o seu link

abraço

[Douglas Soares]

eheheh, faltou indicação, mas já estavam lá.

Abraços