API tools faq
paste
ToKeiChun

Perl CMS Checker

ToKeiChun
Nov 23rd, 2020
292
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 11.50 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2.  
  3. use WWW::Mechanize;
  4. use LWP::Simple;
  5. use URI::URL;
  6. use LWP::UserAgent;
  7. use Getopt::Long;
  8. use Parallel::ForkManager;
  9. use HTTP::Request::Common;
  10. use Term::ANSIColor;
  11. use HTTP::Request::Common qw(GET);
  12. use Getopt::Long;
  13. use HTTP::Request;
  14. use LWP::UserAgent;
  15. use Digest::MD5 qw(md5 md5_hex);
  16. use MIME::Base64;
  17. use IO::Select;
  18. use HTTP::Cookies;
  19. use HTTP::Response;
  20. use Term::ANSIColor;
  21. use HTTP::Request::Common qw(POST);
  22. use URI::URL;
  23. use DBI;
  24. use IO::Socket;
  25. use IO::Socket::INET;
  26. $ag = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });#Https websites accept
  27. #$ag = LWP::UserAgent->new();
  28. $ag->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.3) Gecko/20010801");
  29. $ag->timeout(10);
  30. system('cls');
  31.  
  32. our($list,$thread);
  33. sub randomagent {
  34. my @array = ('Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0',
  35. 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0',
  36. 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)',
  37. 'Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2049.0 Safari/537.36',
  38. 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.67 Safari/537.36',
  39. 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31'
  40. );
  41. my $random = $array[rand @array];
  42. return($random);
  43. }
  44. GetOptions(
  45.     'url|u=s' => \$list,
  46.     'threads|t=i'   => \$thread,
  47. ) || &flag();
  48.  
  49. if(!defined($list) || !defined($thread)){
  50.     &flag();
  51.         exit;
  52. }
  53.  
  54. my $ua = LWP::UserAgent->new;
  55. $ua->timeout(20);
  56.  
  57. system("MEGATRONE666");
  58. if ($^O =~ /MSWin32/) {system("cls"); }else { system("clear"); }
  59. print color('bold green');
  60.  
  61. $ok="rzlt";
  62.     if (-e $ok)
  63.     {
  64.     }
  65.     else
  66.     {
  67.         mkdir $ok or die "Error creating directory: $ok";
  68.     }
  69.  
  70.  
  71.  
  72.  
  73. print color('bold blue');
  74. print q(
  75.  
  76. .dP"Y8 88   88 88  dP""b8 88 8888b.  888888     888888 888888    db    8b    d8
  77. `Ybo." 88   88 88 dP   `" 88  8I  Yb 88__         88   88__     dPYb   88b  d88
  78. o.`Y8b Y8   8P 88 Yb      88  8I  dY 88""         88   88""    dP__Yb  88YbdP88
  79. 8bodP' `YbodP' 88  YboodP 88 8888Y"  888888       88   888888 dP""""Yb 88 YY 88
  80.                                                                                                                    
  81. );
  82.  
  83. print color('reset');
  84. print "                       ";
  85. print colored ("[ FAST CMS CHECKER]",'red on_white');
  86. print colored ("[ KILL THE NET X Tr0jaN_DZ // Edited by MrToKeiChun69 ]\n",'blue on_white'),"\n";
  87. print "                           ";
  88.  
  89. $a = 0;
  90. open (THETARGET, "<$list") || die "[-] Can't open the file";
  91. @TARGETS = <THETARGET>;
  92. close THETARGET;
  93. $link=$#TARGETS + 1;
  94.  
  95.  
  96. print color("bold green"), "[*-*] START!!! ";
  97. print color('reset');
  98. my $pm = new Parallel::ForkManager($thread);# preparing fork
  99. OUTER: foreach $site(@TARGETS){#loop => working
  100. my $pid = $pm->start and next;
  101. chomp($site);
  102. if($site !~ /http:\/\//) { $site = "$site/"; };
  103. $a++;
  104. cms();
  105.    $pm->finish;
  106. }
  107. $pm->wait_all_children();
  108.  
  109. ################ CMS DETCTER #####################
  110. sub cms(){
  111. ##$ua = LWP::UserAgent->new(keep_alive => 1);
  112. $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
  113. $ua->agent("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31");
  114. $ua->timeout (20);
  115. my $cms = $ua->get("$site")->content;
  116. my $cmsd = $ua->get("$site/wp-includes/js/wpdialog.js")->content;
  117. $wpsite = $site . '/xmlrpc.php?rsd';
  118. my $wpcms = $ua->get("$wpsite")->content;
  119. $jsite2 = $site . '/language/en-GB/en-GB.xml';
  120. my $jcms = $ua->get("$jsite2")->content;
  121. my $cms1 = $ua->get("$site/js/vbcache.js")->content;
  122. $dursite = $site . '/misc/drupal.js';
  123. my $durcms = $ua->get("$dursite")->content;
  124. my $laravel1 = $ua->get("$site");
  125. my $larvael2 = $ua->get("$site/vendor/composer/installed.json")->content;
  126.  
  127. if($cms1 =~/window.vBulletin/) {
  128. print color('bold white'),"\n[$a] $site - ";
  129.    print color("bold green"), "Vbulletin-forum";
  130.    print color('reset');
  131.    open(save, '>>rzlt/vbulletin.txt');
  132.    print save "$site\n";  
  133.    close(save);
  134.  
  135. }
  136. elsif($wpcms =~/This XML file does/) {
  137.    print color('bold white'),"\n[$a] $site - ";
  138.    print color("bold blue"), "WordPress";
  139.    print color('reset');
  140.    open(save, '>>rzlt/Wordpress.txt');
  141.    print save "$site\n";
  142.    close(save);
  143. }
  144. elsif($cmsd =~/wp.wpdialog.prototype.options.closeOnEscape/) {
  145.    print color('bold white'),"\n[$a] $site - ";
  146.    print color("bold blue"), "WordPress";
  147.    print color('reset');
  148.    open(save, '>>rzlt/Wordpress.txt');
  149.    print save "$site\n";
  150.    close(save);
  151. }
  152. elsif($durcms =~/Drupal.checkPlain/) {
  153.    print color('bold white'),"\n[$a] $site - ";
  154.    print color("bold yellow"), "DruPal";
  155.    print color('reset');
  156.    open(save, '>>rzlt/drupal.txt');
  157.    print save "$site\n";  
  158.    close(save);
  159. }
  160. elsif($laravel1->headers_as_string =~/_session/) {
  161. print color('bold white'),"\n[$a] $site - ";
  162.    print color("bold cyan"), "Laravel";
  163.    print color('reset');
  164.    open(save, '>>rzlt/laravel.txt');
  165.    print save "$site\n";  
  166.    close(save);
  167. }
  168. elsif($jcms =~/www.joomla.org/) {
  169. print color('bold white'),"\n[$a] $site - ";
  170.    print color("bold green"), "Joomla";
  171.    print color('reset');
  172.    open(save, '>>rzlt/joomla.txt');
  173.    print save "$site\n";  
  174.    close(save);
  175. }
  176. elsif($laravel2 =~/https:\/\/packagist.org\/downloads\//) {
  177. print color('bold white'),"\n[$a] $site - ";
  178.    print color("bold cyan"), "Laravel 2";
  179.    print color('reset');
  180.    open(save, '>>rzlt/laravel.txt');
  181.    print save "$site\n";  
  182.    close(save);
  183. }
  184.  
  185. else{
  186. print color('bold white'),"\n[$a] $site - ";
  187.    print color("bold red"), "Unknown";
  188.    open(save, '>>rzlt/Unknown.txt');
  189.    print color('reset');
  190.    print save "$site\n";  
  191.    close(save);
  192.  
  193. }
  194.  
  195. }
  196. sub flag {
  197.    print color('bold green');
  198. print q(
  199.  
  200.  
  201.                                   `-/+oyyhdmmNNmmmdhs+:.                                          
  202.                              `:ohmMMMMMMMMMMMMMMMMMMMMMMNds/.                                      
  203.                           .+hNMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMms:                                  
  204.                         .yNMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMNs-                                
  205.                        -mMMMMMMyosMyyyyyhhhhhdmMmmNMMMMMMMMMMMMMMMNy-                              
  206.                       -NMMMMMMMh` o.  +-  -/  .m``oMMMMMMMMMMMMMMMMMNo`                            
  207.                      `mMMMMMMMMM/    `N+  oh   -  oMMMMMMMMMMMMMMMMMMMh`                          
  208.                      oMMMMMMMMMy  :  `N/  yy  :   yMMMMMMMMMMMMMMMMMMMMy                          
  209.                      mMMMMMMMMm:-:d-.:M/``hs `d-  yMMMMMMMMMMMMMMMMMMMMM.                          
  210.                    .:MMMMNmddhhyyyyyyydhdmNNNNMNmmNMMMMMMMMMMMMMMMMMMMMM.                          
  211.               -+syyso+:-.`````        `````.:/oyhmMMMMMMMMMMMMMMMMMMMMMN`                          
  212.             /ds/.``                             ``.:+ydNMMMMMMMMMMMMMMMd                          
  213.            `Ns`                                       `.:ohNMMMMMMMMMMMy                          
  214.             -yho:.     `.:/+oosssssyyssssssssoo+/::-.``   `.:smMMMMMMMM+                          
  215.               .:osyyoshys+/:-...`````````....--:/++ossyysso+/:-/sdMMMMM:                          
  216.                   `.om-`   `....`              ````   ```.-sMydmddmMMMM.                          
  217.                    `d.    `..``.::.        `-://::::-.    .NMmdNdNmmmNd                            
  218.                    /y `/ydmmmdhs/.`        ```...-..`     /MMNMNMNNNNMo                            
  219.                    /y sMMMNdNdNmNNy-     .:ohmmNNNNNdy/.  `yMMMMMMMMMM/                            
  220.                    -m hMMN+y/y+ysMMm    /smNMNhyyhhhhdMms` `hMMMMMMMMM.                            
  221.                    `N-odMMd+-+/+mMMm    sNMMMN/s:o/o+sMMM/  hMMMMMMMMm                            
  222.                    yy..yyhNNhhdNMdds...`oMMMMMm+//-+sNMMM+  mMMMMMMMMy                            
  223.                   -M:  .:/odNNmh/`ohmmNd:+o+hNMNdyhmMMMNN. `NMMMMMMMM:                            
  224.                   .mo`    `-:-.   +MMMMMm:   -smmmmmdhys-   hNMMMMMMd                              
  225.                    -yhysyyso+-    /MMNdMMN+   `-+oss+:.     `-ohmdNN-                              
  226.                      .:+yMMMMNo`  -mMs-dMMs       ```.`   ``/ymNMMN+                              
  227.                          yMMMMm`   .s-o.//`       ydmmmyoyhdMMMMMd/                                
  228.                          -MNMMN+  `   `         -`NMMMMMMMMMMMMMo`                                
  229.                          `NhyMMN+::.``. `  `  . d.hmMMMMMNMMMMMN`                                  
  230.                           mm`hMM+yody/:--:`+`-/.hsyhMMMMNmMMMMMh                                  
  231.                           oM:/dMdh`y::h::Nsshoyood-mMMMMhNmMMMMo                                  
  232.                           `md`-NMMoy..s  h..d`osomdmMMMNyhdMMMm.                                  
  233.                            :Ny ommydy+h+/doos/NomdmNMMm/dohMMN/                                    
  234.                             +Mo -/ddosd//N.:o/NyNNmNho.+shhMN+                                    
  235.                              oMo  `..`--/o/+d+y/:/-:  `hdMNy-                                      
  236.                               oNs`       .  `       `/hMNs-                                        
  237.                                +Nh.               .smMmo.                                          
  238.          ``           `-`  `-`  :dm/.-.-``     `:oyNd/`                                            
  239.         .//:         .//: .//:   `omNMmNmdyo+/omh+//                                              
  240.        -///.        .///-.///-     `:oooshmNNNmy///`                -:.                            
  241.       :///.   `:-  `///:.///:     `....----:/..///.                .///.  `.`           `...------.
  242.     `:///-.` `://` ://:`://:      ://///::--`.///..------.        .////- `///` -------..//////:--`
  243.    `://////- .//:`-///`-///`      `.///-./:..///.`::/::-.        ./////:`///- `::/::-.  `:///`    
  244.   `//////-.`-/:-`-//:`://:`       `///--///:///.-::::::.        .///.///://- -::::::.   ://:`      
  245.  `//////`  :///`-//- -//-        `///-.///////. .----.`        `//:` .////-  ----..`   -//:        
  246. `://..//: `//:`.//- -//-         ://.`///`-//.::///////:.     `//:`   ://-`:////////:.-//-        
  247. ://.  .//`./:`.//- .//-         -//. `/:` //.`-.....``        :/:      .:``-.....``  .//-          
  248. ://`    `-- .``//- .//-          :/`   .   -`                 `/-                     ./-          
  249. //`           :/-  :/.           `                            `.                       `            
  250. :`            `.   `.                                                                        `                                                                        
  251.                                                                                                        
  252. );
  253. print color('reset');
  254. print colored ("[FAST CMS CHECKER]",'red on_white'),"\n";
  255. print colored ("[X]: CODER: KILL THE NET",'red on_white',"\n");
  256. print colored ("[X]: install : cpan Parallel::ForkManager + move to Parallel-ForkManager directory + do this (perl Makefile.PL && make test && make install) or (perl Makefile.PL && dmake test && dmake install) ",'red on_white',"\n");
  257.    print "\nUASGE: perl script.pl -u list.txt -t 5 \n\n";
  258.  
  259. }
  260.  
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!