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

sondemdeyim · 27 Mayıs 2008, 22:43

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

IrCbaStarD · 28 Mayıs 2008, 02:07

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

sondemdeyim · 28 Mayıs 2008, 12:53

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

SurucLu · 28 Mayıs 2008, 23:22

[Ü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: Kodu kopyalamak için üzerine çift tıklayın!

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 }
  }
}

IrCbaStarD · 29 Mayıs 2008, 02:47

suruclu Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Ü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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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

SurucLu · 29 Mayıs 2008, 04:45

Hehehehe super valla denedim cok güzel çalışıyor ohh beee
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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..

31 Mayıs 2008, 15:06

Güzel Bir Çalışma Ekledim Gayet de iYi ÇAlışıyor Ama bir Sorun Var
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
karakterleri düzeltmem gereken kısımlkarını gösteren birisi olursa ben uğraşırım biraz acemiyimde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

mesela böyle buna engel olmak istiyorum yoksa Serverde uSer kalmayacak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

02 Haziran 2008, 14:41

Kimse İlgilenmeyeCEk mi Ya.. ?

kAriSmA · 02 Haziran 2008, 14:54

FruKo Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Güzel Bir Çalışma Ekledim Gayet de iYi ÇAlışıyor Ama bir Sorun Var
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
karakterleri düzeltmem gereken kısımlkarını gösteren birisi olursa ben uğraşırım biraz acemiyimde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

mesela böyle buna engel olmak istiyorum yoksa Serverde uSer kalmayacak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

/alias bad { .auser 555 $$1 }

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

02 Haziran 2008, 15:19

EyyyvaLLah Hocam Çok MakbuLe Geçti Vallahi Saygı Hürmet
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.