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/)
-   -   Badnick Koruması (Hash) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/690396-badnick-korumasi-hash.html)

Toprak 27 Mart 2015 22:48
Badnick Koruması (Hash)
 
Merhaba,
Forum'da var mı bilmiyorum ama baya detaylı bir badnick koruması oldu
mIRC Bot için yaptım kendisi kullanmak isteyen text event'ini input event'i ile değiştirsin.

Kod:
on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk }
on @*:join:#:{
  if $hfind(badnick,$nick,1,W).data {
    mode # +b $nick
    kick # $nick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
    if !$hget(bdnck,$nick) {
      .hinc -msu20 bdnck $nick
      msg #Opers [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])
    }
  }
}
on *:nick:{
  if $hfind(badnick,$newnick,1,W).data {
    msg #Opers [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),])
    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) {
      mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
      inc %c
    }
  }
}
on *:text:*:#:{
  if $regex($1,/^[!\.]badnick$/Si) {
    if $regex($2,/^ekle$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
      var %n = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m badnick %n $strip($3)
      .hsave -o badnick badnick.tprk
      msg # $strip($3) Badnick listesine eklendi.
    }
    if $regex($2,/^s[ıiİ]l$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }
      .hdel -m badnick $hfind(badnick,$strip($3),1,W).data
      .hsave -o badnick badnick.tprk
      msg # $strip($3) Badnick listesinden silindi.
    }
    if $regex($2,/^tara$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }
      msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),])
    }
    if $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
      msg # Badnick listesi
      msg # -
      var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
      msg # -
      msg # Badnick listesi sonu
    } 
  }
  if $regex($1,/^[!\.]tara$/Si) {
    if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return } 
    if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }
    var %:tara = 1 | while %:tara <= $nick($2,0) {
      if $hfind(badnick,$nick($2,%:tara),1,W).data {
        msg #Opers [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),])
        mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
      }
      inc %:tara
    }   
  }
}
Komut(lar):
  • !badnick ekle Nick (*?) Mask olarak ekleyebilirsiniz.
  • !badnick sil Nick
  • !badnick tara Nick Etkilenen nick'in maskını gösterir. (Nick: turgay - Mask: [ *gay ])
  • !badnick list
  • !tara #Kanal Belirlenen kanal'da badnick taraması yapar.

Badnick dosyası mirc klasorun(//run $mircdir) içine atınız.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Feragat 27 Mart 2015 23:13
Cevap: Badnick Koruması (Hash)
 
Emeğine sağlık. Badnicklere ölüm!

High 28 Mart 2015 12:11
Cevap: Badnick Koruması (Hash)
 
mIRC'lerde bulunması gereken bir remote (bence) eminim bir çok kişiye faydası olacaktır. Yanında hazır badlist de var miss (; yalnız yanılmıyorsam muaf kanal ve açma/kapama eklentisi yok. Ben kendime göre ayarladım ama istersen sende ekle daha kullanışlı olur diye düşünüyorum. Toprak, eline emeğine sağlık.

Slalayl0m 30 Mart 2015 22:07
Cevap: Badnick Koruması (Hash)
 
Emeğine sağlık.

wolera 21 Nisan 2015 22:50
Cevap: Badnick Koruması (Hash)
 
Merhaba addon çalışmıyor.

ON Unknown command hatası vermekte.

Toprak 26 Nisan 2015 16:08
Cevap: Badnick Koruması (Hash)
 
Arkadaşın sorunu başka bir input eventin'den kaynaklı.

YellowLine 29 Nisan 2015 12:57
Cevap: Badnick Koruması (Hash)
 
$dll olarak yazılsa daha iyi olmaz mı

Feragat 29 Nisan 2015 13:26
Cevap: Badnick Koruması (Hash)
 
msl 'nin buna rahatlıkla gücü yetiyor, dll desteği gerektiren bir konu değil.

AfraN 29 Nisan 2015 15:28
Cevap: Badnick Koruması (Hash)
 
Alıntı:
YellowLine Nickli Üyeden Alıntı (Mesaj 1041647943)
$dll olarak yazılsa daha iyi olmaz mı
evet güzel fikir :)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yapar :)

