Neler yeni

Hoş Geldiniz İRCForumun.COM IRC Forum ve Bilgi Paylaşım Forumu..

Hemen katılın ve tüm özelliklerimize erişim sağlayın. Kayıt olduğunuzda ve giriş yaptığınızda, konu oluşturabilir, mevcut konulara cevap verebilir, diğer üyelere itibar puanı verebilir, kendi özel mesajlaşma sistemine sahip olabilir ve çok daha fazlasını yapabilirsiniz. Ayrıca hızlı ve tamamen ücretsizdir, peki ne bekliyorsunuz?

Yeni Sunucular

Yeni Sunucu ve Paylaşımları

Yeni Mesajlar

Yeni Konu Mesajları

Yardım

Bize buradan ulaşabilirsiniz

RANDOM Nick/Ident Koruması

Web Hosting, İRC Shell

Overdose

Yönetici
Süper Moderatör
Sunucu Sahibi
Katılım
27 Kas 2023
Mesajlar
132
Tepkime puanı
17
Puanları
18
Konum
İstanbul
Web sitesi
sihirlisohbet.org
on *:snotice:*:{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
;- Muaf port ekleme.
if $istok(7000 7005 1453,%_port,32) { return }
;- Muaf nick ekleme
elseif $istok(Nick Nick1 Nick2 Nick3,%_nick,32) { return }
;- Muaf ident ekleme
elseif $istok(Sohbet mIRC Kelebek SoyLe,%_ident,32) { return }
;- Muaf IP ekleme
elseif $istok(88.888.55.258 78.458.88.888,%_ip,32 ) { return }
elseif $len(%_nick) >= 5 && $_rand(%_nick) >= 80 {
gzline $+(*@,%_ip) - Random nick ile sunucuya girmek yasak! [ $+(%,$_rand(%_nick)) $_randyz($_rand(%_nick)) ]
msg #güvenlik $+(4,%_nick,) nick'i random nick kullandığı tespit edildi. $+(%,$_rand(%_nick)) $_randyz($_rand(%_nick))
}
elseif $len(%_ident) >= 5 && $_rand(%_ident) >= 80 {
gzline $+(*@,%_ip) - Random ident ile sunucuya girmek yasak! [ $+(%,$_rand(%_ident)) $_randyz($_rand(%_ident)) ]
msg #güvenlik $+(4,%_nick,) nick'i random ident kullandığı tespit edildi. $+(%,$_rand(%_ident)) $_randyz($_rand(%_ident))
}
}
}
alias _rand {
var %:sebsessiz $len($regsubex($1,/[aeioöuüÖÜİ0-9]/gSi,\t))
return $round($iif($round($calc((%:sebsessiz * 100) / $len($1)),1) > 100, 100, $round($calc((%:sebsessiz * 100) / $len($1)),1)),0)
}
alias _randyz {
var %:yz $iif($len($1) == 3,$+(4,$str(|,10)),$+(4,$str(|,$left($1,1))))
return $iif($right($1,1) < 5,%:yz,$+(%:yz,ı))
}​
 
shape1
shape2
shape3
shape4
shape7
shape8
Üst