an awesome proxy seeker =)

This is a crappy code, I know... but i'll optimize it later.

Needs TOR (and privoxy, with defaults settings).

--

Create a file called 'googlesearch.txt' in your mirc folder and paste this (you can add some addresses if needed...).

http://proxyanonsurf.com/labels/fresh-proxy-list.html 1242376539
http://www.anonymouslist.com/freeproxylist.php 1242376725
http://www.anonymouslist.com/anonymousproxylist.php 1242376725
http://www.anonymouslist.com/transparentproxylist.php 1242376725
http://www.textproxylists.com/proxy.php?anonymous 1242376820
http://www.textproxylists.com/proxy.php?transparent 1242376820
http://www.textproxylists.com/proxy.php?highanonymity 1242376820
http://www.textproxylists.com/proxy.php?allproxy 1242376820
http://www.proxyblind.org/freepublicproxylist.shtml 1242376889
http://proxies.my-proxy.com/proxy-list-s1.html 1242376921
http://proxies.my-proxy.com/proxy-list-s2.html 1242376921
http://proxies.my-proxy.com/proxy-list-s3.html 1242376921
http://proxies.my-proxy.com/proxy-list-1.html 1242376921
http://proxies.my-proxy.com/proxy-list-2.html 1242376921
http://proxies.my-proxy.com/proxy-list-3.html 1242376921
http://proxies.my-proxy.com/proxy-list-4.html 1242376921
http://proxies.my-proxy.com/proxy-list-5.html 1242376921
http://proxies.my-proxy.com/proxy-list-6.html 1242376921
http://proxies.my-proxy.com/proxy-list-7.html 1242376921
http://proxies.my-proxy.com/proxy-list-8.html 1242376921
http://proxies.my-proxy.com/proxy-list-9.html 1242376922
http://proxies.my-proxy.com/proxy-list-10.html 1242376921
http://www.multiproxy.org/anon_proxy.htm 1242376986
http://www.multiproxy.org/all_proxy.htm 1242376986

on *:start: {
  testworking
  .timer_launchpt 1 300 proxytest
}

alias xtimestamp return $+([, $time, ])
alias -l eecho {
  if (!$window(@ptools)) window -k0 @ptools
  echo @ptools $xtimestamp $1-
}

