Download Perl Script in Notepad

#!/usr/bin/perl<br />
#*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*<br />
#<br />
#                ////////////////////////////////////<br />
#                        Yakamoz PHPmyadmin Finder v.x.x<br />
#                ////////////////////////////////////<br />
#<br />
#    Title : PHPmyadmin Finder<br />
#    Author: !-Bb0yH4cK3r_Dz-!<br />
#    From : Azarbycan<br />
#    Category : Remote<br />
#    Emails : !-Bb0yH4cK3r_Dz-!@Yahoo.com , !-Bb0yH4cK3r_Dz-!@Hotmail.com , !-Bb0yH4cK3r_Dz-!@Gmail.com<br />
#       <br />
#*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*<br />
<br />
use HTTP::Request;<br />
use LWP::UserAgent;<br />
<br />
<br />
system ("cls");<br />
system ("title !-Bb0yH4cK3r_Dz-! (Yakamoz)...");<br />
print "\t\t/////////////////////////////////////////////////\n";   <br />
print "\t\t_________________________________________________\n";<br />
print "\t\t\t PHPmyadmin Finder v.x.x\n";<br />
print "\t\t\t Coded By !-Bb0yH4cK3r_Dz-!\n";<br />
print "\t\t\t Made In Azarbycan\n";<br />
print "\t\t\t Version In English\n";<br />
print "\t\t_________________________________________________\n";<br />
print "\n\n";<br />
sleep (1);<br />
print "\n\n";<br />
print "\t HOST=> (ex: http://www.site.com)\n";<br />
print "\t HOST=> :";<br />
$host=<stdin>;<br />
chomp($host);<br />
if($host !~ /http:\/\//) { $host = "http://$host"; };<br />
<br />
print "\n\n";<br />
print "\t\t*-*-*-*-*-* Scanning *-*-*-*-*-*\n";<br />
print "\n\n";<br />
@p = ("/phpMyAdmin/",<br />
"/phpmyadmin/",<br />
"/PMA/",<br />
"/admin/",<br />
"/dbadmin/",<br />
"/mysql/",<br />
"/myadmin/",<br />
"/phpmyadmin2/",<br />
"/phpMyAdmin2/",<br />
"/phpMyAdmin-2/",<br />
"/php-my-admin/",<br />
"/phpMyAdmin-2.2.3/",<br />
"/phpMyAdmin-2.2.6/",<br />
"/phpMyAdmin-2.5.1/",<br />
"/phpMyAdmin-2.5.4/",<br />
"/phpMyAdmin-2.5.5-rc1/",<br />
"/phpMyAdmin-2.5.5-rc2/",<br />
"/phpMyAdmin-2.5.5/",<br />
"/phpMyAdmin-2.5.5-pl1/",<br />
"/phpMyAdmin-2.5.6-rc1/",<br />
"/phpMyAdmin-2.5.6-rc2/",<br />
"/phpMyAdmin-2.5.6/",<br />
"/phpMyAdmin-2.5.7/",<br />
"/phpMyAdmin-2.5.7-pl1/",<br />
"/phpMyAdmin-2.6.0-alpha/",<br />
"/phpMyAdmin-2.6.0-alpha2/",<br />
"/phpMyAdmin-2.6.0-beta1/",<br />
"/phpMyAdmin-2.6.0-beta2/",<br />
"/phpMyAdmin-2.6.0-rc1/",<br />
"/phpMyAdmin-2.6.0-rc2/",<br />
"/phpMyAdmin-2.6.0-rc3/",<br />
"/phpMyAdmin-2.6.0/",<br />
"/phpMyAdmin-2.6.0-pl1/",<br />
"/phpMyAdmin-2.6.0-pl2/",<br />
"/phpMyAdmin-2.6.0-pl3/",<br />
"/phpMyAdmin-2.6.1-rc1/",<br />
"/phpMyAdmin-2.6.1-rc2/",<br />
"/phpMyAdmin-2.6.1/",<br />
"/phpMyAdmin-2.6.1-pl1/",<br />
"/phpMyAdmin-2.6.1-pl2/",<br />
"/phpMyAdmin-2.6.1-pl3/",<br />
"/phpMyAdmin-2.6.2-rc1/",<br />
"/phpMyAdmin-2.6.2-beta1/",<br />
"/phpMyAdmin-2.6.2-rc1/",<br />
"/phpMyAdmin-2.6.2/",<br />
"/phpMyAdmin-2.6.2-pl1/",<br />
"/phpMyAdmin-2.6.3/",<br />
"/phpMyAdmin-2.6.3-rc1/",<br />
"/phpMyAdmin-2.6.3/",<br />
"/phpMyAdmin-2.6.3-pl1/",<br />
"/phpMyAdmin-2.6.4-rc1/",<br />
"/phpMyAdmin-2.6.4-pl1/",<br />
"/phpMyAdmin-2.6.4-pl2/",<br />
"/phpMyAdmin-2.6.4-pl3/",<br />
"/phpMyAdmin-2.6.4-pl4/",<br />
"/phpMyAdmin-2.6.4/",<br />
"/phpMyAdmin-2.7.0-beta1/",<br />
"/phpMyAdmin-2.7.0-rc1/",<br />
"/phpMyAdmin-2.7.0-pl1/",<br />
"/phpMyAdmin-2.7.0-pl2/",<br />
"/phpMyAdmin-2.7.0/",<br />
"/phpMyAdmin-2.8.0-beta1/",<br />
"/phpMyAdmin-2.8.0-rc1/",<br />
"/phpMyAdmin-2.8.0-rc2/",<br />
"/phpMyAdmin-2.8.0/",<br />
"/phpMyAdmin-2.8.0.1/",<br />
"/phpMyAdmin-2.8.0.2/",<br />
"/phpMyAdmin-2.8.0.3/",<br />
"/phpMyAdmin-2.8.0.4/",<br />
"/phpMyAdmin-2.8.1-rc1/",<br />
"/phpMyAdmin-2.8.1/",<br />
"/phpMyAdmin-2.8.2/",<br />
"/sqlmanager/",<br />
"/mysqlmanager/",<br />
"/p/m/a/",<br />
"/PMA2005/",<br />
"/pma2005/",<br />
"/phpmanager/",<br />
"/php-myadmin/",<br />
"/phpmy-admin/",<br />
"/webadmin/",<br />
"/sqlweb/",<br />
"/websql/",<br />
"/webdb/",<br />
"/mysqladmin/",<br />
"/mysql-admin/");<br />
<br />
<br />
foreach $myadmin(@p){<br />
<br />
$url = $host.$myadmin;<br />
$request = HTTP::Request->new(GET=>$url);<br />
$useragent = LWP::UserAgent->new();<br />
<br />
$response = $useragent->request($request);<br />
if ($response->is_success){print "Found : $url\n";}<br />
if ($response->content=~ /Access Denied/){print "Found : $url =>[Error & Access Denied]\n";}<br />
else {print "NotFound : $myadmin\n";}<br />
<br />
}