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

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

- - Benzer nicke Kick +Ban (https://www.ircforumlari.net/mirc-scripting-sorunlari/458360-benzer-nicke-kick-ban.html)

Benzer nicke Kick +Ban

SeLamlar. Arkadaslar Benzer nick Koruması yapabilirmiyizz? Şoyle anlatayım Bot saldırıları için ip adresleri veya identi fark etmeden kanala benzer nick girislerini atmak istiorm. Örnek:
Ahmet_Senle_Goruscez_Lan
Ahmet_Senle_Goruscez_Lannnn
Ahmet_Senle_Goruscez_Lan1
Ahmet_Senle_Goruscez_Lannnn2
Bu tarz nickleri banlıcaz içinde benzer harfler olarak deilde
Ahmet_Senle_ bu kısımda 12 harf var yani eğer diğer nicklerde nickin (belirleyeceğimiz kadar) olan kısmı benzerse yani ikiz gibiyse diyelim ban atacak bir kod nasıl yaparbilirz ustatlar?;s1

Cevap: Benzer nicke Kick +Ban

Kod:

on *:JOIN:#sohbet:{

  set %k $chan | set %nick  $nick

  tara

}

alias tara { 

  var %t = 1

  while (%t <= $nick(%k,0)) {

    var %bdnick = $nick(%k,%t)

    if ($left($nick(%k,%t),14) == $left(%nick,14) {

      allban %nick

    }

    inc %t

  }

}

alias allban {

  var %x = $comchan($1,0) 

  var %a = 1

  while %a <= %x {

    mode $comchan($1,%a) +b $1

    mode $comchan($1,%a) +b $address($1,4)

    if $1 ison $comchan($1,%a) { kick $comchan($1,%a) $1 ysak }

    inc %a

  }

}

Cevap: Benzer nicke Kick +Ban

Kod:

on *:nick:if *Ahmet* iswm $newnick { zline $newnick Nesliniz çoğaldıkça daha çok seviyorum sizi :) }

Veya..

Kod:

on *:join:#Kanal:{ if $read(zline.txt,w,$nick) { zline $nick Banned! } }

Bu kod işine yarayabilir. Olmadı badnick koruması mutlak var korumalarının arasında ''ahmet'' ekle, işlevi izle.

Cevap: Benzer nicke Kick +Ban

Alıntı:

S!daR Nickli Üyeden Alıntı (Mesaj 1041048831)

Kod:

on *:nick:if *Ahmet* iswm $newnick { zline $newnick Nesliniz çoğaldıkça daha çok seviyorum sizi :) }

Veya..

Kod:

on *:join:#Kanal:{ if $read(zline.txt,w,$nick) { zline $nick Banned! } }

Bu kod işine yarayabilir. Olmadı badnick koruması mutlak var korumalarının arasında ''ahmet'' ekle, işlevi izle.

Usta ben ordaki Ahmet nckini örnek verdim ve sadece nick için gecerli deil ben anlatamadım galiba benzer nick olursa atılsın yani
Mustafa
Mustafaaaaaaaa
Mustafaaaaaaaaaaa
Mustafaaaaaaaaaaaaaaaa
tarzında nickleri yani %90'ı benzer ise işlem yapsın

Cevap: Benzer nicke Kick +Ban

Alıntı:

fav Nickli Üyeden Alıntı (Mesaj 1041048752)

Kod:

on *:JOIN:#sohbet:{

  set %k $chan | set %nick  $nick

  tara

}

