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

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

- - Kanala giren istenmeyen iplere ban (https://www.ircforumlari.net/mirc-scripting-sorunlari/32953-kanala-giren-istenmeyen-iplere-ban.html)

Yanıt: Kanala giren istenmeyen iplere ban

Alıntı:

RhymE Nickli Üyeden Alıntı (Mesaj 224912)

bende bulunduğum kanallara belirlediğim iplerin dışında olanları değilde server'a bağlanış saati 15 dakikanın altında olan userlerin girdiği gibi banlanmasını istiyorum.yardım bekliyorum desem yardımcı olurmusunuz ?;huh

Alıntı:

>= çıkan sonuç 900 yada 900 üstüyse;)

15 dakikanın altında olanları banlamak istiyor, 900den büyük olursa 15 dakikanın altında mı olur üstünde mi? ;)

Cevap: Kanala giren istenmeyen iplere ban

Ben açıklamamı yaptım:) soruyu yanlış okuma ihtimalim yüksek dimi;). Kullanıcı bu açıklama doğrultusunda dilediği gibi koda yöne verebilir.

Cevap: Kanala giren istenmeyen iplere ban

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]'nun verdiği koduda denedim o'da olmadı.bu seferde raw 317 ile başlayan bi kod daha buldum.

Kod:

 

raw 367:*: {

  var %sure $ctime - $5

  if %sure >= 750 {

    inc %c.say

    hadd c.temp $+(ip.,%c.say) $3

  }

}

raw 368:*: {

  if (%c.say >= 1) {

    c.unban $2

  }

}

alias c.unban {

  var %bc $1

  if (!$hget(c.temp,0).item) { halt }

  if ($hget(c.temp,0).item >= 10) { var %s = 10 }

  else { var %s = $hget(c.temp,0).item }

  var %i = 1,%c

  while (%i <= %s) {

    %c = $addtok(%c,$hget(c.temp,$hget(c.temp,1).item),32)

    hdel c.temp $hget(c.temp,1).item

    inc %i

  }

  mode  %bc - $+ $str(b,%s) %c

  .timer -h 1 1 c.unban %bc

}

on *:start: ilk

alias ilk {

  if (!$hget(c.temp)) { hmake c.temp 1000 }

  else { hfree c.temp | hmake c.temp 1000 }

  set %c.say 0

}

menu * { 

  Aktif Kanalda Süresi Dolan Banlari Ac! : mode $chan +b

}

on *:join:#: {

  if $nick == $me {

    write chan.txt $chan

  }

}

on *: part:#: {

  if $nick == $me {

    write -ds $chan chan.txt

  }

}

alias sureunban {

  var %chansfile = chan.txt

  var %line = 1, %total = $lines(%chansfile)

  while (%line <= %total) {

    var %data = $read -l $+ %line %chansfile

    if (%data != $null) {

      _queue mode %data +b

    }

    inc %line

    inc %sur

  }

  %names.enddata = %data

}

alias _queue {

  inc %queue.count

  if ($timer(.queue) == $null) {

    hadd -m queue count 1

    hadd -m queue 1 $1-

    _doqueue 1

  }

  else {

    var %queue.count = $calc($hget(queue,count) + 1)

    hadd -m queue %queue.count $1-

    hadd -m queue count %queue.count

  }

}

alias _doqueue {

  if ($hget(queue,$1) != $null) {

    .timer.queue -m 1 $calc((4 - $gettok(3 2 1,$1,32)) * 500) _doqueue $calc($1 + 1) 

    $ifmatch

    .hdel -s queue $1

  } 

  else hfree queue

}

Yanıt: Kanala giren istenmeyen iplere ban

Tam olarak bunların hangisi raw 317 ile başlıyor?
Ayrıca raw 317den gelen sonuçları görebilmen için whois çektiğin kişi seninle aynı sunucuda olması lazım, yani linkli bir serverdaysan, diğer linkin/linklerin userlarına whois çektiğin zaman raw 317 cevabı gelmeyecektir.
ayrıca deneme amaçlı koda bir kaç eklenti yapacam, hangi aşamada hata aldığını görmen açısından.. bir de böyle dene sonucu gösterirsin ondan sonra..

Alıntı:

Nebiliymben Nickli Üyeden Alıntı (Mesaj 224964)

raw 317:*: {
echo -a raw 317 cevabı alındı.
if ($calc($ctime - $4) < 900) {
echo -a online süresi 15 dakikanın altında..
var %c = $chan(0), %h = 1
while %h <= %c {
if ($me isop $chan(%h)) { .echo -a cezalandırılıyor. | .ban -ku900 $chan(%h) $2 2 }
inc %h
}
}
halt
}

Kırmızıyla yazdıklarım, kodun hangi aşamasına kadar işlem gördüğünü görmene yardımcı olacaktır (ayrıca ben kodu denemiştim sorunsuz çalışıyordu) Sonra gereken düzenlemeyi yaparız.

Edit : Tekrar hatırlatıyorum, bu kodun çalışması için kanala her girene whois çektirmen lazım yoksa çalışmaz
on *:join:#:/whois $nick
Şeklinde yaptırabilirsin.

Cevap: Kanala giren istenmeyen iplere ban

Sizin verdiğiniz kodları bi abiye verdim.O'da biraz baktı filan ayarladı,birleştirdi.Ama bu seferde kanala kim girerse girsin atıyor.Birde kick sebebi çıkmıyor..Birde siz bakabilirseniz sorun nerede diye çok iyi olur.

Kod:

on *:JOIN:#:{

    if ($nick isop #mynet_*) return {

    if ($me != $nick) { /whois $nick }

    if ($me isop $chan)

    { 

    raw 317:*: {

    if ($asctime($4)) < 900) {

    var %c = ($asctime($4))), %h = 900

    while %c < %h {

    if ($me isop $chan(%h)) { //ban -u900 $chan $nick 2 | kick $chan $nick 4Açıklama:1 Saldırı Koruması Aktif Sunucuya giriş zamanınız 15 dk'yı geçmediğinden4 bir süre uzaklaştırıldınız! | /echo 4 -s [BiLgi]: $nick 12NickLi User4 $chan 12Kanalına Giriş Yaptı ve Atıldı. }

    }

    }

    halt

    }

#ugiris end

Yanıt: Kanala giren istenmeyen iplere ban

Arkadaşım code buydu, yani bunda çok fazla uğraşacak bir şey yoktu ki.. Söylediğimiz şey bu kodun çalışması için girişte whois çektir dedik okadar..

on *:join:#:{
if ($me isop $chan) {
if ($nick == $me) || ($nick == Muafnick1) || ($nick == Muafnick2) || ($nick == Muafnick3) || ($nick == Muafnick4) || ($nick == Muafnick5) { halt }
enable #kontrol
whois $nick
}
}

#kontrol off
raw 317:*: {
if ($calc($ctime - $4) < 900) {
var %c = $chan(0), %h = 1
while %h <= %c {
if ($me isop $chan(%h)) { .echo -a cezalandırılıyor. | .ban -ku900 $chan(%h) $2 2 }
inc %h
}
}
halt
disable #kontrol
}
#kontrol end

Hepsi bu kadar.. istersen muafnick'ler ekleyebilirsin, kırmızıyla belirttim, artırıp azaltabilirsin. Umarım işine yarar.

Yanıt: Kanala giren istenmeyen iplere ban

bunun yerine bence ilk soru icin diyorum.. bir proxylist koruması yapsın.. istemedigi İP leri proxy listesine eklesin.. bu şekilde daha kolay olur.. proxylist koruması zannedersem aranırsa bulunur forumda..