Mirc Socket Sorgulu Proxy Koruması

Mirc scriptinizin remote kısmına ekleyip aktif edebileceğiniz oldukça başarılı socket proxy deposundan sorgulama yaparak çalışan proxy korumasıdır.

Proxy koruması %98 başarı oranı ile çalışmaktadır test edilmiştir.

## Mirc Socket Sorgulu Proxy Koruması
## Mircclub.Org

Menu * {
Proxy Koruması
.Aç:/.Enable #Proxy | Echo -A 3Proxy Koruması Açıldı..
.Kapat:/.Disable #Proxy | Echo -A 4Proxy Koruması Kapatıldı..
}

#Proxy On
On *:Snotice:*Client*Connecting*Irc*Sohbet*Net*:.Who +I $Token($Token($4-,2,58),1,32)
Raw 352:*:{
Var %:R $+($Left($Md5($Ticks),$R(5,20)),$6)
Sockopen $+(Proxy,%:R) Ircproxy.Net 80
Sockmark $+(Proxy,%:R) $+($4,¿,$6)
}
On *:Sockopen:proxy*:{
Sockwrite -Nt $Sockname GET $+(/?Ip=,$Token($Sock($Sockname).Mark,1,191)) HTTP/1.1
Sockwrite -Nt $Sockname Host: $Sock($Sockname).Addr
Sockwrite -Nt $Sockname Accept: Image/Jpeg, Application/X-Ms-Application, Image/Gif, Application/Xaml+Xml, Image/Pjpeg, Application/X-Ms-Xbap, */*
Sockwrite -Nt $Sockname Accept-Language: Tr-TR
Sockwrite -Nt $Sockname User-Agent: Mozilla/4.0 (Compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
Sockwrite -Nt $Sockname Connection: Keep-Alive
Sockwrite -Nt $Sockname $Crlf
}
On *:Sockread:proxy*:{
If ($Sockerr) { .Sockclose $Sockname | Return }
Var %:Proxy | Sockread -F %:Proxy | Tokenize 32 %:Proxy
If $Regex($1-,/Numaral[Iiİ] [Iİi]P Proxy\’Dir/I) {
Gzline $+(*@,$Token($Sock($Sockname).Mark,1,191)) +5h Proxy Yasak.. $+([,$Token($1-,2,45),])
$Iif($Chan(#Xline),Msg #Xline (4PROXY GİRİŞ) 3Gzline! $Regsubex($Token($Token($1-,2,62),1,60),/(\D+\.\D+\.\D+\.\D+)/,$+($Chr(2),\1,$Chr(2))))
Sockclose $Sockname
Return
}
}
#Proxy End