mIRC Proxy Bulucu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 |
; 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) == <tr ) && (href !isin %a) { set %sjn.test Ok! } if (%sjn.test == Ok!) && (bgcolor !isin %a) && (align !isin %a) && (class !isin %a) && (href !isin %a) && (width !isin %a) { %sjn.answer = %sjn.answer - $cleartext(%a) } if ($gettok(%a,1,32) == </tr>) { $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 (<code> isin %a) { var %i 3 while %i < = 19 { did -a pwhois 1 $cleartext($gettok(%a,%i,$asc(>))) $+ $crlf inc %i } } } |