Smith 19 Ekim 2015 01:10
Cevap: Badnick Koruması (Hash)
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041639012)
Merhaba,
Forum'da var mı bilmiyorum ama baya detaylı bir badnick koruması oldu
mIRC Bot için yaptım kendisi kullanmak isteyen text event'ini input event'i ile değiştirsin.

Kod:
on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk }
on @*:join:#:{
  if $hfind(badnick,$nick,1,W).data {
    mode # +b $nick
    kick # $nick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
    if !$hget(bdnck,$nick) {
      .hinc -msu20 bdnck $nick
      msg #Opers [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])
    }
  }
}
on *:nick:{
  if $hfind(badnick,$newnick,1,W).data {
    msg #Opers [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),])
    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) {
      mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
      inc %c
    }
  }
}
on *:text:*:#:{
  if $regex($1,/^[!\.]badnick$/Si) {
    if $regex($2,/^ekle$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
      var %n = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m badnick %n $strip($3)
      .hsave -o badnick badnick.tprk
      msg # $strip($3) Badnick listesine eklendi.
    }
    if $regex($2,/^s[ıiİ]l$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }
      .hdel -m badnick $hfind(badnick,$strip($3),1,W).data
      .hsave -o badnick badnick.tprk
      msg # $strip($3) Badnick listesinden silindi.
    }
    if $regex($2,/^tara$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }
      msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),])
    }
    if $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
      msg # Badnick listesi
      msg # -
      var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
      msg # -
      msg # Badnick listesi sonu
    } 
  }
  if $regex($1,/^[!\.]tara$/Si) {
    if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return } 
    if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }
    var %:tara = 1 | while %:tara <= $nick($2,0) {
      if $hfind(badnick,$nick($2,%:tara),1,W).data {
        msg #Opers [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),])
        mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
      }
      inc %:tara
    }   
  }
}
Komut(lar):
  • !badnick ekle Nick (*?) Mask olarak ekleyebilirsiniz.
  • !badnick sil Nick
  • !badnick tara Nick Etkilenen nick'in maskını gösterir. (Nick: turgay - Mask: [ *gay ])
  • !badnick list
  • !tara #Kanal Belirlenen kanal'da badnick taraması yapar.

Badnick dosyası mirc klasorun(//run $mircdir) içine atınız.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Usta çalışmadı ama ?

Toprak 19 Ekim 2015 19:02
Cevap: Badnick Koruması (Hash)
 
Çalışmayan kod'un burada işi olmaz.

Smith 19 Ekim 2015 23:00
Cevap: Badnick Koruması (Hash)
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041689705)
Çalışmayan kod'un burada işi olmaz.
Ama çalışmadı ustam çalışsaydı demezdim çalışmadı diye emeğe saygımız var hamd olsun.

KuL 20 Ekim 2015 19:09
Cevap: Badnick Koruması (Hash)
 
Alıntı:
Smith Nickli Üyeden Alıntı (Mesaj 1041689743)
Ama çalışmadı ustam çalışsaydı demezdim çalışmadı diye emeğe saygımız var hamd olsun.
Calismadi, yerine Sorunu daha detayli anlatabilirsen :) Eminim daha cok kisi Yardimci olabilir.

Ne tür Sorun oluyorsun, yada Kodu nasil ekledin. Nasil calistirmayi denedin? vs..

Feragat 20 Ekim 2015 21:40
Cevap: Badnick Koruması (Hash)
 
Alıntı:
Smith Nickli Üyeden Alıntı (Mesaj 1041689743)
Ama çalışmadı ustam çalışsaydı demezdim çalışmadı diye emeğe saygımız var hamd olsun.
Linkteki konuyu incelemeni tavsiye ederim.

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

Smith 20 Ekim 2015 23:58
Cevap: Badnick Koruması (Hash)
 
