#############
# Bad Ident #
#############
 
ban user {
	mask "Ev1Ls*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "c324eb47*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "d4c27f08*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "53c86262*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "D-IRCV*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "sex*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "pute*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "putain*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "bite*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "xdcc*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "warez*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "anal*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "nazi*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "salop*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "connard*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "batard*@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "con@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "cons@*";
	reason "Ident Interdit";
};
 
ban user {
	mask "merde@*";
	reason "Ident Interdit";
};
 
################
# Bad Realname #
################
 
ban realname {
	mask "*sexe*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "*pute*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "*putain*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "*bite*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "*xdcc*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "*warez*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "*anal*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "*nazi*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "*salop*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "*connard*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "*batard*";
	reason "Realname Interdit";
};
 
ban realname {
	mask "con";
	reason "Realname Interdit";
};
 
ban realname {
	mask "cons";
	reason "Realname Interdit";
};
 
ban realname {
	mask "merde";
	reason "Realname Interdit";
};

#########################
##                     ##   
## Module : Anti_proxy ##
## Auteur : TiSmA      ##
## Version : 1.1       ##
##                     ##
#########################
#
#################
# Configuration #
#################
#
set eva(mproxy) "0"
set eva(dproxy) "3600"
set eva(rproxy) "Proxy Insécurisé !!!"
#
#############
# Commandes #
#############
#
set connexion(eva:proxy) "1"
#
#############
# Procedure #
#############
#
proc eva:proxy {arg} {
	global eva ceva meva hceva hmeva eggy service admins htm botnick proxy
	set arg [split $arg]
	set user [lindex $arg 0]
	set ident [lindex $arg 3]
	set host [lindex $arg 4]
	if {[regexp "^\[A-Za-z\]\[\\d]\{3,6\}\$" $user]} {
		if {$eva(mproxy)=="0"} { putdcc $eva(idx) ":[eva:server] KILL $user $eva(rproxy)"; set proxy(text) "kill"; set proxy(user) $user; utimer 1 raison }
		if {$eva(mproxy)=="1"} { putdcc $eva(idx) ":$eva(link) TKL + G * $host $eva(pseudo) [expr [unixtime] + $eva(dproxy)] [unixtime] : $eva(rproxy)"; set proxy(text) "gline"; set proxy(user) $user; utimer 1 raison }
	}
}
#
proc raison {} {
	global eva ceva meva hceva hmeva eggy service admins htm botnick proxy
	if {$eva(console)==1} { 
		if {$proxy(text)=="kill"} { putdcc $eva(idx) ":$eva(pseudo) PRIVMSG $eva(salon) :Kill —› $proxy(user) : $eva(rproxy)" }
		if {$proxy(text)=="gline"} { putdcc $eva(idx) ":$eva(pseudo) PRIVMSG $eva(salon) :Gline —› $proxy(user) : $eva(rproxy)" }
	}
}

# CrazyCat Programming Factory
#   ___     ____      ____
#  / __)___(  _ \ ___( ___)
# ( (__(___))___/(___))__)
#  \___)   (__)      (__)
#
# http://www.c-p-f.org
#
######################################
#
# ProxyFlood
#
######################################

## DESCRIPTION ##
#
# Des robots viennent attaquer certains réseaux
# en effectuant des floods à plusieurs.
# Ce TCL permet de les bannir en se basant sur leur nick
# qui est de la forme: aXXXX
# Avec a : une lettre aléatoire
# Et XXXX : un groupe de 3 à 6 chiffres aléatoires
 
bind join - * flooder:join
 
proc flooder:join {nick uhost handle channel} {
	if {[regexp "^\[A-Za-z\]\[\\d]\{3,6\}\$" $nick]} {
		putquick "mode $channel +b [maskhost [lindex [split $uhost @] 1]]"
		newchanban $channel [maskhost [lindex [split $uhost @] 1]] Flooder "Pas de flooders ici!!!" 60
	}
}
 
putlog "ProxyFlood - Nick Version chargé... <http://www.c-p-f.org>

bind join - * join:join
proc join:join { nick host hand chan } {
  putserv "WHOIS $nick $nick"
}
 
bind raw - 311 join:detect
proc join:detect {from kw text} {
....
}

bind join - * flooder:join
 
proc flooder:join {nick uhost handle channel} {
   set ident [lindex [split $uhost @] 0]
   if {[regexp "^\[A-Za-z\]\[\\d]\{4\}\$" $ident]} {
      putquick "mode $channel +b [maskhost [lindex [split $uhost @] 1]]"
      newchanban $channel [maskhost [lindex [split $uhost @] 1]] Flooder "Pas de flooders ici!!!" 60
   }
}