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

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

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 2 1,272 11-28-2020, 10:49 AM
Son Yorum: Admin
Lightbulb IP Bazlı Clone Korumasi Admin 0 611 11-15-2020, 08:23 PM
Son Yorum: Admin
Lightbulb PingFlood koruması Admin 0 520 11-15-2020, 08:18 PM
Son Yorum: Admin
  Clone Koruması 2020 Admin 0 1,248 08-20-2020, 05:56 PM
Son Yorum: Admin
Lightbulb mIRC Kanal Yetki Koruması Admin 0 1,160 08-20-2020, 05:43 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi