Proxy Koruması
Proxy Koruması menu { • Proxy Korumasi Yeni Aç:/enable #Proxykoruma1903 | echo -a...
mIRC Scripting | 7 Ağustos 2023, Pazartesi

Proxy Koruması

Proxy Koruması

Proxy Koruması

menu * {
• Proxy Korumasi Yeni
.Aç:/enable #Proxykoruma1903 | echo -a Proxy Koruma Sistemi Açıldı
.Kapat:/disable #Proxykoruma1903 | echo -a Proxy Koruma Sistemi Kapatıldı
..Durum < $replace($group(#Proxykoruma1903).status, off, Kapalı, on, Açık) >:.
}
#Proxykoruma1903 off
raw 352:*:{
sockclose proxysorgu
haltdef
proxysorgu $4
}
alias proxysorgu {
if ($sock(proxysorgu)) { sockclose proxysorgu }
sockopen $+(proxysorgu,%proxy(1000,99999)) igs.cesuryurek.net 80
set -e %proxy $1
}
on *:sockopen:proxysorgu:{
;echo :: SOCKOPEN
if ($sockerr) { echo -a SOCKERR OPEN – $sock($sockname).wserr :: $sock($sockname).wsmsg | sockclose $sockname }
var %d sockwrite -n $sockname
%d GET /proxy.php?ip= $+ %proxy HTTP/1.1
%d Host: igs.cesuryurek.net
%d User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X; de-de) AppleWebKit/523.10.3 (KHTML, like Gecko) Version/3.0.4 Safari/523.10
%d Accept: */*
%d Connection: close
%d Accept-Charset: ISO-8859-1,UTF-8;q=0.7,*;q=0.7
%d Accept-Language: en-gb,en;q=0.5
%d Cache-Control: no-cache
%d $crlf
%d $crlf
}
on *:sockread:proxysorgu:{
;echo :: SOCKREAD
if ($sockerr) { echo -a SOCKERR READ – $sock($sockname).wserr :: $sock($sockname).wsmsg | sockclose $sockname }
var %proxysorgu | sockread %proxysorgu | tokenize 32 %proxysorgu
if (*IP adresi proxy degildir.* iswm %proxysorgu) {
;echo @SorunsuzIP 3 %proxy Nolu 2 $_fl(%proxysorgu)
}
elseif (*IP adresi proxy’dir.* iswm %proxysorgu) {
gzline $+(*@,%proxy) +5h 4Proxy Yasak-3[Bozkurt Proxy System]
}
}

off *:sockclose:proxysorgu:{ echo -a SOCKSLOE $sockname }

on *:snotice:*:{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
;- Muaf port ekleme.
if $+($istok($_mport,%_port,32)) { return }
;- Muaf nick ekleme
elseif $+($istok($_mnick,%_nick,32)) { return }
;- Muaf ident ekleme
elseif $+($istok($_mident,%_ident,32)) { return }
;- Muaf IP ekleme
elseif $+($istok($_mip,%_ip,32 )) { return }
who +I %_nick
}
}
#Proxykoruma1903 End
alias _mip return Muafipleriburaya yazın (örnek IP1 IP2)
alias _mident return Muafidentleriburaya yazın (Örnek İdent1 İdent2)
alias _mnick return Muafnickleriburaya yazın (örnek nick1 nick2)
alias _mport return Muafportları buraya yazın (örnek 6666 6663)

Yorumlar

Sohbet odaları