![[-]](https://lamerler.com/images/collapse.png "[-]")
RANDOM Nick/Ident Koruması
alias olarak olarakta kullanabilirsininiz Kod Yazarı : Alper Arkadaşımız
Kırmızı ile belirttiğim yer muaf port yeri birden fazla port varsa boşluk bırakıp ekleme yapabilrsin.
Mavi ile belirttiğim yer ise random nickin yüzdesi kaç oranında random olursa işlem yapması için.
Kod Yazarı : CoCoRiCo
/rand? aBGHJsSfTyu
check random rate
or using test commands
/Testrand
good luck
Random Nick Saldırılarına Karşı, Koruma isterseniz
;Sc5 ve benzeri programlarda kullanılan nick_randomkarakter saldırılarına karşı yazılan bir parça kod.
;Saniye ve karakterleri kendiniz belirleyebilirsiniz
-
Klavyeniz den Alt + R Tuşlarına Basarak Acılan Pencere de REMOTE Kısmına Basıyoruz
Ardından DOSYA Kısmına Basarak Yeni Bir Sayfa acarak içine atıyoruz ve kapatıyoruz
-
Kendinize göre uyarlamayı unutmayınız.
Kod:
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,ı))
}Kod:
//echo -a $_rand(Toprak) - %67 (ATMAZ)
//echo -a $_rand(Tprak) - %80 (ATMAZ)
//echo -a $_rand(SoylNT) - %83 (ATAR)
//echo -a $_rand(Tprk) - %100 (ATAR)alias olarak olarakta kullanabilirsininiz Kod Yazarı : Alper Arkadaşımız
Kırmızı ile belirttiğim yer muaf port yeri birden fazla port varsa boşluk bırakıp ekleme yapabilrsin.
Mavi ile belirttiğim yer ise random nickin yüzdesi kaç oranında random olursa işlem yapması için.
Kod:
on $*:snotice:/.+Client connecting.+([0-9]{4}):\s(.+)\s\x28(.+)@.+/Si: {
if !$istok(7000,$regml(1),32) {
var %t = $remove($regml(2),1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),%t2 = $remove($regml(3),1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),$&
%n = $regml(2), %i = $regml(3), %s+ = $regex(%t,/([aeoui])/ig), %s- = $regex(%t,/([^aeoui])/ig), %s2+ = $regex(%t2,/([aeoui])/ig), %s2- $regex(%t2,/([^aeoui])/ig),$&
%% = $round($iif($round($calc((%s- * 100) / $len(%t)),1) > 100, 100, $round($calc((%s- * 100) / $len(%t)),1)),0), %%2 = $round($iif($round($calc((%s2- * 100) / $len(%t2)),1) > 100, 100, $round($calc((%s2- * 100) / $len(%t2)),1)),0),$&
%rate = 73
if ($len(%t) > 4) && (%% > %rate) {
gline $+(*@,$regsubex($10,/..+@(.+)\x29/g,\1)) +0 Random Nick Olarak Algılandınız ! | return
}
if ($len(%t2) > 4) && (%%2 > %rate) {
gline $+(*@,$regsubex($10,/..+@(.+)\x29/g,\1)) +0 Random Ident Olarak Algılandınız !
}
}
}Kod Yazarı : CoCoRiCo
Kod:
alias rand? {
var %t = $remove($1,1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),%s+ $regex(%t,/([aeoui])/ig),%s- $regex(%t,/([^aeoui])/ig)
echo Total: $len(%t) Vovel: %s+ Consonant: %s-
if $len(%t) > 4 { gr $len(%t) %s- $1 }
}
alias -l gr {
; Consonand rate here.. type %
var %rate 73
;Graphic line lenght
var %line 10
var %% $round($iif($round($calc(($2 * 100) / $1),1) > 100, 100, $round($calc(($2 * 100) / $1),1)),0),$&
%n $iif($2 > $1, $1, $2),%g %line,%go $+($chr(3),4,$chr(44),4) $chr(160),$&
%goc $+($chr(3),14,$chr(44),14) $chr(160),%t= $round($calc((%n * %line) / $1),0)
echo $str(%go,%t=) $+ $str(%goc,$ceil($calc(%g - %t=))) $chr(15) $chr(37) $+ %% $3 $iif(%% > %rate,RANDOM)
}
alias testrand {
:r | if $len(%r) <= 50 { var %r $addtok(%r,$gettok($r(a,z) $r(A,Z),$r(1,2),32),32) | goto r }
else { var %r $remove(%r,$chr(32)) | Rand? $left(%r,$r(5,$len(%r))) }
}/rand? aBGHJsSfTyu
check random rate
or using test commands
/Testrand
good luck
Random Nick Saldırılarına Karşı, Koruma isterseniz
;Sc5 ve benzeri programlarda kullanılan nick_randomkarakter saldırılarına karşı yazılan bir parça kod.
;Saniye ve karakterleri kendiniz belirleyebilirsiniz
-
Klavyeniz den Alt + R Tuşlarına Basarak Acılan Pencere de REMOTE Kısmına Basıyoruz
Ardından DOSYA Kısmına Basarak Yeni Bir Sayfa acarak içine atıyoruz ve kapatıyoruz
-
Kendinize göre uyarlamayı unutmayınız.
Kod:
on *:join:#:{
if !$hget($+($chan,-join)) {
hmake $+($chan,-join)
hadd $+(-mu,$saniye) $+($chan,-join) $nick $left($nick,$karakter)
}
elseif $hfind($+($chan,-join),$left($nick,$karakter),1,W).data {
mode $chan +bbb $address($nick,2) $left($nick,$karakter) $+ * ~n: $+ $left($nick,$karakter) $+ *
kc $left($nick,4) $chan
}
else {
hadd $+(-mu,$saniye) $+($chan,-join) $nick $left($nick,$karakter)
}
}
alias kc { var %1 1 | while %1 <= $nick($2,0,r) { if $regex($nick($2,%1,r),$1) { kick $2 $nick($2,%1,r) Saldırı yasaktır. } | inc %1 } }
alias karakter return 4
alias saniye return 5