Статья Smcom - Скрипт для поиска установленных компонентов Joomla.

merioq · 19.03.2017

Вы про github слышали? Исходники в архиве это моветон в 2017 году.

centr · 19.03.2017

merioq сказал(а):
Вы про github слышали? Исходники в архиве это моветон в 2017 году.

Нет, не видел!
Мне вот захотелось его разместить именно здесь, с архивом конечно погарячился не много, но и вреда от него ни какого, хочется скачай, посмотри\улыбнись, не хочется пройди мимо, заюзай с того же гита joomscan.

Inject0r · 24.03.2017

спасибо, полезная штука

centr · 26.03.2017

С временем в последние время небольшой напряг (работа\природа\шашлык/башлык\ да и поспать ни разу не-не...), в общем выкрапил для "Апгрёйда" скрипта пару часиков...
Итог:
Добавил возможность указывать маску для заголовка UserAgent.
Добавил возможность рыскать имена компонентов по всему сайту перебирая все линки которые только возможно обнаружить.
Добавил простой сканер на уязвимые параметры при поиске компонентов по всему сайту, будет каждую найденную ссылку пробовать на любимую "кавычельку", каждый параметр найденной линки.
Немного переделал запись лога, в принципе всё так же... просто теперь можно указать только директорию в которой будет производиться запись лога, скрипт сам создаст отдельную папку в которой будет писать логи, если папку не указывать то создаться папка в директории где располагается сам скрипт.

Вроде бы всё, время позднее и не много мысли разбигаются, если что забыл дополню в следующий раз.

текущая версия скрипта 1.2.9 beta, версия базы компонентов 0.0.3, текущие опции:

Код:

