IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   muaf ip eklemek yardım (https://www.ircforumlari.net/mirc-parca-kodlar/1071650-muaf-ip-eklemek-yardim.html)

Çöl 05 Kasım 2025 16:03
muaf ip eklemek yardım
 
#####Proxy Koruması ßy Proxy##########

on *:start:ipal | $+(.timer,ipal) 0 5000 /ipal
#proxy off
alias proxy_ { if ($1) { inc %_ | sockopen $+(proxy*,%_) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | %s $crlf }
on *:sockread:proxy*:{ var %v | sockread $htmlfree(%v) | .tokenize 32 $htmlfree(%v) | if (Proxy: <b> isin %v) { gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir. 1mIRC7Turk7System4™ } }
on *:snotice:*on*port*: { .who +I $9 }
on *:snotice:*changed his/her nickname*:{ .who +I $11 }
raw 352:*:{
if $read(proxy.txt,w,$+(*,$4,*)) { gzline $+(*@,$4) +1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir. | return }
ptara $4
proxy_ $4
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}
alias ptara {
var %f = $gettok($1-,1,46),%f2 = $gettok($1-,1-2,46),%ip = $1,%l = $gettok($1-,$numtok($1-,46),46),%n = $2
if $regex(%ip,/(\d+\.\d+\.\d+\.\d+)) {
if $regex(%f,/(78|88|85|95|81)) { goto end }
if $regex(%f2,/(84\.(154|26|13)|190\.(184|43|131|208|166|80|207)| 193\.3|216\.(6|152)|62\.(120|217|248|29)|194\.(208 |27|154)|217\.(17|131|64)|195\.(87|42|17(4|5))|94\ .(79|54|78|96|98|99|242|100)|195\.214|213\.(236|16 1|211|21|14|153|194|43|204|248|14|43|38|14|248|159 |153|204)|212\.(62|38|77|29|213|58|12|33|45|48|50| 58|64|98|133|2|33|253|64|2|238|146|17(4|5)|33)|62\ .29|144\.122|217\.164|195\.(33|142|4|74|244|17(4|5 ))|217\.131|195\.214|82\.(223|209|71|115)|62\.248| 193\.140|94\.12(2|0|3|1|4))) { goto end }
if $regex(%f2,/(76\.14|149\.254|92\.45|78\.27|121\.210|90\.148|41 \.(208|250|233|201|209)|201\.(244|210)|91\.(191|11 2|177|176|180|140)|89\.(241|5|148|252|146|211)|87\ .(109|101)|79\.(141|85|123|172|114))) { goto end }
if $regex(%f2,/(82\.(145|101|211)|94\.97|64\.55|62\.74|93\.(88|91 |182)|86\.(121|91|99|108)|83\.(93|228|238|149|66)| 62\.(29|85|108|113|248)|139\.179|80\.(120|241|210| 69|86|63|71|78)|144\.122|155\.233|160\.75|161\.9|1 68\.139|193\.(140|192|243|255)|194\.(27|54)|195\.( 33|46|64|74|87|112|142|155|174|214|244|254)|212\.( 2|12|15|29|31|33|45|48|50|57|58|64|65|79|98|101|10 8|109|115|125|127|133|146|154|156|174|252)|213\.(1 4|43|74|138|139|148|153|159|161|186|194|202|204|23 2|238|243|248|254|31|131|169|174|195))) { goto end }
gzline $+(*@,%ip) - 2Sunucumuza proxy/tor/socks/wingate ile girmek yasak!
}
:end
}
#proxy end

menu channel,menubar {
» Proxy Koruması
.» Proxy Koruması Aç:.enable #proxy | echo -a « 2.Seviye Proxy Koruması Acılmışdır. »
.-
.» Proxy Koruması Kapat:.disable #proxy | echo -a « 2.Seviye Proxy Koruması Kapatıldı. »
}
alias ipal { .remove proxy.txt | sockclose links | sockopen links anonymouse.org 80 }
on *:sockopen:links:{ var %:links sockwrite -n $sockname | %:links GET /cgi-bin/anon-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
HTTP/1.1 | %:links Host: anonymouse.org | %:links $crlf }
on *:sockread:links:{
var %links | sockread %links | .tokenize 32 %links
if (*#more* iswm %links) { return }
if (*<a href='https://anonymouse.org/cgi-bin/anon-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %links) {
var %rand $rand(10,999999) | sockopen $+(ipal,%rand) anonymouse.org 80 | sockmark $+(ipal,%rand) $gettok($gettok(%links,7-,47),1,39)
}
}
on *:sockopen:ipal*:{ var %:ipal sockwrite -n $sockname | %:ipal GET /cgi-bin/anon-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
HTTP/1.1 | %:ipal Host: anonymouse.org | %:ipal $crlf }
on *:sockread:ipal*:{ var %ipal | sockread %ipal | .tokenize 32 %ipal | if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { write proxy.txt %ipal } }
on *:sockclose:ipal*:{ $+(.timer,ipcek1) 1 5 sockopen ipcek1 multiproxy.org 80 }
on *:sockopen:ipcek1:{ var %:ipcek1 sockwrite -n $sockname | %:ipcek1 GET /txt_all/proxy.txt HTTP/1.1 | %:ipcek1 Host: multiproxy.org | %:ipcek1 $crlf }
on *:sockread:ipcek1:{ var %:ipcek1 | sockread %:ipcek1 | .tokenize 32 %:ipcek1 | if (*.*.*:* iswm %:ipcek1) && (*a* !iswm %:ipcek1) { write proxy.txt %:ipcek1 } }
on *:sockclose:ipcek1:{ sockopen ipcek2 ircproxy.net 80 }
on *:sockopen:ipcek2:{ var %:ipcek2 sockwrite -n $sockname | %:ipcek2 GET /proxy.txt HTTP/1.1 | %:ipcek2 Host: ircproxy.net | %:ipcek2 $crlf }
on *:sockread:ipcek2:{ var %:ipcek2 | sockread %:ipcek2 | .tokenize 32 %:ipcek2 | if (*.*.* iswm %:ipcek2) && (*a* !iswm %:ipcek2) { write proxy.txt %:ipcek2 } }
on *:sockclose:ipcek2:{ sockopen ipcek3 tubeincreaser.com 80 }
on *:sockopen:ipcek3:{ var %:ipcek3 sockwrite -n $sockname | %:ipcek3 GET /proxylist.txt HTTP/1.1 | %:ipcek3 Host: tubeincreaser.com | %:ipcek3 $crlf }
on *:sockread:ipcek3:{ var %:ipcek3 | sockread %:ipcek3 | .tokenize 32 %:ipcek3 | if (*.*.*:* iswm %:ipcek3) && (*a* !iswm %:ipcek3) { write proxy.txt %:ipcek3 } }
on *:sockclose:ipcek3:{ sockopen ipcek4 proxylists.net 80 }
on *:sockopen:ipcek4:{ var %:ipcek4 sockwrite -n $sockname | %:ipcek4 GET /socks4.txt HTTP/1.1 | %:ipcek4 Host: proxylists.net | %:ipcek4 $crlf }
on *:sockread:ipcek4:{ var %:ipcek4 | sockread %:ipcek4 | .tokenize 32 %:ipcek4 | if (*.*.*:* iswm %:ipcek4) && (*a* !iswm %:ipcek4) { write proxy.txt %:ipcek4 } }
on *:sockclose:ipcek4:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }
on *:text:*:#opers:{ if $1 == !ac { .enable #proxy | msg # 2.Seviye Proxy Koruması Açıldı } | if $1 == !kapat { .disable #proxy | msg # 2.Seviye Proxy Koruması Kapatıldı. } } bu kodu forumda bulmdum koder kımdır bılmıuorum proxy cogunu yakalıyor ama olmayn ıplerıde atıyor bazen buna muaf ip ekle extra baska proxy eklemek ıcın duzenleyecek kısılere tesekkur ederım.

SNOOPY 05 Kasım 2025 17:15
Cevap: muaf ip eklemek yardım
 
Kod:
##### 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ı. }
}
muafip.txt desteği
→ Bu dosyadaki IP’ler asla banlanmaz.
→ Güvenilir admin IP’lerini buraya ekle.

Yanlış pozitifleri azaltmak için
→ İç IP (10.x.x.x, 192.168.x.x, 172.16–31, 127.0.0.1) filtrelendi.
→ Proxy kontrolü sadece gerçek IP’lerde yapılır.


Proxy kaynakları güncellendi
→ Artık “multiproxy.org” ve “proxylists.net”’ten çekiyor.
→ Eski çalışmayan siteler çıkarıldı.

Menüye kolay erişim eklendi
→ Sağ tık → “Proxy Koruması” → Aç / Kapat / Muaf IP Ekle.

Çöl 05 Kasım 2025 18:42
Cevap: muaf ip eklemek yardım
 
emegıne saglık hocam denedım ama proxy 139.162.174.29 Ülke: Germany Şehir: Hesse / Frankfurt am Main ISP: Akamai Technologies, Inc. Bir Önceki Giriş: Nick: user1 Tarih: 5 Kasım 2025 Çarşamba 18:35:19 bunu normalde atıyuordu ılk halınde suan atmadı teskkur ederım.

manikdepresif 05 Kasım 2025 21:42
Cevap: muaf ip eklemek yardım
 
@çöl proxy listesini guncelle ardindan bilgisayara /restart kjomutu ile restart at eger duzelmezse bilgisayarin fisini cek 3 dakika bekle sonra tekrar tak . ardindan bilgisayari 10 sn sure ile acma butonuna basarak calistir,, duzeldigii goreceksin.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:42 -->-> Daha önceki mesaj 21:37 --

eger duzelmezse bana ozelden mesaj at

SNOOPY 05 Kasım 2025 22:21
Cevap: muaf ip eklemek yardım
 
Kod:
; === 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
}
Alıntı:
Proxy 139.162.174.29 Ülke: Germany Şehir: Hesse / Frankfurt am Main ISP: Akamai Technologies, Inc. Bir Önceki Giriş: Nick: user1 Tarih: 5 Kasım 2025 Çarşamba 18:35:19
Gibi sonuçta yazaçaktır diye tahmin ediyorum.

SNOOPY 05 Kasım 2025 22:29
Cevap: muaf ip eklemek yardım
 
ChatGPT'den fikir almak için kodun daha hızlı çalışan bir versiyonunu istedim güzel ve farklı bir çalışma yaptı
Kod:
##### 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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:32.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk