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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Random konusunda yardım edebilirmisiniz ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/177168-random-konusunda-yardim-edebilirmisiniz.html)

Kablosuz NET 05 Şubat 2009 00:28
Random konusunda yardım edebilirmisiniz ?
 
Kod:
[23:26] *** Ayrıldı: opuzmhr (tm@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: ytpvirnxs (ur@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: wjldqimyr (pr@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: iyxsk (nl@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: hwfxu (wb@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: qwepf (ur@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: rxdjfem (af@88.244.175.=XXX) (Kanaldan Ayrildi)

Bu akşam bu şekilde random saldırısı aldım. 2 haneli identleri spmafilter ile yasakladım.. İdentlerin değişeceğini göz önüne alarak bu randomu nasıl engelleyebilirim ?

Lucifer 05 Şubat 2009 03:04
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Alıntı:
Ask_Harfleri Nickli Üyeden Alıntı (Mesaj 632531)
Kod:
[23:26] *** Ayrıldı: opuzmhr (tm@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: ytpvirnxs (ur@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: wjldqimyr (pr@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: iyxsk (nl@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: hwfxu (wb@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: qwepf (ur@88.244.175.=XXX) (Kanaldan Ayrildi)
[23:26] *** Ayrıldı: rxdjfem (af@88.244.175.=XXX) (Kanaldan Ayrildi)

Bu akşam bu şekilde random saldırısı aldım. 2 haneli identleri spmafilter ile yasakladım.. İdentlerin değişeceğini göz önüne alarak bu randomu nasıl engelleyebilirim ?



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)) { /ban -u900 # $nick 2 | kick # $nick 4Random Nick! }
#random end


kullanım şekli:
Kod:
;on !*:join:#:if ($randomnick($nick)) { işlev }
on !*:join:#:if ($randomnick($nick)) { kill $nick random nick kullanmayın! }
on !*:join:#:if ($randomnick($nick)) { gzline $nick +1h random nick kullanmayın! }


kod kullanımını echo olarak test edipte sunuyorum ve test sonuçları;
random nick : myjk
random nick : uipgrznytk
random nick : jcyeszdvnx
random nick : snrijyhodx
random nick : uqjzmlxck
random nick : harybwkv
random nick : harybwkv
random nick : aobfdxniq
random nick : nhxrlzydvku
random nick : gboylujnzap
random nick : wkghmsv
random nick : styi
random nick : osvxhiyta
random nick : rsfdoknchv
random nick : crdxvwbkpo
random nick : ytsapnzde
random nick : phtsmqegwxb
random nick : oavuptgh
random nick : zdcl
random nick : vtlanz
random nick : ybqulr
random nick : ybqulr
random nick : atjbs
random nick : tusxbgl
random nick : sgrud
random nick : tqwfbdpvmj
random nick : fwqykxp
random nick : xvyj
random nick : mhcviolyj
random nick : rqdwoutvfx
random nick : cpzvhewql
random nick : nlyfsvxkc
random nick : lvtzij
random nick : zjyxbtlvd
random nick : wxmbztuhyiq
random nick : pdbk
random nick : repqwji
random nick : uxqekirnyh
random nick : ylzehqgidna
random nick : ueigrdx
random nick : uklcgwat
random nick : paxrdkhb
random nick : lwfckbyxeu
random nick : gtzsebix
random nick : cqtsv
random nick : uqhvbmolg
random nick : dbzmyghkoa
random nick : skvlwgy
random nick : xbjoswmfr
random nick : gfqtjryhmxv
random nick : kqjix
random nick : qwerty
random nick : dfnhjgk
random nick : myway

sc5 clone işlemi için yapmış olduğum bir kodlamadır.
esinlenme CipriX (cem) arkadaşımın sayesindedir.
"randn2" aliases kodlaması başka birinden alınıp geliştirilmiştir.
ve bundan esinlenerek "randn" aliasesini yapılmıştır.
"randn" aliases ise tamamiyle kendime aittir.

İşini görür sanırım.. Random Nickle Giriş Yapanlar Otomatik Olarak mIRC'den Kicklenecektir, kırmızı olarak işaretlediğim yeri, zline kline vs. değiştirirsen Çalışır, iyi Forumlar.

Not; XcLusive 'ye aittir Code. Olduğu gibi buraya aktardim.

Emrax 17 Ağustos 2009 12:13
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Bota bunu ekledim ama ban+kick yapmadı.Verdiğiniz random nicklerede girdim ama hala atmıyo :S

Lucifer 17 Ağustos 2009 18:39
Cevap: Random konusunda yardım edebilirmisiniz ?
 
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 }
  }
}
on !*:join:#:{
  var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1)
  if ($randomnick($nick)) || ($randomnick(%identd)) { ban -k $chan $nick 2 random nick/ident kullanımı yasaktır.. }
}

Bu şekilde dene, çalışacaktır.

Emrax 30 Aralık 2009 09:56
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Hocam bu kod hemidenti hemde nicki random olanları atıyor dimi?Yani sadece nicki random olanları değilde hem identi dem nicki random olanları atmasını istiyorum.

CipriX 30 Aralık 2009 10:21
Cevap: Random konusunda yardım edebilirmisiniz ?
 
on !*:join:#:{
var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1)
if ($randomnick($nick)) || ($randomnick(%identd)) { ban -k $chan $nick 2 random nick/ident kullanımı yasaktır.. }
}
bunu

on !*:join:#:{
var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1)
if ($randomnick($nick)) && ($randomnick(%identd)) { ban -k $chan $nick 2 random nick/ident kullanımı yasaktır.. }
}

olarak değiştirirsen istediğin olur

Emrax 30 Aralık 2009 10:50
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Hocam abartmıyorum dün geceden beri bunu arıyorum gözlerim şişti uykusuzluktan.Çok sağolun.Elinize kolunuza sağlık kodu denicem.Sorun çıkarsa bildiririm hocam.

----------

Peki hocam join değilde connect için yaparsak
on !*join.. diye başlayan yeri

on *:snotice:*client connecting*:{
olarak mı değiştirmemiz gerekiyor?


----------

[10:37:14] * Ayrıldı: mIRCIndir-92154 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:37:14] * Giriş: mIRCIndir-92154 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:37:57] * mIRCIndir-92154 Nick değişerek sdjkhsadjsd Oldu
[10:38:04] * Ayrıldı: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:38:04] * Giriş: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:38:43] * Ayrıldı: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:38:43] * Giriş: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:39:42] * Ayrıldı: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:39:43] * Giriş: sdjkhsadjsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[10:39:43] * X-ir mod değiştirdi:+b *!*@2DD80C33.199DC7D0.71A06DCE.IP
[10:39:44] * sdjkhsadjsd X-ir Tarafından Kanaldan Atıldı (random nick/ident kullanımı yasaktır..)


