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 Smile
Gilles
Répondre Avertir
#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"


[font=Times New Roman]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.[/font]
Répondre Avertir
#48
Merci a toi fedora Smile
Gilles
Répondre Avertir
#49
bonsoir je revient encore vers vous car j'ai tjr le même problème Sad 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 Mad

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
}


[font=Times New Roman]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.[/font]
Répondre Avertir
#50
Bah t'as bien 'bind' dessus? Very Happy
Répondre Avertir
#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


Répondre
#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
Répondre Avertir
#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.
Répondre Avertir
#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 Smile

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

cordialement
[font=Times New Roman]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.[/font]
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté