RANDOM Nick/Ident Koruması

[Overdose]

on *:snotice:*:{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
;- Muaf port ekleme.
if $istok(7000 7005 1453,%_port,32) { return }
;- Muaf nick ekleme
elseif $istok(Nick Nick1 Nick2 Nick3,%_nick,32) { return }
;- Muaf ident ekleme
elseif $istok(Sohbet mIRC Kelebek SoyLe,%_ident,32) { return }
;- Muaf IP ekleme
elseif $istok(88.888.55.258 78.458.88.888,%_ip,32 ) { return }
elseif $len(%_nick) >= 5 && $_rand(%_nick) >= 80 {
gzline $+(*@,%_ip) - Random nick ile sunucuya girmek yasak! [ $+(%,$_rand(%_nick)) $_randyz($_rand(%_nick)) ]
msg #güvenlik $+(4,%_nick,) nick'i random nick kullandığı tespit edildi. $+(%,$_rand(%_nick)) $_randyz($_rand(%_nick))
}
elseif $len(%_ident) >= 5 && $_rand(%_ident) >= 80 {
gzline $+(*@,%_ip) - Random ident ile sunucuya girmek yasak! [ $+(%,$_rand(%_ident)) $_randyz($_rand(%_ident)) ]
msg #güvenlik $+(4,%_nick,) nick'i random ident kullandığı tespit edildi. $+(%,$_rand(%_ident)) $_randyz($_rand(%_ident))
}
}
}
alias _rand {
var %:sebsessiz $len($regsubex($1,/[aeioöuüÖÜİ0-9]/gSi,\t))
return $round($iif($round($calc((%:sebsessiz * 100) / $len($1)),1) > 100, 100, $round($calc((%:sebsessiz * 100) / $len($1)),1)),0)
}
alias _randyz {
var %:yz $iif($len($1) == 3,$+(4,$str(|,10)),$+(4,$str(|,$left($1,1))))
return $iif($right($1,1) < 5,%:yz,$+(%:yz,ı))
}​