Détection du host caché

[BdS]

Normal que rien de ne se passe, tu utilises putlog pour faire le whois.

J'ai corrigé vite fait ça donnerai ça:

tclcopier

set spamhost "2531986971.fr"		
 
bind join - * whois:join
bind raw - 311 whois:answ
 
proc whois:join { nick host hand chan } {
putserv "WHOIS $nick"
   return 0
}
 
proc whois:answ {from kw text} {
   set userhost [lindex $text 3]
   if { [string first $::spamhost $userhost] != -1} {
      putlog "Alerte ! $userhost détécté ! "
   }
   return 0
}

C'est perfectible.