Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;Proxy & Socks Scanner by independent with nice dialogs & statistics.
- ;Will be updating this script from time to time.
- ;Thank you about keeping credits to me, the creator of this script.
- ;Skype independentt911 - /server irc-1.iownyour.biz +6697
- dialog proxystudio {
- title "Proxy Studio v1.3 by independent"
- size -1 -1 975 641
- option pixels notheme
- tab "Scanner", 2, 3 1 963 629
- tab "Working Proxys", 20
- tab "Proxy files And Leecher", 30
- box "Proxy to test", 4, 18 32 134 576, tab 2
- edit "Add proxy here", 5, 26 50 124 552, tab 2 group autohs autovs multi return vsbar limit 0
- radio "Connect Proxys", 6, 156 42 100 18, tab 2
- radio "Socks 4 ", 7, 156 66 100 18, tab 2
- radio "Socks 5", 8, 156 90 100 18, tab 2
- button "Start Scanning", 9, 262 40 98 70, tab 2
- box "Sockets", 10, 152 116 208 98, tab 2
- text "Open:", 11, 156 132 190 16, tab 2
- text "Working Proxys:", 12, 156 154 192 18, tab 2
- box "Settings", 13, 364 80 104 122, tab 2
- edit "172.86.120.218", 14, 366 116 100 20, tab 2
- text "IRC Server test IP", 15, 368 98 96 16, tab 2
- text "ms between threads", 16, 368 140 100 16, tab 2
- edit "200", 17, 390 159 40 20, tab 2
- box "Debug", 18, 164 216 506 404, tab 2
- edit "Scan OUTPUT", 19, 172 234 424 378, tab 2 read autohs autovs multi return vsbar
- box "Connect Proxys", 21, 188 32 168 580, tab 20
- box "Socks 4", 22, 366 32 182 580, tab 20 result
- box "Socks 5", 23, 570 32 194 580, tab 20 result
- edit "", 24, 194 54 154 512, tab 20 result autohs autovs multi return vsbar
- edit "", 25, 376 52 162 518, tab 20 autohs autovs multi return vsbar limit 0
- edit "", 26, 576 54 182 516, tab 20 result autohs autovs multi return vsbar
- button "Save", 27, 192 572 66 24, tab 20
- button "Save", 28, 370 574 64 26, tab 20
- button "Save", 29, 578 574 64 26, tab 20
- link "www.pastebin.com/u/independentt", 45, 710 0 194 18, tab 20
- link "www.pastebin.com/u/independentt", 46, 698 2 184 18, tab 2
- link "www.pastebin.com/u/independentt", 47, 721 3 176 16, tab 30
- text "This will scan the selected proxy lists from *.txt or *log", 31, 4 268 266 30, tab 30
- button "Scan my files, NOW.", 32, 10 297 142 68, tab 30
- radio "Connect Proxy", 33, 172 300 100 16, tab 30
- radio "Socks 4", 34, 172 315 100 16, tab 30
- radio "Socks 5", 35, 171 333 100 18, tab 30
- button "Clear", 36, 644 574 64 26, tab 20
- button "Filter", 37, 708 574 50 26, tab 20
- button "Clear", 38, 434 574 66 26, tab 20
- button "Filter", 39, 500 574 36 26, tab 20
- button "Clear", 40, 258 572 66 24, tab 20
- button "Filter", 41, 322 572 34 24, tab 20
- box "MASS SCANNER", 42, 2 253 272 124, tab 30
- box "Stats", 43, 14 34 146 530, tab 20
- text "Total Proxys Scanned:", 44, 22 54 132 70, tab 20
- text "Total Valid Proxys:", 48, 20 128 136 82, tab 20
- text "Connection Errors:", 49, 18 218 136 92, tab 20
- box "Proxy Leecher", 50, 276 48 531 572, tab 30
- edit "http://www.vipsocks24.net/2017/11/16-11-17-vip-socks-5-servers-4150.html", 51, 285 104 384 434, tab 30 autohs autovs multi return hsbar
- button "Leech", 52, 375 75 66 24, tab 30
- button "Save", 53, 442 76 64 24, tab 30
- button "Clear", 54, 506 75 64 24, tab 30
- button "Load list", 55, 311 75 64 24, tab 30
- box "Stats", 56, 668 146 127 319, tab 30
- text "Number of Leeched lists:", 57, 667 160 128 92, tab 30
- button "Stop scanner NOW!", 59, 366 38 100 40, tab 2
- text "Number of Leechable Sites:", 60, 668 253 126 66, tab 30
- text "Protocol", 64, 154 25 102 18, tab 2 center
- box "WHOIS tool", 65, 772 35 169 368, tab 20 result
- edit "", 66, 782 61 121 20, tab 20 limit 0
- button "Whois IP", 67, 794 79 65 25, tab 20
- button "Clear", 69, 597 235 65 369, tab 2
- box "Blacklist Scanner", 70, 481 45 291 104, tab 2
- text "Proxies filtered out", 71, 490 70 166 17, tab 2
- box "WHOIS info", 79, 781 203 149 185, tab 20
- edit "", 80, 788 222 134 159, tab 20 result multi return hsbar
- text "Filter proxy before scanning ", 72, 489 98 267 38, tab 2
- check "ENABLE", 73, 504 112 100 17, tab 2
- button "Edit Blacklist", 74, 672 65 65 25, tab 2
- menu "File", 1
- item "STOP ALL", 63, 1
- item "Item3", 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:37: {
- filterdiag 26
- }
- on 1:dialog:proxystudio:sclick:39: {
- filterdiag 25
- }
- on 1:dialog:proxystudio:sclick:41: {
- filterdiag 24
- }
- on 1:dialog:proxystudio:sclick:36: {
- cleardiag 26
- }
- on 1:dialog:proxystudio:sclick:38: {
- cleardiag 25
- }
- on 1:dialog:proxystudio:sclick:40: {
- cleardiag 24
- }
- on 1:dialog:proxystudio:sclick:58: {
- abord
- }
- on 1:dialog:proxystudio:sclick:59: {
- abord
- }
- on 1:dialog:proxystudio:sclick:69: {
- cleardiag 19
- }
- on 1:dialog:proxystudio:sclick:52: {
- leech
- }
- on 1:dialog:proxystudio:sclick:54: {
- cleardiag 51
- }
- on 1:dialog:proxystudio:sclick:55: {
- loadbuf -oi proxystudio 51 leech.txt
- did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)
- }
- on 1:dialog:proxystudio:sclick:53: {
- savebuf -oi proxystudio 51 leech.txt
- did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)
- }
- on 1:dialog:proxystudio:sclick:62: {
- write leech.txt $did(proxystudio,61) $CRLF
- loadbuf -oi proxystudio 51 leech.txt
- did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)
- }
- alias sortnumber {
- return $iif($1 > $2, 1, $iif($1 == $2,0,-1))
- }
- alias filterdiag {
- filter -iocsa proxystudio $1 proxystudio $1 sortnumber
- }
- alias cleardiag {
- did -r proxystudio $1
- }
- on 1:dialog:proxystudio:sclick:27: {
- %name = Valid.Proxys. $+ $ticks $+ .txt
- savebuf -o proxystudio 24 %name
- run %name
- }
- on 1:dialog:proxystudio:sclick:28: {
- %name = Valid.socks4. $+ $ticks $+ .txt
- savebuf -o proxystudio 25 %name
- run %name
- }
- on 1:dialog:proxystudio:sclick:29: {
- %name = Valid.socks5. $+ $ticks $+ .txt
- savebuf -o proxystudio 26 %name
- run %name
- }
- on 1:dialog:proxystudio:sclick:68: {
- hadd -m proxyset max $did(proxystudio,24,0).lines
- :loop
- hinc -u5 proxyset inc
- if ($hget(proxyset,inc) < $hget(proxyset,max)) { resolve $gettok($did(proxystudio,24,$hget(proxyset,inc)),1,58) | goto loop }
- }
- 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:edit:10: {
- did -a proxystudio 19 Proxys added to scan: $did(proxystudio,10).len $crlf
- }
- on 1:dialog:proxystudio:sclick:38: {
- hadd -m proxyset max $did(proxystudio,5,0).lines
- .timerSCLICK -om $hget(proxyset,max) %interval pxys
- }
- on 1:dialog:proxystudio:sclick:67: {
- resolve $did(proxystudio,66)
- }
- on 1:dialog:proxystudio:sclick:74: {
- RUN NOTEPAD blacklist.txt
- }
- 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 -l htmlfree {
- var %x, %i = $regsub($replace($1-,<td>,$chr(32),<tr>,$chr(20),<br>,$chr(20)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
- 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 {
- %out = $shortfn($mircdirleech $+ . $+ $hget(proxyset,ext2) $+ . $+ $ctime $+ .txt)
- if ($isfile(get.vbs)) .remove get.vbs
- %a = write get.vbs
- %a Dim FSO, dFile, sHTML
- %a sHTML = Get_HTML(" $+ $1 $+ ")
- %a Set FSO = CreateObject("Scripting.FileSystemObject")
- %a Set dFile = FSO.CreateTextFile(" $+ %out $+ ", True)
- %a dFile.Write sHTML
- %a dFile.Close
- %a Private Function Get_HTML (up_http)
- %a Dim xmlhttp
- %a Set xmlhttp = createobject("MSXML2.XMLHTTP")
- %a xmlhttp.open "get", up_http, False
- %a xmlhttp.send
- %a Get_HTML = xmlhttp.responsetext
- %a set xmlhttp = Nothing
- %a End Function
- run get.vbs
- return %out
- run %out
- }
- alias leech {
- if (!%interval) %interval = 100
- did -a proxystudio 19 $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 *5) pxx %site.inc
- if (%site.inc < %site.max) goto go
- else { halt }
- }
- alias pxx { did -a proxystudio 19 Leeching...saving to: $getsource($read(leech.txt,$1)) %interval ms $crlf | did -a proxystudio 57 Number of Leeched lists: %site.inc }
- 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 {
- hadd -m proxyset filtered $gettok($1,1-2,46) $+ *
- if ($read(blacklist.txt,w,$hget(proxyset,filtered),1)) && ($did(proxystudio,73).enabled == $true) { did -a proxystudio 19 $1 $2 FILTERED/BLACKLIST Proxy $crlf | hinc -m proxyset filter | did -a proxystudio 71 Proxies filtered out: $hget(proxyset,filter) $CRLF | return }
- 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 = 172.86.120.218 | %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 -m proxyset total
- did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
- hinc -u120 proxyset open
- did -a proxystudio 11 Open: $hget(proxyset,open)
- if ($sockerr > 0) { hinc -m proxyset conerr | did -a proxystudio 49 Connection Errors: $hget(proxyset,conerr) | 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 }
- sockwrite -tn $sockname CONNECT $def.s $+ :6667 HTTP/1.1 $crlf
- sockwrite -tn $sockname $crlf
- sockmark $sockname $ticks
- did -a proxystudio 19 $sock($sockname).ip $sock($sockname).port Connecting ... $crlf
- }
- alias success {
- did -a proxystudio 19 $1- $crlf
- sk $1
- }
- alias allpxy return ALL.txt
- alias portclose { sockclose $1 }
- on *:SOCKREAD:scan*:{
- sockread %fld
- 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)
- did -a proxystudio 48 Total Valid Proxys: $hget(proxyset,work)
- sox $sockname
- success * $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! Lag: $calc($ticks - $sock($sockname).mark) ms
- sockmark $sockname $ctime
- }
- }
- 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 %def.s $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 {
- hadd -m proxyset filtered $gettok($1,1-2,46) $+ *
- if ($read(blacklist.txt,w,$hget(proxyset,filtered),1)) && ($did(proxystudio,73).enabled == $true) { did -a proxystudio 19 $1 $2 FILTERED/BLACKLIST Proxy $crlf | hinc -m proxyset filter | did -a proxystudio 71 Proxies filtered out: $hget(proxyset,filter) $CRLF | return }
- 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 {
- hadd -m proxyset filtered $gettok($1,1-2,46) $+ *
- if ($read(blacklist.txt,w,$hget(proxyset,filtered),1)) && ($did(proxystudio,73).enabled) { did -a proxystudio 19 $1 $2 FILTERED/BLACKLIST Proxy $crlf | hinc -m proxyset filter | did -a proxystudio 71 Proxies filtered out: $hget(proxyset,filter) $CRLF | return }
- 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(sock4.txt,w,* $+ $getiphost2($1-) $+ *) == $null) {
- sockopen s4chk $+ $r(0,9999999) $getiphost2($1-)
- did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
- }
- :END
- }
- on *:sockopen:s5chk*:{
- hinc -m proxyset total
- did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
- if ($sockerr) { hinc -m proxyset conerr | did -a proxystudio 49 Connection Errors: $hget(proxyset,conerr) | did -a proxystudio 19 Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) $crlf | return }
- hinc -m proxyset total
- did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
- 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
- sox $sockname
- suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port Lag: $calc($ticks - $sock($sockname).mark) $+ ms
- }
- }
- on *:sockread:idle*:{
- sockread %idle
- if ($gettok(%idle,1,32) == PING) { sockwrite -nt $sockname PONG $gettok(%idle,2,32) | sox $sockname }
- if (*nospoof* iswm $gettok(%idle,1,32)) { sockwrite -n $sockname NOTICE $remove($gettok($1,1,33),:) :NOSPOOF | sox $sockname }
- if ($gettok(%idle,2,32) == 451) { sockwrite -nt $sockname PONG $gettok(%idle,2,32) | sox $sockname }
- }
- alias sox {
- sockwrite -nt $sockname CAPS LS
- hadd -mu30 socket $1 true
- sockwrite -n $1 NICK pxy $+ $r(0,99999999)
- sockwrite -n $1 USER PxY 0 0 :x " $+ $sock($1).ip $sock($1).port "
- sockwrite -n $1 JOIN #unix
- sockrename $1 idle $+ $r(0,999999999999999999)
- }
- on 1:SOCKREAD:chks5*:{
- sockread %socks5
- if ($chr(5) isin $gettok(%socks5,1-3,32)) {
- }
- }
- 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
- }
- 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
- }
- on *:sockopen:s4chk*:{
- hinc -m proxyset total
- did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
- if ($sockerr) { hinc -m proxyset conerr | did -a proxystudio 49 Connection Errors: $hget(proxyset,conerr) | 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)
- sox $sockname
- 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 $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 $crlf
- .timerSCANs5 -om $hfind(socks5,*,0,w) %interval scann s5
- }
- }
- alias resolve {
- hadd -m resolve ip $1
- sockopen resolve.ip_ $+ $r(0,89999) ipinfo.io 80
- }
- on *:sockopen:resolve.ip*: {
- var %a = sockwrite -n $sockname
- var %b = / $+ $hget(resolve,ip)
- %a GET %b HTTP/1.0
- %a Host: ipinfo.io
- %a User-Agent: ProxyStudio by independent
- %a Accept: application/json, text/javascript, */*; q=0.01
- %a Connection: keep-alive
- %a Referer: http://www.iplocation.net/
- %a Origin: http://www.iplocation.net/
- %a $crlf
- }
- on *:sockread:resolve.ip*: {
- :read
- sockread %sockread
- if (!$sockbr) return
- if (*Hostname*:* iswm %sockread) did -a proxystudio 80 %sockread $crlf
- if (*ISP*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
- if (*Country*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
- if (*City*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
- if (*org*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
- if (*loc*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
- if (*region*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
- if (*postal*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
- goto read
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement