Четверг, 2017.11.23, 08:24На сайте Московское время

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

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


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

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

[Perl] IRC spam bot
#!/usr/bin/perl
#
#ircbot <= 0.01 irc spam bot
#
#© 2004-2006 Esoteric Code
#simple spam bot for irc. has a timer
#for sending message which works in a for loop
#written by: seven


use IO::Socket;
$channel ="#channel name";
$Host = "war.irc.su";
$Port = 6667;
$nick = "seven";
$email = "code 8 * :esotericcode.com";

@alternate = ('amen_Ra',
'seven',
'basic_code');

@resp = ('I am a IRC bot coded in perl.', #random spam messages
'visit http://www.sevenz.net.',
'hey, how are you.',
'esoteric code.com.',
'how was your day?',
'hey, blow me',
'i am sexier than you');


my $sock = new IO::Socket::INET(
PeerAddr => $Host,
PeerPort => $Port,
Proto => 'tcp',
) || die "No connection $!\n";

print $sock "NICK $nick\r\n";
print $sock "USER $email\r\n";

while ($input = <$sock>)
{
if ($input =~ /004/){
last;
}
elsif ($input =~ /433/){
#nick already taken, auto switch to an alternate randomly from list
$a = int(rand($#alternate));
$newnick = $alternate[$a];
print $sock "NICK $newnick\r\n";
}

}
print $sock "JOIN $channel\r\n";

while ($input = <$sock>)
{
chop $input;
if ($input =~/^PING(.*)$/i){
print $sock "PONG $1\r\n";
print $sock "PRIVMSG $channel :irc bot coded in perl -> http://www.sevenz.net\r\n";
}

elsif ($input =~/!start(.*)/){

for ($i = 0; $i < 20; ++$i)
{
$r = int(rand($#resp));
$message = $resp[$r];
print $sock "PRIVMSG $channel :$message\r\n";
sleep(10)
}

}
elsif ($input =~/!time(.*)/){
$time = time();
print $sock "PRIVMSG $channel :local time/date: $time\r\n";
}
else{
#@tmp = split(/:/, $input);
print $input #$tmp[1]
}

}
Категория: IRC | Просмотров: 7503327 | Добавил: [RePeRoK]|

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

Гость !


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

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