IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

- mIRC Scripting Sorunları - Yardım (https://www.ircrehberi.net/mirc-scripting-sorunlari-yardim/)

- - Oto Zline (https://www.ircrehberi.net/mirc-scripting-sorunlari-yardim/233522-oto-zline.html)

Selamün Aleyküm

Arkadaşlar bende aşağıdaki gibi bir kod var. Bu kodun birde txt dosyası var. Oraya oto zline atılması gereken nickleri yazıyorum. Ama şöyle bir durum var. Örnek nick_cocqu_s... gibi nickler allıyor. Tam yazmadım. Sansürlü yazıyor yani. sqhrkm gibi. Şimdi txt nasıl bir kodlama yaparsam. Bu sansürlü kelimelerin girmesini yasaklarım. Yanlız nick sahibine zline atmamalı. Örnek Misafir nicki birine saldırı yapılıyor. Kodlama yaptıktan sonra. Misafir nicki gelince zline yememeli. İnşallah anlatabildim. Bana yardımcı olacak bir arkadaş var mı ?

on *:join:#karantina,#sohbet:{ if $read(zline.txt,w,$nick) { zline $nick -- Girişiniz Yasaklanmıstır } }

yardimci olabilecek birileri cikar umarim:banane:

PHP- Kodu:

   on *:start:{ $iif(!$isfile(ProxyLamer.has),.write ProxyLamer.has) | .hmake ProxyLamer 100 | .hload ProxyLamer ProxyLamer.has | kyt }

alias kyt { $iif(!$isfile(Koruma.has),.write Koruma.has) | .hmake Koruma 100 | .hload Koruma Koruma.has }

on *:join:#Karantina:{ 

  if !$hfind(Koruma,$nick,1,W).data &&  $hfind(ProxyLamer,$nick,1,W).data {

    if ($regex($wildsite,/(Guvenlik|Operator|DevelOper|KalbimFm|GaLataSaray|-Sop.|-Aop.|.Boys.|girls.|Editor|Founder|SuperOp|KonusbeOp|.Radyo.|Koordinatoru|Departman|Yetkilisi|SohbetOp|SohbetSOp|Turkiye|V-I-P|islam|DJ.Sop|halfop|sop|Global|helper|admin|ircop|tech|server|coadmin|services|network)/i)) { halt }

    if ($2 isop $1) || ($istok(#ircethos #helpers #Staff #Spam #Operhelp ##security #Opers #Kontrol #help #helpstaff #Egitim #mirchelp #xline,$chan,32)) return    

    gline $nick : 4[ 2Kural 2ihlali 4] | .window -en  @Bot-Nick | //echo @Bot-Nick İşlem:4  $nick 1İşlenen : 4Botnet Nick G-Banned Saat : 4[ $time 4]

    if !$hget(bdnck,$nick) {

      .hinc -msu20 bdnck $nick 

    }

  }

}

on *:nick:{

  if !$hfind(koruma,$newnick,1,W).data  && $hfind(ProxyLamer,$newnick,1,W).data {

    var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32)))

    var %c = 1 | while %c <= $token(%:c,0,32) {

      gline $token(%:c,%c,32) : 4[ 2Kural 2ihlali 4] | .window -en  @Bot-Nick | //echo @Bot-Nick İşlem:4  $nick 1İşlenen : 4Botnet Nick G-Banned Saat : 4[ $time 4]

      inc %c

    }

  }

}

alias lamerekle {

  if (!$1) { echo $colour(Ctcp) -a $timestamp *** $qt(Lütfen nick belirtiniz) | return }        

  if $hfind(ProxyLamer,$strip($1),0,W).data { echo $colour(Ctcp) -a $timestamp *** 1Bu veri Listede zaten ekli4 $+([,$chr(32),$hget(ProxyLamer,$hfind(ProxyLamer,$strip($1),1,W).data),$chr(32),]) 1eslesen veri. | return }

  var %n = $left($calc($ctime * $rand(1000,9999)),7)

  .hadd -ms ProxyLamer %n $strip($1)

  .hsave -o ProxyLamer ProxyLamer.has

  echo $colour(Ctcp) -a $timestamp *** $chr(39) 4LamerNick1 listesine eklenen mask14 $chr(39)  $qt($strip($1)) 

}

alias lamersil {

  if (!$1) { echo $colour(Ctcp) -a $timestamp ***  $qt(Lütfen nick belirtiniz) | return }        

  if !$hfind(ProxyLamer,$strip($1),0,W).data { echo $colour(Ctcp) -a $timestamp *** 1Silmek istediginiz4 $chr(39) $qt($strip($1)) $chr(39) 1Listede4 Yok | return }

  .hdel -ms ProxyLamer $hfind(ProxyLamer,$strip($1),1,W).data

  .hsave -o ProxyLamer ProxyLamer.has

  echo $colour(Ctcp) -a $timestamp *** $chr(39) 4LamerNick1 listesinden 3silinen1 veri4 $chr(39)  $qt($strip($1)) 

}

alias lamerKorumaekle {

  if (!$1) { echo $colour(notice) -a $timestamp *** $qt(Lütfen nick belirtiniz) | return }        

  if $hfind(koruma,$strip($1),0,W).data { echo $colour(Ctcp) -a $timestamp *** Bu veri Listede zaten ekli $+([,$chr(32),$hget(koruma,$hfind(koruma,$strip($1),1,W).data),$chr(32),]) eslesen veri. | return }

  var %n = $left($calc($ctime * $rand(1000,9999)),7)

  .hadd -ms koruma %n $strip($1)

  .hsave -o koruma koruma.has

  echo $colour(notice) -a $timestamp *** $chr(39) 4Koruma1 listesine 3eklenen 1veri4 $chr(39)  $qt($strip($1)) 

}

