#/usr/bin/python
import sys, os, time, httplib
if sys.platform == 'linux' or sys.platform == 'linux2':
clearing = 'clear'
else:
clearing = 'cls'
os.system(clearing)
if len(sys.argv) != 2:
print "\n|-------------------------------------------------------------|"
print "|               Admin login finder     v2.0                     |"
print "| Help: admin-find.py -h                                        |"
print "|---------------------------------------------------------------|\n"
sys.exit(1)
for arg in sys.argv:
if arg == '-h':
print "\n|-----------------------------------------------------------------------------|"
print "|                Admin login finder     v2.0                                    |"
print "| Usage: admin-find.py www.site.com                                             |"
print "| Example: admin-find.py site.com                                               |"
print "|-------------------------------------------------------------------------------|\n"
sys.exit(1)
site = sys.argv[1].replace("http://","").rsplit("/",1)[0] 
site = site.lower()
admin_path = ['admin.php','admin/','administrator/','moderator/','webadmin/','adminarea/','bb-admin/','adminLogin/','admin_area/','panel-administracion/','instadmin/','memberadmin/','administratorlogin/','adm/','admin/account.php','admin/index.php','admin/login.php','admin/admin.php','admin/account.php','joomla/administrator','login.php',
'admin_area/admin.php','admin_area/login.php','siteadmin/login.php','siteadmin/index.php','siteadmin/login.html','admin/account.html','admin/index.html','admin/login.html','admin/admin.html','admin_area/index.php','bb-admin/index.php','bb-admin/login.php','bb-admin/admin.php','admin/home.php','admin_area/login.html','admin_area/index.html','admin/controlpanel.php','admincp/index.asp','admincp/login.asp','admincp/index.html','admin/account.html','adminpanel.html','webadmin.html','w  ebadmin/index.html','webadmin/admin.html','webadmin/login.html','admin/admin_login.html','admin_login.html','panel-administracion/login.html','admin/cp.php','cp.php','administrator/index.php','administrator/login.php','nsw/admin/login.php','webadmin/login.php','admin/admin_login.php','admin_login.php','administrator/account.php','administrator.php','admin_area/admin.html','pages/admin/admin-login.php','admin/admin-login.php','admin-login.php','bb-admin/index.html','bb-admin/login.html','bb-admin/admin.html','admin/home.html','modelsearch/login.php','moderator.php','moderator/login.php','moderator/admin.php','account.php','pages/admin/admin-login.html','admin/admin-login.html','admin-login.html','controlpanel.php','admincontrol.php',  
'admin/adminLogin.html','adminLogin.html','admin/adminLogin.html','home.html','rcjakar/admin/login.php','adminarea/index.html','adminarea/admin.html','webadmin.php','webadmin/index.php','webadmin/admin.php','admin/controlpanel.html','admin.html','admin/cp.html','cp.html','adminpanel.php','moderator.htm  l','administrator/index.html','administrator/login.html','user.html','administrator/account.html','administrator.html','login.html','m  odelsearch/login.html','moderator/login.html','adminarea/login.html','panel-administracion/index.html','panel-administracion/admin.html','modelsearch/index.html','modelsearch/admin.html','admincontrol/login.html','adm/index.html','adm.html','moderator/admin.html','user.php','account.html','controlpane  l.html','admincontrol.html','panel-administracion/login.php','wp-login.php','adminLogin.php','admin/adminLogin.php','home.php','adminarea/index.php','adminarea/admin.php','adminarea/login.php','panel-administracion/index.php','panel-administracion/admin.php','modelsearch/index.php','modelsearch/admin.php','admincontrol/login.php','adm/admloginuser.php','admloginuser.php','admin2.php',  'admin2/login.php','admin2/index.php','adm/index.php','adm.php','affiliate.php','adm_auth.php  ','memberadmin.php','administratorlogin.php']
print "\n|-------------------------------------------------------------|"
print "|                Admin login finder     v2.0                    |"
print "|---------------------------------------------------------------|\n"
print "\n[-] %s" % time.strftime("%X")
		print "[+] Target:",site
print "[+] Checking paths..."
print
try:
for admin in admin_path:
admin = admin.replace("\n","")
admin = "/" + admin
connection = httplib.HTTPConnection(site)
connection.request("GET",admin)
response = connection.getresponse()
print "%s %s %s" % (admin, response.status, response.reason)
except(KeyboardInterrupt,SystemExit):
raise
except:
pass

mode = 3                          
;0 - брут по двум словарям - логинов и паролей (отдельно словарь логинов, отдельно словарь паролей) - неизвестны ни логин, ни пароль 
;1 - брут по словарю паролей, логин нужно внести ниже (известен только логин) 
;2 - брут по словарю логинов, пароль нужно внести ниже (известен только пароль)
;3 - брут по словарю логин/пароль (разделитель любой, кроме ";" и пробела, например root:root, каждая пара с новой строки) - неизвестны ни логин, ни пароль 


host =                            ;фтп-хост
port = 21                         ;фтп-порт
login =                           ;логин (если брут паролей по одному логину)
pass =                            ;пароль (если брут логинов по одному паролю)
file_pass = passw.txt             ;файл-словарь паролей для брута (каждый пароль с новой строки)
file_login = login.txt            ;файл-словарь логинов (каждый логин с новой строки)
file_login_pass = log_pass.txt    ;файл-словарь логинов/паролей (каждая связка логин/пароль с новой строки)
file_login_pass_del = :           ;разделитель между логин/пароль в файле file_login_pass, не может быть ";" или пробелом
file_result = ftp_result.txt      ;файл для сохранения результатов
pause = 0                         ;пауза между попытками в секундах (если нужно)
timeout = 100                     ;таймаут на установление фтп-соединения (обязательный параметр)
kol = 1                           ;через какое кол-во попыток выводить инфо на экран

#!/usr/bin/perl
use warnings;
use strict;

my $delim = ':';
open IN, '<', 'in.txt'   or die $!;
chomp (my @lines = <IN>) && close IN;
open OUT, '>', 'out.txt' or die $!;

for (@lines)
{
print OUT $_, "\n" if
(m#([a-z0-9][a-z0-9-_]+@[a-z0-9-_]+\.[a-z]{2,4})$delim\S+#ig) &&
($_{$1}=!exists $_{$1});
}

close OUT && print 'finished';