Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Détection du host caché
#46
d'accord merci
pourrais tu poster le code qui marche pour un seul chan stp ( c'est seja un debut :p )

Merci a toi :)
Gilles
#47

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"

La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
#48
Merci a toi fedora :)
Gilles
#49
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 :x


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
}

La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
#50
Bah t'as bien 'bind' dessus? :D
#51
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

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#52
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 ?
Gilles
#53
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.
#54
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
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] Opé Sur Host et Non sur Nick BaGrift 16 10,174 26/06/2014, 13:48
Last Post: BaGrift
  Ban sur l'host Alucard`68 5 3,722 14/04/2012, 15:56
Last Post: Alucard`68
Sad Bannir un host en TCL Babytigrou16 31 20,556 22/11/2007, 21:03
Last Post: Babytigrou16

Forum Jump:


Users browsing this thread: 1 Guest(s)