alias siteanalyze {
  if ($1 === -start) set %siteanalyze.line 0
  if (!$timer(siteanalyze)) .timersiteanalyze 0 0 siteanalyze

  if ($sock(siteanalyze_*,0) > 0) return

  if (%siteanalyze.line > $lines(googlesearch.txt)) return
  else {
    inc %siteanalyze.line 1
    var %siteanalyze.read = $remove( $gettok($read(googlesearch.txt, %siteanalyze.line),1,32),http://)
    if (%siteanalyze.read) sockopen $+(siteanalyze_, %siteanalyze.read) localhost 8118
  }
}

on *:sockopen:siteanalyze_*: {
  set %siteanalyze.inc 0
  if (!$sockerr) sockwrite -n $sockname CONNECT $+($remove( $gettok($sockname,1,47), siteanalyze_),:80) HTTP/1.0 $str($crlf,2) 
}

on *:sockread:siteanalyze_*: {
  var %siteanalyze.sread
  sockread %siteanalyze.sread
  if ($gettok(%siteanalyze.sread,2,32) == 200) {
    hinc -m tmp siteanalyze 
    if ($hget(tmp,siteanalyze) == 1) {
      sockwrite -n $sockname GET $remove($sockname, $gettok($sockname,1,47)) HTTP/1.0
      sockwrite -n $sockname Host: $remove( $gettok($sockname,1,47), siteanalyze_) $str($crlf,2)
    }

  }
  var %siteanalyze.sread = $replacecs($replace(%siteanalyze.sread, $chr(32), $chr(6),$chr(40), $chr(6), $chr(41), $chr(6), >, $chr(6), <, $chr(6), ", $chr(6),',$chr(6),@,$chr(6),$cr,$chr(6), $lf,$chr(6)),US,$chr(6), FR, $chr(6),IN, $chr(6))

  var %saloop = $gettok(%siteanalyze.sread,0,6)
  while (%saloop) {
    var %saitem = $gettok(%siteanalyze.sread,%saloop,6), %saloop = $calc(%saloop - 1)
    if  ($isprox( %saitem) == $true) && (!$read(proxy.test,s,%saitem)) {
      inc %siteanalyze.inc
      write proxy.test %saitem $gmt
    }
  }
}

on *:sockclose:siteanalyze_*: {
  if ($hget(tmp,siteanalyze)) hdel tmp siteanalyze 
  eecho (siteanalyze) $+(-,%siteanalyze.line,-) $qt($+(http://,$remove( $gettok($sockname,1,47), siteanalyze_),$remove($sockname, $gettok($sockname,1,47)))) >> $iif( (%siteanalyze.inc < 2), %siteanalyze.inc new proxy., %siteanalyze.inc new proxies.)
}

alias -l isprox return $iif( (*.*.*.*:* iswm $1 && *ignoreme* !iswm $1 && */* !iswm $1 && *~* !iswm $1 && *&amp;* !iswm $1 && *&nbsp;* !iswm $1 && *127.0.0.1* !iswm $1), $true,$false)

alias proxytest {

  if (!$timer(proxytest)) .timerproxytest 0 1 proxytest
  if ($sock(proxytest_*,0) >= 15) return

  var %pread = $gettok( $read(proxy.test), 1,32)

  if ($lines(proxy.work) == 0) set %siteanalyze.line 0
  else {
    if (!$read(proxy.work,s,%pread)) && (!$sock($+(proxytest_,%pread)).status) sockopen $+(proxytest_,%pread) localhost 8118
    else xremove proxy.test %pread
  }
}

on *:sockopen:proxytest_*: {
  xremove proxy.test $gettok($sockname,2,95)
  if (!$sockerr) {
    eecho (proxytest) trying $qt($gettok($sockname,2,95)) $iif( ($read(proxy.work,s, $gettok($sockname,2,95))), -testworking-,)
    $+(.timer_close, $sockname) 1 20 xsockclose $sockname 
    sockwrite -n $sockname CONNECT $gettok($sockname,2,95) HTTP/1.0 $str($crlf,2)
  }
}

alias testworking {
  if (!$timer(_testw)) .timer_testw -m 0 500 testworking
  if ($sock(proxytest_*,0) >= 15) return 

  if (%testw > $lines(proxy.work)) { 
    unset %testw 
    .timer_testw off
    .timer_testw_loop 1 3600 testworking
  }
  else {
    inc %testw
    var %pp = $gettok( $read(proxy.work,%testw),1,32)
    if (%pp) sockopen $+(proxytest_,%pp) localhost 8118
  }
}
alias -l xsockclose {
  if ($sock($1).status) sockclose $1
}
on *:sockread:proxytest_*: {
  var %proxytest.sread
  sockread %proxytest.sread

  if (40? iswm $gettok(%proxytest.sread,2,32)) || (50? iswm $gettok(%proxytest.sread,2,32)) {
    xremove all $gettok($sockname,2,95)  
    sockclose $sockname
  }
  if ($gettok(%proxytest.sread,2,32) == 200) {
    hinc -mu60 tmp $sockname

    if ($hget(tmp,$sockname) == 1) sockwrite -n $sockname CONNECT irc.undernet.org:6667 HTTP/1.0 $str($crlf,2)
    elseif ($hget(tmp,$sockname) == 2) {
      hdel tmp $sockname
      if (!$read(proxy.work,s,$gettok($sockname,2,95))) write proxy.work $gettok($sockname,2,95) $gmt
    }
  }
  if (*connection:*close* iswm %proxytest.sread) xremove all $gettok($sockname,2,95)
}

alias -l xremove {

  if ($1 == all) {
    var %xr = $read(proxy.test,s, $2), %xrn = $readn, %xr = $read(proxy.work,s,$2), %xrnn = $readn

    if (%xrn) write $+(-dl, %xrn) proxy.test
    if (%xrnn) write $+(-dl, %xrnn) proxy.work

  }
  else {
    var %xr = $read($1,s,$2), %xrn = $readn
    if (%xrn) write $+(-dl, %xrn) $1
  }
}

menu @ptools {
  clear: clear $active
}