Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/

[Perl] URL Secure check - Tk+Anyevent

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

[Perl] URL Secure check - Tk+Anyevent

Mensagem por r00t_5tr1k3r em Qui Ago 30, 2012 11:35 pm

Hi,
Segue um script que tem como finalidade verificar se tal link passado ao script é seguro ou não,é realizado algumas requisições de modo assíncrono a alguns sites que realizam essa verificação tais eles,McAfee Site advisor,Mywot,Avg,etc.
Segue alguns prints.

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

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

Código:

#!/usr/bin/perl


use strict;
use warnings;
use AnyEvent::HTTP::LWP::UserAgent;
#use WWW::Mechanize;
use Tk;


my $mw = MainWindow->new();
$mw->title('URL Secure Checker');
$mw->geometry('519x290');
$mw->maxsize(qw(519 290));
$mw->minsize(qw(519 290));


my $btsobre=$mw->Button(-text=>'Sobre',
 -relief=>'raised',-borderwidth=>1,-height=>1,-command=>\&sobre,)->place(-x =>372,-y =>251,);
my $btfinalizar=$mw->Button(-text=>'Finalizar',-relief=>'raised',-borderwidth=>1,
-height=>1,-command=>\sub{exit},) ->place(-x =>294,-y =>251,);
my $txt = $mw->Entry(-width => 72,)->pack(-side => 'left',
-expand => 0,)->place(-x=>1,-y=>2);
my $listbox = $mw->Scrolled('Listbox',-height => 10,-width => 69,-scrollbars =>'osoe',)->pack(-ipadx=>230,
-ipady=>11,)->place(-x=>1,-y=>30);
$txt->insert('end','www.google.com.br');               
my $btscan=$mw->Button(-text=>'Verificar',-relief=>'raised',-borderwidth=>1,
-height=>1,-command=>\&scan) ->place(-x =>436,-y =>251,);


sub sobre()
{
    $mw->messageBox(-type=>"Ok",-title=>$mw->title, -message=>"Desenvolvido por r00t_5tr1k3r\n");
}


sub scan()
{
    my $url = $txt->get();
    $listbox->delete(0,'end');
    #my $mech = WWW::Mechanize->new();
    my $ua = AnyEvent::HTTP::LWP::UserAgent->new(agent=>'Mozilla/5.0 (Windows NT 6.2; rv:9.0.1) Gecko/20100101 Firefox/9.0.1');
    my $codigo;
   
    $codigo = $ua->get('http://sitecheck.sucuri.net/results/'.$url);
    if($codigo->content =~ /<span class="red">Site blacklisted.<\/span><\/td>/i)
    {
        $listbox->insert('end', 'Sucuri SiteCheck  =>  Site INseguro')
    }
    else
    {
        $listbox->insert('end','Sucuri SiteCheck  =>  Site seguro');
    };
   
    $codigo = $ua->get('http://www.avgthreatlabs.com/sitereports/domain/'.$url.'/');
    if($codigo->content =~ /<h2 class="green">Probably Safe<\/h2>/gi)
    {
        $listbox->insert('end','AVG  =>  Site seguro');
    }
    elsif($codigo->content =~ /Risky: May inflict active threat delivery/i)
    {
        $listbox->insert('end','AVG  =>  Site INseguro');
    }
   
    $codigo = $ua->get('http://www.mywot.com/en/scorecard/'.$url);
    if($codigo->content =~ /Very poor<\/div>/s)
    {
        $listbox->insert('end', 'Mywot  =>  Site INseguro')
    }
    elsif($codigo->content =~ /Excellent<\/div>/s)
    {
        $listbox->insert('end','Mywot  =>  Site seguro');
    }
    else
    {
        $listbox->insert('end','Mywot  =>  Resposta desconhecida');
    };
   
    $codigo = $ua->get("http://www.siteadvisor.com/sites/$url");
    if($codigo->content =~ /<img src="\/images\/green-xbg2.gif" alt="/gi)
    {
        $listbox->insert('end', 'McAfee Site advisor  =>  Site seguro')
    }
    elsif($codigo->content =~ /<img src="\/images\/red-xbg2.gif" alt="/gi)
    {
        $listbox->insert('end','McAfee Site advisor  =>  Site INseguro');
    }
    else
    {
        $listbox->insert('end','McAfee Site advisor  =>  Resposta desconhecida');
    };
}
       


MainLoop();

Não digo que o script é totalmente funcional =)
bye
avatar
r00t_5tr1k3r
Membro

Mensagens : 7
Pontos : 3772
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

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