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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   mIRC Küfür Koruması (Hotlink) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/871995-mirc-kufur-korumasi-hotlink.html)

Alper 04 Haziran 2020 15:53
mIRC Küfür Koruması (Hotlink)
 
Bir arkadaşın ricası üzerine yaptığım kodu sizinle paylaşıyorum...


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


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Fredyyy 04 Temmuz 2020 05:30
Cevap: mIRC Küfür Koruması (Hotlink)
 
Emeğine sağlık..

Hesapsiz33 04 Temmuz 2020 07:37
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)

Alper 04 Temmuz 2020 14:10
Cevap: mIRC Küfür Koruması (Hotlink)
 
Alıntı:
Hesapsiz33 Nickli Üyeden Alıntı (Mesaj 1042331141)
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.

Vision 04 Temmuz 2020 14:23
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?


Alıntı:
Alper Nickli Üyeden Alıntı (Mesaj 1042317468)
Bir arkadaşın ricası üzerine yaptığım kodu sizinle paylaşıyorum...


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


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Alper 04 Temmuz 2020 15:30
Cevap: mIRC Küfür Koruması (Hotlink)
 
Alıntı:
vision Nickli Üyeden Alıntı (Mesaj 1042331256)
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:
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.

Vision 04 Temmuz 2020 15:44
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 :) 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 :)


Alıntı:
Alper Nickli Üyeden Alıntı (Mesaj 1042331272)
Kullandığın korumanın işlem kısmına aynı şekilde bildirim eklersen çalışacaktır.


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

GeneraL 15 Ekim 2023 14:51
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.

Alıntı:
Alper Nickli Üyeden Alıntı (Mesaj 1042317468)
Bir arkadaşın ricası üzerine yaptığım kodu sizinle paylaşıyorum...


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


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Alper 16 Ekim 2023 09:19
Cevap: mIRC Küfür Koruması (Hotlink)
 
Alıntı:
GeneraL Nickli Üyeden Alıntı (Mesaj 1042836070)
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:
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.

manikdepresif 16 Ekim 2023 19:49
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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:51.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk