##### Proxy Koruması ßy Proxy (Güncellenmiş) ##########

; Başlatma
on *:start:ipal | $+(.timer,ipal) 0 5000 /ipal

#proxy off

; === MUAF IP DOSYASI ===
; Bu dosyaya yazılan IP’ler banlanmaz. (örnek: 1.2.3.4)
; her satıra bir IP ekleyebilirsin.
; /write muafip.txt 1.2.3.4
; /write muafip.txt 85.97.123.56
; /write muafip.txt 213.14.55.77

alias proxy_ {
  if ($1) {
    inc %_
    sockopen $+(proxy*,%_) simpleproxylist.com 80
    sockmark $+(proxy*,%_) $1
  }
}

on *:sockopen:proxy*: {
  var %s = sockwrite -n $sockname
  %s GET /info.php?ip= $+ $sock($sockname).mark HTTP/1.1
  %s Host: simpleproxylist.com
  %s $crlf
}

on *:sockread:proxy*: {
  var %v
  sockread %v
  var %ip = $sock($sockname).mark
  if ($read(muafip.txt,w,$+(*,%ip,*))) return
  if (Proxy: <b> isin %v) {
    gzline $+(*@,%ip) 1h 1IP adresinizde 4PROXY 1girişi tespit edildi. 
  }
}

on *:snotice:*on*port*: { .who +I $9 }
on *:snotice:*changed his/her nickname*: { .who +I $11 }

raw 352:*: {
  if ($read(proxy.txt,w,$+(*,$4,*))) {
    if ($read(muafip.txt,w,$+(*,$4,*))) return
    gzline $+(*@,$4) +1h 4Proxy girişi tespit edildi.
    return
  }
  ptara $4
  proxy_ $4
}

alias htmlfree {
  var %x
  var %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x)
  return $remove(%x,&nbsp;)
}

alias ptara {
  var %ip = $1
  if ($read(muafip.txt,w,$+(*,%ip,*))) return
  if ($regex(%ip,/(\d+\.\d+\.\d+\.\d+)/)) {
    if ($regex(%ip,/^(10|192\.168|172\.(1[6-9]|2[0-9]|3[01])|127\.)/)) return
    if ($read(proxy.txt,w,$+(*,%ip,*))) {
      gzline $+(*@,%ip) - 2Proxy / Tor / Wingate girişi yasak!
    }
  }
}

#proxy end

; === Menü ===
menu channel,menubar {
  » Proxy Koruması
  .» Proxy Koruması Aç: .enable #proxy | echo -a Proxy Koruması Açıldı.
  .-
  .» Proxy Koruması Kapat: .disable #proxy | echo -a Proxy Koruması Kapatıldı.
  .-
  .» Muaf IP Ekle: set %muafip $$?="Muaf IP gir (ör: 1.2.3.4)" | write muafip.txt %muafip | echo -a %muafip eklendi.
  .» Muaf IP Listele: run notepad muafip.txt
}

; === Proxy listeleri ===
alias ipal {
  .remove proxy.txt
  sockclose links
  sockopen links multiproxy.org 80
}

on *:sockopen:links: {
  var %:links sockwrite -n $sockname
  %:links GET /txt_all/proxy.txt HTTP/1.1
  %:links Host: multiproxy.org
  %:links $crlf
}

on *:sockread:links: {
  var %data
  sockread %data
  if (*.*.*:* iswm %data) && (*a* !iswm %data) {
    write proxy.txt %data
  }
}

on *:sockclose:links: {
  sockopen ipcek2 proxylists.net 80
}

on *:sockopen:ipcek2: {
  var %s = sockwrite -n $sockname
  %s GET /socks4.txt HTTP/1.1
  %s Host: proxylists.net
  %s $crlf
}

on *:sockread:ipcek2: {
  var %data
  sockread %data
  if (*.*.*:* iswm %data) && (*a* !iswm %data) {
    write proxy.txt %data
  }
}

