новый 2008 год

//del

 

Угу...))) Все побежали туда.. )))) Делаем посещения майл ру)

 

О, сча забацаем скриптик на тему)

Code:

#! /usr/bin/perl -w
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;

sub submit_query {
    my ($file, %query) = @_;
    my $user_agent = LWP::UserAgent->new;
    $user_agent->agent("MSIE/5.5 " . $user_agent->agent);
    my $request = POST
    $file,
    [%query];
    my $response = $user_agent->request($request);
}

if(!$ARGV[0] || !$ARGV[1]) { printf "usage :script.pl id kol-vo\n"; exit(0);}



 my %example = (id => $ARGV[0], score => '10', x => '53', y => '10');
		for (my($i) = 0; $i<$ARGV[1];$i++)
				{submit_query("http://2008.mail.ru/add_score", %example);}
				printf "done";
 

 

http://2008.mail.ru/wish/48859 проголосуйте пожалуйста !!!

 

PHP:

<?php

    set_time_limit(0);
    $host = "2008.mail.ru";
    $port = "80";
    $post = "id=48859&score=9&x=53&y=10";

    $httpq     =
    "POST http://2008.mail.ru/add_score HTTP/1.1\r\n".
    "Host: 2008.mail.ru\r\n".
    "User-Agent: MSIE/5.5 \r\n".
    "Content-Type: application/x-www-form-urlencoded\r\n".
    "Content-Length: ".strlen($post)."\r\n\r\n".$post."\r\n";

    $sock = fsockopen($host, $port, $errno, $errstr, 5);

    if (!$sock)
    {
        echo "нет коннекта";
    }
    else
    {
        for($i = 0;$i < 100; $i++)
{
        fwrite($sock, $httpq);
        $content = "";
        while (!feof($sock))
        {
            if (!$content .= fread($sock, 1))
            {
                $content = "";
            }
        }
        fclose($sock);

        if (preg_match("#Cпасибо Вам за то, что Вы оценили это желание.#", $content, $out))
            echo $i++;
        else
        {
            echo "Не вышло чето";
        }
}
    }
?>

 

От кликеров кстати толку нет........
По айпи там все-таки...
Если только трафф купить..но чето в моем коде где-то ошбка..найти не могу