Détection du host caché

[bewess]

d'accord merci
pourrais tu poster le code qui marche pour un seul chan stp ( c'est seja un debut :p )

Merci a toi

[fedora]

TCL

#-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-#
###--------------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"

[bewess]

Merci a toi fedora

[fedora]

bonsoir je revient encore vers vous car j'ai tjr le même problème mon bot pose le ban du host caché sur les salon qui sont dans la TCL et j'arrive pas et faire en sorte qu'il agisse seulement sur le salon ou le spambot join .
exemple: si le spambot join X mon bot faudrait qu'il agisse en kb seulement sur le salon X enfin j'espère que vous m'avez compris

TCL

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

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

 
 
### (mettre des espaces entre les différents chans) :
 
set chanm "#salon #DnS #salonnnn"

# 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 } {
 foreach kbchan [split $::chanm] {
  if {$chan == $kbchan} {
   putserv "WHOIS $nick $nick"
   set bkchan "$chan"
   set bkchan ""
  }
 }
}
 
 
proc whois:answ {from kw arg} {
  set nick [lindex $arg 1]
  set userhost [lindex $arg 7]
  if { [string first $::spamhost $userhost] != -1} {
    putquick "KICK $::bkchan $nick :$::kick(spambot)"
    putquick "MODE $::bkchan +b $userhost"
  }
  return 0
}

[Merwin]

Bah t'as bien 'bind' dessus?

[CrazyCat]

Il me semble qu'il y a des choses étranges dans ton script:

TCL

set bkchan "$chan"
   set bkchan ""

En gros, tu ne fais rien ?
Ensuite, si tu veux utiliser $bkchan dans ton autre procédure, il faut le passer en global

TCL

set bkchan ""
....
proc whois:join { nick host hand chan } {
...
   set $::bkchan $chan

[bewess]

En gros tu veux que ton bot kick le spam quand il joint un des chans qui est dans la liste de tes salons?
Il fait quoi en ce moment ton bot au joint des spams ?

[foufou]

Hello,

les hosts des antis spam ont changé malheusement et générent automatiquement un host :s

Donc ce code ne sert plus à rien malheureusement.

[fedora]

bonjour,

n'étant plus sur le serveur wanadobe je ne peut dire comment dorénavant les vhosts des spam bot sont actuellement,mais ce TCL peut tjrs servir contre certain bouley qui passe par proxy "chose vue " et mon script détecter le vhost cacher du di bouley.ensuite ce tcl peut servir d'exemple pour crée d'autre TCL vue que dans le code j'utilise le bind raw et le whois lors du joins d'un salon

Ont ne peut pas dire qu'un TCL ne sert plus à rien,un TCL peut toujours servir pour divers choses. (adaptation ect .... )

cordialement