Alıntı:
Ku|L| Nickli Üyeden Alıntı (Mesaj 1041689847)
Calismadi, yerine Sorunu daha detayli anlatabilirsen :) Eminim daha cok kisi Yardimci olabilir.

Ne tür Sorun oluyorsun, yada Kodu nasil ekledin. Nasil calistirmayi denedin? vs..
Hiçbir tepki vermedi yani usta opers kanallarını bot kanalı şeklinde deiştidim vs ama olmadı..

Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041689884)
Linkteki konuyu incelemeni tavsiye ederim.

LINK: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
hocam biliyorum kod vs eklemesini ama yinede yardımınız ve öneriniz için teşekkürler..

Soğuk 14 Mart 2016 20:49
Cevap: Badnick Koruması (Hash)
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadaşım input eventinde sıkıntı yaşamış sanırım onuda tam anlatamamış konuyuda hortlatmış oldum şimdi fakat @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ında eline sağlık çok yararlı bi paylaşım olmuş neyse konuyu uzatmıyım bireysel kullanım için ayarladım ben umarım yararlı olur.

Kod:
on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk }
on @*:join:#:{
  if $hfind(badnick,$nick,1,W).data {
    mode # +b $nick
    kick # $nick Nick değiştirip ( /nick yeninick ) tekrar kanala giriş yapabilirsiniz..
    if !$hget(bdnck,$nick) {
      .hinc -msu20 bdnck $nick
      ;msg #Opers [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])
    }
  }
}
on *:nick:{
  if $hfind(badnick,$newnick,1,W).data {
    ;msg #Opers [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),])
    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) {
      mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick Nick değiştirip ( /nick yeninick ) tekrar kanala giriş yapabilirsiniz..
      inc %c
    }
  }
}
on *:input:#: {
  if ($nick == $me) {
    if $regex($1,/^[!\.]badnick$/Si) {
      if $regex($2,/^ekle$/Si) {
        if (!$3) { msg # Lütfen nick belirtiniz | return }       
        if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
        var %n = $left($calc($ctime * $rand(1000,9999)),7)
        .hadd -m badnick %n $strip($3)
        .hsave -o badnick badnick.tprk
        msg # $strip($3) Badnick listesine eklendi.
      }
      if $regex($2,/^s[ıiİ]l$/Si) {
        if (!$3) { msg # Lütfen nick belirtiniz | return }       
        if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }
        .hdel -m badnick $hfind(badnick,$strip($3),1,W).data
        .hsave -o badnick badnick.tprk
        msg # $strip($3) Badnick listesinden silindi.
      }
      if $regex($2,/^tara$/Si) {
        if (!$3) { msg # Lütfen nick belirtiniz | return }       
        if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }
        msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),])
      }
      if $regex($2,/^l[ıiİ]st$/Si) {
        if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
        msg # Badnick listesi
        msg # -
        var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
        msg # -
        msg # Badnick listesi sonu
      } 
    }
    if $regex($1,/^[!\.]tara$/Si) {
      if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return } 
      if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }
      var %:tara = 1 | while %:tara <= $nick($2,0) {
        if $hfind(badnick,$nick($2,%:tara),1,W).data {
          msg #Opers [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),])
          mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) Nick değiştirip ( /nick yeninick ) tekrar kanala giriş yapabilirsiniz..
        }
        inc %:tara
      }   
    }
  }
}
Örnek
Kod:
<Soğuk> Eklemeye çalıştığınız badnick zaten [ *2?p* ] maskesi ile uyuşmakta.
 <Soğuk> !badnick ekle *2?p*!*

Feragat 14 Mart 2016 22:40
Cevap: Badnick Koruması (Hash)
 
input eventında if ($nick == $me) { gibi bir koşul olmaz, çünkü inputu sadece sen kullanabilirsin.

CoCoRiCo 15 Mart 2016 20:21
Cevap: Badnick Koruması (Hash)
 
birde input'a eklemenin nedenini anlasam.. mesela niye baskası senin ekledigini görsün.
yani komutla yapacaksan ! yerine / kullan mesela.. şimdi bu moda oldu heralde..

Toprak 15 Mart 2016 20:38
Cevap: Badnick Koruması (Hash)
 
Bot için yapmıştık =)