alias tara { 

  var %t = 1

  while (%t <= $nick(%k,0)) {

    var %bdnick = $nick(%k,%t)

    if ($left($nick(%k,%t),14) == $left(%nick,14) {

      allban %nick

    }

    inc %t

  }

}

alias allban {

  var %x = $comchan($1,0) 

  var %a = 1

  while %a <= %x {

    mode $comchan($1,%a) +b $1

    mode $comchan($1,%a) +b $address($1,4)

    if $1 ison $comchan($1,%a) { kick $comchan($1,%a) $1 ysak }

    inc %a

  }

}

Hocam ordaki 14 sayısı nedir biraz acıklarmısın codeyi tşk ederim..;s1

Ayrıca böle bir hata alıorm
/if: Geçersiz format (Satır 9, BENZER--Nick--Ban);s2

Cevap: Benzer nicke Kick +Ban

TiGeR : Dostum, örneğin ''guest''leri baz alalım. Kanalda sayısız bazen guest nickleri oluyor. Buna mütakip farklı farklı senin söylediğin gibi ahmet mehmet nicki gibi. Böyle bir kodu neden mIRC'de kullanıp useri uzaklaştıracaksın anlam veremedim. Faklı bir yöntem denesen?

Cevap: Benzer nicke Kick +Ban

kodu tekrar alabilirsin ) eksik olmus

Alıntı:

fav Nickli Üyeden Alıntı (Mesaj 1041048752)

Kod:

on *:JOIN:#sohbet:{

  set %k $chan | set %nick  $nick

  tara

}

alias tara { 

  var %t = 1

  while (%t <= $nick(%k,0)) {

    var %bdnick = $nick(%k,%t)

    if ($left($nick(%k,%t),14) == $left(%nick,14)) {

      allban %nick

    }

    inc %t

  }

}

alias allban {

  var %x = $comchan($1,0) 

  var %a = 1

  while %a <= %x {

    mode $comchan($1,%a) +b $1

    mode $comchan($1,%a) +b $address($1,4)

    if $1 ison $comchan($1,%a) { kick $comchan($1,%a) $1 ysak }

    inc %a

  }

}

Bende anlamadım benim mircimdeki kod da bir parantez daha var orda
buraya yapıştırıken bihatam oldu sanırım

Kod:

;yanlızca sohbet kanalına girişte calışsın

on *:JOIN:#sohbet:{

;nick ve kanalı veriablese kaydetsin 

  set %k $chan | set %nick  $nick

;tara aliasını çalıştırsın

  tara

}

alias tara {

;burda bir değişken yaratmıs olduk var değeri 1

  var %t = 1

;burada %k kanalı yanı #sohbet'te kacnick olduğunu ve var değerimizle %t kanaldaki nick sayısı eşitse veya kücükse var değerimizde işleme devam etsin dedik vardeğeri %t kanalda nıck sayısı kadar işlem yapacak

  while (%t <= $nick(%k,0)) {

;bir var değeri daha oluştueduk döngüye göre herseferde sıradaki nicki bazalır %k,%t yani kanal kanaldaki %t sırasındakı nıck

    var %bdnick = $nick(%k,%t)

;burada döngüye göre kanaldaki sırası kelen nickin bastan 12 harfi == kanala giren nickin 12 harfiyle eşitse kod işleme devam etsin dedik

    if ($left($nick(%k,%t),12) == $left(%nick,12)) {

;alban aliası ile kanalda 12 harfi eşit olan kanala girişte bulunan nicki bulunduğumuz tüm kanallardan nick ban ip ban ve kick atılsın dedik

      allban %nick

    }

;inc her dehada var %t değerini 1 arttıarak tekrar işleme sokar esasdöngü işlemcisi budur kanaldaki nick sayısını bizim var değişkenimizdeki sayı gececek olursa yani eşitledikten sonra while (%t <= $nick(%k,0)) { bu kısımda işlem durur alt satırlara işlem iletilmediği için döngü durmuş olur

    inc %t

  }

}

alias allban {

  var %x = $comchan($1,0) 

  var %a = 1

  while %a <= %x {

    mode $comchan($1,%a) +b $1

    mode $comchan($1,%a) +b $address($1,4)

    if $1 ison $comchan($1,%a) { kick $comchan($1,%a) $1 ysak }

    inc %a

  }

}

Cevap: Benzer nicke Kick +Ban

kodu tekrar gözden gecirdim şöyle bir sıkıntı olacak kodda girin nickleri banlayacak bu hata nedeniyle değişiklik yaptım

Kod:

on *:JOIN:#sohbet:{

  set %k $chan | set %nick  $nick

  if $len(%nick) >= 12  {

    tara

  }

}

