Как сделать?

Discussion in 'Песочница' started by Xack-Zero, 5 Mar 2007.

  1. Xack-Zero

    Xack-Zero Member

    Joined:
    2 Dec 2006
    Messages:
    106
    Likes Received:
    31
    Reputations:
    0
    Здравствуйте хакеры крякеры!
    Помогите ламу.
    На сайте http://service.wmj.ru/Gamba/Rose.aspx?cid=4&id=20860 (там нужно как можно больше роз дарить! Можно отключить принятие куков и поставить прокси и одному дарить себе сколько хочешь роз. Но это очень долго! Можно ли просто посылать как-нибудь запросы на эту кнопку не открывая самой страницы. Есть ли такие программы и если есть как ими пользоваться?
     
  2. Spyder

    Spyder Elder - Старейшина

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    можно
    Code:
    #!/usr/bin/perl
    use IO::Socket;
    open (base, "proxy_list_with_ports.txt") || die "аблом";
    while ( <base> )
    { @proxy = <base>; }
    
    $z=chomp(@proxy);
    for ($g=0; $g < $z; ){
    n:
    $g++;
    $path="твоя_ссылка";
    chomp($string = @proxy[$g]);
    @conn=split(/:/,$string);
    $server = @conn[0];
    $port = @conn[1]; 
    
    $socket=IO::Socket::INET->new( PeerAddr => $server, PeerPort => $port, Photo => tcp)
    or goto n;
    
    
    $i++;
    system("cls ; clear");
    print "sent : $i";
    
    print $socket "GET $path HTTP/1.1\n";
    print $socket "Host: $server\n";
    print $socket "Accept: */*\n";
    print $socket "Http-Referer: http://microsoft.com";
    print $socket "User-Agent: Osel Explorer 7.0\n";
    print $socket "Pragma: no-cache\n";
    print $socket "Cache-Control: no-cache\n";
    print $socket "Connection: close\n\n";
    }
    в 3 строке меняешь proxy_list_with_ports.txt на имя твоего файла с проксями.
    Скрипт с Хакера взял, самому лень писать, там более зачем изобритать велосипед...
     
  3. Xack-Zero

    Xack-Zero Member

    Joined:
    2 Dec 2006
    Messages:
    106
    Likes Received:
    31
    Reputations:
    0
    А как этот скрипт запустить?
    Пуск => выполнить => cmd => ???
     
  4. Spyder

    Spyder Elder - Старейшина

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    поставь себе Active Perl
    потом Пуск => выполнить => cmd => perl скрипт
     
  5. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,547
    Likes Received:
    1,398
    Reputations:
    612
    link: http://www.perl.com/download.csp
    p.s perl писать не обязательно под видной
     
  6. Spyder

    Spyder Elder - Старейшина

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    2 GreenBear
    что то мне подсказывает что у него именно винда =)
     
  7. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,547
    Likes Received:
    1,398
    Reputations:
    612
    а я что говорю обратное?
     
  8. Spyder

    Spyder Elder - Старейшина

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    нет
    мля, оффтоп пошёл уже
     
  9. Xack-Zero

    Xack-Zero Member

    Joined:
    2 Dec 2006
    Messages:
    106
    Likes Received:
    31
    Reputations:
    0
    У меня выньдоуз перл уже стоит. C:/WebServers/usr/bin/perl.exe
    Напишите в полной подробности как этот скрипт запустить и с каким расширением его сохранить?
     
  10. Spyder

    Spyder Elder - Старейшина

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    сохраняй например на С как script.pl
    на диске С так же создай файл с проксями
    пропиши имч файла с проксями в скрипт (3 строчка)
    потом командуй - perl c:/script.pl
     
  11. Spyder

    Spyder Elder - Старейшина

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    2 kot777
    ппц. Посмотрел на твой пост, а потом на юзербар в подписи =)))))))))))
     
    1 person likes this.
  12. Zitt

    Zitt Elder - Старейшина

    Joined:
    7 May 2006
    Messages:
    736
    Likes Received:
    268
    Reputations:
    59
    Походу перл из девнера или чегото похожего, если да, то командуй
    C:/WebServers/usr/bin/perl.exe script.pl
     
  13. Alexsize

    Alexsize Fail

    Joined:
    17 Sep 2005
    Messages:
    1,771
    Likes Received:
    1,221
    Reputations:
    704
    Значитца так. Возьми код, что Spyder тебе дал (смотри выше постик) и сохрани его в файл ... ну пусть будет ему имя 1.pl. Поправь там в 3 строке, как Spyder тебе написал. Через Мой Комьютер скопируй этот файлик в папку C:/WebServers/usr/bin .Теперь выполняй
    Пуск -> Выполнить->cmd-> cd C:/WebServers/usr/bin/ . Теперь набирай там же perl 1.pl и смотри параметры. Если еще возникнут вопросы, пиши. Все мы когда то первый раз перл запускали....
     
    1 person likes this.
  14. Xack-Zero

    Xack-Zero Member

    Joined:
    2 Dec 2006
    Messages:
    106
    Likes Received:
    31
    Reputations:
    0
    Скрипт запустил!
    А как сделать? Эта кнопка работает через javaScript.
    Как послать запрос на эту кнопку?