Détection du host caché

[fedora]

merci beaucoup pour votre aides ça fonctionne nikel je joins le tcl pour ceux qui en ont l'utilité

tclcopier

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

# Configuration du host,Salon message de kick 
 
set chan "#Salon"
set spamhost "2531986971.fr"      
set kick(nick) "AntiSpam Bot !!! "

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

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