Code:

#################################################################################  #  TCL scripts by Ofloo all rights reserved.# #  HomePage: http://ofloo.net/#  CVS: http://cvs.ofloo.net/#  Email: support[at]ofloo.net#  #  This program is free software; you can redistribute it and/or#  modify it under the terms of the GNU General Public License#  as published by the Free Software Foundation; either version 2#  of the License, or (at your option) any later version.#   #  This program is distributed in the hope that it will be useful,#  but WITHOUT ANY WARRANTY; without even the implied warranty of#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the#  GNU General Public License for more details.#   #  You should have received a copy of the GNU General Public License#  along with this program; if not, write to the Free Software#  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.#  #  ChangeLog:#   - 11/02/2005: Fix close fd################################################################################namespace eval proxyban {    ###################################  # Main settings change to your  # preference.  ###################################  variable banport "1080,1081,3380,3381" ;# Most commen port list  variable bantime "20" ;# Permanent ban.  variable bantext "Proxys Detected! If you are not a Proxy /pm noobman. 20 min Ban!" ;# Ban msg when bot kicks user  variable warnmsg "Scanning for proxys plz ignore the warning on your firewall." ;# notify the user.    ###################################  # Do not edit below  ###################################  variable version "1.1"  ###################################  # Join bind  ###################################  proc scan_join {nick host hand chan} {    variable banport; variable warnmsg    putserv "NOTICE $nick :$warnmsg"    set hostname [lindex [split $host \x40] end]    foreach {x} [split $banport \x2c] {      if {![catch {socket -async $hostname $x} s]} {        fileevent $s writable [list [namespace current]::check_sock $s $host $chan]      }    }  }  ###################################  # fileevent callback  ###################################  proc check_sock {s host chan} {    variable bantime; variable bantext    if {[string equal {} [fconfigure $s -error]]} {      newchanban $chan [maskhost $host] $::botnick $bantext $bantime    }    close $s  }  bind join - * [namespace current]::scan_join  ################################################################################  putlog "\002ProxyCheck.tcl\002 version \002$version\002 by \002Ofloo\002 is loaded."}