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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Clone Koruması (https://www.ircforumlari.net/mirc-scripting-sorunlari/440591-clone-korumasi.html)

Kod:

on *:JOIN:#:{ 

  if ($level($nick) == muafnlist) { halt }

  if ($level($chan) == muafclist) { halt }

  if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }

  if $nick isop $chan { halt }  

  if ($ial == $false) .ial on 

  if ($chan(#).ial == $false) { who # | return } 

  var %total = $ialchan($wildsite,#,0) 

  if (%total > 4) { 

    var %i = 0 

    while (%i < %total) { 

      inc %i 

      var %nick = $ialchan($wildsite,#,%i).nick 

      var %all.nicks = $addtok(%all.nicks,%nick,32) 

      if (%nick !== $me) {  

        .raw gzline %nick 2Agresif Giris Tespit Edilmistir  Trojen:4 %total 

        .unset %nick  

      } 

    } 

  } 

}

Kodlama Bu, peki ben Bunu Direk Snotice 'den girislerde, kanallara girmeden Nasıl atarım cevirmemiz mümkünmüdür

Cevap: Clone Koruması

Kod:

#sericlone on

on *:snotice:*Client connecting on*:{

  .timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] 

  inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] 

  if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 5 { 

    .kline $+(*@,$gettok($gettok($10,2,64),1,41)) 4C12Lone 4G12irişi 4Y12apmak 4Y12asaktır 4T12RBot..!

    unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]

  }

}

#sericlone end

Cevap: Clone Koruması

Kod:

#sericlone on on *:snotice:*Client connecting on*:{   .timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]    inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]    if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 5 {      .kline $+(*@,$gettok($gettok($10,2,64),1,41)) 4C12Lone 4G12irişi 4Y12apmak 4Y12asaktır 4T12RBot..!     unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]   } } #sericlone end
 

buna muaf ip ve nick nasıl ekleriz nick ve muaf ip i text dosyasından okusa dahada kullanışlı olur 
 

yada hali hazırda clone koruması snotice eventli muaf ip ve nick de olucak

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:46 -->-> Daha önceki mesaj 13:45 --

#sericlone on on *:snotice:*Client connecting on*:{ .timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 5 { .kline $+(*@,$gettok($gettok($10,2,64),1,41)) 4C12Lone 4G12irişi 4Y12apmak 4Y12asaktır 4T12RBot..! unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] } } #sericlone end

Cevap: Clone Koruması

Cloneler girişte öyle taranmaz eğer adam sunucuya 3 defa girip cıkarsa yukardaki kodlar vatandaşı clone diye uçuracaktır. Client Connecting ile 1 arttirdiğiniz veriyi ayni şekilde Client Exiting ilede 1 düşürmeniz gerekir.

Cevap: Clone Koruması

Kod:

on *:snotice:*: { 

  if *client conn* iswm $1- {

if !$istok(nick1,nick2,nick3,nick4,nick5,$9,32) { 

    if !$hget(clone) { hmake clone 1000 }  

    if ($hget(clone,$gettok($gettok($10,2,64),1,41)) > 2) { 

      zline *@ $+ $gettok($gettok($10,2,64),1,41) 900 clone yogunlugu 

    }

    hinc -m clone $gettok($gettok($10,2,64),1,41)

  }

}

  if *client exiting* iswm $1- { 

    hdec clone $gettok($gettok($10,2,64),1,41)

  }

}

nick1 nick2 nick3 diye geçen yerlere nick yazın. 3 ve 3'ten fazla cloneyi atıcaktır kırmızı ile belirttiğim yeri değiştirin. > 2 olan kısım.

Cevap: Clone Koruması

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buna ilave muaf ip 2 tane muaf ip girebilsek tam istediğim gibi olcak

örnek 88.244.55.63 | 75.61.412.79 gibi bu 2 ip kaç nickle girerse girsin muaf tutucak

Cevap: Clone Koruması

Kod:

on *:snotice:*: { 

  if *client conn* iswm $1- {

    if !$istok(nick1,nick2,nick3,nick4,nick5,$9,32) { 

      if $gettok($gettok($10,2,64),1,41)) != 124.22.22.22 || $gettok($gettok($10,2,64),1,41)) != 141.4141.414.414 { 

        if !$hget(clone) { hmake clone 1000 }  

        if ($hget(clone,$gettok($gettok($10,2,64),1,41)) > 2) { 

          zline *@ $+ $gettok($gettok($10,2,64),1,41) 900 clone yogunlugu 

        }

        hinc -m clone $gettok($gettok($10,2,64),1,41)

      }

    }

  }

  if *client exiting* iswm $1- { 

    hdec clone $gettok($gettok($10,2,64),1,41)

  }

}

Sadece 2 tane dedin diye böyle yaptım 124 ve 141 ile başlayan atmasyon ipleri değiştirirsin. Daha geniş yapmak için ya wildcard kullan != kısmını iswm yapıp ip aralıgınıda 124.* diye belirtebilirsin

Çok daha fazla tekil ip istiyorsanda hash table kullanmalısın.

Cevap: Clone Koruması

Evet forum penceresinden yazınca öyle oluyor remoteden yazmak lazım :)

dec olayında -1 olarak mı sayıyor yoksa zaten değer yok diye hepmi hata veriyor onada bakmak lazım tahminimce yok demesi lazım kodun çalışmasını engellemezde tabi ekran kirliliği yapar