alias lamerKorumasil {

  if (!$1) { echo $colour(notice) -a $timestamp ***  $qt(Lütfen nick belirtiniz) | return }        

  if !$hfind(Koruma,$strip($1),0,W).data { echo $colour(Ctcp) -a $timestamp *** 1Korumalardan Silmek istediginiz4 $chr(39) $qt($strip($1)) $chr(39) 1Listede Yok | return }

  .hdel -ms koruma $hfind(Koruma,$strip($1),1,W).data

  .hsave -o Koruma koruma.has

  echo $colour(Koruma) -a $timestamp *** $chr(39) 4Koruma listesinden 3silinen veri4 $chr(39)  $qt($strip($1)) 

}

alias lamerkorumalist {

  echo $colour(notice) -a $timestamp *** koruma listeleniyor

  var %klst = 1 

  while (%klst <= $hget(Koruma,0).item) { 

    echo -a %klst $+ -) $hget(Koruma,%klst).data 

    inc %klst 

  }

  echo $colour(notice) -a $timestamp *** koruma liste sonu

}

alias lamerlist {

  echo $colour(notice) -a $timestamp *** lamerNick listeleniyor

  var %blst = 1

  while %blst <= $hget(ProxyLamer,0).item {

    echo -a %blst $+ -) $hget(ProxyLamer,%blst).data

    inc %blst

  }

  echo $colour(notice) -a $timestamp *** lamerNick liste sonu

}

;/BotEkle Nick - /BotSil Nick - /BotList

;/BotKorumaEkle Nick - /BotKorumaSiL Nick - KList

;Muaf host eklenmiştir oper admin için - Muaf kanal eklenmiştir

;muaf nick için ise Koruma tablosu olusturulmustur. Koruma da eklı nickler Muaf alınmıstır

;Eger istenilir ise muaf nick $read üzerinden text dosyasından okutulabılır - $istok muaf nick ayrıca eklene bilir..

;

;# # extra eklenebilir muaf bölümü bunlardır..

;if !$istok(#muaf1 #muaf2 #muaf3,$chan,32) {

;if !$regex($gettok($address($nick,1),2,64),/(admin|oper|helper|global|yardimci|aop|op|ircop|global|sop|founder)/i) {

;# #

bende boyle bir şey var umarim işinizi görür.

Kod üzerinden konuşmak gerekirse
#Karantina kanalına düşen her kişiye göre işlem uygular
Yapmanız gereken ise nasıl yakalanmasını istiyorsanız o şekil de giriş yapmanız.
Örnek verir olursak ;
/lamer ekle misafir
Yazdığınız zaman bu nickli kişi karantina kanalına giriş yaptığı zaman atılır.
Daha verimli sonuç almasını istiyorsan eğer global kanallardan birini yazabilirsiniz.
Ayrıca koruma sistemi de var.
Örnek vermiş olursak ;
/lamerkorumaekle yazarak, korumaya alabilirsiniz.
Eklemiş olduğunuz verilerin kayıt eder kayit listesini
/lamerlist yaparak görebilirsiniz.

Umarım iş görür kolay gelsin.

Alıntı:

KhjkL Nickli Üyeden Alıntı (Mesaj 2164821)

Teşekkür ederim. Ama bendeki kod daha basit. Güzelde çalışıyor. Sadece txt dosyasına nasıl bir kodlama yapabilirim onu araştırıyorum. Misal Misafir nickli kişinin ailesine küfürlü nick alarak sansürlü kelimelerle giriş yapıyor. Nicki korumaya alıyoruz sqline ile. Fakat her seferinde bunla uğraşmak istemiyorum. Birine taktımı sürekli aile bireyleri ile ilgili küfürlü nick alıp giriyor. txt dosyasına a*n*n*e*n*i* gibi bi kodlama yapabiliyormuyuz. Bu konuda bilgisi olan varmı. Onu araştırıyorum. Kod için tşk ederim

Alıntı:

DeLiKanLl Nickli Üyeden Alıntı (Mesaj 2165516)

a*n*n*e*n*i* gibi kelimeleri spamfilter ile ekleyebilir veya block'layabilirsiniz.
Böylece sunucuda kullanılmasını engelleyebilirsiniz.
Daha fazla bilgi için Spamfilter olarak arayabilirsiniz.

küfürlü nicklerin hepsine spam'a ekle sorun kalmaz ama bu biraz zamanını alır kodla komutla bitmez o iş.

/spamfilter add u gzline - 4Carpediem ^(.*\Fetöcü.*!.+@.+:.+)$

Kırmızı olarak belirttiğim yeri değişkenlik gösterebilirsin

/spamfilter add u gzline - 4Carpediem ^(.*\shkrm.*!.+@.+:.+)$

gibi

/spamfilter add u gline - 4Carpediem ^(.*\_AN3nNi_.*!.+@.+:.+)$
/spamfilter add u gline - 4Carpediem (?-i)^(.*\qhödün.*!.+@.+:.+)$
/spamfilter add u gline - 4Carpediem ^(.*\Ghödt.*!.+@.+:.+)$
/spamfilter add u block - 4Carpediem ^(.*\G\|A\|Y.*!.+@.+:.+)$