Новый спам от ALC

[beldmit]

AMERICAN LANGUAGE CENTER ЦЕНТР РАЗГОВОРНОГО АНГЛИЙСКОГО

К сожалению наши телефоны сейчас заблокированы, поэтому просьба обращатся по
ICQ -

ICQ# 6846665 консультант
ICQ# 6448516 консультант
ICQ# 1001118 консультант
ICQ# 2275557 менеджер
ICQ# 10363 рекламный отдел

Ни у кого нет робота, который шлет мессаги по аське?

Comments

[slobin.livejournal.com]

Очевидно, что нарисовать такого робота на порядки проще, чем устроить телефонный флуд. Не удивлюсь, если завтра-послезавтра таких будут уже десятки.

[arilou]

Стыдно, боярин, ой стыдно...
У vicq есть ключ для "запуска ради отправки одной мессаги".
Что тебе не хватает?

#/usr/bin/perl
use strict;
use warnings;
my @uins=qw/6846665 6448516 1001118 2275557 10363/;
while (1)
{
sleep(1);
if ( open (PIPE, '|/usr/local/bin/vicq -c /home/beldmit/.special_UIN_config -bo'))
{
print PIPE "msg $_/Скажите пожалуйста, у вас есть скидки для ветеранов Великой Отечественной войны?\n" for @uins;
close PIPE;
}
}
# Я не отлаживал и не запускал этот скрипт.
# По идее еёщ потребуется скрипт для регистрации новых UIN, потому что пользоваться игнор-листом они научатся быстро. Опять же, вопросы можно и разнообразить, чтобы они иногда тратили время на прочтение. :)

В продолжение...

[arilou]

А теперь вспоминаем, что vicq написана на перле... Если используемый ею модуль для протокола icq2000 весь на перле или хотя бы сберётся под винды без проблем - выкладываешь всё это вместе на сайт, даёшь сылку на ActivePerl и всё, что там ещё надо - и любой желающий сможет применить полученны спам с польой для дела и злорадным удовольствием для себя. :)