Вторник, 2017.10.17, 05:06На сайте Московское время

Навигация
Категории раздела
Мои статьи [33]
хакер [9]
IRC [21]
Секреты вконтакте [7]
Взлом IRC: [4]
Мини-чат

Наш опрос
Как вам мой сервер?


Архив
Результаты
Всего голосовало: 20
Мы в контакте
Последние файлы
Статистика

Онлайн всего: 299
Гостей: 299
Пользователей: 0
Форма входа
Главная » Статьи » IRC

Пишем IRC бота на PERL
Здравствуйте! Сегодня я вам расскажу, как написать простенького irc бота на PERL.
Сам недавно только взялся за изучение этого языка. Как то раз скачал книгу Клинтон Пирс - "Освой самостоятельно Perl за 24 часа"
Скажу сразу - книга так себе, только основы (Но мне как раз это и нужно было)
И вот, когда я дошел до модулей, наткнулся на IO::Socket. Тем вечером я еще сидел в ирке, и подумал: "А почему бы не попробовать..."

Ну вот, лирическое отступление кончилось =) Начнем!

И так, что нам понадобится:
ActivePerl, подключение к интернету, mIRC(или другой клиент для IRC), минимальные знания PERL, а также документация по протоколу IRC со стороны клиента (я брал http://tools.ietf.org/html/rfc2812)

Собственно вот... Открываем текстовый редакор, пишем строчки:
Код:

#!/usr/bin/perl

Думаю, тут комментировать ненадо, но все таки. Эта строка указывает путь к интерпритатору PERL.

Подключаем модули:
Код:

use strict;
use IO::Socket;

Подключили =)
Код:

my $server = "irc.inattack.ru";
my $port=6667;
my $chanel = "#inattack";
my $nick = "MIKE";
my $ident = "mike";
my $name="Майк";

В переменной $server хранится адрес irc сервера (вписываем нужный)
В переменной $port хранится порт irc сервера (вписываем нужный)
И в переменной $chanel хранится адрес канала
В переменной $nick хранится Ник бота
В переменной $ident хранится Идент бота
В переменной $name хранится имя бота (увидите при хуизе)

Идем дальше:
Код:

my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp");

в этой строке создаем новый объект IO::Socket::INET и ссылка на него присваевается переменной $socket

Ну вот, переменные мы задали, начало есть =)
Теперь идем к документации, видим, что первым делом мы должны послать
Цитата:
Command: NICK
Parameters: <nickname>

Так и сделаем 8)
Код:

print $socket "NICK $nick\r\n";

В переменную $socket вы вводим NICK $nick, \r\n - перевод каретки на следущую строку (то же что и Enter)

Идем дальше, следущей командой должна быть:
Цитата:
Command: USER
Parameters: <user> <mode> <unused> <realname>

Собственно что мы и сделаем:
Код:

print $socket "USER $ident 8 * :$name\r\n";

Что далее? Далее мы заходим на нужный нам канал, что говорит документация?
Цитата:
Command: JOIN
Parameters: ( <channel> *( "," <channel> ) [ <key> *( "," <key> ) ] )
/ "0"

Реализовываем:
Код:

print $socket "JOIN $chanel\r\n";


Готово, бот законнектился на ирк сервер, зашел на канал, НО, спустя какое то время его выкинет по причине (Ping timeout)
Этого нам конечно же не нужно. По протоколу, спустя какое то время, сервер на посылает запрос вида "PING : irc.site.com", а нам надо отправить ответ PONG.
Идем к документации, видим:
Цитата:
Command: PONG
Parameters: <server> [ <server2> ]

"Шкодим" через цикл
Код:

while (my $body = <$socket>) {
chop $body;
if ($body =~ /^PING(.*)$/i) {
print $socket "PONG $1\r\n";
}
}

Готово! Теперь наш бот умеет коннектиться к серверу, заходить на канал и "не вылетать" 8)
Но все равно чего-то не хватает, правда? =)
Давайте сделаем, чтоб при заходе на канал, он говорил привет:
Код:

print $socket ("PRIVMSG $chanel : Привет всем =)\r\n");

Отлично! Но бот без команд, это не бот, так? =)

Приведу пример некоторых: (пишем в цикл while() )
Код:

if ($body =~ /^.*!yandex(.*)$/i) {
print $socket ("PRIVMSG $chanel Сам ищи, я не лох :-P\r\n");
}
if ($body =~ /^.*!bye(.*)$/i) {
print $socket ("QUIT\r\n");
}

Собственно вот он, самый простой бот готов! =)

Основы я вам дал, дальше давайте сами. Прошу сильно не критиковать, ибо только недавно взялся за изучение перл.
С радостью выслушаю вашу критику и замечания.
Ниже приведу весь исходник бота.
Код:

#!/usr/bin/perl
use strict;
use IO::Socket;
my $server = "irc.inattack.ru";
my $port=6667;
my $chanel = "#inattack";
my $nick = "MIKE";
my $ident = "mike";
my $name="Майк";
my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") or die "lol";
print $socket "NICK $nick\r\n";
print $socket "USER $ident 8 * :$name\r\n";
print $socket "JOIN $chanel\r\n";
print $socket ("PRIVMSG $chanel : Рад вновь увидеть вас всех!!\r\n");
while (my $body = <$socket>) {
chop $body;
if ($body =~ /^PING(.*)$/i) {
print $socket "PONG $1\r\n";
}
if ($body =~ /^.*!yandex(.*)$/i) {
print $socket ("PRIVMSG $chanel Сам ищи, я не лох :-P\r\n");
}
if ($body =~ /^.*!bye(.*)$/i) {
print $socket ("QUIT\r\n");
}
}

Спасибо за внимание!
Категория: IRC | Просмотров: 363 | Добавил: [RePeRoK]|

HTML
BB-Code
Ссылка
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Кабинет

Гость !


шаблоны для ucoz
Гость, мы рады вас видеть. Пожалуйста зарегистрируйтесь или авторизуйтесь!
Поиск
Анекдоты
Топ файловиков
теги

Warircsu.at.ua © 2011< | Конструктор сайтов - uCoz Сайт оптимизирован под браузер FireFox Mozilla. SiteMap | SiteMap Forum.