TolgaKocer 21 Temmuz 2016 13:49
Cevap: Badnick Koruması (Hash)
 
merhaba, bu addona muaf nick ekleme nasıl yapabiliriz?

[RaNGeR] 29 Temmuz 2016 19:43
Cevap: Badnick Koruması (Hash)
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Sağolasın Paşam Eline koluna Sağlık Ama Ben Kullanamıyorum Ayrıca !tara Yapıldığı zaman ise şu çıkıyor
*#Opers* TARAMA Bkr-erkek nicki badnick olarak tespit edildi. [ bkr-erkek ]
Ben Kendim Nasıl Ekleme/silme Yapacağım?

nikotin 03 Ocak 2017 19:20
Cevap: Badnick Koruması (Hash)
 
Selam High muaf kanal ve nick eklentisi varsa sizde. paylasabilirmisin bizimle

Rules 06 Ocak 2017 12:48
Cevap: Badnick Koruması (Hash)
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041639029)
Emeğine sağlık. Badnicklere ölüm!
usta görüşemiyoruz :)

byebye 08 Ocak 2017 21:30
Cevap: Badnick Koruması (Hash)
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] badnick.tprk link i ni yenileyebilirmisin?

Toprak 04 Haziran 2017 22:08
Cevap: Badnick Koruması (Hash)
 
Alıntı:
byebye Nickli Üyeden Alıntı (Mesaj 1041834205)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] badnick.tprk link i ni yenileyebilirmisin?
Link yenilendi.

mrt33 27 Haziran 2017 23:33
Cevap: Badnick Koruması (Hash)
 
çalişmiyor

yokay 26 Eylül 2017 14:52
Cevap: Badnick Koruması (Hash)
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] öncelikle teşekkür ederiz verdiğiniz kodlar için, Badnick kodunuza muafkanal ve muaf nick nasıl ekleyebiliriz, mesela , ben *gay* olarak ekledim ve tugay geldi atıldı. veya *eşim* olarak ekledim badnick olarak *yeşim* atılacak. buna bir çözüm üretebilirmiyiz?

R3dLine 27 Eylül 2017 11:33
Cevap: Badnick Koruması (Hash)
 
*gay* bütün gay yazan kelimeri atacaktır onuın yerine gay* eklersen sıkıntı halledilecektir

yokay 28 Eylül 2017 18:35
Cevap: Badnick Koruması (Hash)
 
Alıntı:
R3dLine Nickli Üyeden Alıntı (Mesaj 1041869192)
*gay* bütün gay yazan kelimeri atacaktır onuın yerine gay* eklersen sıkıntı halledilecektir
Muaf kodu lazım muaf kanal muaf nick, daha kullanışlı olacaktım benim için.

joker19 01 Mart 2018 19:32
Cevap: Badnick Koruması (Hash)
 
Tskler Emeqinize sağlık

By eRhaN 12 Mart 2018 14:48
Cevap: Badnick Koruması (Hash)
 
S.a Bunu Kufur olarak Nasıl uyarlayabılırız . Cumle ıcındekı Kufur veya Vb. Argo kelımelerı Secıp Banlaması ıcın .

Sah 06 Ağustos 2018 10:16
Cevap: Badnick Koruması (Hash)
 
gayet hoşe :) eline sağlık

Toprak 06 Ağustos 2018 13:19
Cevap: Badnick Koruması (Hash)
 
Toplam 1 Eklenti bulunuyor.
Alıntı:
By eRhaN Nickli Üyeden Alıntı (Mesaj 1041921806)
S.a Bunu Kufur olarak Nasıl uyarlayabılırız . Cumle ıcındekı Kufur veya Vb. Argo kelımelerı Secıp Banlaması ıcın .
A.Selam yeni gördüm =) buyur;

