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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Sc5 Korumada sorun yardım pls. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/291471-sc5-korumada-sorun-yardim-pls.html)

Carpediem 10 Kasım 2009 15:47

Sc5 Korumada sorun yardım pls.
 
Sc5 Korumasında Sorun yardım Pls.
menu * {
.Sc5 Koruması
..Açık:.enable #Sc5 | .echo -a 14,1Sc5 Koruması 4,1AçıLdı!!
..Kapalı:.disable #Sc5 | .echo -a 14,1Sc5 Koruması 4,1KapatıLdı!!
}
#Sc5 off
on *:join:#:{
if ($regex($wildsite,/(helper|admin|aop|sop|halfop|IRC.SECURITY.SYSTEM|g lobalops|staff|founder|Netadmin|dj|ircop|tech|IRC. Operator|server|coadmin|services|network)/i)) { halt }
if $ialchan($wildsite,#,0) >= 3 {
gzline $nick +1d 5Aynı ipten 3. kişi girişi yasaktır. 12 $+ $date $+ / $+ $time $+ By : 4Corpi }
}
#Sc5 end

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


--------------------------------------------------------------
Böyle bir koruma kullanıyorum Ayni ip üzerinden 3. kisiyi atiyor lakin, Ayni identten girisleride atiyor misal. (HevesWeb@ ) olan identleri de atiyor identleri ayırabilirmiyiz? benim belirlemis oldugum identleri yani yardımcı olursanız sevinirim...

Set 10 Kasım 2009 16:22

Cevap: Sc5 Korumada sorun yardım pls.
 
PHP- Kodu:

on *:join:#:{
  
var %ident $gettok($gettok($fulladdress,1,64),2,33)
  if (
$regex($wildsite,/(helper|admin|aop|sop|halfop|IRC.SECURITY.SYSTEM|g lobalops|staff|founder|Netadmin|dj|ircop|tech|IRCOperator|server|coadmin|services|network)/i)) { halt }
  if (
$regex(%ident,/(ident|ident1)/i)) { halt }
  if 
$ialchan($wildsite,#,0) >= 3 { 
  
gzline $nick +1d 5Aynı ipten 3. kişi girişi yasaktır12 $+ $date $+ / $+ $time $+ By 4Corpi }


Ident Ident1 Yerlerine Muaf Tutacagin Ident'leri Yerleştir , Denemedim Ama Calişmasi Gerek Insallah Isıne Yarar.

Carpediem 10 Kasım 2009 17:28

Cevap: Sc5 Korumada sorun yardım pls.
 
if ($regex(%ident,/(ident|ident1)/i)) { halt }
ident|ident1|ident2 gibi cogaltabiliyoruz dimi?
misal : if ($regex(%ident,/(a1|b2|c3)/i)) { halt }
gibi?

Set 10 Kasım 2009 17:39

Cevap: Sc5 Korumada sorun yardım pls.
 
Evet :)


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

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