Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
Нужен прокси чекер/грабер |
24.01.2008, 18:16
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
Нужен прокси чекер/грабер
Ищется хороший прокси граббер и чеккер серверный ( пхп/перл ). Кто имеет, поделитесь плз 
Вот нарыл один, берет урлы из txt и граббит с них прокси, чекает на GET и рабочие слаживает в отедльный txt. Так вот может есть подобный или кто-то сможеш подправить чтобы проверял на POST, вместо GET. Заранее спасибо
скачать - http://dump.ru/files/o/o521684942/
PHP код:
use FileHandle;
autoflush STDOUT 1;
checkProxies();
exit;
################################
#This function checks proxylist
################################
sub checkProxies
{
use threads;
use threads::shared;
$threadsNumber=64;
print "Checking proxies... ";
share(@flags);
open(ALLP,"<./allproxies.txt");
#creating threads
for($i=0;$i<$threadsNumber;$i++)
{
threads->create("myThread",$i);
$flags[$i]="nothing";
}
foreach $thr(threads->list)
{
$thr->detach;
}
#main loop
#searches for unoccupied thread
#and gives it a work
$num=0;
while($proxy=<ALLP>)
{
$num++;
print "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b";
print "Checking proxies... ".$num;
$current=0;
while()
{
if($flags[$current] eq "nothing")
{
$flags[$current]=$proxy;
last;
}
if($flags[$current] eq "good")
{
$flags[$current]=$proxy;
$goodNumber++;
last;
}
$current++;
if($current==$threadsNumber-1) {$current=0;}
}
}
#checking finished
#now we may kill all threads
$i=0;
while($i<$threadsNumber)
{
if($flags[$i] eq "nothing")
{
$flags[$i]="finish";
}
if($flags[$i] eq "good")
{
$flags[$i]="finish";
$goodNumber++;
}
if($flags[$i] eq "finished")
{
$i++;
}
}
close ALLP;
print "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b";
print "Checking proxies... finished\n";
print $goodNumber." eleet proxies found\n";
sleep(1);
}
########
#Thread
########
sub myThread
{
while()
{
sleep(1);
if($flags[$_[0]] eq "finish") {last;}
if($flags[$_[0]] eq "nothing") {next;} #wait for task
if($flags[$_[0]] eq "good") {next;} #wait for task
$proxy=$flags[$_[0]];
$result=testProxy($proxy);
if($result==1)
{
open(ELEET,">>./eleet.txt");
print ELEET $proxy;
close ELEET;
$flags[$_[0]]="good";
} else {
$flags[$_[0]]="nothing";
}
}
$flags[$_[0]]="finished";
}
###########################
#This function tests proxy
###########################
sub testProxy
{
$env="http://www.ocnar.com/cgi-bin/textenv.pl";
#$env="http://www.anonymitytest.com/cgi-bin/textenv.pl";
#$env="http://64.62.217.127/cgi-bin/textenv.pl";
#$env="http://nntime.com/textenv.pl";
#$env="http://samair.ru/cgi/textenv.pl"
($adr,$port)=split(/:/,$_[0]);
open(ITP,">./logs/".$adr.".txt");
$s=getPage($env,"http://".$_[0]);
if($s eq "")
{
print ITP "dead proxy";
close(ITP);
return 0;
}
else
{
print ITP $s;
close(ITP);
}
if($s!~/REMOTE_ADDR/) {return 0}; #bad proxy
if($s=~/89.179.243.148/) {return 0}; #transparent proxy
#if($s=~/HTTP_VIA/) {return 0;} #anonymous or transparent proxy
#if($s=~/HTTP_X_FORWARDED_FOR/) {return 0;} #anonymous or transparent proxy
return 1; #eleet proxy
}
#################################
#This functon makes HTTP request
#################################
sub getPage
{
use LWP::UserAgent;
$ua=LWP::UserAgent->new;
$ua->proxy(http=>$_[1]);
$ua->timeout(5);
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
$req=HTTP::Request->new(GET=>$_[0]);
$res=$ua->request($req);
if($res->is_success)
{
#print($res->content);
return $res->content;
}
else
{
#print "Error!\n";
return "";
}
}
|
|
|
24.01.2008, 20:32
|
|
Познающий
Регистрация: 30.12.2007
Сообщений: 76
Провел на форуме:
622905
Репутация:
43
|
|
Обидно, что тема не живет 
От себя могу добавить вот это скрипт стоит 30 баксов при регистрации идет привязка к IP хостера, скрипт зашифрован Zend Guard если бы не это скрипт супер. Минусы - админ походу забросил сайт и его там почти нет.
Если кто расшифрует буду несказанно благодарен
Последний раз редактировалось [-=OniX=-]; 24.01.2008 в 20:42..
|
|
|
|
25.01.2008, 18:16
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Попробуй поищи Sansara - я тут выкладывал...может оно то что тебе надо!
|
|
|
|
25.01.2008, 19:35
|
|
Познающий
Регистрация: 30.12.2007
Сообщений: 76
Провел на форуме:
622905
Репутация:
43
|
|
спс + но к меня почему то нет модуля Sys::HostIP |
|
|
|
28.01.2008, 13:17
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
дык поставь
Вместо него можно обойтись, имхо тупым `hostname -i`
ЗЫЖ Если не то, то извиняюсь...не смотрел сам его...
ЗЗЫЖ Модуль-то сам по-сути берет ИП машины, на которой работает...так пропиши вручную ) |
|
|
|
29.01.2008, 12:12
|
|
Moderator - Level 7
Регистрация: 22.09.2006
Сообщений: 531
Провел на форуме:
3818187
Репутация:
369
|
|
Sansara 0.7
нашел я эту прогу (Sansara) но че то не пашет она у меня. залил на сервер все вроде норм ,выставил права как полагаеться но она не пашет зараза!
кто нить напишите хоть ман чтоли какой нить как юзать эту прогу
какую лицензию вводить даже хз
Ниид хелп
Последний раз редактировалось satana8920; 29.01.2008 в 12:33..
|
|
|
|
29.01.2008, 12:59
|
|
Участник форума
Регистрация: 02.06.2006
Сообщений: 241
Провел на форуме:
1703454
Репутация:
142
|
|
Сообщение от [-=OniX=-]
Обидно, что тема не живет
От себя могу добавить вот это скрипт стоит 30 баксов при регистрации идет привязка к IP хостера, скрипт зашифрован Zend Guard если бы не это скрипт супер. Минусы - админ походу забросил сайт и его там почти нет.
Если кто расшифрует буду несказанно благодарен вот - http://dezend.w4ck1ng.com/
только что попробывал дезендить индексный файл этой проги - всё ок разморозило, но тестить прогу не тестил, но думаю всё ок
|
|
|
|
29.01.2008, 13:33
|
|
Познающий
Регистрация: 30.12.2007
Сообщений: 76
Провел на форуме:
622905
Репутация:
43
|
|
+ 100
немного код подправить и все |
|
|
|
29.01.2008, 13:45
|
|
Участник форума
Регистрация: 02.06.2006
Сообщений: 241
Провел на форуме:
1703454
Репутация:
142
|
|
дезендел лучше себе скачай, я ссылку не помню, ТАНЗВУТ или как там забыл ник его, у него на сайте вроде, конечно там править надо, если есть знания, то можно переделать под себя, у меня например нет таких знаний(
Последний раз редактировалось bobob; 29.01.2008 в 13:52..
|
|
|
|
29.01.2008, 13:59
|
|
Познающий
Регистрация: 30.12.2007
Сообщений: 76
Провел на форуме:
622905
Репутация:
43
|
|
я его качал уже просто не мог разобраться в ini файле сидел часа 2 и не смог я дурак |
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [-=OniX=-]](/avatars/avatar47231.gif){kind=avatar}
![Отправить сообщение для [-=OniX=-] с помощью ICQ](fusion/misc/im_icq.gif)
Похожие темы
Линейный вид
