Sorunsuz Proxy Koruması!

[Code]

Bir code paylasmasak aip olur, Kendime ait bir koruma , mIRC tabanli sistemdir, ins işinize yarar :)

-Oranlar-
Yanlis ban: 500 'de - 1
Dogru ban: 100 'de 97
Yapımcı: Set
menu * {
.Proxy korumasi
..Ac:set %proxy 63 | echo -ea Proxy korumasi aktif.
..Kapat:unset %proxy | echo -ea Proxy korumasi deaktif.
}

on $*:snotice:/connecting/i:$iif(%proxy,who +I $9)
raw 352:*:proxy $4

alias proxy {
var %x $rand(0,9999)
sockopen $+(proxyx,%x) 5.196.200.211 4321
sockmark $+(proxyx,%x) $1
}

on *:sockopen:proxyx*: {
var %s sockwrite -nt $sockname, %post $+(icerik=,$sock($sockname).mark,&gonder=IP+Sorgula)
%s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
%s Accept-Language: tr-TR
%s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
%s Content-Type: application/x-[Only Registered Users Can See Links]
%s Accept-Encoding: gzip, deflate
%s Host: 5.196.200.211
%s Connection: Keep-Alive
%s Cache-Control: no-cache
%s Content-Length: $len(%post)
%s
%s %post

}
on *:sockread:proxyx*: {
var %x-,%xyz @proxy, %ip $sock($sockname).mark | sockread %x-
$iif(!$window(%xyz),window -e %xyz)
if $regex(%x-,/Aktif proxy(.+)</i) {
echo 4 %xyz Proxy: %ip Mask: $regml(1)
gzline $+(*@,%ip) +0 $regml(1)
sockclose $sockname
}
if $regex(%x-,/pasif proxy/i) {
echo 3 %xyz Proxy: %ip Mask: $token(%x-,-2,32)
sockclose $sockname
}
}