Yukarda gördüğünüz gibi kod çalışıyor arkadaşlar.Eğer sunucunuza identi ve nick i random olan botlar giriyor ve user atmak istemiyorsanız mükemmel bir kod..Emeği geçen herkese teşekkürler..

Emrax 30 Aralık 2009 13:49
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Hocam kod sadece 1 kez çalıştı :S

XcLusive 30 Aralık 2009 18:46
Cevap: Random konusunda yardım edebilirmisiniz ?
 
kodun çalışması için hem nickin hemde identin random olması gerek en azından öyle algılamalı.
nick random ident normal olursa işlem yapmaz veya tam tersi olursa gene işlem yapmaz. hem nick hemde ident'in random olması lazım ki kod çalışsın.

Emrax 30 Aralık 2009 21:14
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Evet hocam aynı dediğiniz gibi nick ve ident birlikte random olunca işlem yapıyor.Ancak sorunun ne olduğunu buldum.Büyük küçük harf duyarsız kod.yani wFGJHjhSsds nickleri bu yada identi bu olanları atmıyor.Hepsinin küçük olması lazım.Acaba büyük küçük harf algılayabilen şekle getirebilir miyiz?

XcLusive 30 Aralık 2009 21:20
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Kod:
alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }
alias randn2 {
  if $1- isalpha {
    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 {
    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 }
  }
}
bu alias'ı önceki ile değiştirirsen istediğin olur

Emrax 30 Aralık 2009 22:37
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Hem identi ve nicki büyük küçük karışık olan randomları hemde identi ve nicki küçük olan randomları atma şansı yok mu hocam tek kodla..Şimdiden emeğiniz için teşekkür ederim.

Emrax 30 Aralık 2009 22:37
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Saolun hocam deniyorum hemen.

----------

-
* /if: Geçersiz format (Satır 17, İdentNick.txt)


Hatası veriyor hocam :(

----------

Hocam script versiyonum 6.35 onla alakası yoktur herhalde.Bekliyorum hocam yorumuzunuzu üstteki hatayı veriyor

----------

Hocam o sorunu çözdük yardımızla saolasınız ama bu kezde küçük nickleri atmıyor.
[22:23:01] * Giriş: wpjrulksdJassd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[22:23:02] * X-ir mod değiştirdi:+b *!*@2DD80C33.199DC7D0.71A06DCE.IP

bunları atıyor

[22:23:34] * Giriş: qosaıdıoadsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[22:24:12] * Ayrıldı: qosaıdıoadsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

atmıyor :S


----------

Hem identi ve nicki büyük küçük karışık olan randomları hemde identi ve nicki küçük olan randomları atma şansı yok mu hocam tek kodla..Şimdiden emeğiniz için teşekkür ederim.

----------

Hem identi ve nicki büyük küçük karışık olan randomları hemde identi ve nicki küçük olan randomları atma şansı yok mu hocam tek kodla..Şimdiden emeğiniz için teşekkür ederim.

XcLusive 30 Aralık 2009 22:59
Cevap: Random konusunda yardım edebilirmisiniz ?
 
kodu düzenlemiştim tekrar almışsın sanırım.
kodda türkçe karakter desteği yok ondan atmamıştır.

Emrax 31 Aralık 2009 00:05
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Hocam nicki BURAK identi MIRCTR olanında attı bende şu şekilde muaf ekledim acaba ne kadar doğru.Kodu veriyorum
alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha {
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 {
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 }
}
}
on !*:join:#mIRCTR:{
var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1)
if !$istok(Ahus neXGen_v2 aSk Admin SoylemIRC burak Dark izmIRC King Neveda asiL trnc zurna is0hbet kArA.qoSLu Sensizim mIRCKalbim IRC MT.Gops Turk ikiSohbet T-Mirc Sohbet TRSohbetLi Numberone Nickserv MultiMRC Quiet diE Damn lcX X K-Turk Kursun-v2 Bjk Love filmdizizl kuzu AfyoK Constantin SCScript yAkLaSmA mIRCindirU mIRCTRWeb KLBKvTurk TriviaBot mIRCIndir_ SohbetIRC Bitanem-v4 keleweb Intel MoDe mIRCTR KLBKBETA KTurkce KLBKveLite SohbeTTurk mIRCIndir KlbkTurkce kelebek d4rkL0rd KelebekTR ekelebek Sturk bad vXy,$right($gettok($10,1,64),-1),32) {
if ($randomnick($nick)) && ($randomnick(%identd)) { ban -k $chan $nick 2 0,1X-ir 5,1Security 0,1System5,1™9,1[0,10,1Råñdøm 0,1ñi¢k9,1] }
}

SaNaLStaR 26 Aralık 2010 18:53
Cevap: Random konusunda yardım edebilirmisiniz ?
 
koruma nasıl aktif oluyor ve kapatiliyor?

Cihandar 26 Aralık 2010 19:08
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Alıntı:
SaNaLStaR Nickli Üyeden Alıntı (Mesaj 1040629882)
koruma nasıl aktif oluyor ve kapatiliyor?

Kod:
#koruma on

alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }
alias randn2 {
  if $1- isalpha {
    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 {
    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 }
  }
}


#koruma end
bu şekilde remote'ye ekle

Bunuda Popups'da istedigin bir yere ekleyebilirsin

Kod:
Koruma ON: .enable #koruma
Koruma OFF: .disable #koruma

SaNaLStaR 26 Aralık 2010 20:39
Cevap: Random konusunda yardım edebilirmisiniz ?
 
zline atacak ?

Leo 26 Aralık 2010 22:34
Cevap: Random konusunda yardım edebilirmisiniz ?
 
[22:31:20] *** Giriş Yapan: [TUR|00|MP|2590] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[22:30:21] *** Giriş Yapan: [RUS|00|D|82859] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[22:15:09] *** Giriş Yapan: RUS|77527 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:09] *** Giriş Yapan: TUR|29459 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:09] *** Giriş Yapan: [M]TUR|19571 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|32107 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|47513 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|04756 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|98722 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|66848 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|23718 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|76595 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

BU şekil girenlere zline atmiyor ne yapa biliriz atmasi için

Difuzyon 26 Aralık 2010 23:31
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Alıntı:
Leo Nickli Üyeden Alıntı (Mesaj 1040630095)
[22:31:20] *** Giriş Yapan: [TUR|00|MP|2590] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[22:30:21] *** Giriş Yapan: [RUS|00|D|82859] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[22:15:09] *** Giriş Yapan: RUS|77527 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:09] *** Giriş Yapan: TUR|29459 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:09] *** Giriş Yapan: [M]TUR|19571 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|32107 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|47513 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|04756 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|98722 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|66848 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|23718 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|76595 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

BU şekil girenlere zline atmiyor ne yapa biliriz atmasi için

Bu görüntülere bakarak aşağıdaki kodu tavsiye edebilirim:

Kod:
on *:snotice:*Client*connect*:if $regex($1-,/[A-Z]+\|\d+\s\x28(.*)?([^aeiou]){3}(.*)?\x40/) { zline $9 +0 Sebep }
Büyük harf: ABC
Seperatör: |
Rakamlar: 0123
İdent bilgisinde yanyana 3 sessiz harf : xyz
Örnek: Giriş Yapan: [M]TUR|98722 (myzeh@..

Bu tanımlara uyan girişlere işlem yapacaktır.

Hoşca paylaşımlar..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:55.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk