Proxy Finder

By SCouNDReL on Jul 06, 2006

This Addon Shows Proxies From proxy4free.com . You can use this proxies and connect servers. you can see proxies descriptions. Work With /proxyfinder command Good Luck!

; Proxy Finder By SCouNDReL
; Thx. To www.proxy4free.com
; Use /proxyfinder Command To Use Proxies
; Good Luck!

alias sjn { sockwrite -n proxy $1- | did -ra proxy 8 Loading... }
alias sjn2 { sockwrite -n proxy2 $1- | did -ra proxy 8 Loading... }
alias sjn3 { sockwrite -n proxy3 $1- | did -ra proxy 8 Loading... }
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 proxyfinder {
  dialog -m proxy proxy 
  sockclose proxy
  sockopen proxy www.proxy4free.com 80
}
on *:SockOpen:proxy:{
  if ($sockerr) { did -ra proxy 8 Error! | 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 Finder"
  size -1 -1 267 162
  option dbu
  list 1, 5 19 33 105, size
  text "Page List", 2, 8 8 25 8
  text "Double Click For Looking Page", 3, 1 125 41 17
  list 4, 43 19 216 105, size
  button "Use", 5, 123 126 49 12
  button "Whois", 6, 199 126 51 12
  text "Proxy List", 7, 134 8 31 8
  edit "Loading", 8, 82 144 111 11, read
  button "Cancel Using Proxy", 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 Using Proxy -> $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) }
    if ($did == 9) { .firewall off | echo -a Proxy Using Canceled }   
  }
  if ($devent == Close) { sockclose proxy* }
}
on *:SockOpen:proxy2:{
  if ($sockerr) { did -ra proxy 8 Error! | 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 Done.
}
dialog pwhois {
  title "Whois LookUp"
  size -1 -1 158 188
  option dbu
  edit "", 1, 12 12 135 157,read vsbar multi autovs autohs
  button "Done", 2, 59 174 37 12, ok
}
on *:Dialog:pwhois:close:*:sockclose proxy3 | did -ra proxy 8 Done.
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 
    } 
  }
} 

Comments

Sign in to comment.
Mafia05   -  Nov 28, 2010

does this works?

 Respond  
Joshuaxiong1   -  Nov 11, 2008

He died...

 Respond  
Bigmomma   -  Aug 21, 2006

maybe it\'s an old post but dude you\'re awesome.
Could you update it, some of the proxy\'s arent working
I get errors about my firewall

 Respond  
Spot   -  Jul 09, 2006

What is that used for? :-)

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.