on *:sockclose:ipcek2: {
  echo -a Proxy listesi güncellendi. 4Toplam: $lines(proxy.txt) IP.
}

; === Kanal Komutları ===
on *:text:*:#opers: {
  if ($1 == !ac) { .enable #proxy | msg # Proxy koruması aktif. }
  if ($1 == !kapat) { .disable #proxy | msg # Proxy koruması kapatıldı. }
}

; === Ayarlar ===
; GeoIP verileri "geoip.txt" dosyasından alınır.
; Format: IP aralığı|Ülke|Şehir|ISP
; Örnek: 139.162.|Germany|Hesse / Frankfurt am Main|Akamai Technologies, Inc.

; === Önceki girişlerin loglanacağı dosya ===
; Format: <nick>|<ip>|<tarih>
; örnek: user1|139.162.174.29|5 Kasım 2025 Çarşamba 18:35:19
; dosya adı: oncekigiris.txt

; === Proxy tespiti sonrası detaylı bildirim ===
alias yazDetayliLog {
  var %nick = $1, %ip = $2, %geo = $findGeo(%ip)
  var %country = $gettok(%geo,1,124)
  var %city = $gettok(%geo,2,124)
  var %isp = $gettok(%geo,3,124)
  var %onceki = $findPrevLogin(%ip)
  var %bugun = $asctime($ctime, d MMMM yyyy dddd HH:nn:ss)
  echo -a 4Proxy %ip Ülke: %country Şehir: %city ISP: %isp %onceki
  write oncekigiris.txt $+($1,|,%ip,|,%bugun)
}

; === GeoIP dosyasından bilgi bulur ===
alias findGeo {
  var %ip = $1, %line, %i = 1
  if (!$file(geoip.txt)) return |Germany|Unknown City|Unknown ISP
  while ($read(geoip.txt,w,%i)) {
    %line = $v1
    if (%line == $null) break
    var %prefix = $gettok(%line,1,124)
    if (*$+%prefix* iswm *$+%ip*) return $gettok(%line,2-,124)
    inc %i
  }
  return |Unknown Country|Unknown City|Unknown ISP
}

; === Önceki giriş kontrolü ===
alias findPrevLogin {
  var %ip = $1, %i = 1, %line
  if (!$file(oncekigiris.txt)) return
  while ($read(oncekigiris.txt,w,%i)) {
    %line = $v1
    if (%line == $null) break
    var %nick = $gettok(%line,1,124)
    var %pip = $gettok(%line,2,124)
    var %tarih = $gettok(%line,3-,124)
    if (%pip == %ip) return Bir Önceki Giriş: Nick: %nick Tarih: %tarih
    inc %i
  }
  return
}

; === Proxy kontrol sonucu ===
raw 352:*:{
  var %nick = $3, %host = $4, %ip = $gettok($4,1,46)
  if ($isValidIP(%ip)) {
    if ($checkIPforProxy(%ip)) {
      gzline $+(*@,%ip) 1h 4Proxy/Anon giriş tespit edildi: %nick (%ip)
      yazDetayliLog %nick %ip
      return
    }
  }
  if ($pos(%host,":") && $isValidIP($gettok(%host,1,58))) {
    var %ip2 = $gettok(%host,1,58)
    if ($checkIPforProxy(%ip2)) {
      gzline $+(*@,%ip2) 1h 4Proxy/Anon giriş tespit edildi: %nick (%ip2)
      yazDetayliLog %nick %ip2
      return
    }
  }
}

; === Örnek geoip.txt ===
; Aşağıdaki satırları ekleyebilirsin:
; 139.162.|Germany|Hesse / Frankfurt am Main|Akamai Technologies, Inc.
; 104.28.|United States|California / Los Angeles|Cloudflare, Inc.
; 85.97.|Turkey|Istanbul|Turk Telekom
; 185.60.|Netherlands|Amsterdam|DigitalOcean, LLC
; 37.120.|Germany|Frankfurt|Contabo GmbH

; === Manuel test ===
alias testproxylog {
  yazDetayliLog user1 139.162.174.29
}

##### Proxy Koruması ßy Proxy (Optimize Edilmiş) #####

on *:start: {
  echo -a 7[Proxy] 2Proxy koruması başlatılıyor...
  .timeripal 0 1800 ipal
}

#proxy off

; Proxy kontrol alias (hash tabanlı)
alias isProxyFast {
  var %ip = $1
  if (!$hget(proxies,0)) loadProxyHash
  if ($hget(proxies,%ip)) return 1
  var %n = $hget(proxies_wild,0), %i = 1
  while (%i <= %n) {
    var %w = $hget(proxies_wild,%i)
    if (%w && (%ip iswm %w)) return 1
    inc %i
  }
  return 0
}

; proxy.txt dosyasını hash tablosuna yükle
alias loadProxyHash {
  if (!$file(proxy.txt)) { echo -a 7[Proxy] proxy.txt bulunamadı! | return }
  if ($hget(proxies)) { hfree proxies }
  if ($hget(proxies_wild)) { hfree proxies_wild }
  hmake proxies 50000
  hmake proxies_wild 10000
  var %i = 1, %l
  while (%l = $read(proxy.txt, %i)) {
    %l = $remove(%l, $chr(13), $chr(10), $chr(9), $chr(32))
    if (* iswm %l) { hadd proxies_wild %l 1 }
    else { hadd proxies %l 1 }
    inc %i
  }
  echo -a 7[Proxy] 3Proxy veritabanı yüklendi — $hget(proxies,0) IP, $hget(proxies_wild,0) wildcard.
}

; Raw WHO (352) eventinde proxy kontrolü
raw 352:*: {
  var %nick = $3, %ip = $gettok($4,1,46)
  if ($isProxyFast(%ip)) {
    if (!$read(proxylast.txt,w,$+(*,%ip,*))) {
      gzline $+(*@,%ip) 1h 4Proxy/Anon giriş tespit edildi: %nick (%ip)
      write proxylast.txt %ip $ctime
    }
  }
}

; Proxy listesi kaynaklarından çekim (ipal)
alias ipal {
  echo -a 7[Proxy] 2Proxy listesi güncelleniyor...
  .remove proxy.txt
  sockopen ipcek1 multiproxy.org 80
}

on *:sockopen:ipcek1: {
  sockwrite -n $sockname GET /txt_all/proxy.txt HTTP/1.1
  sockwrite -n $sockname Host: multiproxy.org
  sockwrite -n $sockname $crlf
}

on *:sockread:ipcek1: {
  var %l
  sockread %l
  if (*.*.*:* iswm %l) && (*a* !iswm %l) { write proxy.txt %l }
}

on *:sockclose:ipcek1: {
  sockopen ipcek2 proxylists.net 80
}

on *:sockopen:ipcek2: {
  sockwrite -n $sockname GET /socks4.txt HTTP/1.1
  sockwrite -n $sockname Host: proxylists.net
  sockwrite -n $sockname $crlf
}

on *:sockread:ipcek2: {
  var %l
  sockread %l
  if (*.*.*:* iswm %l) && (*a* !iswm %l) { write proxy.txt %l }
}

on *:sockclose:ipcek2: {
  echo -a 7[Proxy] 3Proxy listesi güncellendi. ($lines(proxy.txt) kayıt)
  loadProxyHash
}

; Menü kontrolü
menu channel,menubar {
  » Proxy Koruması
  .» Aç:.enable #proxy | echo -a 7[Proxy] 2Koruma açıldı.
  .» Kapat:.disable #proxy | echo -a 7[Proxy] 4Koruma kapatıldı.
  .-
  .» Proxy Listesini Güncelle:.ipal
}

#proxy end