Proxy - Clones

[fedora]

voila un anti proxy :

tclcopier

#########################
##                     ##   
## 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)" }
	}
}

puis tu à aussi celui là baser pour les nick aléatoire que tu peut modié je pense pour le ident

tclcopier

# 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>