C!klodoL
Сообщений: 2
Оценки: 0
Присоединился: 2007-06-05 00:05:36.816666
|
сем доброе время суток, значит так, пишу IRC флудер с проксями, он берет прокси из файла, подключается через проксю, кидает сообщение, подключается через новую проксю и снова кидает сообщение и так далее, Проблема в том что IO::Socket::Socks работает только с Socks прокси, а их в больших количествах найти трудно, хочу использовать HTTPS прокси, Внимание вопрос: как подрубить к IO::Socket https прокси? #!/usr/bin/perl
open (base, "proxy.txt") || die "Error! Can't open proxy list\n";
while ( <base> )
{ @proxy = <base>; } # считываем данные в масив
$z=chomp(@proxy); # кол-во записей в файле
for ($g=0; $g < $z; ){
n:
$g++;
chomp($string = @proxy[$g]); #записываем запись в строку и убираем символ перевода каретки
@conn=split(/:/,$string); # превращаем с список строку данных
# разделенных двоеточием
$proxyhots = @conn[0]; # адрес прокси
$proxyport = @conn[1]; # порт прокси
use IO::Socket::Socks;
$server = "server.ru";
$port = 6667;
$chanel = "#kanal";
$nick = "Gvianpig";
$name = "Gvianpig";
$ident = "mIRC";
$socket = new IO::Socket::Socks(ProxyAddr=>"$proxyhots", ProxyPort=>"$proxyport", ConnectAddr=>"$server", ConnectPort=>"$port", SocksDebug=>1) or goto n;
$i++;
#system("cls ; clear");
print "sent : $i\n";
print $socket "NICK $nick\r\n";
print $socket "USER $ident 8 * :$name\r\n";
print $socket "JOIN $chanel\r\n";
print $socket ("PRIVMSG $chanel : Превед кросафчеги11!!!\r\n");
}
|