IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi - Add-on ve snippet(parça) kod istekleri buraya

Carpediem · Dün, 18:02

Caitlyn Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

; ===============================
; UNREALIRCD OPER SECURITY v2.0
; ===============================

; Aktif hash table
on *:START:{
if (!$hget(security)) { hmake security 100 }
echo -a Oper Security Sistemi Aktif.
}

; Şüpheli nick kontrol
on *:JOIN:#:{
if ($regex($nick,/^(bot|guest|test|hack|root|spam)/i)) {
if ($me isoper) {
raw GLINE +*@ $+ $ip 600 Şüpheli nick (Security)
echo -a G-line atıldı: $nick
}
}
}

; Aynı IP’den hızlı giriş (botnet)
on *:JOIN:#:{
var %ip = $ip
if ($hget(security,%ip)) {
if ($calc($ctime - $v1) < 5) {
if ($me isoper) {
raw GLINE +*@ $+ %ip 900 Botnet Flood Tespit
echo -a Botnet G-line atıldı: %ip
}
}
}
hadd -h security %ip $ctime
}

; Şüpheli ident kontrol
on *:JOIN:#:{
if ($regex($address($nick,1),/^(~?(root|admin|staff|hack|bot))/i)) {
if ($me isoper) {
raw GLINE +*@ $+ $ip 1200 Şüpheli Ident
echo -a Ident kaynaklı G-line: $nick
}
}
}

; Proxy port kontrol (1080/8080/3128)
on *:JOIN:#:{
if ($portfree($ip,1080) == $false) || ($portfree($ip,8080) == $false) || ($portfree($ip,3128) == $false) {
if ($me isoper) {
raw GLINE +*@ $+ $ip 1800 Açık Proxy Tespit
echo -a Proxy nedeniyle G-line: $nick
}
}
}

; Manuel G-line komutu
alias sgline {
if ($me !isoper) { echo -a Oper değilsin. | return }
if ($1 == $null) { echo -a Kullanım: /sgline nick süre sebep | return }
var %nick = $1
var %sure = $2
var %sebep = $3-
raw GLINE +*@ $+ $ip(%nick) %sure %sebep
echo -a Manuel G-line atıldı: %nick
}

elimde boyle bir code var kim yazdigini vs bilmiyorum. bu code ile amacim ve asil erisim istedigim sey bot/tor/proxy girislerini engellemek konu hk varsa code yazilim hatasi ve uygun calisabilirlik durumu desteklerinizi paylasirsaniz sevinirim

saygilarimla

bir dene bakalım değiştirdim biraz.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;========================
on *:START:{
  if (!$hget(security)) { hmake security 500 }
  echo -a [SECURITY] Oper Security Sistemi Aktif.
}

;========================
; JOIN Eventleri
;========================
on *:JOIN:#:{
  var %ip = $gettok($address($nick,2),2,64)
  if (%ip == $null) return

  ; --- Şüpheli Nick Kontrol ---
  if ($regex($nick,/^(bot|guest|test|hack|root|spam)/i)) {
    if ($me isoper) {
      raw GLINE +*@ $+ %ip 900 Şüpheli Nick
      echo -a [SECURITY] Nick G-line: $nick (%ip)
      return
    }
  }

  ; --- Şüpheli Ident Kontrol ---
  if ($regex($address($nick,1),/^(~?(root|admin|staff|hack|bot))/i)) {
    if ($me isoper) {
      raw GLINE +*@ $+ %ip 1200 Şüpheli Ident
      echo -a [SECURITY] Ident G-line: $nick (%ip)
      return
    }
  }

  ; --- Flood Kontrolu (10 saniye içinde 3 join) ---
  if ($hget(security,%ip)) {
    var %data = $v1
    var %count = $gettok(%data,1,32)
    var %time = $gettok(%data,2,32)

    if ($calc($ctime - %time) < 10) {
      inc %count
      if (%count >= 3) {
        if ($me isoper) {
          raw GLINE +*@ $+ %ip 1800 Botnet Flood
          echo -a [SECURITY] Flood G-line: %ip
          hdel security %ip
          return
        }
      }
      hadd security %ip %count $ctime
    }
    else {
      hadd security %ip 1 $ctime
    }
  }
  else {
    hadd security %ip 1 $ctime
  }
}

;========================
; Manuel GLINE Komutu
;========================
alias sgline {
  if ($me !isoper) { echo -a Oper değilsin. | return }
  if ($1 == $null) { echo -a Kullanım: /sgline nick süre sebep | return }
  var %nick = $1
  var %sure = $2
  var %sebep = $3-
  raw GLINE +*@ $+ $ip(%nick) %sure %sebep
  echo -a [SECURITY] Manuel G-line atıldı: %nick
}

;========================
; Ops ve Logging
;========================
alias seclog {
  echo -a [SECURITY LOG] $1-
}