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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 01 Ocak 2010, 22:05   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Muaf ident sorunu yardım




PHP 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 $
1isalpha {
    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 $
1isalpha {
    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&#8482;9,1[0,10,1Råñdøm 0,1ñi¢k9,1]  
}


Arkadaşlar kod bu.Muaf ident ekledim.Agresif korumamda da var muaf orda çalışıyor ama bu kodda çalışmıyor.Hata nerde :S

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 01 Ocak 2010, 22:20   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




on !*:join:#mIRCTR:{
var %ident $gettok($address,1,64),32)
if !$istok(ident ident1 ident2 ident3,%ident,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]
}
}
}

şöyle dene
+
if istok sorgusu çok uzun.

----------

on !*:join:#mIRCTR:{
var %ident $gettok($address,1,64),32)
if !$istok(ident ident1 ident2 ident3,%ident,32) {
if ($randomnick($nick)) && ($randomnick(%ident)) {
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]
}
}
}

şöyle dene
+
if istok sorgusu çok uzun.

__________________
Şimdi Saat Sensizliğin Ertesi..
 
Alıntı ile Cevapla

Alt 01 Ocak 2010, 22:32   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Hocam şu an deniyorum ama bi sorun çıkmadı daha ben bu identleri Agresif giriş korumamda da kullanıyorum orda sorun çıkmıyor.Bide buna açıp kapatma ekleyebilir miyiz hocam.Örneğin F10 basınca açılacak.Saldırı anında hemen açmak için

 
Alıntı ile Cevapla

Alt 01 Ocak 2010, 23:41   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




#uc on
;kodlar buraya yazılacak.
#uc end

alias F10 { if $group(#uc) == off { .enable #uc | echo -a Açtım }
else { if $group(#uc) == on { .disable #uc | echo -a Kapadım }}}



Kodları grubun içine yerleştirip F10'a bas, açıksa kapatır; kalıysa açar.

__________________
Suyun intiharıdır şelale...
 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 01:32   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Çok sağolun hocam..Allaha emanetsiniz..

----------

[01:25:10] Giriş : *** Notice -- Client connecting on port 6667: FEvqGW (mosnmxbt@188.16.28.137) [clients]
[01:25:11] Giriş : *** Notice -- Client connecting on port 6667: EptfqsWvOB (ipbiophmtf@118.194.65.14) [clients]
[01:25:11] Giriş : *** Notice -- Client connecting on port 6667: MGvwWbj (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.comcast.net) [clients]
[01:25:15] Giriş : *** Notice -- Client connecting on port 6667: puX (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.comcast.net) [clients]
[01:25:15] Giriş : *** Notice -- Client connecting on port 6667: vqcLbvrYdcH (ahjerff@12.180.26.217) [clients]

Hocam böyle bir saldırı yedik ama

#uc 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 }
}
}
on !*:join:#mIRCTR:{
var %ident $gettok($address,1,64),32)
if !$istok(Ahus neXGen_v2 aSk SpiDeRv1.7 yılmaX 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,%ident,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]
}
}
}

#uc end

alias F10 { if $group(#uc) == off { .enable #uc | echo -a 14,1Random Koruması 4,1AçıLdı!! }
else { if $group(#uc) == on { .disable #uc | echo -a 14,1Random Koruması 4,1Kapatıldı!! }}}

bu koruma çalışmadı :S Acaba ban olduğu için mi yavaş kaldı. Yoksa sorun mu var :S


 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 03:43   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Sigaram bitti.Kod çalışmıyo.Kafayı yicem harbiden yardım edin ya :S Ne yaptım ettiysem çalışmadı.Koruma açılıp kapanıyor gösteriyo ama çalışmıyo.Sabır..Lütfen yardım :S

 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 04:31   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#randomnick off alias grr { if (($regex($1,/[^aeiou]{3}/i)) || ($regex($1,/[aeiou]{3}/i))) { return $true } | else { return $false } } on @!*:join:#:{ if ($grr($nick)) { /gline $nick 3600 Random nick koruması şu anda aktif. 1 Saat banlandınız. } } #randomnick end alias rac { enable #randomnick } alias rkapa { disable #randomnick end }

Bu koruma ile Random yani bilinmeyen karmaşık nicklere çare bulabilirsiniz.

Kullanımı;

/rac : random nick korumasını etkin kılar
/rkapa : random nick korumasını devre dışı kılar


Alıntı..

 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 05:23   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Hocam random nick koruması değil istediğim hem nicki hem identi random olduğunda atması.Diğer türlü atmaması

 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 05:35   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




X-ir Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PHP 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 $
1isalpha {
    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 $
1isalpha {
    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]  
}


Arkadaşlar kod bu.Muaf ident ekledim.Agresif korumamda da var muaf orda çalışıyor ama bu kodda çalışmıyor.Hata nerde :S

Burdaki yasaklamak istediğin identleri virgül ile ayırarak denermisin yani : ident1,ident2,ident3 gibi

neXGen_v2,aSk,Admin,SoylemIRC, şeklinde

 
Alıntı ile Cevapla

Alt 02 Ocak 2010, 06:05   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Muaf ident sorunu yardım




Hocam teşekkür ederim ama olmadı :S O kod hiç çalışmıyor :S

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 }
}
}
menu * {
Random Nick Koruması
Aç :.enable #random | echo -at 14,1Random Koruması 4,1AçıLdı!!
kapat:.disable #random | echo -at 14,1Random Koruması 4,1AçıLdı!!
}
#random on
on !*:join:#X-ir: {
if $regex($nick,/(Chick|Prens|butterfly|qamze|haqan|crayz|blacklost |ccredo|tuqce|yaqmuur)/i) { halt }
if ($randomnick($nick)) {
if !$istok(mIRCTR,$right($gettok($10,1,64),-1),32) {
/ban -ku180 # $nick 2 0,1Råñdøm 5,1ñ¡¢k ƒø®ßiddêñ0,1!!
}
}
}

#random end


Diye bir kod var elimde ama bu kezde muaf identi görmüyor.Bu atıyor ama muaf identleri ekleyemedim :S

 
Alıntı ile Cevapla

Cevapla

Etiketler
ident, mirc download, mirc indir, muaf, sorunu, yardim, yardım


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Flood koruması, nick/ident/ip muaf hk. Prens mIRC Scripting Sorunları 1 25 Temmuz 2012 02:57
Random ident muaf ekleme. KivanC mIRC Scripting Sorunları 5 15 Mayıs 2012 16:37
Unreal Muaf ident worker Unreal IRCd 1 21 Haziran 2011 12:23
muaf nick veya ident (yardım) sohbetimzelzele mIRC Scripting Sorunları 2 30 Kasım 2010 00:02
Muaf ident yardım Emrax mIRC Scripting Sorunları 5 11 Mart 2010 20:17