Çevrimdışı

; ===============================
; 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