Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
ipnickidentkoruması mirckodları koruması ircforum ident lamerforum ipnickidentaddon ipnickidentkoruma ip mircaddonları scriptaddonları irckodları nick lamerlercom ircforumları ipnickidenkodu ircaddonları

iP-Nick-ident-Koruması
Admin
#1
Heart 
; 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 #####



Kod:
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
}
}

Cevapla


Bu Konudaki Yorumlar
iP-Nick-ident-Koruması - Yazar: Admin - 02-21-2020, 10:42 AM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Clone Koruması 2020 Admin 0 214 08-20-2020, 05:56 PM
Son Yorum: Admin
Lightbulb mIRC Kanal Yetki Koruması Admin 0 206 08-20-2020, 05:43 PM
Son Yorum: Admin
  mIRC Küfür Koruması (Seçmeli Hotlink) Admin 1 1,020 06-04-2020, 04:20 PM
Son Yorum: Lamer
Heart Büyük Harf Koruması Kodları Admin 0 498 06-01-2020, 10:13 PM
Son Yorum: Admin
Heart Oto Nick ve Oper Şifresi Girme Admin 0 609 06-01-2020, 09:58 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi