PHP- Kodu

============================================================
; Proxy/VPN Koruma Botu - UnrealIRCd - Sunucu Geneli
; ============================================================
; Ne yapar:
;  1) Bot açılınca (ve her gün 1 kez) bilinen proxy/VPN/Tor IP
;     listelerini 10 kaynaktan Ã§ekip yerel hash tabloya kaydeder
;  2) Bot IRCOp olarak sunucuya baÄŸlanan HERKESÄ° snotice ile görür
;  3) Her yeni baÄŸlanan için:
;       a) Ã–nce yerel tabloya bakar (anında sonuç)
;       b) Yerelde yoksa 8 canlı API'ye paralel soru sorar
;  4) PROXY/VPN tespit edilirse:
;       - ZLINE ile sunucudan atar
;       - #Opers kanalına bilgi mesajı yazar
;     (Temiz/normal baÄŸlananlar için HİÇBÄ°R mesaj yazmaz)
;
; Gerekli dosya: proxybot.ini (script ile aynı klasörde)
;   [oper]
;   name=operadiniz
;   pass=opersifreniz
;   [irc]
;   opersroom=#Opers
; ============================================================


; ================= CONFIG OKUMA =================

alias pc_conf {
  return $qt($scriptdir $+ proxybot.ini)
}

alias pc_opersroom {
  var %room = $readini($pc_conf,n,irc,opersroom)
  if (!%room) %room = #Opers
  return %room
}


; ================= BOT AÇILIÅžI: OPER OL =================

on 1:CONNECT: {
  if ($me != Claude) .nick Claude
  var %opername = $readini($pc_conf,n,oper,name)
  var %operpass = $readini($pc_conf,n,oper,pass)
  if (!%opername || !%operpass) {
    echo -a * HATA: proxybot.ini bulunamadi veya oper bilgisi eksik!
    return
  }
  .oper %opername %operpass
  .timer 1 2 mode $me +s
  .timer 1 3 mode $me +c
  ; Liste güncellemesini de baÄŸlanınca baÅŸlat
  .timer 1 5 proxylist.fetchall
  ; Muaf (exempt) tablosunu hazırla
  if (!$hget(pc_exempt)) hmake -s pc_exempt 1000
}

; Her 24 saatte bir listeleri tazele
on 1:START: {
  .timerproxylist_daily -o 0 86400 proxylist.fetchall
}


; ================= GÃœNLÃœK PROXY/VPN LÄ°STE Ã‡EKME =================

alias proxylistsources {
  return check.torproject.org|/torbulkexitlist,www.dan.me.uk|/torlist/?exit,lists.blocklist.de|/lists/all.txt,www.spamhaus.org|/drop/drop.txt,www.spamhaus.org|/drop/edrop.txt,rules.emergingthreats.net|/blockrules/emerging-Block-IPs.txt,cinsscore.com|/list/ci-badguys.txt,iplists.firehol.org|/files/firehol_level1.netset,iplists.firehol.org|/files/firehol_level2.netset,www.talosintelligence.com|/documents/ip-blacklist
}

alias proxylist.fetchall {
  echo -a * Günlük proxy/VPN liste güncellemesi baÅŸladı...
  hfree -sw pc_localip
  hmake -s pc_localip 100000
  var %list = $proxylistsources
  var %total = $numtok(%list,44)
  var %i = 1
  while (%i <= %total) {
    var %entry = $gettok(%list,%i,44)
    var %host = $gettok(%entry,1,124)
    var %path = $gettok(%entry,2,124)
    sockopen $+(pl_,%i) %host 443
    hadd -m pc_plhost_ $+ %i %host
    hadd -m pc_plpath_ $+ %i %path
    inc %i
  }
}

on *:SOCKOPEN:pl_*: {
  if ($sockerr) { sockclose $sockname | return }
  var %n = $gettok($sockname,2,95)
  var %host = $hget(pc_plhost_ $+ %n)
  var %path = $hget(pc_plpath_ $+ %n)
  sockwrite -n $sockname GET %path HTTP/1.1
  sockwrite -n $sockname Host: %host
  sockwrite -n $sockname User-Agent: mIRC-ProxyGuard/1.0
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:pl_*: {
  var %tmp
  sockread %tmp
  if ($sockerr) return
  if (%tmp == $null) return
  if ($regex(%tmp,/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})(\/\d{1,2})?$/)) {
    hadd -m pc_localip $regml(1) 1
  }
}

on *:SOCKCLOSE:pl_*: {
  var %n = $gettok($sockname,2,95)
  hfree -w pc_plhost_ $+ %n
  hfree -w pc_plpath_ $+ %n
  if ($sock(pl_ $+ *,0) == 0) {
    echo -a * Proxy/VPN liste güncellemesi tamamlandı. Toplam kayıtlı IP: $hget(pc_localip,0).item
  }
}


; ================= SUNUCU GENELÄ° BAÄžLANTI YAKALAMA (UnrealIRCd snotice) =================
; Ã–rnek format: "*** Notice -- Client connecting: nick (user@host) [1.2.3.4] {class} [gecos]"

on *:NOTICE:*Client connecting*:%: {
  var %text = $1-
  if ($regex(%text,/Client connecting:\s*(\S+)\s*\(([^@]+)@([^)]+)\)\s*\[([\d\.]+)\]/)) {
    var %nick = $regml(1)
    var %ip = $regml(4)
    proxy.checkserverwide %nick %ip
  }
}


; ================= KONTROL AKIÅžI: Ã–NCE YEREL, SONRA CANLI API =================

alias -l proxy.checkserverwide {
  var %nick = $1, %ip = $2
  if (!$regex(%ip,/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)) return

  ; Muaf (exempt) listede ise HİÇBÄ°R kontrol yapma, direkt geç
  if ($hget(pc_exempt,%ip)) return

  if ($hget(pc_localip,%ip)) {
    proxy.reportopers %nick %ip local-list
    return
  }

  proxy.startcheck_sw %nick %ip
}

alias proxyapis {
  return ip-api.com|/json/%ip?fields=proxy$+$chr(44)$+hosting,proxycheck.io|/v2/%ip?vpn=1,vpnapi.io|/api/%ip,ipapi.co|/%ip/json/,ipinfo.io|/%ip/json,ip2location.io|/?ip=%ip,abstractapi.com|/v1/?ip_address=%ip,getipintel.net|/check.php?ip=%ip$+$chr(38)[email protected]
}

alias -l proxy.startcheck_sw {
  var %nick = $1, %ip = $2
  var %id = r $+ $ticks
  hadd -m pc_nick_ $+ %id %nick
  hadd -m pc_ip_ $+ %id %ip
  hadd -m pc_hits_ $+ %id 0
  hadd -m pc_done_ $+ %id 0
  var %list = $proxyapis
  var %total = $numtok(%list,44)
  hadd -m pc_total_ $+ %id %total
  var %i = 1
  while (%i <= %total) {
    var %entry = $gettok(%list,%i,44)
    var %host = $gettok(%entry,1,124)
    var %path = $replace($gettok(%entry,2,124),%ip,%ip)
    hadd -m pc_path_ $+ %id $+ _ $+ %i %path
    hadd -m pc_host_ $+ %id $+ _ $+ %i %host
    sockopen $+(pc_,%id,_,%i) %host 443
    inc %i
  }
  .timer $+ pc_timeout_ $+ %id 1 6 proxy.timeout %id
}

on *:SOCKOPEN:pc_*: {
  if ($sockerr) { proxy.sockdone $sockname | return }
  var %tag = $sockname
  var %id = $gettok(%tag,2,95)
  var %n = $gettok(%tag,3,95)
  var %host = $hget(pc_host_ $+ %id $+ _ $+ %n)
  var %path = $hget(pc_path_ $+ %id $+ _ $+ %n)
  sockwrite -n $sockname GET %path HTTP/1.1
  sockwrite -n $sockname Host: %host
  sockwrite -n $sockname User-Agent: mIRC-ProxyGuard/1.0
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:pc_*: {
  var %tag = $sockname
  var %tmp
  sockread %tmp
  if ($sockerr) { proxy.sockdone %tag | return }
  if (%tmp == $null) return
  hadd -m pc_buf_ $+ %tag $iif($hget(pc_buf_ $+ %tag),$v1 $+ %tmp,%tmp)
  var %buf = $hget(pc_buf_ $+ %tag)
  if ($regex(%buf,/"(proxy|vpn|hosting|is_proxy|risk)"\s*:\s*(true|1)/i)) {
    var %id = $gettok(%tag,2,95)
    hinc pc_hits_ $+ %id
  }
}

on *:SOCKCLOSE:pc_*: {
  proxy.sockdone $sockname
}

alias -l proxy.sockdone {
  var %tag = $1
  var %id = $gettok(%tag,2,95)
  hinc pc_done_ $+ %id
  hfree -w pc_buf_ $+ %tag
  if ($hget(pc_done_ $+ %id) >= $hget(pc_total_ $+ %id)) proxy.finish_sw %id
}

alias -l proxy.timeout {
  var %id = $1
  if ($hget(pc_nick_ $+ %id)) proxy.finish_sw %id
}

alias -l proxy.finish_sw {
  var %id = $1
  var %nick = $hget(pc_nick_ $+ %id)
  var %ip = $hget(pc_ip_ $+ %id)
  var %hits = $hget(pc_hits_ $+ %id)
  .timer $+ pc_timeout_ $+ %id off
  if (%hits >= 2) proxy.reportopers %nick %ip live-api
  hfree -w pc_nick_ $+ %id
  hfree -w pc_ip_ $+ %id
  hfree -w pc_hits_ $+ %id
  hfree -w pc_done_ $+ %id
  hfree -w pc_total_ $+ %id
}


; ================= #OPERS KANALINDA MANUEL PROXY / MUAF YÖNETÄ°MÄ° =================
; Sadece #Opers kanalında ve sadece IRCOp/kanal-op yetkisi olan kiÅŸiler
; komutları Ã§alıştırabilir. IP formatı regex ile doÄŸrulanır.
;
; Komutlar:
;   !proxyekle 1.2.3.4    -> IP'yi proxy listesine ekler, anında ZLINE atar
;   !proxysil 1.2.3.4     -> IP'yi proxy listesinden Ã§Ä±karır
;   !muafekle 1.2.3.4     -> IP'yi muaf (whitelist) listesine ekler
;   !muafsil 1.2.3.4      -> IP'yi muaf listesinden Ã§Ä±karır
;   !proxylist            -> kayıtlı proxy/muaf sayısını gösterir
; ============================================================

alias -l pc_isauth {
  ; Komutu Ã§alıştıran kiÅŸi kanalda op/halfop mu, yoksa IRCOp mu?
  if ($nick($chan,$nick,ao) || $nick($chan,$nick,ah) || $nick($chan,$nick,aq)) return 1
  return 0
}

on *:TEXT:*:#: {
  if ($chan != $pc_opersroom) return
  if (!$pc_isauth) return

  var %msg = $1-

  ; ---- !proxyekle 1.2.3.4 ----
  if ($regex(%msg,/^!proxyekle\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/i)) {
    var %ip = $regml(1)
    if ($hget(pc_exempt,%ip)) {
      msg $chan 04Claude 00-> %ip muaf listede, once muaf listeden cikarin.
      halt
    }
    hadd -m pc_localip %ip 1
    raw ZLINE %ip 86400 :Proxy/VPN - manuel eklendi ( $nick )
    msg $chan 04Claude 00-> %ip proxy listesine eklendi ve ZLINE uygulandi. (ekleyen: $nick )
    halt
  }

  ; ---- !proxysil 1.2.3.4 ----
  if ($regex(%msg,/^!proxysil\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/i)) {
    var %ip = $regml(1)
    if ($hget(pc_localip,%ip)) {
      hdel pc_localip %ip
      raw UNZLINE %ip
      msg $chan 03Claude 00-> %ip proxy listesinden cikarildi ve ZLINE kaldirildi. (silen: $nick )
    }
    else {
      msg $chan 03Claude 00-> %ip zaten proxy listesinde degil.
    }
    halt
  }

  ; ---- !muafekle 1.2.3.4 ----
  if ($regex(%msg,/^!muafekle\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/i)) {
    var %ip = $regml(1)
    hadd -m pc_exempt %ip 1
    if ($hget(pc_localip,%ip)) {
      hdel pc_localip %ip
      raw UNZLINE %ip
    }
    msg $chan 03Claude 00-> %ip muaf (guvenli) listeye eklendi, artik kontrol edilmeyecek. (ekleyen: $nick )
    halt
  }

  ; ---- !muafsil 1.2.3.4 ----
  if ($regex(%msg,/^!muafsil\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/i)) {
    var %ip = $regml(1)
    if ($hget(pc_exempt,%ip)) {
      hdel pc_exempt %ip
      msg $chan 03Claude 00-> %ip muaf listesinden cikarildi, tekrar kontrol edilecek. (silen: $nick )
    }
    else {
      msg $chan 03Claude 00-> %ip zaten muaf listesinde degil.
    }
    halt
  }

  ; ---- !proxylist ----
  if ($regex(%msg,/^!proxylist$/i)) {
    msg $chan 03Claude 00-> Kayitli proxy IP: $hget(pc_localip,0).item | Muaf IP: $hget(pc_exempt,0).item
    halt
  }
}


; ================= TESPÄ°T EDÄ°LÄ°NCE: ZLINE + #OPERS BÄ°LDÄ°RÄ°MÄ° =================

alias -l proxy.reportopers {
  var %nick = $1, %ip = $2, %kaynak = $3
  raw ZLINE %ip 86400 :Proxy/VPN tespit edildi ( %kaynak )
  msg $pc_opersroom 04PROXY TESPIT EDILDI 00-> Nick: %nick | IP: %ip | Kaynak: %kaynak | ZLINE uygulandi.
}