alias _proxy {
dialog -m pkontrol pkontrol
}
alias _proxykontrol {
sockclose pkontrol
sockopen pkontrol
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:pkontrol: {
sockwrite -nt $sockname GET /checker/last_checked_proxies.php HTTP/1.1
sockwrite -nt $sockname Host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr; rv:1.8) Gecko/20051111 Firefox/1.5
sockwrite -nt $sockname Accept: application/x-shockwave-flash,text/xml,application/xml,application/xhtml+xml,text/html;q ...
sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-us;q=0.5,en;q=0.3
sockwrite -nt $sockname Accept-Encoding: gzip,deflate
sockwrite -nt $sockname Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
sockwrite -nt $sockname Keep-Alive: 300
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Referer:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname Cookie: hotlog=1
sockwrite -nt $sockname Cache-Control: max-age=0
sockwrite -nt $sockname $crlf
}
on *:sockread:pkontrol: {
sockread %p
tokenize 32 %p
;echo -a 2 $1-
if $dialog(pkontrol) {
if $1- == <h2 align="center">Free SOCKS 4 proxy list:</h2> {
set %proxy 1
did -a pkontrol 3,4 == Socks 4 Listesi ==
}
if $1- == <h2 align="center">Free SOCKS 5 proxy list:</h2> {
set %proxy 2
did -a pkontrol 3,4
did -a pkontrol 3,4 == Socks 5 Listesi ==
}
if $1- == </table><br> && %proxy == 2 {
unset %proxy
}
if $1 == res && $2 == $chr(61) {
set %portn $right($gettok($3,1,43),-4)
set %ports $left($gettok($3,2,43),-1)
_listing
}
if $1 == name && $2 == $chr(61) && %proxy {
set %pip $right($left($3,-2),-1)
did -a pkontrol 3 Proxy IP: %pip
}
if port* iswm $1 && $2 == $chr(61) && %proxy {
did -a pkontrol 3 $left($1-,-1)
}
}
}
on *:sockclose:pkontrol: {
unset %proxy
if $dialog(pkontrol) {
did -e pkontrol 7
}
}
dialog pkontrol {
title "Proxy Bulucu (Anlık)"
size -1 -1 94 174
option dbu
tab "Tab 1", 5, -96 -98 500 400
list 4, 6 22 80 120, tab 5 size
button "Seçiliyi kullan", 8, 47 7 38 12, tab 5
button "Proxy list al", 7, 7 7 38 12, tab 5
button "Kapat", 9, 6 145 38 12, tab 5, ok
box "", 10, 2 0 89 172, tab 5
text
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], 11, 6 160 72 8, disable tab 5
tab "Tab 2", 6
list 3, 10 25 31 16, tab 6 size hsbar vsbar
}
on *:dialog:pkontrol:*:*: {
if $devent == sclick {
if $did == 7 {
did -b $dname 7
did -r $dname 3,4
_proxykontrol
}
if $did == 8 {
if $did(pkontrol,4).sel {
var %1 = $gettok($did(pkontrol,4).seltext,1,58)
var %2 = $gettok($did(pkontrol,4).seltext,2,58)
if $did(pkontrol,4).sel > $didwm(pkontrol,4, *,1) {
firewall -m5 on %1 %2
echo 3 -a * Seçtiğiniz proxy ( $+ $+(%1,:,%2) $+ ) SOCKS5 üzerinden kullanıma hazır.
echo 3 -a * /server sunucuadı:portu şeklinde istediğiniz sunucuya bağlanabilirsiniz.
}
else {
firewall -m4 on %1 %2
echo 3 -a * Seçtiğiniz proxy ( $+ $+(%1,:,%2) $+ ) SOCKS4 üzerinden kullanıma hazır.
echo 3 -a * /server sunucuadı:portu şeklinde istediğiniz sunucuya bağlanabilirsiniz.
}
}
else {
echo 2 -a * Lütfen kullanmak istediğiniz proxy'yi seçiniz.
}
}
}
}
alias -l _listing {
var %i $did(pkontrol,3).lines
while 1 <= %i {
if $right($gettok($did(pkontrol,3,%i),1,32),-4) == %portn {
var %1 = $gettok($did(pkontrol,3,%i),3,32)
if $gettok($did(pkontrol,4,$did(pkontrol,4).lines),1, 58) != %pip {
did -a pkontrol 4 %pip $+ : $+ $calc(%1 + %ports)
}
did -o pkontrol 3 %i IRC portu: $calc(%1 + %ports)
break
}
dec %i
}
}
menu channel,status,menubar {
Proxy bulucu:_proxy
}
Bunları mIRC'e alt +R Yaparak Remote Bölümüne Ekle Daha Rahat Bir Şekilde Proxy BulurSun
Not: Code Bnm Deyildir. Alıntıdır. Yapanında Eline Sağlık..