IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 4 Toplam 4 Sayfadan 123 4
Konuya ait 40 Mesajı başka Sayfada göster

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)

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: 11:59.
Sayfa 4 Toplam 4 Sayfadan 123 4
Konuya ait 40 Mesajı başka Sayfada göster

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