nosslban.tcl - скрипт пускает на канал только с SSL.

Решение вопросов при работе с TCL скриптами.

Модератор: Модераторы

nosslban.tcl - скрипт пускает на канал только с SSL.

Сообщение tvrsh » 07 май 2011 18:55

Название: nosslban.tcl
Версия: 1.0
Автор: tvrsh, идея скрипта Spoofing (post1768.html#p1768)
Описание: post1768.html#p1768
Поддержка Suzi: Нет
Дополнительная информация: Скрипт не тестировал. Может не работать.

TCL: [ Скачать ] [ Скрыть ]
# Канал.
set nosslchan #egghelp

# Время бана.
set nosslbantime 10

# Сервер.
set nosslserv irc.qwertylife.ru

# Это менять не надо.
set sslsupport 0

# Процедура входа пользователя на канал.
bind join - * joinssl
proc joinssl {nick uhost hand chan} {
global nosslchan
    if {$chan == $nosslchan} {
        # Тут проверяем есть ли на канале +m, если нету то ставим.
        if {![string match *m* [getchanmode $chan]]} {
            putserv "MODE $chan +m"
        }
        # Хуизим ник.
        putserv "WHOIS $nick"
    }
}

#<- :irc.qwertylife.ru 312 tvrsh tvrsh irc.qwertylife.ru :QWERTY IRC Server, Moscow, Russia
#<- :irc.qwertylife.ru 671 tvrsh tvrsh :is using a Secure Connection (SSL)

# Бинд на проверку наличия SSL.
bind raw - 671 raw671
proc raw671 {from key msg} {
    global sslsupport
    # Присваиваем переменной 1.
    set sslsupport 1
}

# Бинд на проверку сервера.
bind raw - 312 raw312
proc raw312 {from key msg} {
global nosslchan nosslserv botnick nosslbantime sslsupport
    set server [lindex [split $msg] 2]
    # Если сервер не наш или нет SSL то баним негодяя.
    if {$server != $nosslserv || $sslsupport == "0"} {
        newchanban $nosslchan [lindex [split $msg] 0]!*@* $botnick "You need $nosslserv + SSL to join $nosslchan channel." $nosslbantime
    }
    # Если на канале все еще стоит +m то снимаем его.
    if {[string match *m* [getchanmode $chan]]} {
        putserv "MODE $chan -m"
    }
    # Ставим переменнную наличия SSL в 0.
    set sslsupport 0
}

putlog "nosslban.tcl by tvrsh and Spoofing loaded..."


Если кто решится попробовать отпишитесь о результатах.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Вернуться в TCL скрипты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

cron