[Perl] URL Secure check - Tk+Anyevent
Página 1 de 1
[Perl] URL Secure check - Tk+Anyevent
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.
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Não digo que o script é totalmente funcional =)
bye
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.
[Tens de ter uma conta e sessão iniciada para poderes visualizar 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
r00t_5tr1k3r- Membro
- Mensagens : 7
Pontos : 8594
Reputação : 10
Data de inscrição : 12/08/2012
Idade : 29
Localização : #!/usr/bin/perl
Tópicos semelhantes
» [tutorial] regex em perl
» [tutorial] hash no perl
» [tutorial] struct em perl
» [tutorial] fork em perl
» [tutorial] criando funçao no perl
» [tutorial] hash no perl
» [tutorial] struct em perl
» [tutorial] fork em perl
» [tutorial] criando funçao no perl
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos