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

Чекер прокси для контакта
  #1  
Старый 30.08.2009, 23:56
Phoenixy
Участник форума
Регистрация: 28.03.2009
Сообщений: 163
Провел на форуме:
948709

Репутация: 43
Отправить сообщение для Phoenixy с помощью ICQ
По умолчанию Чекер прокси для контакта
подскажите паблик чекер прокси для контакта
 
Ответить с цитированием

  #2  
Старый 31.08.2009, 00:02
Nelzone
Постоянный
Регистрация: 12.04.2008
Сообщений: 403
Провел на форуме:
4700216

Репутация: 261
По умолчанию
http//www.proxyfire.net/forum/showthread.php?t=33
 
Ответить с цитированием

  #3  
Старый 31.08.2009, 00:06
Phoenixy
Участник форума
Регистрация: 28.03.2009
Сообщений: 163
Провел на форуме:
948709

Репутация: 43
Отправить сообщение для Phoenixy с помощью ICQ
По умолчанию
есть еще что нибудь?
 
Ответить с цитированием

  #4  
Старый 31.08.2009, 00:09
HakaR
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957

Репутация: 539
По умолчанию
Лови -
 
Ответить с цитированием

  #5  
Старый 31.08.2009, 00:10
-Onotole-
Banned
Регистрация: 10.06.2008
Сообщений: 278
Провел на форуме:
3119025

Репутация: 393
Отправить сообщение для -Onotole- с помощью ICQ
По умолчанию
Цитата:
Сообщение от HakaR  
Лови -
Ссылка битая!
 
Ответить с цитированием

  #6  
Старый 31.08.2009, 00:38
eLWAux
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568

Репутация: 2399


Отправить сообщение для eLWAux с помощью ICQ
По умолчанию
perl
PHP код:
use LWP::UserAgent; 
use warnings;
use threads;
use threads::shared;
use Fcntl ':flock';

#=-=-=-=--==-====--=-======-=-=-=-==-====-=-==-=--==-==-=-=-=-==-=-=-=-=-==-=-

print q{
    proxy checker
    eLwaux(c)2008
 }."\n";
 
#=-=-=-=--==-====--=-======-=-=-=-==-====-=-==-=--==-==-=-=-=-==-=-=-=-=-==-=-

my $result_out:shared=  shift || 'good_proxy.txt';
my $proxies_fl = shift || 'proxy.txt';
my $threads    =  20;
my $DEBUG:shared = 0;
my $rnd = 0;

#=-=-=-=--==-====--=-======-=-=-=-==-====-=-==-=--==-==-=-=-=-==-=-=-=-=-==-=-
# delete dublicates

open (F , '<'.$proxies_fl);
my @input = <F>;
chomp (@input);
close F;
my %out = ();
@input = grep(!$out{$_}++, @input);

#=-=-=-=--==-====--=-======-=-=-=-==-====-=-==-=--==-==-=-=-=-==-=-=-=-=-==-=-

#open (FILE, '<'.$proxies_fl) || die(" -  $proxies_fl not found!\n");
#my @proxy : shared = <FILE>;
my @proxy : shared = @input;
#chomp(@proxy);
#close(FILE);

print ' ~  locaded '.scalar(@proxy)." proxy\n\n";
my $c:shared = 0;
$| = 1;

for(0..$threads) {$trl[$_] = threads->create(\&CheckPr, $_);}
for(@trl) { $_->join; }

print "\n\n ~~ FINISH!\n";
print ' ~~ GOOD: '.$c."\n";

<stdin>;
exit;


sub CheckPr {
     while(@proxy){
        my $p = '127.0.0.1';
        {lock(@proxy);
         if ($rnd) {
             my $seed = rand(scalar(@proxy));
             $p = $proxy[$seed];
             delete($proxy[$seed]);
         } else {
             $p = shift @proxy;
         }
        }
        my $UA = LWP::UserAgent->new;
        $UA->timeout(10);
        $UA->proxy(['http'] => 'http://'.$p);
        my $test = $UA->get('http://pda.vkontakte.ru/')->content;
        if ($test =~ /vkontakte/i) {
                 print ' +  '.$p."\n"; $c++;
                 &s2f($result_out,$p);
                 &s2f('GOOD_'.$p.'.html',$test) if ($DEBUG == 1);
         } else {
                 print ' -  '.$p."\n";
                 &s2f('BAD_'.$p.'.html',$test) if ($DEBUG == 1);
        }
     }
}


#=-=-=-=--==-====--=-======-=-=-=-==-====-=-==-=--==-==-=-=-=-==-=-=-=-=-==-=-

# save file
sub s2f {
    $_ = $_[0];
    my $f = ~s/://g;
    $f = $_;
    open(myFILE,">>$f") || die "error: $!";
    print myFILE $_[1]."\n";
    close(myFILE);
} 

#=-=-=-=--==-====--=-======-=-=-=-==-====-=-==-=--==-==-=-=-=-==-=-=-=-=-==-=- 
 
Ответить с цитированием

  #7  
Старый 31.08.2009, 00:39
Nelzone
Постоянный
Регистрация: 12.04.2008
Сообщений: 403
Провел на форуме:
4700216

Репутация: 261
По умолчанию
eLWAux
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
F.A.Q по Пранку Nightmarе Статьи 43 28.03.2010 10:55
Продаю прокси для контакта gerry Покупка, продажа, услуги в Соц. Сетях 0 29.08.2009 11:37
Сбор литературы для начинающего и опытного ассемблерщика -m0rgan- PHP, PERL, MySQL, JavaScript 2 02.12.2008 23:23
Софт для мобильных телефонов под *nix Grrl Сотовый фрикинг 2 02.03.2007 01:47



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


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




ANTICHAT.XYZ