-----------------------------------------------------------------------
TheFamily
Twitter: @TheFamilySystem
-----------------------------------------------------------------------
Vulnerable Software: Solr Apache
What Is Solr ?: Solr is a platform from apache written in Java and is widely known for "NoSQL" and FulL Text Searches.
Solr Has No protection what so ever on its panels. Practically scanning for port 8983 on ranges or just a simple google dork could leave 100s of sites at risk.
Big sites such as Bible.com Use this software which was Noted by @bitvise. Smart Dude btw :)
Anyhow The Admin panel has no actual Login process. This leaves open configurations with XML files, Json files, And Databases.
Even an area to upload files. This could Hold a big risk to compromising the Whole Database/Server.
Again Special Thanks to Kenderick aka @Bitvise. 

                            Examples
-----------------------------------------------------------------------
175.41.130.157:8080/solr/
50.63.180.160:8080/solr/
54.191.199.150/solr/
ec2-50-16-189-3.compute-1.amazonaws.com/solr/
arbejdsmiljoviden.dk/solr/
40.127.137.146/solr/
ala-demo.gbif.org/solr/
amt.tv:8080/solr/
geothermal.smu.edu/solr/
social2.atc.gr/solr/
89.157.189.206:8983/solr/
jeffersontest.tw.rpi.edu/solr/
yesfitnessmusic.com:8080/solr/
sb-s1.swissbib.unibas.ch:8080/solr/
enwiki.ailao.eu:8983/solr/
5.249.144.37:8983/solr/
azubitage.de/solr/
aspect.cs.mcgill.ca:8983/solr/
jilliantessa.me:8983/solr/
82.179.140.22:8983/solr/
dev.osslabs.net:8080/solr/
cardinalcore.co.uk/tag/solr/
-----------------------------------------------------------------------
                            Script Perl
-----------------------------------------------------------------------
#!usr/bin/perl -w
#Script By TheFamily (SonnySpooks,Max_King,DXM,Curiosity,Akma,Tony)
use IO::Socket::INET;
use strict;
use Term::ANSIColor;
print color "yellow";
print <<EOTEXT;
 /---------------------------------------------------------------\
|      Solr Admin Panel Scanner By TheFamily                            |
|   Shouts to Sonny,DXM,Max_King,Curiosity,Akma,Tony     |
 \---------------------------------------------------------------/
EOTEXT
print color "reset";
my($ip);
while(1){
my $random1 = int(rand(255));
my $random2 = int(rand(255));
my $random3 = int(rand(255));
my $random4 = int(rand(255));
chomp($ip = "$random1.$random2.$random3.$random4");                          
my $sock = new IO::Socket::INET (                
                 PeerAddr => $ip,
                 PeerPort => '8983',        
                 Proto => 'tcp',
                 Timeout => '2',       
                 );
if($sock){
print color "reset";
print color "green";       
print "$ip Open {!} \n";               
  open (MYFILE, '>>SolrHosts.txt');
  print MYFILE "$ip/solr\n";
  close(MYFILE);
  print color "reset";
}
print color "reset";
print color "red";
print "$ip Closed {X}\n";
print color "reset";
}
-----------------------------------------------------------------------

# siph0n [2016-05-09]