Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
randomaddonları randomkodlar mircaddon mirckodları koruması ircforum randomkodları ident random randomkorumaaddon mircaddonları randomkod nick ircforumları

RANDOM Nick/Ident Koruması
Admin
#1
Bug 
RANDOM Nick/Ident Koruması

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 Wink
or using test commands
/Testrand
good luck
Cevapla


Bu Konudaki Yorumlar
RANDOM Nick/Ident Koruması - Yazar: Admin - 05-26-2020, 07:28 PM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Lightbulb !Degis Nick MIRC Hazir Kodu Admin 0 19 2 saat önce
Son Yorum: Admin
Lightbulb IP Bazlı Clone Korumasi Admin 0 81 11-15-2020, 08:23 PM
Son Yorum: Admin
Lightbulb PingFlood koruması Admin 0 67 11-15-2020, 08:18 PM
Son Yorum: Admin
  Clone Koruması 2020 Admin 0 581 08-20-2020, 05:56 PM
Son Yorum: Admin
Lightbulb mIRC Kanal Yetki Koruması Admin 0 537 08-20-2020, 05:43 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 2 Ziyaretçi