Proxy-Base Community - Анонимность и безопасность в интернете. - Показать сообщение отдельно - Полезные скрипты [Perl],[PHP],[Python]
Показать сообщение отдельно
Старый 11.08.2009, 16:10   #3 (permalink)
2FED
VPN
 
Аватар для 2FED
 
Регистрация: 11.05.2009
Адрес: Сибирь
Сообщений: 458
Member ID: 4
ICQ 310234

Репутация: 855
Репутация: 855
Сказал(а) спасибо: 599
Поблагодарили 516 раз(а) в 199 сообщениях
По умолчанию

Поисковик эксплойтов
PHP код:
#!/usr/bin/perl
use LWP::UserAgent;
system('cls');
print 
qq{
########################################
#   Exploit \& Vulnerability Searcher   #
#         coded by ph1l1ster           #
########################################};
print "\n\n\nWhat search?:\n";
print 
"> ";
$spl = <STDIN>;
chomp($spl);
system('cls');
# milw0rm.com
print ">>> # Milw0rm.com \n\n";
$url "http://www.milw0rm.com/search.php?dong=".$spl."&Submit=submit";
$start LWP::UserAgent->new( ) or die;
$ans $start->get($url);
if (@
spl $ans->content =~ /<a href=\"(.*)\" target=\"_blank\" class=\"style14\">/g){
print "
\nhttp://milw0rm.com";
print join "\nhttp://milw0rm.com", @spl;}
else {
print 
"NOT FOUND!";}
# securityvulns.com
print "\n\n>> # securityvulns.comn\n";
$url "http://securityvulns.com/exploits/?keyword=".$spl;
$start LWP::UserAgent->new( ) or die;
$ans $start->get($url);
if (@
spl $ans->content =~ /<class="tiny" HREF=\"\/files\/([^"]*)\">/g){
print "
\nhttp://securityvulns.com/files/";
print join "\nhttp://securityvulns.com/files/", @spl;}
else {
print 
"NOT FOUND!";}
# securiteam.com
print "\n\n>> # securiteam.com\n\n";
$url "http://www.securiteam.com/cgi-bin/htsearch?words=".$spl."&method=and&format=builtin-long&sort=score&restrict=&exclude=&x=0&y=0";
$start LWP::UserAgent->new( ) or die;
$ans $start->get($url);
if (@
spl $ans->content =~ /<A STYLE=\"color: #333;\" HREF=\"(.*)\">.*<\/A>&nbsp;<img src=\"/g){
print join "
\n", @spl;}
else {
print "
NOT FOUND!";}
# securitydot.net
print "
\n\n>> # securitydot.net\n\n";
$url "http://securitydot.net/search.php?sch=sch&metaname=all&query=".$spl;
$start LWP::UserAgent->new( ) or die;
$ans $start->get($url);
if (@
spl $ans->content =~ /<li>.*<a href=\"(.*)\"><b>.*<\/b><\/a><\/li>/g){
print "
\nhttp://securitydot.net";
print join "\nhttp://securitydot.net", @spl;}
else {
print 
"NOT FOUND!";}
if (@
spl $ans->content =~ /<img src=\".*\" alt=\".*\"><a href=\"(.*)\"><b>.*<\/b><\/a><\/li>/g){
print "
\nhttp://securitydot.net";
print join "\nhttp://securitydot.net", @spl;}
else {
print 
"NOT FOUND!";}
# packetstormsecurity.org
print "\n\n>> # packetstormsecurity.org\n\n";
$url "http://www2.packetstormsecurity.org/cgi-bin/search/search.cgi?searchvalue=".$spl."&type=archives&%5Bsearch%5D.x=0&%5Bsearch%5D.y=0";
$start LWP::UserAgent->new( ) or die;
$ans $start->get($url);
if (@
spl $ans->content =~ /<class=\"fname\" href=\"(.*)\">.*<\/a>/g){
print join "
\n", @spl;}
else {
print "
NOT FOUND!";}
# (c)ph1l1ster 
2FED вне форума   Ответить с цитированием