Kod

; ============================================================================
; GOKTURK PROXY YONETIM SISTEMI (2026) - GUNCEL 20 ADET API HAVUZU
; ============================================================================
alias proxy_api_kaynaklari {
  var %t = $2
  if (%t == https) { 
    var %t = http 
  }
  
  if ($1 == 1) { return https://proxyscrape.com $+ %t $+ &timeout=10000&country=all&ssl=all&anonymity=all }
  if ($1 == 2) { return https://proxy-list.download $+ %t }
  if ($1 == 3) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 4) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 5) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 6) { return https://githubusercontent.com }
  if ($1 == 7) { return https://githubusercontent.com }
  if ($1 == 8) { return https://githubusercontent.com }
  if ($1 == 9) { return https://githubusercontent.com $+ $iif(%t == http,HTTPS,SOCKS5) $+ _Raw.txt }
  if ($1 == 10) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 11) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 12) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 13) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 14) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 15) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 16) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 17) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 18) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 19) { return https://githubusercontent.com $+ %t $+ .txt }
  if ($1 == 20) { return https://githubusercontent.com $+ %t $+ .txt }
}

alias htmlfree { 
  if ($1-) {
    return $stripspaces($regsubex($1-,/(<[^>]*>)/g,$null)) 
  }
}

; ============================================================================
; OTOMATIK ZAMANLAYICI (TIMER) MODULU
; ============================================================================
on *:start:{
  .timer_proxy_oto 0 1800 proxy_oto_tetik
  echo -a [GOKTURK-Proxy] Otomatik proxy guncelleme zamanlayicisi baslatildi (30 dk).
}

alias proxy_oto_tetik {
  msg #spamfilter [GOKTURK] Otomatik zamanlanmis 20 API'li proxy dongusu basladi...
  panel_durum_yaz Otomatik guncelleme basladi...
  proxycek socks5
  .timer_oto_https 1 45 proxycek https
  .timer_oto_http 1 90 proxycek http
}

; ============================================================================
; SIRA TABANLI COKLU API TETIKLEYICISI
; ============================================================================
alias proxycek {
  var %tur = $lower($1)
  if (!%tur) { 
    var %tur = http 
  }
  if (! $istok(http https socks4 socks5,%tur,32)) {
    echo -a [GOKTURK] Gecersiz tur! Kullanim: /proxycek [http | https | socks4 | socks5]
    return
  }
  
  $+(.timer,qproxy_,%tur) off
  sockclose $+(_mProxy_,%tur,*)
  write -c $+(%tur,_raw.txt)
  
  gokturk_api_baglan %tur 1
}

alias gokturk_api_baglan {
  var %tur = $1
  var %index = $2
  var %url = $proxy_api_kaynaklari(%index,%tur)
  
  if (!%url) {
    _proxy_indirildi %tur
    return
  }
  
  var %host = $gettok(%url,3,47)
  var %path = / $+ $gettok(%url,4-,47)
  var %rand $md5($ticks)
  var %socket = $+(_mProxy_,%tur,_,%index,_,%rand)
  
  sockopen -e %socket %host 443
  sockmark %socket %tur $+ | $+ %index $+ | $+ %path
  
  panel_durum_yaz %tur (Kaynak: %index /20) indiriliyor...
}

on *:sockopen:_mProxy_*:{
  var %data = $sock($sockname).mark
  var %path = $gettok(%data,3,124)
  if ($sockerr) { 
    gokturk_sonraki_api $sockname
    return 
  }
  sockwrite -nt $sockname GET %path HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/124.0.0.0 Safari/537.36
  sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}

on *:sockread:_mProxy_*:{
  if ($sockerr) { 
    return 
  }
  var %data = $sock($sockname).mark
  var %tur = $gettok(%data,1,124)
  var %raw_dosya = $+(%tur,_raw.txt)
  :dongu
  var %:raw
  sockread %:raw
  if ($sockbr == 0) { 
    return 
  }
  var %:line = $htmlfree(%:raw)
  if ($regex(%:line,/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):(\d{2,5})$/)) {
    var %proxy = $regml(1) $+ : $+ $regml(2)
    if (!$read(%raw_dosya, w, %proxy)) { 
      write %raw_dosya %proxy 
    }
  }
  goto dongu
}

on *:sockclose:_mProxy_*:{
  gokturk_sonraki_api $sockname
}

alias gokturk_sonraki_api {
  var %data = $sock($1).mark
  var %tur = $gettok(%data,1,124)
  var %mevcut_index = $gettok(%data,2,124)
  var %sonraki_index = $calc(%mevcut_index + 1)
  
  sockclose $1
  gokturk_api_baglan %tur %sonraki_index
}

; ============================================================================
; CANLI KONTROL VE ASENKRON DOGRULAMA MODULU
; ============================================================================
alias _proxy_indirildi {
  var %tur = $1
  sockclose $+(_mProxy_,%tur,*)
  var %toplam = $lines($+(%tur,_raw.txt))
  msg #spamfilter [GOKTURK] 20 API tarandi. Toplam %toplam ham proxy toplandi. Canli test basliyor...
  panel_durum_yaz %tur test ediliyor (Havuz: %toplam)
  
  write -c $+(%tur,_proxy.txt)
  
  var %i = 1
  while (%i <= %toplam && %i <= 40) {
    var %p = $read($+(%tur,_raw.txt), %i)
    if (%p) { 
      proxy_test_et %tur %p 
    }
    inc %i
  }
  
  $+(.timer,gozlem_,%tur) 0 2 proxy_gozlemle %tur %i
}

