KorumaLarLa İLgiLi
 

ArkadaşLar Ben Forumu Baya İnceLememe Rağmen BuLamadığımdan Burada Sormak İstiyorum;

Cr'de Rahatça Çalışabilecek;
Küfür, RekLam, BadNick, Uzun Yazı, Tekrar-FLood Korumaları Gerekiyor Forumda Bir Sürü OLmasına Rağmen;

Ben Örneğin * lı biçimde (Ör: si* gibi ) ve Normal biçimde Eklemeler Olmasını ( Burada örneğin sok ve sok* eklendiği zaman kodun çalışmama gibi bir derdi olmamaLı )

Bütün KorumaLara Muaf NickLeri EkLemeyi ( Yani Korumalardan BeLirtiLen NickLerin Muaf OLmasını, Bunlarında Mümkünse Txt UzantıLı Bir Metin BeLgesine EkLenmesini ve YetkiLi KişiLerin BeLirLi Bir KanaLda !muafNickEkle Nick Komutu iLe EkLeme YapabiLmesini )

Serverda Kodda BelirtiLen KanaLda Yetkisi OLanların:
!küfürekle küfür,
!reklamekle Reklam
!badekle Badnick
Gibi ve Bunların Aynı ŞekiLde SiLinmesininde OLacağı Ayrıca KüfürLerin reklamLarın ve badnickLerin Mircte Küfür.txt, Reklam.txt Badnick.txt Şeklinde Ayrı Ayrı Metin BeLgeLerine KaydediLmesini SağLayacak Kod veya KodLar Arıyorum BunLar Ayrı Ayrı OLsada OLurLar.

( Forumda korumlar Version 1-2-3-4, Natsuka Nickinin Açtığı Konu Başta Olmak ÜZere İnceLediklerim Maalesef İstediklerimi Vermiyordu. Korumalar VersiyonLarında Ayrıca ÇeşitLi HataLar Vardı. BeLki Socket BotLardan Bunu SağLayabiLirsin DiyenLer OLabiLir ama Ben Pek AnLamıyorum )


BiLiyorum Çok Şey İstedim Ancak Yardımcı OLabiLecek BiriLeri Var mı?

Cevap: KorumaLarLa İLgLi
 

resmen sıfırdan nomercy istemisşin bunuda yapsa yapsa winqman yapar :))

/* Küfür Koruması */
 

Peki, başlayalım o halde tek tek yazmaya.

* Küfür Koruması (Argo Protection);

Kullanım;

* kufur.bugra ve kufur.mrc dosyalarınız mIRC 'inizin bulunduğu ana klasörde olmalıdır.
* load -rs kufur.mrc yazarak scriptinize addon'unuzu yukleyebilirsiniz.
* kurduktan sonra /kufurkur yazarak, kurulumunuzu tamamlamış bulunacaksınız.

Talimatlar;

* Sadece #Bugra kanalında komutları çalışmaktadır.
* !kotusoz <küfür> / örnek : !kotusoz **** yazarak, kelime ekleyebilirsiniz.
* !kotusil <küfür> / örnek : !kotusil **** yazarak, kelime silebilirsiniz.

/* Badnick Koruması */
 

* Badnick Koruması (Badnick Protection);

Kullanım;

* badnick.bugra dosyası mIRC 'inizin bulunduğu ana klasörde olmalıdır.
* load -rs badnick.mrc yazarak scriptinize addon'unuzu yukleyebilirsiniz.
* kurduktan sonra /kufurkur yazarak, kurulumunuzu tamamlamış bulunacaksınız.

Talimatlar;

* Sadece #Bugra kanalında komutları çalışmaktadır. (değiştirebilirsiniz)
* !badnick <nick> / örnek : !badnick camde* yazarak, nick ekleyebilirsiniz.
* !badnicksil <nick> / örnek : !badnicksil ******** nick, kelime silebilirsiniz.

/* Reklam Koruması */
 

* Reklam Koruması (Adversite Protection);

Kullanım;

* reklam.bugra dosyası mIRC 'inizin bulunduğu ana klasörde olmalıdır.
* load -rs reklam.mrc yazarak scriptinize addon'unuzu yukleyebilirsiniz.
* kurduktan sonra /reklamkur yazarak, kurulumunuzu tamamlamış bulunacaksınız.

Talimatlar;

* Sadece #Bugra kanalında komutları çalışmaktadır.
* !reklam <reklam> / örnek : !reklam [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazarak, kelime ekleyebilirsiniz.
* !reklamsil <reklam> / örnek : !reklamsil [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazarak, kelime silebilirsiniz.

/* Yazı Uzatma Koruması */
 

Yazı Uzatma koruması, CoCoRiCo tarafından yazılmıştır, gayet güzel çalıştığından ötürü, tekrar yazma gereğinde bulunmadım.

Lütfen, belirtilen yerleri dikkatle okuyup, koyduğunuz yerde, ayarlarını ona göre yapınız. Ayarlayacağınız bölmeler, Türkçe olarak belirtilmiştir. Gayet açık ve gelişmiş bir yazı uzatma korumasıdır.

Kod:

---

on *^:text:*:#: {
  if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
    inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
    if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
      .ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
      .unset %uz [ $+ [ $nick ] ]
    }
    if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
      msg $chan $nick $coconf(U.yr)
    } 
  }
}
alias coconf {
  goto $1
  :U.Limit {
    ;# harf limiti
    RETURN 15
  }
  :U.LM {
    ;# Kac kezde atsın..
    RETURN 2
  }
  :U.AL {
    ;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.) 
    RETURN 1
  }
  :U.mem {
    ;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
    RETURN 60
  }
  :U.sb {
    ;# Kick Sebebi..
    RETURN Daha Once Uyarılmıştınız.
  }
  :U.yr {
    ;# Uyarı mesajı
    RETURN  Uyari: Lütfen kelimelerinizi uzatmadan yaziniz.
  }
  :U.kbs {
    ;# kikc\ban süresi "Dk."
    RETURN  15
  }

}

---

/* Tekrar - Floor - Saldırı Koruması */
 

Son olarak, Tekrar-Flood-Saldırı korumasını yayınlıyorum, bu şekilde kod yağmurumuz burda bitmiş oluyor. Fakat burda birkaç şeye dikkat ettim ki onları açıklayacağım. Anlamadığın bir yer olursa belirt lütfen, kodlar daha da geliştirilebilir.

1-) Muaf Kanallar ekleyebilirsiniz ve eklediğiniz kanallarda bu korumalar geçerli olmayacaktır.

Muaf kanal dosyası: muafkanallar.txt

2-) Muaf nickler ekleyebilirsiniz ve bu eklediğiniz nicklere şiddet uygulanmayacaktır.

Muaf nick dosyası: muafnickler.txt

Kod:

---

on *:text:*:#:{
  %::chan = #
  %::nick = $nick
  kanal_koru
}

alias _kick {
  if !$read(muafnickler.txt,w,%::nick) {
    MODE $1 +b $mask($2,2)
    KICK $1 %::nick : $+ $3-
  }
}

alias maskban {
  if !$read(muafnickler.txt,w,%::nick) {
    mode $1 +b ~q: $+ $mask($2,1)
  }
}

alias kanal_koru {
  if !$read(muafkanallar.txt,w,%::chan) {
    if $len(%::text) > 30 {
      if $numtok(%::text,32) > 6 {
        %::text = $gettok(%::text,1-5,32)
      }
      inc -u10 %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ]
      if %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ] == 5 {
        if $read(muafnickler.txt,w,%::nick) { .halt }
        msg #Bugra :Saldiri tespit edildi: %::chan
        msg #Bugra :Saldiri texti: %::text
        maskban %::chan %::nick
        msg %::chan  %::nick , kanal içerisinde, saldırı girişiminde bulunduğunuzdan dolayı kanaldan banlandınız.
        return
      }
    }
    if !$read(muafkanallar.txt,w,%::chan) {
      inc -u1 %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] 1
      if %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] == 6 {
        if $read(muafnickler.txt,w,%::nick) { .halt }
        maskban %::chan %::nick
        _kick %::chan %::add Kanal genellerinde flood seklinde yazmak, yazi karisikligi yaratmak ve kopyala/yapistir yapmak yasaktir.
      }
      var %yazi = $hash($strip($_dellast(%::text)),32)
      var %eski.yazi = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
      var %eski.yazi = $deltok(%eski.yazi,1,46)
      if (%tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] == $null) || (%eski.yazi != %yazi) {
        set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] 1. $+ %yazi
        goto hm
      }
      var %bugra = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
      var %sayac = $gettok(%bugra,1,46)
      inc %sayac
      set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] %sayac $+ . $+ %yazi
      if (%sayac >= 3) {
        if !%banning. [ $+ [ %::nick ] ] {
          if $read(muafnickler.txt,w,%::nick) { .halt }
          inc -u1 %banning. [ $+ [ %::nick ] ] 1
          maskban %::chan %::nick
          msg %::chan $+(,%::nick,) $+ ; kanal genelinde ayni yazinin tekrarini fazlaca yaptiginiz icin konusmaniz engellendi.
          unset %tekrar*
          unset %banning*
        }
      }
      :hm
    }
  }
}

---

Kod yağmurumuz bittiğine göre, yardımcı olabildiğime sevinmek istiyorum, lütfen dene ve gerekli bilgiyi bu başlıktan aktar, Orhan_Veli.

Not: Denenmiştir! Fakat, muafnickler.txt muafkanallar.txt dosyalarını oluşturup, 1'er kişi ve kanal ekleyerek çalıştırmanı tavsiye ederim.

Saygılarımla, Scripting'li Günler dilerim ..

Cevap: KorumaLarLa İLgLi
 

Orhan_Veli sana böle bi iyiliqi baban bile yapmaz =)
emeqine saqlik winq.

Cevap: KorumaLarLa İLgLi
 

VaLLa Eve Yeni GeLdim Bir BiLgisayar Tamirim Var Bitirdikten Sonra Gece Denemeye ÇaLışacağım ÇıkabiLecek sorunLarı Burada BeLirtirim Tekrardan Çok SağoL

Cevap: KorumaLarLa İLgLi
 

Estf, yardımcı olabiliyorsak ben daha çok sevinirim. Hata çıkıcağını sanmıyorum, uygun şekilde düzenlersen, çok güzel çalışacaktır.