Détection du host caché

[fedora]

tclcopier

#-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-#
###--------------Anti-Spam Bot Orange-----------###
#-------------------------DnS---------------------#
# Remerciement à BdS et CrazyCat pour leur aides  #
#-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-#

#-//-//-//-//-#
#   VersiOn   #
#-//-//-//-//-#

 
 
# Salon ou sera actif #
set chanm "#DnS"
# Configuration du host,message de kick #
set spamhost "2531986971.fr"      
set kick(spambot) "Dégage .. "

#-//-//-//-#
#---Bind---#
#-//-//-//-#
 
bind join - "*" whois:join
bind raw - "328" whois:answ
#-//-//-//-//-#
#  PROCEDURE  #
#-//-//-//-//-#
 
proc whois:join { nick host hand chan } {
  putserv "WHOIS $nick $nick"
  return 0
}
 
 
proc whois:answ {from kw arg} {
  set nick [lindex $arg 1]
  set userhost [lindex $arg 7]
  if { [string first $::spamhost $userhost] != -1} {
    putquick "KICK $::chanm $nick :$::kick(spambot)"
    putquick "MODE $::chanm +b $userhost"
  }
  return 0
}
 
putlog "Loaded AntiSpambOt by DnS Salon #DnS"