alias proxy_test_et {
  var %tur = $1
  var %ip_port = $2
  var %ip = $gettok(%ip_port,1,58)
  var %port = $gettok(%ip_port,2,58)
  var %sname = $+(_check_,%tur,_,%ip,_,%port)
  
  sockclose %sname
  sockopen -e %sname %ip %port
  sockmark %sname %tur $+ | $+ %ip_port
  $+(.timer_to_,%sname) 1 5 sockclose %sname
}

on *:sockopen:_check_*:{
  var %data = $sock($sockname).mark
  var %tur = $gettok(%data,1,124)
  var %proxy = $gettok(%data,2,124)
  
  $+(.timer_to_,$sockname) off
  
  if (!$sockerr) {
    var %nihai_dosya = $+(%tur,_proxy.txt)
    if (!$read(%nihai_dosya, w, %proxy)) {
      write %nihai_dosya %proxy
      panel_istatistik_guncelle
    }
  }
  sockclose $sockname
}

alias proxy_gozlemle {
  var %tur = $1
  var %mevcut_satir = $2
  var %aktif_test = $sock($+(_check_,%tur,*),0)
  var %toplam_ham = $lines($+(%tur,_raw.txt))
  
  while (%aktif_test < 40 && %mevcut_satir <= %toplam_ham) {
    var %p = $read($+(%tur,_raw.txt), %mevcut_satir)
    if (%p) { 
      proxy_test_et %tur %p 
    }
    inc %mevcut_satir
    var %aktif_test = $sock($+(_check_,%tur,*),0)
  }
  
  if (%mevcut_satir > %toplam_ham && %aktif_test == 0) {
    $+(.timer,gozlem_,%tur) off
    msg #spamfilter [GOKTURK-Analiz] %tur 20 kaynak kontrolu bitti!
    msg #spamfilter Calisan Saglam Proxy: $lines($+(%tur,_proxy.txt)) / %toplam_ham
    panel_durum_yaz %tur bitti.
    .remove $+(%tur,_raw.txt)
  }
  else {
    $+(.timer,gozlem_,%tur) 1 1 proxy_gozlemle %tur %mevcut_satir
  }
}

; ============================================================================
; GOKTURK PROXY PANELI - GRAFIKSEL ARAYUZ (DIALOG)
; ============================================================================
dialog gokturk_panel {
  title "GOKTURK Proxy Yonetim Paneli v2026"
  size -1 -1 260 210
  option dbu

  box " Manuel Proxy Kontrol Merkezi ", 1, 10 10 240 75
  box " Otomatik Zamanlayici Ayarlari ", 2, 10 90 240 50
  box " Sistem Durum Bilgileri ", 3, 10 145 240 55

  button "HTTP Cek", 4, 20 25 50 15
  button "HTTPS Cek", 5, 75 25 50 15
  button "SOCKS4 Cek", 6, 130 25 50 15
  button "SOCKS5 Cek", 7, 185 25 50 15

  button "Aktif Listeyi Sifirla", 8, 20 45 105 15
  button "Dosyayi Goster", 9, 130 45 105 15
  text "Secili Tur: Yok (Lutfen bir butona basin)", 10, 20 68 220 12

  check "30 Dakikada Bir Otomatik Guncelleme Aktif", 11, 20 105 220 12
  button "Simdi Tetikle", 12, 20 120 220 14

  text "Sistem Durumu: Beklemede...", 13, 20 158 220 10
  text "Kayitli Saglam HTTP: 0 | HTTPS: 0 | SOCKS5: 0", 14, 20 172 220 10
  text "GOKTURK Engine Core v2.6 - Guvenli ve Asenkron", 15, 20 186 220 10, center
}

alias gokturk {
  if ($dialog(gokturk_panel)) { 
    dialog -x gokturk_panel 
  }
  dialog -m gokturk_panel gokturk_panel
}

on *:dialog:gokturk_panel:init:0:{
  panel_istatistik_guncelle
  if ($timer(_proxy_oto)) { 
    did -c gokturk_panel 11 
  }
}

on *:dialog:gokturk_panel:sclick:*:{
  if ($did == 4) { 
    did -r gokturk_panel 10 
    did -a gokturk_panel 10 Secili Tur: 20 API Taraniyor (HTTP)... 
    proxycek http 
  }
  if ($did == 5) { 
    did -r gokturk_panel 10 
    did -a gokturk_panel 10 Secili Tur: 20 API Taraniyor (HTTPS)... 
    proxycek https 
  }
  if ($did == 6) { 
    did -r gokturk_panel 10 
    did -a gokturk_panel 10 Secili Tur: 20 API Taraniyor (SOCKS4)... 
    proxycek socks4 
  }
  if ($did == 7) { 
    did -r gokturk_panel 10 
    did -a gokturk_panel 10 Secili Tur: 20 API Taraniyor (SOCKS5)... 
    proxycek socks5 
  }
  if ($did == 8) {
    write -c http_proxy.txt 
    write -c https_proxy.txt 
    write -c socks4_proxy.txt 
    write -c socks5_proxy.txt
    did -r gokturk_panel 10 
    did -a gokturk_panel 10 Tum yerel proxy listeleri sifirlandi!
    panel_istatistik_guncelle
  }