alias tara { 

  var %t = 1

  while (%t <= $nick(%k,0)) {

    var %bdnick = $nick(%k,%t)

    if (%nick == $nick(%k,%t)) {  var %t $calc($nick(%k,%nick) + 1 ) }

    if ($left($nick(%k,%t),12) === $left(%nick,12)) {

      allban %nick

      unset %k | unset %nick

    }

    inc %t

  }

}

alias allban {

  var %x = $comchan($1,0) 

  var %a = 1

  while %a <= %x {

    mode $comchan($1,%a) +b $1

    mode $comchan($1,%a) +b $address($1,4)

    if $1 ison $comchan($1,%a) { kick $comchan($1,%a) $1 ysak }

    inc %a

  }

}

kanaldaki nickleri taraken giriş yapan nick kendi sırasıyla eşleştiğinde kendi sırasını atlacakki her giren nick atılmasın kod denenmiştir kolaygelsin

Cevap: Benzer nicke Kick +Ban

Alıntı:

fav Nickli Üyeden Alıntı (Mesaj 1041049190)

kodu tekrar gözden gecirdim şöyle bir sıkıntı olacak kodda girin nickleri banlayacak bu hata nedeniyle değişiklik yaptım

Kod:

on *:JOIN:#sohbet:{

  set %k $chan | set %nick  $nick

  if $len(%nick) >= 12  {

    tara

  }

}

alias tara { 

  var %t = 1

  while (%t <= $nick(%k,0)) {

    var %bdnick = $nick(%k,%t)

    if (%nick == $nick(%k,%t)) {  var %t $calc($nick(%k,%nick) + 1 ) }

    if ($left($nick(%k,%t),12) === $left(%nick,12)) {

      allban %nick

      unset %k | unset %nick

    }

    inc %t

  }

}

alias allban {

  var %x = $comchan($1,0) 

  var %a = 1

  while %a <= %x {

    mode $comchan($1,%a) +b $1

    mode $comchan($1,%a) +b $address($1,4)

    if $1 ison $comchan($1,%a) { kick $comchan($1,%a) $1 ysak }

    inc %a

  }

}

kanaldaki nickleri taraken giriş yapan nick kendi sırasıyla eşleştiğinde kendi sırasını atlacakki her giren nick atılmasın kod denenmiştir kolaygelsin

Malesef hata verior

* Geçersiz format: $calc(...) (Satır 11, BENZER--Nick--Ban)

Cevap: Benzer nicke Kick +Ban

Alıntı:

fav Nickli Üyeden Alıntı (Mesaj 1041049190)

kodu tekrar gözden gecirdim şöyle bir sıkıntı olacak kodda girin nickleri banlayacak bu hata nedeniyle değişiklik yaptım

Kod:

on *:JOIN:#sohbet:{

  set %k $chan | set %nick  $nick

  if $len(%nick) >= 12  {

    tara

  }

}

alias tara { 

  var %t = 1

  while (%t <= $nick(%k,0)) {

    var %bdnick = $nick(%k,%t)

    if (%nick == $nick(%k,%t)) {  var %t $calc($nick(%k,%nick) + 1) }

    if ($left($nick(%k,%t),12) === $left(%nick,12)) {

      allban %nick

      unset %k | unset %nick

    }

    inc %t

  }

}

alias allban {

  var %x = $comchan($1,0) 

  var %a = 1

  while %a <= %x {

    mode $comchan($1,%a) +b $1

    mode $comchan($1,%a) +b $address($1,4)

    if $1 ison $comchan($1,%a) { kick $comchan($1,%a) $1 ysak }

    inc %a

  }

}

kanaldaki nickleri taraken giriş yapan nick kendi sırasıyla eşleştiğinde kendi sırasını atlacakki her giren nick atılmasın kod denenmiştir kolaygelsin

bır karakter bosluk var gördüğüm fazlalık böyle denermisin