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

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

- - Clone Girisleri - Random Tarzı (https://www.ircforumlari.net/mirc-scripting-sorunlari/482756-clone-girisleri-random-tarzi.html)

Clone Girisleri - Random Tarzı

Kanalda Saldırı Nickleri kendi nick'lerimizi kullanarak Yapılabiliyor veya Kanal op'larının nick'lerini

Sky-BLuE-we
Sky-BLuE-Lk
Sky-BLuE-46
Sky-BLuE-KSKL
Sky-BLuE-hk

VEYA

Sky-BLuEWEF
Sky-BLuElefd
Sky-BLuE24654
Sky-BLuEwef

Bu Saldırıları durdurma imkanımız olabilirmi WingmaN Hocanın yazdığı Worgen Botundan Esinlendim.

Cevap: Clone Girisleri - Random Tarzı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bunu Bi inCeLe İsTerSen

Cevap: Clone Girisleri - Random Tarzı

Kod:

alias _ban var %. 1 | while $hmatch(giris,$1,%.) { gline $v1 ban sebebi. | hdel $1 $v1 | inc %. }

on $*:snotice:/connecting/i: {

if ($regex($9,/(Muaf1|muaf2)/i)) { halt }

  if ($regex($9,/(.{3,})-(.{1,})/i)) {

    var %n = $token($9,1,45) $+ -* 

    hadd -mu5 giris $9 _

    if ($hmatch(giris,%n,0) >= 4) {

      _ban %n

    }

  }

}

Veya ;

Kod:

on *:snotice:*connecting*: {

  if ($regex($9,/(Muaf1|muaf2)/i)) { halt }

  if ($tnick($9)) {

    if (!$hget(tnick)) { hmake tnick 100 }

    hinc -u10 tnick $tnick($9)

    if ($hget(tnick,$tnick($9)) >= 3) { 

      gzline $9 +0 Ban sebebin.

    } 

  }

}

alias tnick {

  var %t 1

  while %t <= $len($1) {

    if $mid($1,%t,1) !isalpha { 

      if $len($left($1,$calc(%t - 1))) > 2 {

        return $mid($1,1,$calc(%t - 1))

      }

    }

    inc %t

  }

}

Not : İf'te arama yaparakta , birden fazla bu tür yanıtlar ala bilirsin, '' UĞRAŞMAN YETERLİDİR ''