Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/

[Perl] Vírus total malware scanner

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[Perl] Vírus total malware scanner

Mensagem por r00t_5tr1k3r em Seg Ago 13, 2012 10:08 pm

Hi,
Segue um script que tem como objetivo verificar se determinado arquivo está infectado ou não,realizando uma requisição ao vírustotal,enviando a md5 de tal arquivo.Com a manipulação de expressões regulares capturamos algumas informações. =)

Código:

#!/usr/bin/perl


use strict;
use warnings;
use Digest::MD5::File qw(file_md5_hex);
use LWP::Simple qw(get);


sub inicio()
{
  if($^O =='linux')
  {
    system('reset');
  }
  else
  {
    system('cls');
  }
  print '[?] Digite a localização do arquivo: ';
  chomp(my$arqh=<>);
  print "[+] Aguarde ...\n|==========================================================|\n";
  my $hsh=file_md5_hex($arqh)||die"$!\n";
  my $smp = get("https://www.virustotal.com/file/$hsh/analysis/");
  while($smp =~ m/<td>([a-z1-6A-Z-\s]+):<\/td>\s+<td>([a-zA-Z0-9-\s]+)<\/td>/g)
  {
    print "\033[01;32m[+]\033[00;37m $1 $2\n";
  };
  if($smp =~ m/<td class=" text-.+ ">([0-9-\s-\/]+)<\/td>/g)
  {
    print "\033[01;31m[*]\033[00;37m Ratio de detecção: $1\n\n";
  }
   
 while($smp =~ m/<td>([a-zA-Z2-9-]+)<\/td>\s+<td class="text-red">(.*)<\/td>\s+<td>([0-9]+)<\/td>/g)
 {
    # $3 = última atualização do antivírus que detectou o vírus.
    print "\033[01;34m$1\033[00;37m => \033[01;37m$2\033[00;37m\n";
 };


 
  print "\n|==========================================================|\n";
 
}


&inicio(); 

Print de um teste que realizei.
Spoiler:

[Você precisa estar registrado e conectado para ver esta imagem.]

ps: Tive a idéia quando vi um tópico do hacker-fts315 =)
Bye
avatar
r00t_5tr1k3r
Membro

Mensagens : 7
Pontos : 3902
Reputação : 10
Data de inscrição : 12/08/2012
Idade : 23
Localização : #!/usr/bin/perl

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Perl] Vírus total malware scanner

Mensagem por Md. Morpheus em Ter Ago 14, 2012 8:15 pm

Excelente ideia, ta salvo aki. Valeu


[Você precisa estar registrado e conectado para ver esta imagem.]
È meu fã ? Use !
[Você precisa estar registrado e conectado para ver esta imagem.]



Meus amigos:
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Md. Morpheus
Membro

Mensagens : 117
Pontos : 4248
Reputação : 10
Data de inscrição : 08/08/2012
Localização : Matrix

Ver perfil do usuário http://hacker.umforum.net

Voltar ao Topo Ir em baixo

Re: [Perl] Vírus total malware scanner

Mensagem por hacker fts315 em Qua Ago 15, 2012 4:21 am

muito show mano *-*, tambem salvei ele aq ^^


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
hacker fts315
Membro

Mensagens : 53
Pontos : 4165
Reputação : 32
Data de inscrição : 12/08/2012

Ver perfil do usuário http://endoffile.umforum.net

Voltar ao Topo Ir em baixo

Re: [Perl] Vírus total malware scanner

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum