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

7Beğeni(ler)
  • 5 Post By Alper
  • 1 Post By Fredyyy
  • 1 Post By Alper

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 04 Haziran 2020, 15:53   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
mIRC Küfür Koruması (Hotlink)




Bir arkadaşın ricası üzerine yaptığım kodu sizinle paylaşıyorum...


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[öÖo]t|amc[iİı]k) on *:text:*:#: { if $regex(x,$remove($1-,$chr(44),.,!,?,:,$chr(41),;),/(^|\s) $+ $kfrlr $+ (\s|$)/Si) { $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) echo -a $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01]) echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01]) } } on ^$*:hotlink:*:*:{ if $regex($1,/\x28(Ban)\x29/Si) { return } elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) { return } elseif $regex($1,/\x28(Shun)\x29/Si) { return } elseif $regex($1,/\x28(Zline)\x29/Si) { return } else { halt } } on *:hotlink:*:*:{ var %nck = $token($strip($hotline),3,32), %knl = $token($strip($hotline),1,32) if $regex($1,/\x28(Ban)\x29/Si) { if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) { mode %knl +b %nck } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) { if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) { mode %knl +b %nck $iif(%nck ison %knl,kick %knl %nck Küfür Yasak!) } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Shun)\x29/Si) { if $regex(admns,$usermode,o) { shun %nck +0 Küfür Yasak! } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Zline)\x29/Si) { if $regex(admns,$usermode,o) { zline %nck +0 Küfür Yasak! } else { echo -a Yetkiniz Yok } } }


Kırmızı işaretlediğim yere küfürleri aralarında | işaretini kullanarak eklemeniz gerekmekte.

Aktif pencere ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde bildirim ve yapabileceğiniz ceza seçenekleri gözükür.

Örnek:



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
Davut Alper BALCI - pC`kOpAt
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 04 Temmuz 2020, 05:30   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Küfür Koruması (Hotlink)




Emeğine sağlık..

 
Alıntı ile Cevapla

Alt 04 Temmuz 2020, 07:37   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Küfür Koruması (Hotlink)




Alper eline saglık güzel düşünmüssün.
şu şekilde alt alta ekleyerek küfürler çogaltılabilinir mi?

alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[rfref]t|abc[iİı]k)
alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[frefo]t|abc[iİı]k)
alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[öff]t|abc[iİı]k)

 
Alıntı ile Cevapla

Alt 04 Temmuz 2020, 14:10   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Küfür Koruması (Hotlink)




Hesapsiz33 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Alper eline saglık güzel düşünmüssün.
şu şekilde alt alta ekleyerek küfürler çogaltılabilinir mi?

alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[rfref]t|abc[iİı]k)
alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[frefo]t|abc[iİı]k)
alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[öff]t|abc[iİı]k)


Malesef. Her ifadenin sonuna | ekleyip ekleme yapabilirsin.


(aaaa|bbb|cccc|dddd|eeee|ffff) diye uzar gider.

__________________
Davut Alper BALCI - pC`kOpAt
 
Alıntı ile Cevapla

Alt 04 Temmuz 2020, 14:23   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Küfür Koruması (Hotlink)




Hocam merhaba,

Benim kullandığım scriptte hash okutmalı bir koruma mevcut;

badnick.db, kufur.db, reklam.db, badident.db, fullname.db şeklinde

fakat genel olarak korumaları kapalı tutuyorum bu dblerden ekli olan kısımları okuyarak sadece şu hotlink kısmını çıkartması mümkün müdür acaba?


Alper Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bir arkadaşın ricası üzerine yaptığım kodu sizinle paylaşıyorum...


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[öÖo]t|amc[iİı]k) on *:text:*:#: { if $regex(x,$remove($1-,$chr(44),.,!,?,:,$chr(41),;),/(^|\s) $+ $kfrlr $+ (\s|$)/Si) { $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) echo -a $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01]) echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01]) } } on ^$*:hotlink:*:*:{ if $regex($1,/\x28(Ban)\x29/Si) { return } elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) { return } elseif $regex($1,/\x28(Shun)\x29/Si) { return } elseif $regex($1,/\x28(Zline)\x29/Si) { return } else { halt } } on *:hotlink:*:*:{ var %nck = $token($strip($hotline),3,32), %knl = $token($strip($hotline),1,32) if $regex($1,/\x28(Ban)\x29/Si) { if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) { mode %knl +b %nck } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) { if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) { mode %knl +b %nck $iif(%nck ison %knl,kick %knl %nck Küfür Yasak!) } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Shun)\x29/Si) { if $regex(admns,$usermode,o) { shun %nck +0 Küfür Yasak! } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Zline)\x29/Si) { if $regex(admns,$usermode,o) { zline %nck +0 Küfür Yasak! } else { echo -a Yetkiniz Yok } } }


Kırmızı işaretlediğim yere küfürleri aralarında | işaretini kullanarak eklemeniz gerekmekte.

Aktif pencere ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde bildirim ve yapabileceğiniz ceza seçenekleri gözükür.

Örnek:



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


 
Alıntı ile Cevapla

Alt 04 Temmuz 2020, 15:30   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Küfür Koruması (Hotlink)




vision Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Hocam merhaba,

Benim kullandığım scriptte hash okutmalı bir koruma mevcut;

badnick.db, kufur.db, reklam.db, badident.db, fullname.db şeklinde

fakat genel olarak korumaları kapalı tutuyorum bu dblerden ekli olan kısımları okuyarak sadece şu hotlink kısmını çıkartması mümkün müdür acaba?


Kullandığın korumanın işlem kısmına aynı şekilde bildirim eklersen çalışacaktır.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
echo -a $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01])



Korumanın hangi eventte kullanıldığı önemli snotice de mi join de mi text de mi gerçi text ile join eventinde ifadeler aynı ama snoticede farklılık gösterir.

__________________
Davut Alper BALCI - pC`kOpAt
 
Alıntı ile Cevapla

Alt 04 Temmuz 2020, 15:44   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Küfür Koruması (Hotlink)




Aslında istediğim o korumayı kullanarak bir şeyler yapması değil de
korumanın dosyalarını kullanarak bu işlemi ekrana getirmesi olayı gibiydi hocam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kusura bakma yanlış ifade ettim kendimi
Örnek olarak kufur.db dosyasının içerisinde bulunan bir kelime ekrana yazıldığında o mesajın al kısmında bana shunmu zline mı ban mı diye sorsun gibi olabilirse tabi çok ugrastırır diyosan kıymetli vaktini hiç harcama benimki fantezi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Alper Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kullandığın korumanın işlem kısmına aynı şekilde bildirim eklersen çalışacaktır.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
echo -a $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01])



Korumanın hangi eventte kullanıldığı önemli snotice de mi join de mi text de mi gerçi text ile join eventinde ifadeler aynı ama snoticede farklılık gösterir.


 
Alıntı ile Cevapla

Alt 15 Ekim 2023, 14:51   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Küfür Koruması (Hotlink)




Merhaba alper eline sağlık öncelikle peki bunu Txt doysasından çektirebilirmiyiz yani ekleme silme işlemi uygulancak şekilde düzenlene bilirmi acaba.? Teşekkürler.

Alper Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bir arkadaşın ricası üzerine yaptığım kodu sizinle paylaşıyorum...


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[öÖo]t|amc[iİı]k) on *:text:*:#: { if $regex(x,$remove($1-,$chr(44),.,!,?,:,$chr(41),;),/(^|\s) $+ $kfrlr $+ (\s|$)/Si) { $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) echo -a $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01]) echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01]) } } on ^$*:hotlink:*:*:{ if $regex($1,/\x28(Ban)\x29/Si) { return } elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) { return } elseif $regex($1,/\x28(Shun)\x29/Si) { return } elseif $regex($1,/\x28(Zline)\x29/Si) { return } else { halt } } on *:hotlink:*:*:{ var %nck = $token($strip($hotline),3,32), %knl = $token($strip($hotline),1,32) if $regex($1,/\x28(Ban)\x29/Si) { if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) { mode %knl +b %nck } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) { if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) { mode %knl +b %nck $iif(%nck ison %knl,kick %knl %nck Küfür Yasak!) } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Shun)\x29/Si) { if $regex(admns,$usermode,o) { shun %nck +0 Küfür Yasak! } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Zline)\x29/Si) { if $regex(admns,$usermode,o) { zline %nck +0 Küfür Yasak! } else { echo -a Yetkiniz Yok } } }


Kırmızı işaretlediğim yere küfürleri aralarında | işaretini kullanarak eklemeniz gerekmekte.

Aktif pencere ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde bildirim ve yapabileceğiniz ceza seçenekleri gözükür.

Örnek:



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


 
Alıntı ile Cevapla

Alt 16 Ekim 2023, 09:19   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Küfür Koruması (Hotlink)




GeneraL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Merhaba alper eline sağlık öncelikle peki bunu Txt doysasından çektirebilirmiyiz yani ekleme silme işlemi uygulancak şekilde düzenlene bilirmi acaba.? Teşekkürler.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $regex(x,$remove($1-,$chr(44),.,!,?,:,$chr(41),;),/(^|\s) $+ $kfrlr $+ (\s|$)/Si) {

Bu kısmı $read ile değiştirirsen muhtemelen çalışacaktır. Kendi kullandığın küfür korumasındaki belirttiğim kısım ile değiştirebilirsin.


Dosyadan okumalı yaptığında ise alt kısımda bulunan echo kıısımlarını değişmen gerekecek yakalanan değeri göstermek için.

__________________
Davut Alper BALCI - pC`kOpAt
 
Alıntı ile Cevapla

Alt 16 Ekim 2023, 19:49   #10
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Küfür Koruması (Hotlink)




bu sekil olmaz diye dusunuyorum,
string'i tek tek token bazında kontrol ettirilmesi lazim.
Ornek:
---------------------------------
Bu bir kötü söz cümlesidir.
---------------------------------
Burada tek tek tokenLari,
;
bu
bir
kötü
söz
cümlesidir.
;
seklinde text belgesinde aratmak lazim $read ile
-------------------------
Fakat soyle bir gercek var txt belgesinde bu sekilde arama yapilmasi her on text eventinde scriptin kasmasina neden olacaktir.
-----
Bu yuzden hash kullanilmasi gerekir, daha once yazilan hash seklinde küfür korumalari var bildigim kadari ile onlarla birlikte kombine edilebilir.
-
Ben badnick ve küfür korumasina karsi oldugum icin hic ugrasmadim simdiye kadar.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:49 -->-> Daha önceki mesaj 19:29 --

cok arzulanirsa bu kodun yazilmasi duygusal olarak yazan birileri cikar mutlaka

__________________
Bana sihirli kelimeyi söyle
 
Alıntı ile Cevapla

Cevapla

Etiketler
hotlink, küfür koruması, mirc


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
Hotlink koruması class hAte PHP 0 15 Ocak 2015 06:46
Küfür Koruması AkReP mIRC Scripting Sorunları 6 09 Mayıs 2010 20:44
Küfür Koruması GuneL mIRC Scripting Sorunları 8 06 Mayıs 2009 13:57
Kendi yapacagım mirc'te küfür yazanı mirc ispiyonlasın? cashmare mIRC Scripting Sorunları 5 10 Temmuz 2008 00:14
BoT hakkında küfür koruması ekLeme !küfür Editor mIRC Scripting Sorunları 6 30 Kasım 2007 23:26