| KivanC | 26 Temmuz 2026 18:02 |
Yapay Zekanýn ürettiði Proxy Korumasý (Claude)
Güncel olarak 10 siteden proxy almaktadýr ve dilediginiz bir yapay zekaya dilediginiz kodu yazdirabilirsiniz deneyin sadece.
Kod:
!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 + ZLINE'ý kaldýrýr
!muafekle 1.2.3.4
IP'yi muaf (whitelist) yapar — bir daha hiç kontrol edilmez, ZLINE'ý varsa kaldýrýr
!muafsil 1.2.3.4
IP'yi muaf listesinden çýkarýr
!proxylist
Kaç proxy IP ve kaç muaf IP kayýtlý olduðunu gösterir
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.
}
|
