iP-Nick-ident-Koruması

[coders-irc_Bot]

; Kodun çalışma mantığı aşağıda ki şemada belirtilmiştir.
; !ekle (IP Adresi) şeklinde ip ekleyebilir o nick'i sunucu/serverden uzaklaştırabilirsiniz.
; !ekle (@Ident) şeklinde ise, identd yasaklayabilirsiniz.
; !ekle Nick yaptığınızda da, bahsi geçen nick'i uzaklaştırır ayrıca, wildcard olarakta nickleri ekleyebilirsiniz örnk; *ali* olarak eklediniz ali ve türevi nickleri uzaklaştırır.
; !list (IP, NICK, IDENT) komutları ile de bahsi geçen listeleri görebilmektesiniz.
; DIPNOT (KOD) Oper/adminler için hazırlanmıştır bu nedenle bu rütbeye dahil olmayan/olamayan kişiler kullanamaz.
; ##### Bu kod sadece zline.txt dosyasından işlem yapmaktadir. ###
; ##### Yapimci: By Entrance #####

on *:input:*: {
if ($regex($1,/(^[!]ekle$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if $read(zline.txt,w,$+(*:,$2,*)) { echo -a Zaten $token($read(zline.txt,w,$+(*,$2,*)),1,58) listeye ekli | halt }
if $regex($left($2,1),@) { echo -a Ident listeye eklendi! | write zline.txt $+(Ident:,$2) | halt }
if $regex($2,\d) && $regex($2,\W) { echo -a IP listeye eklendi! | write zline.txt $+(IP:,$2) | halt }
echo -a Nick listeye eklendi! | write zline.txt $+(Nick:,$2)
}
if ($regex($1,/(^[!]((ç|c)(i|ı)kar|s(i|ı)l)$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if $regex($left($2,1),@) && $regex($2,$chr(64)) && !$read(zline.txt,w,$+(*,$2,*)) { echo -a Ident listede bulunmuyor! | halt }
if $regex($2,\d) && $regex($2,\W) && !$read(zline.txt,w,$+(*,$2,*)) { echo -a IP zaten listede bulunmuyor! | halt }
if !$read(zline.txt,w,$+(*,$2,*)) { echo -a Nick zaten listede bulunmuyor! | halt }
echo -a $token($read(zline.txt,w,$+(*,$2,*)),1,58) Listeden silindi! | write $+(-dl,$readn) zline.txt
}
if ($regex($1,/(^[!]l(i|ı)st$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if (!$regex($2,/(ip|ident|nick)/i)) { echo -a $qt($2) Adın da, mask bulunmuyor. Masklar: IP / Ident / Nick | halt }
if ($lines(zline.txt) == 0) { echo -a Listede hiç bir kayıt bulunmamaktadir! | halt }
if $masks($2) == 0 { echo -a $2 Listesinde kayıt bulunmuyor! | halt }
echo -ae $2 listesi -
var %s 1 | while (%s <= $lines(zline.txt)) { $iif($2 isin $read(zline.txt,%s),echo -a $+(%s,]) $replace($read(zline.txt,%s),$chr(58),$+(:,$chr(32)))) | inc %s
}
echo -ae List sonu.
}
}
alias masks { var %s 1 | while (%s <= $lines(zline.txt)) { $iif($1 isin $read(zline.txt,%s),return 1) | inc %s } return 0 }
on *:snotice:*connecting*: {
var %s 1, %nick $9, %ident $right($token($10,1,64),-1), %ip $remove($token($10,2,64),$chr(41))
while (%s <= $lines(zline.txt)) {
$iif($regex($read(zline.txt,%s),/Ident/i),$iif($right($gettok($read(zline.txt,%s),2,58),-1) == %ident,gzline %nick +0 Forbidden Tion! $+([Data:,%ident,]) ))
$iif($regex($read(zline.txt,%s),/IP/),$iif($gettok($read(zline.txt,%s),2,58) == %ip,gzline %nick +0 Forbidden Tion! $+([Data:,%ip,]) ))
$iif($regex($read(zline.txt,%s),/Nick/i),$iif($gettok($read(zline.txt,%s),2,58) iswm %nick,gzline %nick +0 Forbidden Tion! $+([Data:,%nick,]) ))
inc %s
}
}