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

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

- - randomkorumasi (https://www.ircforumlari.net/mirc-scripting-sorunlari/113496-randomkorumasi.html)

selamu aleykum.guzel bir random korumasi gerekiyor.bende var ama nitelikleri iyi degil.elinde olan kardes paylasirsa sevinirim ins.

Cevap: randomkorumasi

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: randomkorumasi

eyvallah kesim.zaten mesaj biraktiktan sonra bunu buldum..bende bunu kullaniyorum.emegi gecenlerden ALLAH razi olsun.

Cevap: randomkorumasi

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadasim verdigin adresteki kodu aldım
acaba bunu menuye ekleyip ac kapa seklinde yapamazmıyız..
hani aksi bir sonuc olursa kapatmak icin..

Aşagıdaki kod Random nick koruması olup
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tarafından kodlanmıstır.

Kod:

alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }

alias randn2 {

  if $1- isalpha && $1- islower {

    if (($count($1,a,e,i,o,u) >= 4))  { return $false }

    if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

    if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {

      if ($regex($1,/^[^aeiou]{3}/)) { return $true }

      elseif ($regex($1,/([a-z])\1{2}/)) { return $true }

      elseif ($regex($1,/[aeiou]{3/)) { return $true }

      elseif ($regex($1,q[^u])) { return $true }

      elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }

      else { return $false }

    }

  }

}

alias randn {

  if $1- isalpha && $1- islower {

    if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

    if ($len($1) == 7) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    elseif ($len($1) == 8) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    elseif ($len($1) == 9) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    elseif ($len($1) == 10) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) { 

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      else { return $true }

    }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) { 

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      else { return $true }

    }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }

    else { return $false }

  }

}

Cevap: randomkorumasi

Alıntı:

suruclu Nickli Üyeden Alıntı (Mesaj 471172)

Kod:

alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }

alias randn2 {

  if $1- isalpha && $1- islower {

    if (($count($1,a,e,i,o,u) >= 4))  { return $false }

    if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

    if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {

      if ($regex($1,/^[^aeiou]{3}/)) { return $true }

      elseif ($regex($1,/([a-z])\1{2}/)) { return $true }

      elseif ($regex($1,/[aeiou]{3/)) { return $true }

      elseif ($regex($1,q[^u])) { return $true }

      elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }

      else { return $false }

    }

  }

}

alias randn {

  if $1- isalpha && $1- islower {

    if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

    if ($len($1) == 7) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    elseif ($len($1) == 8) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    elseif ($len($1) == 9) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    elseif ($len($1) == 10) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) { 

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      else { return $true }

    }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) { 

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      else { return $true }

    }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }

    else { return $false }

  }

}

Kod:

alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }

alias randn2 {

  if $1- isalpha && $1- islower {

    if (($count($1,a,e,i,o,u) >= 4))  { return $false }

    if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

    if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {

      if ($regex($1,/^[^aeiou]{3}/)) { return $true }

      elseif ($regex($1,/([a-z])\1{2}/)) { return $true }

      elseif ($regex($1,/[aeiou]{3/)) { return $true }

      elseif ($regex($1,q[^u])) { return $true }

      elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }

      else { return $false }

    }

  }

}

alias randn {

  if $1- isalpha && $1- islower {

    if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

    if ($len($1) == 7) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    elseif ($len($1) == 8) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    elseif ($len($1) == 9) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    elseif ($len($1) == 10) {

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

      elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }

      else { return $false }

    }

    if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) { 

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      else { return $true }

    }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) { 

      var %son = $mid($1,$len($1),1)

      var %son2 = $mid($1,$calc($len($1) - 1),1)

      if (%son == %son2) { return $false }

      else { return $true }

    }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }

    elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }

    else { return $false }

  }

}

menu channel,status {

  Random Nick Koruması

Aç :.enable #random | echo -at Random Nick Koruması Acılmışdır.

kapat:.disable #random | echo -at Random Nick Koruması Kapatılmışdır.

}
 

#random off

 on !*:join:#:if ($randomnick($nick))  { Gline/Zline/Kline $nick Sebeb. }

#random end

Cevap: randomkorumasi

Hehehehe super valla denedim cok güzel çalışıyor ohh beee :)

yanlız bu kodlardan faydalanmak isteyen arkadaslara ben bi hatırlatma yapayım

kodların en son satırına bakın
on !*:join:#:if ($randomnick($nick)) { Gline/Zline/Kline $nick Sebeb. }
bu satırda kırmızı ile belirttigim yere sadece bir ban yazılacak benim gibi acemilik yapmayın :)
yani kırmızı olan yere
/gline
/zline
/kline
bunlardan biri yazılacak

bide bu kodun calisması için sunucuda oper statusunde olmanız lazım
eger ben aop veya sopum diyorsanız
o zaman yukardada belirttigim son satırı şu şekilde degiştiriniz
on !*:join:#:if ($randomnick($nick)) { /ban -u900 # $nick 2 | kick # $nick 2Random Nick YASAK! }

bu sekilde yaparsanız random nickler kanalınızdan kick+ban yiyeceklerdir.
Kolay Gelsin..

ÌrCBaStarD tekrar tsk ettim
Iyi Calismalar..

Cevap: randomkorumasi

Güzel Bir Çalışma Ekledim Gayet de iYi ÇAlışıyor Ama bir Sorun Var :) "kybele" gibi bu şekilde olan normal nickleri atıyor. Ben iStiyorum ki ÖrneğiN : "[Baby]18 gibi bu tür köşeli parantezli yani kısaca Clone ya da İnframe bot niCklerini atacak şekilde düzenlemek :) karakterleri düzeltmem gereken kısımlkarını gösteren birisi olursa ben uğraşırım biraz acemiyimde :)

*** Notice --- Temporary Z-line added for zahnstocher by FruKo!

mesela böyle buna engel olmak istiyorum yoksa Serverde uSer kalmayacak:)

Yada Şöyle Birşey Olabilir mi Bu Adona O KarakterLEr Kısmını DüzeLtip Servere Girmesini iStemediğim NickLeri Yazıp girip Yapar Yapmaz O Nicki Atsa.. MeseLa :

1 -KaRaSeyTaN (IRCTurkey@.............

Bu NiCki Bu Adona Yazıp Servere girmesine iZin VermeyeceğiM. Bu ŞEkilde Bir Düzenleme YapabilirmiyiZ

Cevap: randomkorumasi

Kimse İlgilenmeyeCEk mi Ya.. ?

Cevap: randomkorumasi

Alıntı:

FruKo Nickli Üyeden Alıntı (Mesaj 475537)

Script açıyorsun aşağıdaki kodu yazıyorsun aynen;

Kod:

/alias bad { .auser 555 $$1 }

Daha Sonra alt+r basıyorsun Remote kısmana kodu ekliyorsun ;

Kod:

on 555:join:#: { zline $nick : Bad nick! }

listeye birini eklemek için " /bad KaRaSeyTaN " veya " /bad *!IRCTurkey@* " gibi yapabilirsin.Saygılar.

Cevap: randomkorumasi

EyyyvaLLah Hocam Çok MakbuLe Geçti Vallahi Saygı Hürmet :)