-с               Вывод только полезной информации, то есть выводит только обнаруженные компоненты.
--log            Запись результата сканирования в указанную директорию.
--proxy          Для подключение будет использоваться указанный прокси (в случае с использованием tor это socks://localhost:9050)
-ss              Для обладателей Kali-Linux добавлена возможность искать сплоит в локальной базе exploit-db, используется "searchsploit".
-secj            Поиск компонента на сайтах с базами уязвимостей через ресурс sec.jetlib.com 
-i               Перебор компонентов из локальной базы (comdb)
-a               Поиск компонентов по всему сайту.
    -v           Указав параметр "-a" можно использовать простой сканер уязвимых параметров.
--user-agent     Указать маску заголовка "UserAgent", будет использоваться рандомнный вариант из указанной маски.
---------------------------------------------------
Доступные маски:
#amiga
#beos
#browsers
#cloud_platforms
#consoles
#crawlers
#feed_readers
#freebsd
#link_checkers
#linux
#macintosh
#netbsd
#openbsd
#os2
#others
#phones
#proxy
#shell
#sunos
#tool
#validators
#wap
#windows

Подробнее можно узнать здесь https://metacpan.org/pod/WWW::UserAgent::Random

Пример запуска скрипта:

Код:

Сканирование и вывод найденных и не найденных компонентов, перебор из локальной базы:

perl Smcom.pl -u https://site.en -i

Сканирование с использованием proxy для подключения, поиск компонентов по всему сайту:

perl Smcom.pl -u https://site.en -a --proxy socks://localhost:9050

Сканирование и вывод только найденных компонентов, перебор из локальной базы:

perl Smcom.pl -u https://site.en -i -c

Сканирование и запись результата в указанной директории:

perl Smcom.pl -u https://site.en --log /root/path/dir_for_result/

Сканирование и поиск компонента среди локальной базы exploit-db используя searchsploit, перебор из локальной базы: 

perl Smcom.pl -u https://site.en -i -ss 

Сканирование и поиск компонента на сайтах с базами уязвимостей используя ресурс sec.jetlib.com, перебор из локальной базы:

perl Smcom.pl -u https://site.en -i -secj 

Сканирование и поиск компонентов по всему сайту, по ходу сканировать на уязвимость в параметрах ссылок:

perl Smcom.pl -u https://site.en -a -v 

Сканирование и поиск компонентов из локальной базы используя для подключения маску для заголовка UserAgent:

perl Smcom.pl -u https://site.en -i --user-agent linux

Конечно всё только начинается и всё впереди, пожелания\замечания приветствуются.

P.s. Кому интересны обновления и дополнения заглядывайте в этот топик почаще.
[doublepost=1490558323,1490372862][/doublepost]текущая версия 1.2.16e beta

Оптимизирован результат выдачи простого сканера на уязвимые параметры.
В место тулзы searchsploit используется локальный поиск в файлах базы exploit-db, что даёт более точный результат.

Код:

perl Smcom.pl -u http://target.io -i -sl -a -v -c

Для остановки работы скрипты нажмите enter в консоле и не много подождите (возможно потребуется нажаться пару раз).

Код:

#!/usr/bin/perl
#-------------------------------------------
#Show Me components Joomla 
#Version: 1.2.16e beta
#Version Components DB: 0.0.3
#Description:This script touches on components on the website with Joomla engine according to the list and shows result of search.
#Author: Centr
#link: https://codeby.net/members/centr.71419/
#___________________________________________

use WWW::UserAgent::Random;
use LWP::UserAgent;
use HTTP::Request;
use HTML::Entities;
use File::Spec;
use URI::Escape;

my ($check_ver_com);
my $f_base_com='comdb';

chomp @ARGV;

$banner=qq{
\n******************************************\n
*        Show me components Joomla!      *\n 
*            Version: 1.2.16e beta         *\n
*       Version Components DB: 0.0.3     *\n
*                by Centr                *\n
******************************************\n\n
};

$p_example=qq{
\nUsage:perl Smcom.pl -u http://target.no [-i|-a [-v]] [-c|-secj|-sl][--log /path/]{--proxy|--user-agent} \n
\nExample:\nperl Smcom.pl -u http://target.no -c -a\n
-Example:\nperl Smcom.pl -u http://target.no -c -i -secj -sl \n
-Example:\nperl Smcom.pl -u http://target.no -i \n
-Example:\nperl Smcom.pl -u http://target.no -c -a -v \n
-Example:\nperl Smcom.pl -u http://target.no -c -secj -sl -a -v -i\n
-Example:\nperl Smcom.pl -u http://target.no -i -a -v\n
-Example:\nperl Smcom.pl -u http://target.no -c -i --proxy socks://localhost:9050\n
-Example:\nperl Smcom.pl -u http://target.no -c -i --user-agent windows\n
-Example:\nperl Smcom.pl -u http://target.no -c -a --log /path/dir_for_log\n
-Example:\nperl Smcompl -h \n
};

$s_help=qq{
\n-i             Search of components from a local basis (comdb).\n
\n-a             Search of components in all website.\n
\n   -v          Simple scanner of vulnerable parameters.\n
\n-c             To write about the found components.\n
\n--log          To write a log to the specified directory.\n
\n--proxy        Set you proxy.\n
\n--user-agent   Set mask header user-agent.\n
\n-secj          Search component in http://sec.jetlib.com. \n
\n-sl            Search component in local database exploit-db(only in kaliLinux).\n
\n-h             Print this help.\n
\n-----------------------------------------------------------------------\n	
};



print $banner;
$logs=$banner;

unless(@ARGV){
	print $p_example;
} elsif (@ARGV[0]=~/-h/) {
print $s_help;
print $p_example;
} else {
		 

 for ($cA=0;$cA<@ARGV;$cA++){
	if ($ARGV[$cA] eq "-u"){ 
$url=$ARGV[$cA+1];
} elsif ($ARGV[$cA] eq "-i"){ 
$search_list=1;
} elsif ($ARGV[$cA] eq "--log"){ 
$logdir=$ARGV[$cA+1];
}elsif ($ARGV[$cA] eq "--proxy"){ 
$proxy=$ARGV[$cA+1];
}elsif ($ARGV[$cA] eq "-c"){ 
$cls=1;
}elsif ($ARGV[$cA] eq "--user-agent"){ 
$agent=$ARGV[$cA+1];
}elsif ($ARGV[$cA] eq "-a"){ 
$search_all_link=1;
}elsif ($ARGV[$cA] eq "-v"){ 
$search_all_vuln=1;
}elsif ($ARGV[$cA] eq "-secj"){ 
$use_secj=1;
}elsif ($ARGV[$cA] eq "-sl"){ 
$use_sl=1;
}
}

 ($protocol,$host_name)=split(';',get_host_name($url));

	 $logs=$logs."Target URL: $url\n";
	 print "Target URL: $url\n";
	 
	 if($search_list){
	$option=$option."Search of components from a local basis (comdb).\n"
}
 if($search_all_link){
	$option=$option."Search of components in all website.\n"
}
 if($search_all_vuln){
	 $option=$option."Simple scanner of vulnerable parameters.\n"
}

 if($use_secj){
	 $option=$option."Search vuln for components in sec.jetlib.\n"
}

 if($use_ss){
	 $option=$option."Local db for search exploit.\n"
}

 if($proxy){
	 $option=$option."Use proxy ( $proxy )for connected.\n"
}

 if($agent){
	 $option=$option."Use UserAgent $agent.\n"
}

if ($option){
	 $logs=$logs."Option on: $option\n";
	 print "Option on: $option\n";
}

$content_host=get_page($url,$agent,$proxy);
echo_star();

if ($search_list){
   if (open(my $fbase, '<:encoding(UTF-8)', $f_base_com)) {
	      while ($com = <$fbase>) {
			  if(get_key()){
	print 'You want to stop execution of a script?(Yes[y]\No[n]):';$stp=<STDIN>;
if($stp=~/y/){
	last;
}
}
		chomp $com;
	   com_check($com);
   }
	  close $fbase; 
} else { print "Error open comdb!\n\n";}

}
}


if ($search_all_link){
	my $full_str=parse_link_from_content($content_host,$all_link,$all_link_other_host,$all_com,$all_file);
	
($all_link,$all_link_other_host,$all_com,$all_file)=split(/Smc0mo0oi0o0/ ,$full_str);

my ($tested_parametrs);
	
while(1){
	
my @one_ln=split("\n",$all_link);

for(my $n_ln=0;$n_ln<@one_ln;$n_ln++){
	if(get_key()){
	print 'You want to stop execution of a script?(Yes[y]\No[n]):';$stp=<STDIN>;
if($stp=~/y/){
	last;
}
}
	my $lin_q=quotemeta($one_ln[$n_ln]);
	unless($parses_link=~/$lin_q/i){	
my $content_one=get_page($one_ln[$n_ln],$agent,$proxy);

if($search_all_vuln){
if($one_ln[$n_ln]=~/\?/){
my $checkeds_r=checks_testes($one_ln[$n_ln],$tested_parameters);		
	my @arr_chekeds=split('-----',$checkeds_r);
	$tested_parameters=$arr_chekeds[1];
	if($arr_chekeds[0] eq 'no testes '){
		
		unless($cls){
	print "$one_ln[$n_ln] \n";
}
my $vuln_t_str=vuln_test($one_ln[$n_ln],$content_host);
if($vuln_t_str){
$result_vuln_test=$result_vuln_test.$vuln_t_str;
print "$vuln_t_str\n";
}
}
}
} 

my $full_string=parse_link_from_content($content_one,$all_link,$all_link_other_host,$all_com,$all_file);
($all_link,$all_link_other_host,$all_com,$all_file)=split(/Smc0mo0oi0o0/ ,$full_string);

$parses_link=$parses_link.$one_ln[$n_ln]."\n";

} 

			
}
my $all_link_n=split("\n",$all_link);
my $parses_ln_n=split("\n",$parses_link);
	if($parses_link eq $all_link){
		$logs=$logs.$result_vuln_test."\n";
		last;
		}elsif($stp =~/y/){
			$logs=$logs.$result_vuln_test."\n";
			last;
}
}	

}


$logs=$logs."\n\n=======================================\nEnd work!\n";
print "\n\n=======================================\nEnd work!\n";

	unless($logdir){
my $path_to_file = File::Spec->rel2abs($0); 
my @path = File::Spec->splitpath( $path_to_file );
			$logdir=$path.$host_name.'/';
		}else{
		$logdir=$logdir.$host_name.'/';	
		}	
		unless(-d $logdir){
			mkdir($logdir,0655);
			creat_log($logdir,$logs,$all_link,$all_link_other_host,$all_com,$all_file);
		}else{
		creat_log($logdir,$logs,$all_link,$all_link_other_host,$all_com,$all_file);
		}

sub creat_log()
{
my $ldir=$_[0];
my $ls=$_[1];
my $all_ls=$_[2];
my $all_link_other_host_s=$_[3];
my $all_com_s=$_[4];
my $all_file_s=$_[5];
	
my $log_file=$ldir.'Logs_works.txt';	
cr_f($log_file,$ls);	

if($all_ls){
my $f_all_link=$ldir.'All_link.txt';
cr_f($f_all_link,$all_ls);
}
if($all_link_other_host_s){
my $f_all_link_other_host_s=$ldir.'All_link_other_site.txt';
cr_f($f_all_link_other_host_s,$all_link_other_host_s);
}
if($all_com_s){
my $f_all_com_s=$ldir.'All_components.txt';
cr_f($f_all_com_s,$all_com_s);	
}
if ($all_file_s){
my $f_all_file_s=$ldir.'All_files.txt';
cr_f($f_all_file_s,$all_file_s);
}

}	

sub cr_f()
{
my $file=$_[0];
my $text=$_[1];

if(open(my $flog, '>',$file)){
		print $flog $text;
		close $flog;
	}else{ print "\nError open file: $file\n"; }	
	
}


sub echo_star()
{
my ($content);	
$content=get_page("$url/administrator/manifests/files/joomla.xml",$agent,$proxy);

	 if($content){
		
	@jve=split("<version>",$content);
	($jov_j)=split("</version>",$jve[1]);
$logs=$logs."\n--------------------------------------------------\n"; 
	 $logs=$logs."Detected Joomla! version(s) joomla.xml:$jov_j [+]\n";
	 print "Detected Joomla! version(s) joomla.xml:$jov_j [+]\n";
 } else { 
	 print "\n--------------------------------------------------\n"; 
	 $logs=$logs."Not found file joomla.xml[!]\n"; 
	 print "Not found file joomla.xml[!]\n"; 
 }
	 $content=get_page($url."/README.txt",$agent,$proxy);
	 if($content){
	 ($jv)=split("version history",$content);
	 @jve=split("www.joomla.org",$jv);
	 $jov_r=$jve[1];
	 $jov_r=~s/\n//g;
	 $jov_r=~s/ //g;
	  $logs=$logs."Read version engine from file README.txt:$jov_r [+]\n";
	 print "Read version engine from file README.txt:$jov_r [+]\n";
 } else { 
	 	  $logs=$logs."Not found file README.txt[!]\n";
	 print "Not found file README.txt[!]\n";  
 }
	
	 $content=get_page($url."/robots.txt",$agent,$proxy);
	 if($content){
		 $logs=$logs."Read file robots.txt:[+]\n";
		 $logs=$logs."$content\n";
	 print "Read file robots.txt:[+]\n";
	 print "$content\n"; 
 } else { 
	 $logs=$logs."Not found file robots.txt[!]\n"; 
	 print "Not found file robots.txt[!]\n"; 
 } 
	 
	 $content=get_page($url."/administrator/components/com_cache/cache.xml",$agent,$proxy); 
	 if($content ne $content_host){
	 $logs=$logs."Path administrator open.[+]\n\n";
	 print "Path administrator open.[+]\n\n";
	 $check_ver_com=1;
 } else { 
	 $logs=$logs."Path administrator closed[!]\n\n"; 
	 print "Path administrator closed[!]\n\n"; 
	
	 $check_ver_com=0;
 } 	
}
		

sub parse_link_from_content()
{
	
my $content_parse=$_[0];
my $all_lin=$_[1];
my $all_link_other_hosts=$_[2];
my $all_coms=$_[3];
my $all_files=$_[4];
my @content_str=split("\n", $content_parse);
my $count_str=@content_str;
my ($linker_host_name_t,@linker_host_name,$linker);
scalar $count_str;

for(my $c_str=0;$c_str<$count_str;$c_str++){
	
if($content_str[$c_str]=~/com_/){
my @com_str=split('com_',$content_str[$c_str]);
my $count_com=@com_str;
scalar $count_com;
for (my $c_com=1;$c_com<$count_com;$c_com++){
my ($tmp_str)=split(/([^a-zA-Z0-9_-])/,$com_str[$c_com]);
if($tmp_str=~/([a-zA-Z0-9_-])/){
	my $tmp_strq=quotemeta(decode_entities($tmp_str));
unless($all_coms=~/$tmp_strq/){
	unless($com_checks=~/$tmp_strq/){
	com_check('com_'.$tmp_str);
$all_coms=$all_coms.'com_'.$tmp_str."\n";
}
}
}
}	
}
	if ($content_str[$c_str]=~/href=/){
$linker=get_link('href=',$content_str[$c_str]);
}
if ($content_str[$c_str]=~/src=/){
$linker=get_link('src=',$content_str[$c_str]);
}	
if($linker){
	
	my @c_linker=split('\|',$linker);
	for(my $uy=0;$uy<@c_linker;$uy++){
$linker_host_name_t=get_host_name($c_linker[$uy]);
 @linker_host_name=split(';',$linker_host_name_t);
	if($linker_host_name[1] eq $host_name or $linker_host_name[1] eq 'www.'.$host_name){###
		my $linkerq=quotemeta(decode_entities($c_linker[$uy]));
		my $ln_rev=reverse($c_linker[$uy]);
my ($ln_rev_ex)=split('\.',$ln_rev);
my $ln_ex=reverse($ln_rev_ex);
	if($ln_ex=~/(ico)|(css)|(png)|(jpg)|(jpeg)|(gif)|(mp3)|(flv)|(mp4)|(pdf)|(tar)|(gz)|(gzip)|(rar)|(zip)/i){
		unless($all_files=~/$linkerq/i){
	$all_files=$all_files.$c_linker[$uy]."\n";
}	
	}else{	
				
		unless($all_lin=~/$linkerq/){
$all_lin=$all_lin.$c_linker[$uy]."\n";
}
}
}else{
	my $linkerq=quotemeta(decode_entities($c_linker[$uy]));
unless($all_link_other_hosts=~/$linkerq/){	
$all_link_other_hosts=$all_link_other_hosts.$c_linker[$uy]."\n";	
}
}	
}
}
}	
return $all_lin.'Smc0mo0oi0o0'.$all_link_other_hosts.'Smc0mo0oi0o0'.$all_coms.'Smc0mo0oi0o0'.$all_files;	
}	


sub get_link()
{
my $tag=$_[0];
my $str_l=$_[1];
my 	($linker,$linkers);

my @linker_str=split($tag,$str_l);
my $count_link=@linker_str;
scalar $count_link;

for (my $c_link=1;$c_link<$count_link;$c_link++){
	my $delimetr=substr($linker_str[$c_link],0,1);
	my $delimetrq=quotemeta($delimetr);
my @linker=split($delimetrq,$linker_str[$c_link]);
my @lin_d=split('/',$linker[1]);
if($linker[1]=~/([a-zA-Z0-9-])/){
unless($lin_d[0]=~/([a-zA-Z0-9-]).(a-zA-z)/ or $lin_d[0]=~/http/){
my $firstsimbol=substr($linker[1],0,1);
if($firstsimbol eq '/'){
$linker=$protocol.'//'.$host_name.decode_entities($linker[1]);
}else{
$linker=$protocol.'//'.$host_name.'/'.decode_entities($linker[1]);
}
} else {	
$firsts_simb=substr($linker[1],0,6);
unless(($firsts_simb eq 'https:') or ($firsts_simb eq 'http:/')){
$linker=$protocol.'//'.decode_entities($linker[1]);	
} else {

$linker=decode_entities($linker[1]);
}		
}
$linkers=$linkers.$linker.'|'; 
}
}	
return $linkers;
	
}
		
sub com_check()
{
	my $com=shift;
	local $com_checks;
     ($tmp,$name_com)=split("com_",$com);
    unless($cls){ 
		$logs=$logs."Tested: $name_com ";
		print "Tested: $name_com ";
		}
	 $content=get_page($url."/components/".$com."/".$name_com.".php","",$proxy);
	 if($content==1){
     if ($check_ver_com==1){ 
		$content2=get_page($url."/administrator/components/".$com."/".$name_com.".xml","",$proxy); 
		 if($content2){
	 @cve=split("<version>",$content2);
	 ($comp_version)=split("</version>",@cve[1]);
	 @cname=split("<name>",$content2);
	 ($comp_name)=split("</name>",@cname[1]);
	 @cdescrip=split("<description>",$content2);
	 ($comp_description)=split("</description>",@cdescrip[1]);
	}
}


	 if($comp_name){
		 $logs=$logs."Detected Component $comp_name [+]\n";
		print "Detected Component $comp_name [+]\n"; 
	 }else{
		 $logs=$logs."Detected Component $name_com\n";
	 print "Detected Component $name_com\n";
 }
	 if ($comp_version){ 
		 $logs=$logs."Detected Version(s): $comp_version [+] \n";
		 print "Detected Version(s): $comp_version [+] \n"; 
		 } 
	 if ($comp_description){ 
		 $logs=$logs."Description: $comp_description [+] \n";
		 print "Description: $comp_description [+] \n";
		  } 
	 $logs=$logs."\n--------------------------------------------------\n"; 
	 print "\n--------------------------------------------------\n"; 
	 

     if ($use_sl==1){

		 my $localdb=search_local_db('/usr/share/exploitdb/platforms/php/webapps',$com);
		 my $localdb2=search_local_db('/usr/share/exploitdb/platforms/multiple/webapps',$com);
	$logs=$logs."Search local exploit-db:\n $localdb \n $localdb2\n";
	print "Search local exploit-db:\n $localdb \n $localdb2\n";
	}
	 
	 	 if($use_secj==1){
	my $result_jet='';
	my $jetlib_link = 'http://sec.jetlib.com/search.php?rss_query=joomla+'.$name_com.'&rss_query_match=and&state=both&rss_query_channel=-1&rss_order=date&rss_query_res_per_page=-1&rss_query_current_page=0';
    my $res_cont=post_get($jetlib_link,$proxy,'linux');

   ($text_jet,$code_jet,$message_jet)=split('Responsesesessss:',$res_cont);
   if ($text_jet){
  $result_jet=parse_jetlib($text_jet,$name_com);
  if($result_jet){
   $logs=$logs."Jetlib:\n".$result_jet."\n";
   print "Jetlib:\n".$result_jet."\n";
   }
   }else {
	   $logs=$logs."Error... plese see result conected:\n".$code_jet.' '.$message_jet."\n";
	   print "Error... plese see result conected:\n".$code_jet.' '.$message_jet."\n";
	   }	 
		 
	}
	 
	 print "\n___________________________________________________\n"; 
	 $com_checks=$com_checks.$com."\n";
 } elsif($content==2) { 
	 unless($cls){ 
	 $logs=$logs."Not found component[!]\n"; 
	 print "Not found component[!]\n"; 
 }
 $com_checks=$com_checks.$com."\n";
 } else { 
$logs=$logs."$content\n";  
print "Error $content\n";	 
 }	
 
}		
	
sub search_local_db()                 
{
	my $dir=$_[0];
	my $text=$_[1];
	my $file_list;
 opendir(DIR, $dir);
my @files = readdir(DIR);
closedir(DIR);
 
foreach my $file (@files) {
    next if ($file eq "." or $file eq "..");
   my $full_file=$dir.'/'.$file;
    if (open(my $fb, '<:encoding(UTF-8)', $full_file)) {
	while (my $str = <$fb>) {	
			if($str=~/$text/i){ 
		  $file_list=$file_list."$full_file\n";
		  last;
		  }  
      }  
  close $fb;
  
  }	
  
}
return $file_list;
}
	
sub checks_testes()
{
 my $ln_for_test=$_[0];
 my $tested_parametrs=$_[1]; 
my ($testes_param);


my @op=split('\?',$ln_for_test);
if($op[1]=~/\&/){
my @parametrs=split('\&',$op[1]);

for(my $n_p=0;$n_p<@parametrs;$n_p++){
my @par_var=split('=',$parametrs[$n_p]);	
$testes_param=$testes_param.$par_var[0].';';	
}
}else{	
my @param=split("=",$ln_for_test);
$testes_param=$testes_param.$param[1].';';		
}

if($tested_parametrs=~/$testes_param/i){
	return 'testes -----'.$tested_parametrs;
}else{
$tested_parametrs=$tested_parametrs.$testes_param.'---testes_param_smc---';
return 'no testes -----'.$tested_parametrs;	
}	
}	
		
sub vuln_test()
{
 my $ln_for_test=$_[0];
 my $index_source=$_[1];
my ($result,$par);
 my $source_page=get_page($ln_for_test,$agent,$proxy);

my @op=split('\?',$ln_for_test);
if($op[1]=~/\&/){
my @parametrs=split('\&',$op[1]);

for(my $n_p=0;$n_p<@parametrs;$n_p++){
my @par_var=split('=',$parametrs[$n_p]);
my $par=join('=',$par_var[0],$par_var[1]);
my $var=$par_var[1];	

 my $test_r=test_par($ln_for_test,$par,$var,$source_page,$index_source);
if($test_r){
$result=$result.$test_r;
}

}

}else{	
my @param=split("=",$ln_for_test);
my $par=$param[1];

my $test_r=test_par($ln_for_test,$par,$par,$source_page,$index_source);
if($test_r){
$result=$result.$test_r;
}		
}

if($result){
	return $result;
}else{
	return 0;
}	
}

sub test_par()
{
my $ln_for_test=$_[0];
my $par=$_[1];
my $var=$_[2];
my $source_page=$_[3];
my $index_source=$_[4];

my ($test_result);

my $link=$ln_for_test;

if($var=~/([0-9])/){
	my $par_plus=$par.uri_escape('-1');
$link=~s/$par/$par_plus/i;	
my $source_page_t=get_page($link,$agent,$proxy);
if($source_page ne $source_page_t and $index_source ne $source_page_t){
$test_result=$test_result."Influence on parameter is possible: $par \n$ln_for_test\n";
}else{
	my $par_plus=$par.uri_escape('*2');
$link=~s/$par/$par_plus/i;	
my $source_page_t=get_page($link,$agent,$proxy);
if($source_page ne $source_page_t and $index_source ne $source_page_t){
$test_result=$test_result."Influence on parameter is possible: $par \n$ln_for_test\n";
}else{
   my $par_plus=$par.uri_escape('+and+1=2');
$link=~s/$par/$par_plus/i;	
my $source_page_t=get_page($link,$agent,$proxy);
if($source_page ne $source_page_t and $index_source ne $source_page_t){
$test_result=$test_result."Influence on parameter is possible: $par \n$link\n";
}	
}
}
}		

my @exp_simbols=split("-exp-","'-exp-\"-exp-`-exp-/*-exp-+--+-exp-+group+by+2+--+-exp-+group+by+1000+--+");
for(my $ex_n=0;$ex_n<@exp_simbols;$ex_n++){
	my $lin=$ln_for_test;
	my $par_simbols=$par.uri_escape($exp_simbols[$ex_n]);
$lin=~s/$par/$par_simbols/i;

my $source_page_t=get_page($lin,$agent,$proxy);	
if($source_page ne $source_page_t and $index_source ne $source_page_t){
my $checks_res=check_vuln($source_page_t);

if($checks_res){
$test_result=$test_result."Result of testing of the link: \nParameter: $par\n Link:\n$lin\n$checks_res\n";	
}
}	
}	
if($test_result){
return $test_result;
}else{
return 0;
}		
}	

sub check_vuln()
{
my $source=shift;
my($answer);
if($source=~/([a-zA-Z0-9])/){
my @arr_sorce_str=split("\n",$source);

for(my $n_str=0;$n_str<@arr_sorce_str;$n_str++){
my $source_str=decode_entities($arr_sorce_str[$n_str]);

if($source_str=~m/You\shave\san\serror\sin\syour\sSQL\ssyntax/i or 
$source_str=~m/supplied\sargument\sis\snot\sa\svalid\sMySQL\sresult\sresource/i or 
$source_str=~m/Invalid\sargument\ssupplied\s\for/i or
$source_str=~m/Warning\smysql_fetch_assoc/i or
$source_str=~m/Warning\smysql_fetch_array/i or
$source_str=~m/Warning\smysql_num_rows/i or
$source_str=~m/Warning\ssession_start/i or
$source_str=~m/Warning\sgetimagesize/i or
$source_str=~m/Warning\sis_writable/i or
$source_str=~m/Warning\sUnknown/i or
$source_str=~m/Warning\smysql_result/i or
$source_str=~m/Warning\smysql_query/i or
$source_str=~m/Warning\sarray_merge/i or
$source_str=~m/Warning\spreg_match/i or
$source_str=~m/Warning\sfilesize/i or
$source_str=~m/Warning\srequire/i or
$source_str=~m/Warning\spreg_match/i or
$source_str=~m/Warning\sinclude/i or
$source_str=~m/Warning\sinclude_once/i or
$source_str=~m/Warning\srequire_once/i or
$source_str=~m/Warning\spreg_match/i or
$source_str=~m/Warning\smain/i or
$source_str=~m/Fatal\serror/i or
$source_str=~m/Subquery\sreturns\smore\sthan/i or
$source_str=~m/Got\serror\s\'\sinvalid\srepetition\scount\(s\)\'\sfrom\sregexp/i or
$source_str=~m/Got\serror\s\'\sbraces\snot\sbalanced\'\sfrom\sregexp/i or
$source_str=~m/Got\serror\s\'\sinvalid\scharacter\sclass\'\sfrom\sregexp/i or
$source_str=~m/Got\serror\s\'\sbrackets\snot\sbalanced\'\sfrom\sregexp/i or
$source_str=~m/Got\serror\s\'\srepetition\soperator\soperand\sinvalid\'\sfrom\sregexp/i or
$source_str=~m/Got\serror\s\'\sempty\ssub\sexpression\'\sfrom\sregexp/i or
$source_str=~m/Got\serror\s\'\sparentheses\snot\sbalanced\'\sfrom\sregexp/i or
$source_str=~m/Got\serror\s\'\sinvalid\scharacter\srange\'\sfrom\sregexp/i or
$source_str=~m/Got\serror\s\'\sinvalid\scollating\selement\'\sfrom\sregexp/i or
$source_str=~m/Got\serror\s\'\strailing\sbackslash/i or
$source_str=~m/Duplicate\sentry/i or
$source_str=~m/Unknown\scolumn/i or
$source_str=~m/JSON_KEYS\sdoes\snot\sexist/i or
$source_str=~m/XPATH\ssyntax\serror/i){
$answer="Line from the source code of the page:\n".$source_str."\n";
$n_str=@arr_sorce_str+1;
}elsif($source_str=~m/An\sappropriate\srepresentation\sof\sthe\srequested\sresource\scould\snot\sbe\sfound/i){
$answer="WAF Works...\n";
} else {
$answer ="";
}		
}
}else{
$answer ="Source code of the page empty...\n";
}		
return $answer;	
}			
		
sub get_host_name()
{
my $str_url=shift;
if($str_url=~m/http:\/\//gi or $str_url=~m/https:\/\//gi){
my @name=split("/",$str_url);
return $name[0].';'.$name[2];	
}
}	

sub get_page() 
{
my $link=$_[0];
my $agent=$_[1];
my $prox=$_[2];

my $ua = new LWP::UserAgent(agent => rand_ua($agent));
if ($prox){$ua->proxy([qw(http https)] => $prox);}
my $response = $ua->get($link);
if($response->code==200){
	$cont=$response->decoded_content;
if($cont){return $cont;}else{ return 1;}

} elsif($response->code==404){ 
	return 2; 
	 }else{ return $response->code,' ', $response->message,"\n";}
}

sub post_get(){
	my $url=$_[0];
	my $prox=$_[1];
	my $agent=$_[2];
    my $req = HTTP::Request->new('POST', $url);
    $req->header( 'Content-Type' => 'text/html');
    my $lwp = new LWP::UserAgent(agent => rand_ua($agent));
if ($prox){$lwp->proxy([qw(http https)] => $prox);}
my $response = $lwp->request( $req );
return $response->decoded_content.'Responsesesessss:'.$response->code.'Responsesesessss:'.$response->message;
}

sub parse_jetlib(){
use locale;
my $content=$_[0];
my $companent=$_[1];
my $comp=$companent.' ';
my $compan='com_'.$companent;
my $res='';
my @item_url_name_tmp=split('<a class="tlink" href="#" onclick="',	$content);
for($ci=1;$ci<@item_url_name_tmp;$ci++){
my $item_url='';
my $item_name='';

($item_name,$item_url)=split('</a></h4>',$item_url_name_tmp[$ci]);
($tm,$item_name)=split('">',$item_name);
($item_url)=split('">',$item_url);
($tm,$item_url)=split('<a class="item_url" href="',$item_url);
$tmp_name=lc($item_name);
$comp=lc($comp);
$compan=lc($compan);

if($tmp_name=~/$comp/){
unless($res=~/$item_url/){
$res=$res.'Name: '.$item_name."\nLink:".$item_url."\n";	
}
} elsif ($tmp_name=~/$compan/){
unless($res=~/$item_url/){
$res=$res.'Name: '.$item_name."\nLink:".$item_url."\n";	
}
}		
}
if($res){
	return $res;
}	
}

sub get_key(){
system "stty", "-icanon", "min", "0";
my $key = <STDIN>;
system "stty", "icanon", "eol", "^@"; 
return ($key);
}
[\code]

P.S. comdb берите с последнего вложения, там не много больше компонентов.

tiparoot · 25.06.2018

Error open comdb!

centr · 26.06.2018

Код:

#!/usr/bin/perl
#-------------------------------------------
#Show Me components Joomla 
#Version: 1.2.16e beta
#Version Components DB: 0.0.3
#Description:This script touches on components on the website with Joomla engine according to the list and shows result of search.
#Author: Centr
#link: https://codeby.net/members/centr.71419/
#___________________________________________

use WWW::UserAgent::Random;
use LWP::UserAgent;
use HTTP::Request;
use HTML::Entities;
use File::Spec;
use URI::Escape; # после этого

##### меняемвсё на  вот это:
use Cwd qw(realpath);

my $cur_path =realpath($0);
$cur_path=~s/$0//g;
my ($check_ver_com);
my $f_base_com=$cur_path.'comdb';
### до вот этой строчки 
##### chomp @ARGV; ##### это уже остаётся

Все сервисы Codeby

Поиск

Поиск

Статья Smcom - Скрипт для поиска установленных компонентов Joomla.

Вложения

merioq

centr

Inject0r

centr

Вложения

tiparoot

Вложения

centr