Mirc Socket Sorgulu Proxy Koruması

tarafından
24
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