Kod

alias _sny_ {
  ;Kaç Saniyede
  return 3
}
alias _grs_ {
  ;Kaç Giriş
  return 7
}
alias _logo_ {
  ;Mesajta gözükecek logo
  return 04Bilmem ne Script
}
on $*:snotice:/client\x20(connecting.+\x20(.+)\x3A|connecting\x3A)\x20(\S+)\x20\x28(\S+)\x40(\S+)\x29/Si:{
  var %port = $regml(2), %nic = $regml(3), %idt = $regml(4), %ip = $regml(5)
  if $istok(6666 6668 admin.domain.com,%port,32) || $istok(nevar sohbet,%idt,32) || $istok(ahmet mehmet,%nic,32) || $istok(1.2.3.4 2.3.4.5,%ip,32) { return }
  if $read(muafnick.txt,w,%nic) { return }
  if $regex(%ip,/^(\d+\.\d+\.\d+\.\d+)$) {
    if !$regex($gettok(%ip,1-2,46),^((45\.(10|11|12|143|156|159|67))|(78\.(111|159|16.|17.|18.|190|191))|(62\.(29|248))|(5\.(11|188|25|26|176|177|23|24|27|46|47))|(24\.133)|(79\.123)|(31\.(145|155|206|223))|(37\.(18|130|154|155))|(46\.(1|2|104|106|154|155|196|197|221))|(81\.(8|213|214|215))|(82\.222)|(83\.66)|(85\.(10.|110|111|153|96|97|98|99))|(88\.(221|222|223|224|225|226|227|228|229|23.|24.|25.))|(91\.(93|151))|(92\.(44|45))|(94\.(120|121|122|123|235|54|55))|(95\.(0|2|5|6|7|8|9|10|12|13|14|15|65|70|173|183))|(109\.228)|(141\.196)|(149\.(0|140))|(151\.(135|250))|(154\.70)|(159\.146)|(176\.(30|33|40|41|42|43|53|54|55|88|90|216|217|218|219|220|227|232|233|234|235|236|237|238|239|240))|(178\.(170|233|240|241|243|244|245|246|247))|(185\.(1|9|26|40|43|49|51|73|81|89|117|126|135|152|168|169|171|185|186|188|200|202|213|219|224|242|244|249|253|255|123|204))|(188\.(3|56|57|58|59|119|120))|(193\.(31|81|140|168|255))|(195\.(33|85|142|155|174|175|214|244))|(212\.(125|154|50|133|156|174|175|252|253))|(213\.(14|43|74|153|186|194|211|238|248))|(217\.(131|195))|(5\.197)|(31\.(140|141|142|177|210|200))|(37\.(24|201))|(77\.186)|(78\.(35|217))|(81\.92)|(84\.(44|51|227|112))|(85\.5)|(86\.87)|(81\.5)|(89\.(15|144|252))|(91\.(114|115))|(93\.(89|93|182|184))|(95\.(98|99))|(160\.20)|(178\.224)|(188\.63)|(194\.(27|110|156|118|230))|(212\.95))$) {
      .hinc $+(-mu,$_sny_) Agresifp %ip 1
    }
  }
  elseif !$regex(%ip,/((\.fbx\.proxad\.net)|(\.(cable|cgn)\.dynamic\.surfer\.at)|(\.telenet\.be)|(\.adslplus\.ch)|(\.(dyn|pool)\.telefonica\.de)|(\..dsl\.highway\.telekom\.at)|(\.dip0\.t-ipconnect\.de)|(\.swisscom\.ch)|(\.web\.vodafone\.de)|(\.dynamic\.kabel-deutschland\.de)|(\.wireless\.dyn\.drei\.com)|(\.direct-adsl\.nl)|(\.irccloud\.com)|(\.versanet\.de)|(\.vps\.ovh\.net))$) { 
    .hinc $+(-mu,$_sny_) Agresifp %ip 1
  }
  if $hget(Agresifp,0).data > $_grs_ && $hfind(Agresifp,%ip,1,W).item { gline $+(*@,%ip) +20 6Sunucuya 10Agresif Giriş/Çıkış 4tespit edildi 20 dakika 7uzaklaştırıldınız. $_logo_ | return }
  else {
    if $hget(Agresifp,0).data = $_grs_ {
      var %s = 1
      while %s <= $hget(Agresifp,0).item {
        gline $+(*@,$hget(Agresifp,%s).item) +20 6Sunucuya 10Agresif Giriş/Çıkış 4tespit edildi 20 dakika 7uzaklaştırıldınız. $_logo_
        inc %s
      }
      echo 4 -a Koruma Aktif.
    }
  }
}