Code:
namespace eval proxy { variable version "0.75" variable author "metroid - #development on irc.quakenet.org" variable trigger "?" # The sources we dns to find out if a user is a proxy variable source { "source" } setudef flag antiproxy setudef str antijoins setudef str antidetected setudef str antikicked # /* Settings! */ variable flood "3000:10" ;# 2 proxies that join in 7 seconds and the channel gets closed variable close "40" ;# This is in seconds! It will keep the channel closed for 30 seconds variable modes "mR" ;# the modes it will set when the channel gets flooded. # /* End of settings */ # /* Don't edit anything below these lines. If you break it, don't expect me to fix it for you. */ bind JOIN -|- * [namespace current]::checkuser bind PUB m|n ${trigger}proxy [namespace current]::toggle variable proxy array set proxy ""}proc proxy::toggle {nickname hostname handle channel arguments} { set command [lindex [split $arguments] 0] switch -exact -- [string tolower $command] { enable { if {![channel get $channel antiproxy]} { channel set $channel +antiproxy putquick "NOTICE $nickname :Done. Anti-Proxy was enabled." } else { putquick "NOTICE $nickname :Error: Anti-Proxy is already enabled." } } disable { if {[channel get $channel antiproxy]} { channel set $channel -antiproxy putquick "NOTICE $nickname :Done. Anti-Proxy was disabled." } else { putquick "NOTICE $nickname :Error: Anti-Proxy is already disabled." } } stats { if {([channel get $channel antijoins] != "") || ([channel get $channel antidetected] != "") || ([channel get $channel antikicked] != "")} { putquick "NOTICE $nickname :Stats for $channel: [statistics $channel]" } else { putquick "NOTICE $nickname :No statistics available for $channel." } } default { if {[channel get $channel antiproxy]} { putquick "NOTICE $nickname :Anti-Proxy is currently enabled for $channel. Statistic: [statistics $channel]" } else { putquick "NOTICE $nickname :Anti-Proxy is currently disabled for $channel." } } }}proc proxy::checkuser {nickname hostname handle channel} { checkstats $channel if {[channel get $channel antiproxy] && [botisop $channel] && ![string match *users.quakenet.org* $hostname] && ![matchattr $handle m|m $channel] && ![isbotnick $nickname]} { channel set $channel antijoins "[expr [channel get $channel antijoins] + 1]" regexp {.*\@(.*)} $hostname -> hostname if [regexp {[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} $hostname] { [namespace current]::check $hostname $hostname 1 $nickname $hostname $channel } else { dnslookup $hostname [namespace current]::check $nickname $hostname $channel } }}proc proxy::check {ip hostname status nickname originalhost channel } { variable source if {$status} { regexp {([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3})} $ip -> part1 part2 part3 part4 set newip "$part4.$part3.$part2.$part1" foreach proxylist $source { dnslookup "$newip.$proxylist" [namespace current]::check2 $nickname $ip $originalhost $hostname $channel $proxylist } } else { putlog "AntiProxy: Couldn't dns resolve $originalhost." }}proc proxy::check2 {ip hostname status nickname oip realhost originalhost channel rbl } { variable proxy variable bantime variable close if {[info exists proxy($channel,$nickname)]} { return 0 } set closemode [modes $channel] if {$status} { set proxy($channel,$nickname) 1 utimer 10 [list unset [namespace current]::proxy($channel,$nickname)] channel set $channel antidetected "[expr [channel get $channel antidetected] + 1]" if {[floodjoin $channel]} { putquick "MODE $channel +b$closemode $realhost" -next set ::close($channel) 1 utimer $close [list [namespace current]::open "$channel" "$closemode"] } pushmode $channel +b $realhost if [regexp {[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} $originalhost] { putquick "KICK $channel $nickname :\ 14Proxy.\(ID: [expr [channel get $channel antikicked] + 1]\)" } else { putquick "KICK $channel $nickname :\ 14Proxy.\(ID: [expr [channel get $channel antikicked] + 1]\)" } channel set $channel antikicked "[expr [channel get $channel antikicked] + 1]" utimer 3 [list flushmode $channel] }} proc proxy::open {channel modes} { if {[info exists ::close($channel)]} { putserv "MODE $channel -$modes" unset ::close($channel) } else { return 0 }}proc proxy::modes {channel} { variable modes set end "" set chanmode [lindex [getchanmode $channel] 0] foreach mode [split $modes ""] { if {![string match *$mode* $chanmode]} { append end $mode } } return "[join $end]"}proc proxy::unsetflood {channel} { if {[info exists ::flood($channel)]} { unset ::flood($channel) }}proc proxy::statistics {channel} { set joins [channel get $channel antijoins] set detected [channel get $channel antidetected] set kicked [channel get $channel antikicked] if {$joins == "" || $joins == "0"} { return "Statistic Unavailable" } elseif {$detected == "" || $detected == "0"} { return "Statistic Unavailable" } elseif {$kicked == "" || $kicked == "0"} { return "Statistic Unavailable" } else { return "Scanned: $joins, Detected: $detected, Kicked: $kicked \[[format %.2f [expr ($kicked * 100.0) / $joins]]%\]" }}proc proxy::checkstats {channel} {# /* This is set to 1 to prevent the bot from crashing. (for some people this appears to be a problem) */ if {[channel get $channel antijoins] == ""} { channel set $channel antijoins "1" } if {[channel get $channel antidetected] == ""} { channel set $channel antidetected "1" } if {[channel get $channel antikicked] == ""} { channel set $channel antikicked "1" }}proc proxy::floodjoin {channel} { variable flood set split [split $flood :] set user [lindex $split 0] set seconds [lindex $split 1] if {![info exists ::flood($channel)]} { set ::flood($channel) 1 } else { incr ::flood($channel) } if {$::flood($channel) >= $user} { set ::flood($channel) 0 return 1 } else { utimer $seconds [list [namespace current]::unsetflood $channel] } return 0}# // Copyright: This script was made by metroid (#development). This means, YOU DIDNT MAKE IT! I DID! :p# // Don't break my copyright because it's lame and i'll sue you ass if you do. Have fun! Statistics: Posted by gamble27 — Wed Jun 29, 2011 4:34 am