Messages : 438
Sujets : 17
Inscription : Sep 2008
Niveau d’avertissement :
0%
08/04/2009, 19:11
(Modification du message : 08/04/2009, 19:11 par 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"
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.
Messages : 438
Sujets : 17
Inscription : Sep 2008
Niveau d’avertissement :
0%
08/04/2009, 23:12
(Modification du message : 08/04/2009, 23:18 par 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
}
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.
Messages : 2,281
Sujets : 178
Inscription : Apr 2004
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
Messages : 142
Sujets : 22
Inscription : Mar 2008
Niveau d’avertissement :
0%
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
Messages : 17
Sujets : 3
Inscription : Feb 2008
Niveau d’avertissement :
0%
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.
Messages : 438
Sujets : 17
Inscription : Sep 2008
Niveau d’avertissement :
0%
28/10/2009, 12:45
(Modification du message : 28/10/2009, 12:47 par 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
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.