Détection du host caché

[fedora]

biensur .

tclcopier

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

#-//-//-//-//-#
#   VersiOn   #
#-//-//-//-//-#
 
set versionb "EpsilOn.tcl"

# Configuration du host,Salon message de kick 
set salonm "#InfO-bOt"
set chanm "#Nantes"
set spamhost "2531986971.fr"      
set kick(spambot) "\002\[Systéme AntiSpam]\2  AntiSpam Bot!!!"

#-//-//-//-#
#---Bind---#
#-//-//-//-#
 
bind join - "$chanm *" whois:join
bind raw - 328 whois:answ

#-//-//-//-//-#
#  PROCEDURE  #
#-//-//-//-//-#
 
proc whois:join { nick host hand chan } {
  putserv "WHOIS $nick"
}
 
proc whois:answ {from kw text} {
   set nick [lindex $text 1]
   set userhost [lindex $text 7]
   if { [string first $::spamhost $userhost] != -1} {
      putquick "KICK $::chanm $nick :$::kick(spambot)"
	  putquick "MODE $::chanm +b $userhost"
    putserv "PRIVMSG $::salonm :Alerte ! SpambOt détécté sous le pseudo: $nick  Host: $userhost "
   }
   return 0
}
putlog "$::versionb AntiSpambOt"