Proxy koruma

[Administrator]

Kod Seç Genişlet

# proxycheck.tcl - Proxy.txt IP'leri bağlanınca KLINE atar

set proxy_list_file "proxy.txt"
set proxy_kline_reason "Proxy tespit edildi. Erişiminiz engellendi."

bind evnt - init-server evnt_init_server
bind raw - "NICK" check_user_proxy

# Kullanıcı bağlandığında IP'yi kontrol eder
proc check_user_proxy {from keyword text} {
    global proxy_list_file proxy_kline_reason

    # Gelen IP'yi al
    if {[regexp {^\S+ \S+ (\S+) \S+ :(.*)$} $text -> ip nick]} {
        # Proxy listesi oku
        if {[file exists $proxy_list_file]} {
            set proxyfile [open $proxy_list_file r]
            set proxies [split [read $proxyfile] "\n"]
            close $proxyfile

            foreach proxyip $proxies {
                if {[string match $proxyip $ip]} {
                    putlog "proxycheck.tcl: $ip adresi proxy listesinde! KLINE uygulanıyor."
                    putquick "PRIVMSG OperServ :KLINE ADD $ip 7d $proxy_kline_reason"
                    break
                }
            }
        }
    }
    return 0
}

proc evnt_init_server {} {
    putlog "proxycheck.tcl yüklendi. Proxy.txt ile bağlantı IP'leri kontrol edilecek."
}