Ищу скрипт реф спама

Тема в разделе "Мелочи", создана пользователем BlackvsEvgen, 15 окт 2010.

Статус темы:
Закрыта.
  1. BlackvsEvgen

    BlackvsEvgen Постоялец

    Регистр.:
    13 янв 2009
    Сообщения:
    104
    Симпатии:
    3
    Помогите найти рабочий скрипт, заранее спасибо.

    Добавлено через 47 минут
    Или поделитесь програмкой WuRef :), кому не жалко. Она просто обязана быть на этом форуме, но я её не нашел :(
     
  2. toptun

    toptun Создатель

    Регистр.:
    30 ноя 2009
    Сообщения:
    32
    Симпатии:
    6
    Вот, когда то случайно заметил такие ссылки на сайте и на быструю руку накатал себе скриптик.
    Потом правда забросил это - таких "умных" много и если рефер на морде сайта - за 10 секунд уходит нафиг по причине переходов с поисковиков(хотя с поисковиков не успевают, другие рефферисты забивают)
    Скрипт нифига не оптимизированый по выше описанной причине.
    Хотя конечно можно переделать.

    Но от базы не откажусь ;)

    Однопоточная :(
    Но работать будет и на винде и на юниксе. :)
    Работает через прокси.
    Проверяет или ссылка добавилась, если не добавилась - записывает сайт в лог.
    Думаю что все понятно из кода.

    use warnings;
    use CGI ':standart';
    use LWP::UserAgent;
    use HTTP::Request::Common;
    use LWP;

    @site_list = ("http://mydor1.com", "http://mydor2.com/", "http://mydor3.com");

    open FILE, ">bad_result_log.txt";

    open(DATA, "C:/base.txt ") || die "Can't open refers";
    @array = <DATA>;
    close DATA;

    $k=scalar(@array);

    for ($i=0; $i < $k; $i++) {
    foreach (@site_list) {

    $url = "http://$array[$i]";
    $ua = LWP::UserAgent->new;
    $ua->proxy('http','http://IP:80/');# Proxy - IP:port или закоментировать нафиг
    $ua->agent("Mozilla/8.0");
    $ua->default_header('Referer' => "$_");

    my $req = HTTP::Request->new(GET=>$url);
    $req->content_type('text/html');
    my $res = $ua->request($req);
    my $ww = $res->content;

    #это можно выкинуть - будет работать быстрее, но не будет проверять установку ссылки
    $url = "http://$array[$i]";
    $ua = LWP::UserAgent->new;
    $ua->proxy('http','http://IP:80/');# Тут можно другой прокси или тот же, можно вообще выкинутью
    $ua->agent("Mozilla/8.0");
    $req = HTTP::Request->new(GET=>$url);
    $req->content_type('text/html');
    $res = $ua->request($req);
    $ww = $res->content;


    if ($ww !~ /$_/) {# можно поменять условие на =~ и будет записывать то где поставилась ссылка
    printf FILE "$array[$i]:$_";

    }
    }
    }
    close FILE;
     
  3. -=BlackSmoke=-

    -=BlackSmoke=-

    Регистр.:
    4 авг 2009
    Сообщения:
    280
    Симпатии:
    49
    Однопоточный, чисто для ознакомления пойдет, а практической пользы мало будет. Я на php писал подобное с мультикурл-либой, сейчас уже не найду, ибо в хруме есть.
    P.S. рефспам жив:-]
     
  4. kactetus

    kactetus митя is here )

    Регистр.:
    26 авг 2007
    Сообщения:
    441
    Симпатии:
    278
    -=BlackSmoke=- а можеш с мультикурл'ом выложить?
     
  5. _sergey_

    _sergey_ Писатель

    Регистр.:
    1 окт 2008
    Сообщения:
    1.746
    Симпатии:
    1.159
    Прогу-то могу выложить, но вроде пишут что эта тема прикрыта с последним апом.
     
  6. Evil_Master

    Evil_Master СтудэнТ

    Регистр.:
    14 дек 2008
    Сообщения:
    604
    Симпатии:
    424
    Вылаживай, мы проверим.
     
  7. _sergey_

    _sergey_ Писатель

    Регистр.:
    1 окт 2008
    Сообщения:
    1.746
    Симпатии:
    1.159
    Вот:
    http://www.megaupload.com/?d=TL1FEWLR
    http://depositfiles.com/files/8loekhcpb
    пароль на архив: sgfioghsorbasrvuy
    P.S. Хайд на мой взгляд минимальный, не стоит меня просить его ещё снизить или скинуть прогу в личку.
     
  8. BlackvsEvgen

    BlackvsEvgen Постоялец

    Регистр.:
    13 янв 2009
    Сообщения:
    104
    Симпатии:
    3
    Народ, спам по Вусаге прекрыли, у меня только на одном сайте +10 и всё. И насчёт этой проги - лучше ей не пользоватся, так как палится айпи при спаме. Надо скрипт искать, который работает через прокси. И кому хайда высокий, в гугле забейте:

    Уже на многих блогах её выложили и объяснили как базы искать и.т.п.
     
Статус темы:
Закрыта.