Kod:
on *:start:{ $iif(!$isfile(kufur.tprk),.write kufur.tprk) | .hmake kufur 100 | .hload kufur kufur.tprk }
on *:text:*:#:{
  if $regex(#,/^#opers$/i) {
    if $regex($1,/^[!\.]k[uüÜ]f[uüÜ]r$/Si) {
      if !$regex($2,/^(ekle|s[ıiİ]l|l[ıiİ]st)/Si) { msg # Lütfen 4!küfür 2<ekle|sil|list> olarak belirtiniz. }
      elseif $regex($2,/^ekle$/Si) {
        if (!$3) { msg # Lütfen kelime belirtiniz. }
        elseif $hfind(kufur,$strip($3-),0,W).data { msg # Eklemeye çalıştığınız küfür zaten $+([,$chr(32),$hget(kufur,$hfind(kufur,$strip($3-),1,W).data),$chr(32),]) maskesi ile uyuşmakta. }
        else {
          var %n = $left($calc($ctime * $rand(1000,9999)),7)
          .hadd -m kufur %n $strip($3-)
          .hsave -o kufur kufur.tprk
          msg # $strip($3-) Küfür listesine eklendi.
        }
      }
      elseif $regex($2,/^s[ıiİ]l$/Si) {
        if (!$3) { msg # Lütfen kelime belirtiniz. }       
        elseif !$hfind(kufur,$strip($3-),0,W).data { msg # Küfür listesinde bulunmamaktadir. }
        else {
          .hdel -m kufur $hfind(kufur,$strip($3-),1,W).data
          .hsave -o kufur kufur.tprk
          msg # $strip($3-) Küfür listesinden silindi.
        }
      }
      elseif $regex($2,/^l[ıiİ]st$/Si) {
        if ($hget(kufur,0).data == 0) { msg # Küfür listesi boş. }
        else {
          msg # Küfür listesi
          msg # -
          var %i = 1 | while (%i <= $hget(kufur,0).data) { msg # %i $+ .4) [ $hget(kufur,%i).data ] | inc %i }
          msg # -
          msg # Küfür listesi sonu
        } 
      }
    }
  }
  elseif $hfind(kufur,$strip($1-),1,W).data && !$regex($nick(#,$nick).pnick,/^[%@&~.]/) {
    ;- Muaf kanal satırı
    if $regex(#,/^#(OperHelp|Admin|Log|Services)$/i) { return }
    ;- Muaf nick satırı
    elseif $regex($nick,/^(nick|nick1|nick2|nick3)$/i) { return }
    ;- Muaf host satırı
    elseif $regex($site,/^(Root|Network|Services|Admin|IRCop)/i) { return }
    else { mode # +b $nick | kick # $nick 1Küfür yasak... }
  }
}

Kufur dosyası;

ZenqerDenq 13 Eylül 2018 22:35
Cevap: Badnick Koruması (Hash)
 
bu küfür korumasında sadece nicke değil de host u da banlatmak istesek ve bu ban zamanLı olsa ? nick+host

ZenqerDenq 15 Eylül 2018 01:54
Cevap: Badnick Koruması (Hash)
 
Bu küfür korumasını input ile yapa bilirmiyiz kendi scriptime eklemek istiyorum ben ekleyeceğim küfürleri..

Che 15 Eylül 2018 15:04
Cevap: Badnick Koruması (Hash)
 
Kod:
#difiprotect on
on *:text:*:#:var %jnk = 0, %cenk | while %jnk <= $numtok($1-,32) { %cenk = $strip($token($1-,$v1,32)) | if $hregex(Küfürler,%kerem,0) { zline $nick : Argo\Küfür sebebiyle Sunucudan uzaklastirildiniz | /timer 50 0 /msg $chan 0,0. | halt } | inc %jnk }
#difiprotect end
alias küfürekle {
  if $hget(Küfürler,$1) { echo 06 -a $1 listede mevcut. }
  else {
    hadd -m Küfürler $1 1
    hsave -i Küfürler Küfürler.data
    echo 07 -a $1 Argo\Küfür listesine eklenmiştir.
  }
}
alias küfürsil {
  if !$hget(Küfürler,$1) { echo 06 -a $1 listede yok }
  else {
    hdel Küfürler $1
    hsave -i Küfürler Küfürler.data
    echo 07 -a $1 Argo\Küfür listesinden silinmiştir.
  }
}
alias küfürlist {
  $iif(!$window(@Küfürler),window -nz @Küfürler,clear @Küfürler)
  aline 04 @Küfürler Küfür Listesi
  var %che 1 | while %che <= $hget(Küfürler,0).item { aline -h 02 @Küfürler $hget(Küfürler,%che).item | inc %che }
  aline -h 05 @Küfürler Toplam $hget(Küfürler,0).item veri mevcuttur.
}
on *:start:.hload Küfürler Küfürler.data
menu channel {
  .Küfür Korumasi
  ..Aç:.enable #difiprotect | echo 04 -a Koruma Açik | echo 02 -a Küfür eklemek için /küfürekle kelime | echo 02 -a Küfür silmek için /küfürsil kelime | echo 02 -a Liste için /küfürlist
  ..Kapa:.disable #difiprotect | echo 12 -a Koruma Kapali
}


PHP- Kodu:
Küfür eklemek icin

/küfürekle kelime

Silmek icin

/küfürsil kelime

Küfür Listesini görmek icin

/küfürlist 

Tinba 08 Ağustos 2019 23:14
Cevap: Badnick Koruması (Hash)
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041972013)
A.Selam yeni gördüm =) buyur;

Kod:
on *:start:{ $iif(!$isfile(kufur.tprk),.write kufur.tprk) | .hmake kufur 100 | .hload kufur kufur.tprk }
on *:text:*:#:{
  if $regex(#,/^#opers$/i) {
    if $regex($1,/^[!\.]k[uüÜ]f[uüÜ]r$/Si) {
      if !$regex($2,/^(ekle|s[ıiİ]l|l[ıiİ]st)/Si) { msg # Lütfen 4!küfür 2<ekle|sil|list> olarak belirtiniz. }
      elseif $regex($2,/^ekle$/Si) {
        if (!$3) { msg # Lütfen kelime belirtiniz. }
        elseif $hfind(kufur,$strip($3-),0,W).data { msg # Eklemeye çalıştığınız küfür zaten $+([,$chr(32),$hget(kufur,$hfind(kufur,$strip($3-),1,W).data),$chr(32),]) maskesi ile uyuşmakta. }
        else {
          var %n = $left($calc($ctime * $rand(1000,9999)),7)
          .hadd -m kufur %n $strip($3-)
          .hsave -o kufur kufur.tprk
          msg # $strip($3-) Küfür listesine eklendi.
        }
      }
      elseif $regex($2,/^s[ıiİ]l$/Si) {
        if (!$3) { msg # Lütfen kelime belirtiniz. }       
        elseif !$hfind(kufur,$strip($3-),0,W).data { msg # Küfür listesinde bulunmamaktadir. }
        else {
          .hdel -m kufur $hfind(kufur,$strip($3-),1,W).data
          .hsave -o kufur kufur.tprk
          msg # $strip($3-) Küfür listesinden silindi.
        }
      }
      elseif $regex($2,/^l[ıiİ]st$/Si) {
        if ($hget(kufur,0).data == 0) { msg # Küfür listesi boş. }
        else {
          msg # Küfür listesi
          msg # -
          var %i = 1 | while (%i <= $hget(kufur,0).data) { msg # %i $+ .4) [ $hget(kufur,%i).data ] | inc %i }
          msg # -
          msg # Küfür listesi sonu
        } 
      }
    }
  }
  elseif $hfind(kufur,$strip($1-),1,W).data && !$regex($nick(#,$nick).pnick,/^[%@&~.]/) {
    ;- Muaf kanal satırı
    if $regex(#,/^#(OperHelp|Admin|Log|Services)$/i) { return }
    ;- Muaf nick satırı
    elseif $regex($nick,/^(nick|nick1|nick2|nick3)$/i) { return }
    ;- Muaf host satırı
    elseif $regex($site,/^(Root|Network|Services|Admin|IRCop)/i) { return }
    else { mode # +b $nick | kick # $nick 1Küfür yasak... }
  }
}

Kufur dosyası;
Toprak Bunu Kendimiz input Şeklinde nasıl !küfür Ekle !küfür sil !küfür list ve !ident Ekle !ident sil !ident list Şeklinde Yapıp zline ye Cevirebiliriz

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:14 -->-> Daha önceki mesaj 21:46 --

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Coder Arkadaşlar ilgilenebilirmisiniz rica etsem

Hesapsiz33 14 Haziran 2020 23:43
Cevap: Badnick Koruması (Hash)
 
Bu badnick nedense büyük kücük harfe duyarlı işlem yapıyor.

Listemde *o*lğun* olarak ekli fakat OLĞUN rumuzuna islem yapmıyor. Bu seferde OLĞUN rumuzunu farklı şekilde eklemeye çalşıyorum mecbur
Özelliklede ü Ü ç Ç ş Ş g Ğ harflerinde.

Burda mı bir hata var acaba
if $hfind(badnick,$nick,1,W).data {

GeneraL 06 Haziran 2022 23:16
Cevap: Badnick Koruması (Hash)
 
Merhaba bu !tara kanal olayını alias olarak nasıl ayarlana bilir neden alias olarak soruyorum şu sebebten her kanalda olmuyorum olmadığım için kanalada olmadığı uyarısı veriyor.
tara kanal yapınca kanala girip 2 saniye sonra tarama yapıp yeniden çıkış yapmasını istiyorum bu sebebten alias olarak istedim tşkler.


Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041639012)
Merhaba,
Forum'da var mı bilmiyorum ama baya detaylı bir badnick koruması oldu
mIRC Bot için yaptım kendisi kullanmak isteyen text event'ini input event'i ile değiştirsin.

Kod:
on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk }
on @*:join:#:{
  if $hfind(badnick,$nick,1,W).data {
    mode # +b $nick
    kick # $nick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
    if !$hget(bdnck,$nick) {
      .hinc -msu20 bdnck $nick
      msg #Opers [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])
    }
  }
}
on *:nick:{
  if $hfind(badnick,$newnick,1,W).data {
    msg #Opers [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),])
    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) {
      mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
      inc %c
    }
  }
}
on *:text:*:#:{
  if $regex($1,/^[!\.]badnick$/Si) {
    if $regex($2,/^ekle$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
      var %n = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m badnick %n $strip($3)
      .hsave -o badnick badnick.tprk
      msg # $strip($3) Badnick listesine eklendi.
    }
    if $regex($2,/^s[ıiİ]l$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }
      .hdel -m badnick $hfind(badnick,$strip($3),1,W).data
      .hsave -o badnick badnick.tprk
      msg # $strip($3) Badnick listesinden silindi.
    }
    if $regex($2,/^tara$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }
      msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),])
    }
    if $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
      msg # Badnick listesi
      msg # -
      var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
      msg # -
      msg # Badnick listesi sonu
    } 
  }
  if $regex($1,/^[!\.]tara$/Si) {
    if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return } 
    if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }
    var %:tara = 1 | while %:tara <= $nick($2,0) {
      if $hfind(badnick,$nick($2,%:tara),1,W).data {
        msg #Opers [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),])
        mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
      }
      inc %:tara
    }   
  }
}
Komut(lar):
  • !badnick ekle Nick (*?) Mask olarak ekleyebilirsiniz.
  • !badnick sil Nick
  • !badnick tara Nick Etkilenen nick'in maskını gösterir. (Nick: turgay - Mask: [ *gay ])
  • !badnick list
  • !tara #Kanal Belirlenen kanal'da badnick taraması yapar.

Badnick dosyası mirc klasorun(//run $mircdir) içine atınız.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


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

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