|
; Proxy Bulucu By SCouNDReL
;
http://www.proxy4free.com a Tesekkurler
; /proxybulucu
komutu ile Calistirin
; Iyi Sanslar (:
alias sjn {
sockwrite -n proxy $1- | did -ra proxy 8 Yukleniyor... }
alias sjn2 { sockwrite -n proxy2 $1- | did -ra proxy 8
Yukleniyor... }
alias sjn3 { sockwrite -n proxy3 $1- | did
-ra proxy 8 Yukleniyor... }
alias cleartext { return
$remove($1-,<,>,/,td,br) }
alias pwhois { sockclose
proxy3 | sockopen proxy3 www.proxy4free.com 80 | set
%sjn.pwhois $1 }
alias pagejump { sockclose proxy2 |
sockopen proxy2 www.proxy4free.com 80 | set %sjnproxy.link $1-
$+ .html }
alias proxybulucu {
dialog -m proxy proxy
sockclose proxy
sockopen proxy www.proxy4free.com 80
}
on *:SockOpen:proxy:{
if ($sockerr) { did -ra
proxy 8 Hata! | sockclose proxy* }
sjn GET / HTTP/1.1
sjn host: www.proxy4free.com
sjn User-Agent:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
sjn $crlf
}
on *:SockRead:proxy:{
var %a
sockread %a
if (page isin $gettok(%a,5,32)) { did -a
proxy 1
$remove($gettok($gettok(%a,5-,32),2,$asc(>)),<,/a,>,/td)
}
}
dialog proxy {
title "Proxy Bulucu"
size
-1 -1 267 162
option dbu
list 1, 5 19 33 105, size
text "Sayfa Listesi", 2, 8 8 25 8
text "Sayfayi Gormek
Icin Cift Tikla", 3, 1 125 41 17
list 4, 43 19 216 105,
size
button "Kullan", 5, 123 126 49 12
button "Whois",
6, 199 126 51 12
text "Proxy Listesi", 7, 134 8 31 8
edit "Yukleniyor", 8, 82 144 111 11, read
button
"Proxy Kullanma", 9, 53 126 50 12
}
on
*:dialog:proxy:*:*:{
if ($devent == dclick) {
if ($did
== 1) { unset %sjn.answer | unset %sjn.test | pagejump
$remove($did(1).seltext,$chr(32)) | did -r proxy 4 }
}
if ($devent == init) { did -b proxy 8 }
if ($devent ==
sclick) { if ($did == 6) {
$iif($dialog(pwhois),dialog -x
pwhois pwhois)
$iif($did(4).sel,dialog -m pwhois pwhois)
unset %sjn.answer
$iif($did(4).sel,pwhois
$gettok($did(4).seltext,1,32))
}
if ($did == 5) {
.firewall on | .firewall -mp $gettok($did(4).seltext,1,32)
$gettok($did(4).seltext,3,32) | echo -a Kullanilan Proxy ->
$gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) }
if ($did == 9) { .firewall off | echo -a Proxy Kullanimi
Iptal Edildi }
}
if ($devent == Close) { sockclose
proxy* }
}
on *:SockOpen:proxy2:{
if ($sockerr) {
did -ra proxy 8 Hata! | sockclose proxy* }
sjn2 GET / $+
%sjnproxy.link HTTP/1.1
sjn2 host: www.proxy4free.com
sjn2 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0;
Windows NT 5.1; SV1)
sjn2 $crlf
}
on
*:SockRead:proxy2:{
var %a
sockread %a
if
($gettok(%a,1,32) ==
if
($gettok(%a,1,32) == |
) {
$iif($remove(%sjn.answer,-,tr,$chr(32)) && %sjn.answer
!= - tr && $mid($gettok(%sjn.answer,2,32),1,1) isnum,did
-a proxy 4 $gettok($remove(%sjn.answer,tr),2-,32)) | unset
%sjn.test | unset %sjn.answer }
}
on
*:SockClose:proxy*:{
did -ra proxy 8 Tamam.
}
dialog
pwhois {
title "Whois Bak"
size -1 -1 158 188
option
dbu
edit "", 1, 12 12 135 157,read vsbar multi autovs autohs
button "Tamam", 2, 59 174 37 12, ok
}
on
*:Dialog:pwhois:close:*:sockclose proxy3 | did -ra proxy 8
Tamam.
on *:SockOpen:proxy3:{
sjn3 GET
/cgi-bin/whois.cgi?domain= $+ %sjn.pwhois HTTP/1.1
sjn3
host: www.proxy4free.com
sjn3 User-Agent: Mozilla/4.0
(compatible; MSIE 6.0; Windows NT 5.1; SV1)
sjn3 $crlf
}
on *:SockRead:proxy3:{
var %a
sockread %a if (
isin %a) {
var %i 3
while %i <= 19 {
did -a
pwhois 1 $cleartext($gettok(%a,%i,$asc(>))) $+ $crlf
inc
%i
}
}
}
