IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

1Beğeni(ler)
  • 1 Post By Regex

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 05 Ocak 2008, 19:58   #1
Regex
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Dosyadan okutmalı bazı korumalar




Tarih: 05.01.2008 Cumartesi
Yazan: oNG
Not: Lütfen kullanacak/farklı platformlarda paylaşacaksanız, yapımcı nickini kodun başında belirtin.



1- Kötü nick koruması

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on @*:join:#:{ if $read(badnick.txt,w,$nick) { ban # $nick 5 | kick # $nick Uygunsuz nick. } }


Açıklama: Kanala girenlerin nickleri, badnick.txt dosyasında bulunan bir nick ise, kanaldan nick!identd@host şeklinde (5. type) banlanarak atılacaklardır.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:nick:{ if $read(badnick.txt,w,$newnick) { var %1 = 1,%2 = $comchan($newnick,0) | while %1 <= %2 { if $me isop $comchan($nick,%1) { ban $comchan($nick,%1) $nick 5 | kick $comchan($nick,%1) $nick Uygunsuz nick. } | inc %1 } } }


Açıklama: Nick değiştirenlerin yeni nickleri, badnick.txt dosyasında bulunan bir nick ise, ortak olarak bulunduğumuz tüm kanallardan nick!identd@host şeklinde (5. type) banlanarak atılacaklardır.


2- Kötü identd koruması

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on @*:join:#:{ if $read(badidentd.txt,w,$gettok($gettok($address($nick,5),2,33),1,64)) { ban # $nick 1 | kick # $nick Uygunsuz identd. } }


Açıklama: Kanala girenlerin identdleri, badidentd.txt dosyasında bulunan bir identd ise, kanaldan *!*identd@host şeklinde (1. type) banlanarak atılacaklardır.


3- Küfür koruması

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on @*:text:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } } on @*:action:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } } on @*:notice:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } }


Açıklama: Kanala gönderilen text/action/notice mesajlarda, kufur.txt dosyasında bulunan bir kelime geçiyorsa, kullanan kişi kanaldan *!*@host şeklinde banlanıp atılacaktır.


4- Özele küfür koruması

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } } on *:action:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } } on *:notice:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }


Açıklama: Özelinize birisi okufur.txt dosyasında bulunan bir küfür yazarsa, ignore edilecektir.


5- Reklam koruması

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on @*:text:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } } on @*:action:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } } on @*:notice:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } }


Açıklama: Kanala gönderilen text/action/notice mesajlarda, reklam.txt dosyasında bulunan bir kelime geçiyorsa, reklam yapan kişi kanaldan *!*@host şeklinde banlanıp atılacaktır.


6- Özele reklam koruması

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } } on *:action:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } } on *:notice:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } }


Açıklama: Özelinize birisi oreklam.txt dosyasında bulunan bir küfür yazarsa, ignore edilecektir.


Hepsini birleştirip, aç/kapat özelliği ile birlikte yazarsak şöyle oluyor:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#badnick on on @*:join:#:{ if $read(badnick.txt,w,$nick) { ban # $nick 5 | kick # $nick Uygunsuz nick. } } on *:nick:{ if $read(badnick.txt,w,$newnick) { var %1 = 1,%2 = $comchan($newnick,0) | while %1 <= %2 { if $me isop $comchan($nick,%1) { ban $comchan($nick,%1) $nick 5 | kick $comchan($nick,%1) $nick Uygunsuz nick. } | inc %1 } } } #badnick end #badidentd on on @*:join:#:{ if $read(badidentd.txt,w,$gettok($gettok($address($nick,5),2,33),1,64)) { ban # $nick 1 | kick # $nick Uygunsuz identd. } } #badidentd end #kufur on on @*:text:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } } on @*:action:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } } on @*:notice:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } } #kufur end #okufur on on *:text:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } } on *:action:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } } on *:notice:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } } #okufur end #reklam on on @*:text:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } } on @*:action:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } } on @*:notice:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } } #reklam end #kufur on on *:text:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } } on *:action:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } } on *:notice:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } } menu status,menubar,channel { Kötü nick koruması .$iif($group(#badnick) == on,Aç,Kapat):if $group(#badnick) == on { echo -s Kötü nick koruması aktif edildi. | .enable #badnick } | else { echo -s Kötü nick koruması kapatıldı. | .disable #badnick } Kötü identd koruması .$iif($group(#badidentd) == on,Aç,Kapat):if $group(#badidentd) == on { echo -s Kötü identd koruması aktif edildi. | .enable #badidentd } | else { echo -s Kötü identd koruması kapatıldı. | .disable #badidentd } Küfür koruması .$iif($group(#kufur) == on,Aç,Kapat):if $group(#kufur) == on { echo -s Küfür koruması aktif edildi. | .enable #kufur } | else { echo -s Küfür koruması kapatıldı. | .disable #kufur } Özele küfür koruması .$iif($group(#okufur) == on,Aç,Kapat):if $group(#okufur) == on { echo -s Özele küfür koruması aktif edildi. | .enable #okufur } | else { echo -s Özele küfür koruması kapatıldı. | .disable #okufur } Reklam koruması .$iif($group(#reklam) == on,Aç,Kapat):if $group(#reklam) == on { echo -s Reklam koruması aktif edildi. | .enable #reklam } | else { echo -s Reklam koruması kapatıldı. | .disable #reklam } Özele reklam koruması .$iif($group(#oreklam) == on,Aç,Kapat):if $group(#oreklam) == on { echo -s Özele reklam koruması aktif edildi. | .enable #oreklam } | else { echo -s Özele reklam koruması kapatıldı. | .disable #oreklam } }


Ayrıca bu menu kodları ile korumaları status/kanal pencerelerinden sağ tuş ile kontrol edebilirsiniz. Ben hepsini açık olarak ayarladım.

Not: Korumaların çalışması için, mIRC'inizin bulunduğu dizine hazırlayıp atmanız gereken dosyalar şunlardır:
  • badnick.txt
  • badidentd.txt
  • kufur.txt
  • okufur.txt
  • reklam.txt
  • oreklam.txt

Umarım işinize yarar...

İyi çalışmalar.


Konu Regex tarafından (05 Ocak 2008 Saat 20:38 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 05 Ocak 2008, 21:21   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Dosyadan okutmalı bazı korumalar




1- Madem atmak için, mIRC tabanlı olan /ban komutunu kullanıyorsun, tekrar /kick kullanmak gereksiz.
Örnk: /ban -k # $nick (0-9) sebeb.

2-
on @*:text:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } }

Bu kullanım yanlış ve kesinlikle çalışmaz.
Bunu defalarca anlattım; $read'ın w parametresi, matchtext kısmına yazılan text'i, belirtilen dosyadaki tüm satırlarda arar. Senin yapman gereken ise, dosya'daki tüm satırları yazılan text bütününde aramak.
Yani mesela diyelim;
Kufur.txt dosyasında "********" kelimesi var.
Kullanıcı kanal'da, "ne haber lan ********ler sizi" yazdığını varsayalım.
Direk bu şekilde dönecektir; $read(kufur.txt,w,ne haber lan ********ler sizi)
E dolayısı ile işlev yapmıyacaktır. Eğer yazılan ilk ve tek kelime "********" ise işlev yapar.
Önceden bende senin kullandığın gibi kullanıyordum. Hatalı olduğumu ve $read identifier'ının mantığını tam olarak anlayınca /while kullanmaya karar verdim.

Mesela bir alias oluşturabilirsin;
alias kfr var %o = 1 | while %o <= $lines(dosya.txt) { $iif($regex($1-,$read(dosya.txt,%o)),return $true) | inc %o } | return $false
on @*:text:*:#:if $nick isreg # && $kfr($1-) { ban -k # $nick 2 Sebeb. }

Veya alias kullanmadan direnk event içerisin'de işlev yaparsın;
on @*:text:*:#:if $nick isreg # { var %k = 1,%kk = $lines(dosya.txt) | while %k <= %kk { echo -a $read(dosya.txt,%k) | if $+(*,$read(dosya.txt,%k),*) iswm $1- { ban -k # $nick 2 Sebeb. | return $true } | inc %k } | return $false }

Bayağı bu bölümde takılıyorsun, senden daha iyi şeyler bekleniyor.


Konu L4roXyL tarafından (06 Ocak 2008 Saat 17:21 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 04 Şubat 2008, 18:28   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Dosyadan okutmalı bazı korumalar




peki bunu echolatmasak kötü bir görüntü oluyor?

 
Alıntı ile Cevapla

Alt 04 Şubat 2008, 22:41   #4
Regex
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Dosyadan okutmalı bazı korumalar




sephiroth Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
peki bunu echolatmasak kötü bir görüntü oluyor?



Neyi echolatacaksın? Nasıl echolatacaksın? Echolatmak nedir? Amacın nedir?

Bunlar bazı korumalar. Gerekli açıklamaları zaten yaptım. Eğer ne amaçla kullanıldığını, niçin kullanacağını bilmiyorsan kullanma.

 
Alıntı ile Cevapla

Alt 10 Şubat 2008, 12:45   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Dosyadan okutmalı bazı korumalar




L4roXyL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on @*:text:*:#:if $nick isreg # { var %k = 1,%kk = $lines(dosya.txt) | while %k <= %kk { echo -a $read(dosya.txt,%k) | if $+(*,$read(dosya.txt,%k),*) iswm $1- { ban -k # $nick 2 Sebeb. | return $true } | inc %k } | return $false }


yalnız bu kod a.q gibi noktalı küfürleri görmüyor bir sorun var sanırım;scare

 
Alıntı ile Cevapla

Alt 10 Şubat 2008, 16:05   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Dosyadan okutmalı bazı korumalar




on @*:text:*:#:if $nick isreg # { var %k = 1,%kk = $lines(dosya.txt) | while %k <= %kk { if $+(*,$read(dosya.txt,%k),*) iswm $1- { ban -k # $nick 2 Sebeb. | return $true } | inc %k } | return $false }

Kod sorunsuz çalışıyor.

 
Alıntı ile Cevapla

Alt 27 Şubat 2010, 12:18   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Dosyadan okutmalı bazı korumalar




on *:text:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz.| echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
on *:action:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
on *:notice:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
bu kodu remoteye ekledim,okufur.txt. dosyasıda yaptım ama cümle içinde geçen kötü kelimelerde özelimden ignore etmiyor örneğin*salak* cümle içinde geçse atmıyor yanlış olan ne acaba yardımcı olabilirmisiniz.tşk.

 
Alıntı ile Cevapla

Cevapla

Etiketler
bazi, bazı, dosyadan, korumalar, mirc, mirc download, mirc indir, okutmali, okutmalı


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
txt,okutmalı,dosya rewal mIRC Scripting Sorunları 1 09 Nisan 2011 09:47
Ident Koruması Txt Okutmalı darkshades1 mIRC Scripting Sorunları 4 21 Aralık 2010 14:16
Kanal için bazı korumalar.(Ayarlanabilir) L4roXyL mIRC Scripting Hazır Kodlar 0 19 Ocak 2008 00:04