Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Уязвимости (https://forum.antichat.xyz/forumdisplay.php?f=74)
-   -   Как сделать? (https://forum.antichat.xyz/showthread.php?t=34732)

Xack-Zero 05.03.2007 17:55

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

Spyder 05.03.2007 18:50

можно
Код:

#!/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 на имя твоего файла с проксями.
Скрипт с Хакера взял, самому лень писать, там более зачем изобритать велосипед...

Xack-Zero 05.03.2007 20:06

А как этот скрипт запустить?
Пуск => выполнить => cmd => ???

Spyder 05.03.2007 20:08

поставь себе Active Perl
потом Пуск => выполнить => cmd => perl скрипт

GreenBear 05.03.2007 20:16

link: http://www.perl.com/download.csp
p.s perl писать не обязательно под видной

Spyder 05.03.2007 20:23

2 GreenBear
Цитата:

Пуск => выполнить => cmd => ???
что то мне подсказывает что у него именно винда =)

GreenBear 05.03.2007 20:24

а я что говорю обратное?

Spyder 05.03.2007 20:29

нет
мля, оффтоп пошёл уже

Xack-Zero 05.03.2007 20:50

У меня выньдоуз перл уже стоит. C:/WebServers/usr/bin/perl.exe
Напишите в полной подробности как этот скрипт запустить и с каким расширением его сохранить?

Spyder 05.03.2007 20:55

сохраняй например на С как script.pl
на диске С так же создай файл с проксями
пропиши имч файла с проксями в скрипт (3 строчка)
потом командуй - perl c:/script.pl


Время: 05:15