+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : Détection du host caché (/showthread.php?tid=326)
RE: Détection du host caché - bewess - 08/04/2009
d'accord merci
pourrais tu poster le code qui marche pour un seul chan stp ( c'est seja un debut :p )
Merci a toi :)
RE: Détection du host caché - fedora - 08/04/2009
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"
RE: Détection du host caché - bewess - 08/04/2009
Merci a toi fedora :)
RE: Détection du host caché - fedora - 08/04/2009
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
}
RE: Détection du host caché - Merwin - 09/04/2009
Bah t'as bien 'bind' dessus? :D
RE: Détection du host caché - CrazyCat - 09/04/2009
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
RE: Détection du host caché - bewess - 09/04/2009
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 ?
RE: Détection du host caché - foufou - 27/10/2009
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.
RE: Détection du host caché - fedora - 28/10/2009
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