/* Güncel mIRC Proxy Koruma Kodu (RBL Tabanlı) */

 ; =======================================================
; mIRC PROXY / VPN KORUMA SİSTEMİ (DNSBL / RBL)
; =======================================================

; --- 1. Kullanıcı Katıldığında (JOIN) IP Kontrolü ---
on *:JOIN:#:{
  ; Kendi nickini veya muaf kullanıcıları pas geç
  if ($nick == $me) { halt }
 
  ; Kullanıcının IP adresini veya Host adresini al
  ; Not: IP adresi görünmüyorsa (IRCd gizlemesi varsa) IAL / $site kullanılır.
  var %ip = $site
 
  ; Eğer IP adresi standart IPv4 formatındaysa kontrolü başlat
  if ($regex(%ip, /^(\d{1,3}\.){3}\d{1,3}$/)) {
    proxy_kontrol $nick %ip #
  }
}

; --- 2. IP Adresini Ters Çevirip RBL Sunucusuna Sorgu Atma ---
alias proxy_kontrol {
  var %nick = $1
  var %ip = $2
  var %chan = $3
 
  ; IP adresini ters çevir (Örn: 1.2.3.4 -> 4.3.2.1)
  tokenize 46 %ip
  var %rev_ip = $4 $+ . $+ $3 $+ . $+ $2 $+ . $+ $1
 
  ; DroneBL proxy veritabanına DNS sorgusu atıyoruz
  ; Dilerseniz 'dnsbl.dronebl.org' yerine başka RBL sunucusu da yazabilirsiniz.
  var %rbl_host = %rev_ip $+ .dnsbl.dronebl.org
 
  ; Geçici değişkene bilgileri kaydet
  set -u15 %proxy.check. $+ %rbl_host %nick $+ ; $+ %ip $+ ; $+ %chan
 
  ; DNS Sorgusunu tetikle
  .dns %rbl_host
}

; --- 3. DNS Yanıtı Geldiğinde Çalışan Olay (ON DNS) ---
on *:DNS:{
  var %rbl_query = $rhost
  var %data = $($+(%,proxy.check.,%rbl_query),2)
 
  if (%data) {
    tokenize 59 %data
    var %nick = $1
    var %ip = $2
    var %chan = $3
    
    ; Eğer DNS yanıtı bir IP adresi döndürdüyse, bu IP kara listededir (Proxy'dir).
    if ($dns(1).ip) {
      echo -a 4[PROXY TESPİT EDİLDİ] 12 Nick: %nick | IP: %ip | Kanal: %chan
      
      ; --- ALINACAK EYLEMLER ---
      ; 1. Kanaldan Ban/Kick At:
      mode %chan +b *!*@ $+ $site
      kick %chan %nick 4Proxy/VPN kullanımı yasaktır! (IP: %ip)
      
      ; 2. (Opsiyonel) Sunucudan ZLine / GLine at (IRCop yetkiniz varsa başındaki ';' kaldırın):
      ; gzline *!*@ $+ %ip 1d Proxy/VPN kullanımı yasaktır.
    }
    
    ; Geçici değişkeni temizle
    unset %proxy.check. $+ %rbl_query
  }
}