API tools faq
paste
Advertisement
independentt

[Remote Script] Proxy Studio v1.4 by independent

independentt
Mar 17th, 2018
25,278
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 25.45 KB | None | 0 0
raw download clone embed print report
  1. ;Proxy & Socks Scanner by independent with nice dialogs & statistics.
  2. ;Will be updating this script from time to time.
  3. ;Thank you about keeping credits to me, the creator of this script.
  4. ;Skype independentt911 - /server irc-1.iownyour.biz +6697
  5.  
  6. dialog proxystudio {
  7.   title "Proxy Studio v1.4 by independent"
  8.   size -1 -1 904 627
  9.   option pixels notheme
  10.   tab "Scanner", 2, 0 -1 901 629
  11.   tab "Working Proxys", 20
  12.   tab "Proxy files And Leecher", 30
  13.   box "Configuration", 58, 676 151 225 140, tab 2
  14.   box "Proxy to test", 4, 17 33 134 576, tab 2
  15.   edit "Add proxy here", 5, 25 51 124 552, tab 2 group autohs autovs multi return vsbar limit 0
  16.   radio "Connect Proxys", 6, 155 43 100 18, tab 2
  17.   radio "Socks 4 ", 7, 155 67 100 18, tab 2
  18.   radio "Socks 5", 8, 155 91 100 18, tab 2
  19.   button "Start Scanning", 9, 261 41 98 70, tab 2
  20.   box "Sockets", 10, 151 117 208 98, tab 2
  21.   text "Open:", 11, 155 133 190 16, tab 2
  22.   text "Working Proxys:", 12, 155 155 192 18, tab 2
  23.   edit "70.83.54.187", 14, 680 184 100 20, tab 2
  24.   text "Test proxies on IP", 15, 681 166 96 16, tab 2
  25.   text "One thread each ", 16, 690 256 100 16, tab 2
  26.   edit "20", 17, 769 254 40 20, tab 2
  27.   box "Debug", 18, 163 217 506 404, tab 2
  28.   edit "Scan OUTPUT", 19, 171 235 424 378, tab 2 read multi vsbar limit 0
  29.   box "Connect Proxys", 21, 187 33 168 580, tab 20
  30.   box "Socks 4", 22, 365 33 182 580, tab 20 result
  31.   box "Socks 5", 23, 569 33 194 580, tab 20 result
  32.   edit "", 24, 193 55 154 512, tab 20 result autohs autovs multi return vsbar limit 0
  33.   edit "", 25, 375 53 162 518, tab 20 autohs autovs multi return vsbar limit 0
  34.   edit "", 26, 575 55 182 516, tab 20 result autohs autovs multi return vsbar limit 0
  35.   button "Save", 27, 191 573 66 24, tab 20
  36.   button "Save", 28, 369 575 64 26, tab 20
  37.   button "Save", 29, 577 575 64 26, tab 20
  38.   link "www.pastebin.com/u/independentt", 45, 709 1 194 18, tab 20
  39.   link "www.pastebin.com/u/independentt", 46, 697 3 184 18, tab 2
  40.   link "www.pastebin.com/u/independentt", 47, 718 1 176 16, tab 30
  41.   text "This will scan the selected proxy lists from *.txt or *log (CHOOSE PROTOCOL BEFORE)", 31, 1 266 266 30, tab 30
  42.   button "Scan multiple IP:PORT files", 32, 1 299 142 49, tab 30
  43.   radio "Connect Proxy", 33, 147 299 100 16, tab 30
  44.   radio "Socks 4", 34, 147 314 100 16, tab 30
  45.   radio "Socks 5", 35, 148 331 100 18, tab 30
  46.   button "Clear", 36, 643 575 64 26, tab 20
  47.   button "Filter", 37, 707 575 50 26, tab 20
  48.   button "Clear", 38, 433 575 66 26, tab 20
  49.   button "Filter", 39, 499 575 36 26, tab 20
  50.   button "Clear", 40, 257 573 66 24, tab 20
  51.   button "Filter", 41, 321 573 34 24, tab 20
  52.   box "MASS SCANNER", 42, -1 251 269 108, tab 30
  53.   box "Stats", 43, 13 35 146 530, tab 20
  54.   text "Total Proxys Scanned:", 44, 21 55 132 70, tab 20
  55.   text "Total Valid Proxys:", 48, 19 129 136 82, tab 20
  56.   text "Connection Errors:", 49, 17 219 136 92, tab 20
  57.   box "Proxy Leecher (Choose Protocol and Save File Before Leech)", 50, 273 46 531 572, tab 30
  58.   edit "http://www.live-socks.net/2018/03/17-03-18-socks-5-servers-7180.html ", 51, 282 102 384 434, tab 30 autohs autovs multi return hsbar limit 9999
  59.   button "Leech", 52, 372 73 66 24, tab 30
  60.   button "Save", 53, 439 74 64 24, tab 30
  61.   button "Clear", 54, 503 73 64 24, tab 30
  62.   button "Load list", 55, 308 73 64 24, tab 30
  63.   box "Stats", 56, 665 144 127 319, tab 30
  64.   text "Number of Leeched lists:", 57, 664 158 128 92, tab 30
  65.   button "Stop scanner NOW!", 59, 363 41 108 74, tab 2
  66.   text "Number of Leechable Sites:", 60, 665 251 126 66, tab 30
  67.   text "Protocol", 64, 153 26 102 18, tab 2 center
  68.   box "WHOIS tool", 65, 763 33 169 368, tab 20 result
  69.   edit "", 66, 770 60 121 20, tab 20 limit 0
  70.   button "Whois IP", 67, 789 80 65 25, tab 20
  71.   button "Clear", 69, 596 236 65 369, tab 2
  72.   box "Blacklist Scanner", 70, 480 46 192 172, tab 2
  73.   text "Proxies filtered out", 71, 487 71 166 17, tab 2
  74.   box "WHOIS info", 79, 764 110 137 168, tab 20
  75.   edit "", 80, 768 121 130 159, tab 20 result multi return hsbar
  76.   text "Filter proxy before scanning ", 72, 488 99 168 38, tab 2
  77.   check "ENABLE", 73, 503 113 100 17, tab 2 left
  78.   button "Edit Blacklist", 74, 487 147 176 56, tab 2
  79.   text "on PORT", 61, 785 167 100 17, tab 2
  80.   edit "6667", 62, 781 184 100 20, tab 2
  81.   text "Channel to join proxys", 68, 717 205 141 17, tab 2
  82.   edit "unix", 75, 725 223 100 20, tab 2 group center %def.c
  83.   text "milliseconds", 76, 807 254 100 17, tab 2
  84.   button "Close all Connections", 13, 364 124 105 90, tab 2
  85.   menu "File", 1
  86.   item "Stop Scan And Close Connections", 63, 1
  87.   item "Exit Scanner", 3, 1
  88.   item "About ME", 77, 1
  89.   item "Get more proxies and socks", 78, 1
  90. }
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97. on 1:dialog:proxystudio:sclick:9:{
  98.   hadd -m proxyset max $did(proxystudio,5,0).lines
  99.   .timerSCLICK -om $hget(proxyset,max) %interval pxys
  100.  
  101. }
  102. on 1:dialog:proxystudio:sclick:6:{
  103.   hadd -m proxyset ext pxy
  104. }
  105. on 1:dialog:proxystudio:sclick:7:{
  106.   hadd -m proxyset ext s4
  107. }
  108. on 1:dialog:proxystudio:sclick:8:{
  109.   hadd -m proxyset ext s5
  110. }
  111. on 1:dialog:proxystudio:sclick:33:{
  112.   hadd -m proxyset ext2 pxy
  113. }
  114. on 1:dialog:proxystudio:sclick:34:{
  115.   hadd -m proxyset ext2 s4
  116. }
  117. on 1:dialog:proxystudio:sclick:35:{
  118.   hadd -m proxyset ext2 s5
  119. }
  120. on 1:dialog:proxystudio:sclick:37:{
  121.   filterdiag 26
  122. }
  123. on 1:dialog:proxystudio:sclick:39:{
  124.   filterdiag 25
  125. }
  126. on 1:dialog:proxystudio:sclick:41:{
  127.   filterdiag 24
  128. }
  129. on 1:dialog:proxystudio:sclick:36:{
  130.   cleardiag 26
  131. }
  132. on 1:dialog:proxystudio:sclick:38:{
  133.   cleardiag 25
  134. }
  135. on 1:dialog:proxystudio:sclick:40:{
  136.   cleardiag 24
  137. }
  138.  
  139. on 1:dialog:proxystudio:sclick:58:{
  140.   abord
  141.  
  142. }
  143. on 1:dialog:proxystudio:sclick:59:{
  144.   .play stop
  145.   .timer* off
  146.   did -a proxystudio 19 Stopped Scanner threads. $crlf
  147.  
  148. }
  149. on 1:dialog:proxystudio:menu:63:{
  150.   did -a proxystudio 19 Stopped Scanner threads and Closed all Connections. $crlf
  151.   .play stop
  152.   .timer* off
  153.   sockclose *
  154.  
  155.  
  156. }
  157. on 1:dialog:proxystudio:menu:3:{
  158.   exit
  159.  
  160. }
  161. on 1:dialog:proxystudio:menu:77:{
  162.   echo -a `*******************************************************************************************
  163.   echo -a `*                         Proxy studio v 1.4 by independent                               *
  164.   echo -a `* 12https://sourceforge.net/projects/proxy-studio/files/latest/download?source=typ_redirect *
  165.   echo -a `*       Contact Skype: independentt911 | IRC: /server irc-1.iownyour.biz +6697            *
  166.   echo -a `*                   DONATE BITCOIN: 3EqwvLo8Cf9Vk86t7EX8ez4DsYX3drWZzF                    *
  167.   echo -a `*******************************************************************************************
  168.   did -a proxystudio 19 $crlf
  169.   did -a proxystudio 19 Proxy studio v 1.4 by independent $crlf                              
  170.   did -a proxystudio 19 https://sourceforge.net/projects/proxy-studio/files/latest/download?source=typ_redirect $crlf
  171.   did -a proxystudio 19 Contact Skype: independentt911 | IRC: /server irc-1.iownyour.biz +6697 $crlf
  172.   did -a proxystudio 19 DONATE BITCOIN: 3EqwvLo8Cf9Vk86t7EX8ez4DsYX3drWZzF $crlf
  173.   did -a proxystudio 19 $crlf
  174. }
  175. on 1:dialog:proxystudio:menu:78:{
  176.   run https://www.pastebin.com/LtKn7qvh
  177. }
  178. on 1:dialog:proxystudio:sclick:69:{
  179.   cleardiag 19
  180. }
  181. on 1:dialog:proxystudio:sclick:52:{
  182.   leech
  183.  
  184. }
  185. on 1:dialog:proxystudio:sclick:54:{
  186.   cleardiag 51
  187. }
  188. on 1:dialog:proxystudio:sclick:55:{
  189.   loadbuf -oi proxystudio 51 leech.txt
  190.   did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)
  191.  
  192. }
  193. on 1:dialog:proxystudio:sclick:53:{
  194.   savebuf -oi proxystudio 51 leech.txt
  195.   did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)
  196.  
  197. }
  198. on 1:dialog:proxystudio:sclick:62:{
  199.   write leech.txt $did(proxystudio,61) $CRLF
  200.   loadbuf -oi proxystudio 51 leech.txt
  201.   did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)
  202. }
  203. alias sortnumber {
  204.   return $iif($1 > $2, 1, $iif($1 == $2,0,-1))
  205. }
  206. alias filterdiag {
  207.   filter -iocsa proxystudio $1 proxystudio $1 sortnumber
  208. }
  209. alias cleardiag {
  210.   did -r proxystudio $1
  211. }
  212. on 1:dialog:proxystudio:sclick:27:{
  213.   %name = Valid.Proxys. $+ $ticks $+ .txt
  214.   savebuf -o proxystudio 24 %name
  215.   run %name
  216. }
  217. on 1:dialog:proxystudio:sclick:28:{
  218.   %name = Valid.socks4. $+ $ticks $+ .txt
  219.   savebuf -o proxystudio 25 %name
  220.   run %name
  221. }
  222. on 1:dialog:proxystudio:sclick:29:{
  223.   %name = Valid.socks5. $+ $ticks $+ .txt
  224.   savebuf -o proxystudio 26 %name
  225.   run %name
  226. }
  227. on 1:dialog:proxystudio:sclick:68:{
  228.   hadd -m proxyset max $did(proxystudio,24,0).lines
  229.   :loop
  230.   hinc -u5 proxyset inc
  231.  
  232.   if ($hget(proxyset,inc) < $hget(proxyset,max)) { resolve $gettok($did(proxystudio,24,$hget(proxyset,inc)),1,58) | goto loop }
  233. }
  234. on 1:dialog:proxystudio:sclick:32:{
  235.   if ($hget(proxyset,ext2) == pxy) selectmultiplefile
  236.   if ($hget(proxyset,ext2) == s4) selectmultiplefiles4
  237.   if ($hget(proxyset,ext2) == s5) selectmultiplefiles5
  238. }
  239. on 1:dialog:proxystudio:edit:17:{
  240.   did -a proxystudio 19 Interval changed to $did(proxystudio,17) $CRLF
  241.   set %interval $did(proxystudio,17)
  242. }
  243. on 1:dialog:proxystudio:edit:14:{
  244.   set %def.s $did(proxystudio,14)
  245.   did -a proxystudio 19 IRC server changed to $did(proxystudio,14) $crlf
  246. }
  247. on 1:dialog:proxystudio:sclick:13:{
  248.   sockclose *
  249.   did -a proxystudio 19 Closed all connections. $crlf
  250. }
  251. on 1:dialog:proxystudio:edit:10:{
  252.   did -a proxystudio 19 Proxys added to scan: $did(proxystudio,10).len $crlf
  253. }
  254. on 1:dialog:proxystudio:edit:75:{
  255.   did -a proxystudio 19 Channel to load proxys/socks $chr(35) $+ $did(proxystudio,75) $crlf
  256.   set %def.c $chr(35) $+ $did(proxystudio,75)
  257. }
  258. on 1:dialog:proxystudio:edit:62:{
  259.   did -a proxystudio 19 Port to load on changed $did(proxystudio,62) $crlf
  260.   set %def.p $did(proxystudio,62)
  261. }
  262. on 1:dialog:proxystudio:sclick:38:{
  263.   hadd -m proxyset max $did(proxystudio,5,0).lines
  264.   .timerSCLICK -om $hget(proxyset,max) %interval pxys
  265.  
  266. }
  267.  
  268. on 1:dialog:proxystudio:sclick:67:{
  269.   cleardiag 80
  270.   resolve $did(proxystudio,66)
  271. }
  272. on 1:dialog:proxystudio:sclick:74:{
  273.   RUN NOTEPAD blacklist.txt
  274. }
  275.  
  276. alias pxys {
  277.   hinc -u5 proxyset inc
  278.  
  279.   if ($hget(proxyset,ext) == pxy) || (!$hget(proxyset,ext)) sc4n $did(proxystudio,5,$hget(proxyset,inc))
  280.   if ($hget(proxyset,ext) == s4) s4.scan $did(proxystudio,5,$hget(proxyset,inc))
  281.   if ($hget(proxyset,ext) == s5) s5.scan $did(proxystudio,5,$hget(proxyset,inc))
  282. }
  283.  
  284.  
  285.  
  286. alias -l htmlfree {
  287.   var %x, %i = $regsub($replace($1-,<td>,$chr(32),<tr>,$chr(20),<br>,$chr(20)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  288.   return %x
  289. }
  290. ALIAS DEF.p { %z = $r(0,1) | if (%z) return %def.p | else return 6667 }
  291. ALIAS DEF.S { return %def.s }
  292. alias getiphost2 {
  293.   %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
  294.   if $regex(ip,$remove($1-,$chr(9)),%var) {
  295.     return $replace($regml(ip,1),:,$chr(32))
  296.   }
  297. }
  298. alias getsource {
  299.   %out = $shortfn($mircdirleech $+ . $+ $hget(proxyset,ext2) $+ . $+ $ctime $+ .txt)
  300.   if ($isfile(get.vbs)) .remove get.vbs
  301.   %a = write get.vbs
  302.   %a Dim FSO, dFile, sHTML
  303.  
  304.   %a sHTML = Get_HTML(" $+ $1 $+ ")
  305.  
  306.   %a Set FSO = CreateObject("Scripting.FileSystemObject")
  307.   %a Set dFile = FSO.CreateTextFile(" $+ %out $+ ", True)
  308.  
  309.   %a dFile.Write sHTML
  310.   %a dFile.Close
  311.  
  312.   %a Private Function Get_HTML (up_http)
  313.   %a  Dim xmlhttp
  314.   %a  Set xmlhttp = createobject("MSXML2.XMLHTTP")
  315.  
  316.   %a  xmlhttp.open "get", up_http, False
  317.   %a  xmlhttp.send
  318.   %a  Get_HTML = xmlhttp.responsetext
  319.  
  320.   %a  set xmlhttp = Nothing
  321.   %a End Function
  322.   run get.vbs
  323.   return %out
  324.   run %out
  325. }
  326. alias leech {
  327.   if (!%interval) %interval = 20
  328.   did -a proxystudio 19 $timestamp * Now leeching proxy-lists over the web. $crlf
  329.   set %site.max $lines(leech.txt)
  330.   set %site.inc 0
  331.   :GO
  332.   inc %site.inc
  333.   .timer -o 1 $calc(%site.inc *5) pxx %site.inc
  334.   if (%site.inc < %site.max) goto go
  335.   else { halt }
  336. }
  337. 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 }
  338. alias getURL {
  339.   noop $regex($1,/(((http(s)?\72(\57{2}))|(www\56{1}))+(\w*)+(\56{1})+(\w{2,3})\S*)/Sig))
  340.   return $regml(1)
  341. }
  342. alias sc5nfile { s5.scan $1- }
  343. alias sc4nfile { s4.scan $1- }
  344. alias sc4n {
  345.   hadd -m proxyset filtered $gettok($getiphost2($1-),1-2,46) $+ *
  346.   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 }
  347.   if (*.*.*.*  iswm $1-) && ($1 != x) && ($2)  {
  348.     if ($read($pxy,w,* $+ $1 $+ *) != $null) { did -a proxystudio 19 $1 $2 Already in list, halted scan. $crlf | return }
  349.     did -a proxystudio 19 Scanning: $1 $2 $crlf
  350.     sockopen scan $+ $r(0,99999999999999) $1 $2
  351.     return
  352.   }
  353.   if ($getiphost2($1-)) {
  354.     if ($read($pxy,w,* $+ $gettok($getiphost2($1-),1,32) $+ *) != $null) { did -a proxystudio 19 $1 $+ : %+ $2 Already in list, halted scan. $crlf | goto next }
  355.     did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
  356.     sockopen scan $+ $r(0,99999999999999) $getiphost2($1-)
  357.     goto next
  358.   }
  359.   if (*.*.*.* !iswm $1-) goto next
  360.   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 }
  361.   :next
  362. }
  363. alias setinterval {
  364.   :restart
  365.   %interval = $?="Enter interval in milliseconds, 1 to 10000 "
  366.   if (!$!) || ($! >= 10000) goto restart
  367. }
  368. on 1:START:defaultset
  369. alias defaultset { %interval = 20 | %def.s = 70.83.54.187 | %def.p = 6667 | %def.c = #unix }
  370. 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 } }
  371. 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 }
  372. menu * {
  373.   [-Proxy Studio-]: dialog -m proxystudio proxystudio
  374. }
  375.  
  376. alias pxy return ValidProxy.txt
  377. alias abord { play stop | .timerleech off | .timerpl.* off | sockclose *scan* | sockclose *fl* | .timer*scan* off | hfreepxy | hfrees4 | hfrees5 }
  378. on *:INPUT:@Proxyscan:{
  379.   if ($getiphost2($1-)) {
  380.     hadd -m proxy pxy $+ $gettok($getiphost2($1-),1,32) $getiphost2($1-)
  381.     .timerscanfile -om 1 1 .pxyfile temp %interval
  382.     return
  383.   }
  384.   if (!$getiphost2($1-)) && ($wildtok($1-,*.*.*.*,1,32)) sc4n $wildtok($1-,*.*.*.*,1,32)
  385. }
  386. alias hfreepxy { hfree proxy }
  387. alias hfrees4 { hfree socks4 }
  388. alias hfrees5 { hfree socks5 }
  389. alias sk {
  390.   set -u1 %chkk $read($pxy,w,* $+ $sock($sockname).ip $+ *)
  391.   if (!%chkk) && (*9* iswm $1) write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
  392. }
  393. on *:sockopen:scan*:{
  394.   hinc -m proxyset total
  395.   did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  396.   hinc -u120 proxyset open
  397.   did -a proxystudio 11 Open: $hget(proxyset,open)
  398.   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 }
  399.  
  400.  
  401.   sockwrite -tn $sockname CONNECT $def.s $+ : $+ %def.p HTTP/1.1 $crlf
  402.   sockwrite -tn $sockname $crlf
  403.   sockmark $sockname $ticks
  404.   did -a proxystudio 19 $sock($sockname).ip $sock($sockname).port Connecting ... $crlf
  405.  
  406. }
  407. alias success {
  408.   did -a proxystudio 19 $1- $crlf
  409.   sk $1
  410. }
  411. alias allpxy return ALL.txt
  412. alias portclose { sockclose $1 }
  413.  
  414. on *:SOCKREAD:scan*:{
  415.   sockread %fld
  416.   if (!$sock($sockname).mark) || ($sock($sockname).mark == c) sockmark $sockname $ctime
  417.   if (*http*200* iswm %fld) {
  418.     did -a proxystudio 24 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
  419.     hinc proxyset work
  420.     did -a proxystudio 12 Working Proxys: $hget(proxyset,work)
  421.  
  422.     did -a proxystudio 48 Total Valid Proxys: $hget(proxyset,work)
  423.     sox $sockname
  424.     success * $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! Lag: $calc($ticks - $sock($sockname).mark) ms
  425.     sockmark $sockname $ctime
  426.  
  427.   }
  428. }
  429. 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 }
  430. alias pb return did -a proxystudio 19
  431. alias scanfile { sc4n $iif($getiphost2($1-),$getiphost2($1-),$2) }
  432. alias pxyfile {
  433.   if ($1 != temp) .timer -o 1 6 play -a scanfile @proxyscan $1 $2
  434.   else {
  435.     did -a proxystudio 19 Scanning $hfind(proxy,*,0,w) Proxys with %interval $+ ms interval to %def.s $crlf
  436.     .timerSCANpxy -om $hfind(proxy,*,0,w) %interval scann pxy
  437.   }
  438. }
  439. alias scann {
  440.   if ($1 == pxy) {
  441.     hinc -mu2 count hinc2
  442.     sc4n $hget(proxy,$hfind(proxy,*,$hget(count,hinc2),w))
  443.     .timerscanfileoff 1 5 .hfreepxy
  444.   }
  445.   if ($1 == s4) {
  446.     hinc -mu2 count hinc3
  447.     s4.scan $hget(socks4,$hfind(socks4,*,$hget(count,hinc3),w))
  448.     .timerscanfileoffs4 1 5 .hfrees4
  449.   }
  450.   if ($1 == s5) {
  451.     hinc -mu2 count hinc4
  452.     s5.scan $hget(socks5,$hfind(socks5,*,$hget(count,hinc4),w))
  453.     .timerscanfileoffs5 1 5 .hfrees5
  454.   }
  455. }
  456. alias s5.scan {
  457.   hadd -m proxyset filtered $gettok($getiphost2($1-),1-2,46) $+ *
  458.   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 }
  459.   if (!$1) goto END
  460.   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 }
  461.   if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
  462.     if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) {
  463.       sockopen s5chk $+ $r(0,9999999) $1 $2
  464.       did -a proxystudio 19  Scanning: $1 $2 $crlf
  465.     }
  466.   }
  467.   elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null)  {
  468.     sockopen s5chk $+ $r(0,9999999) $getiphost2($1-)
  469.     did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
  470.   }
  471.   :END
  472. }
  473. 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 }
  474. 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 }
  475. alias s4.scan {
  476.   hadd -m proxyset filtered $gettok($getiphost2($1-),1-2,46) $+ *
  477.   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 }
  478.   if (!$1) goto END
  479.   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 }
  480.   if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
  481.     if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) {
  482.       sockopen s4chk $+ $r(0,9999999) $1 $2
  483.       did -a proxystudio 19  Scanning: $1 $2 $crlf
  484.     }
  485.   }
  486.   elseif (*.*.*.*:* iswm $1-) && ($read(sock4.txt,w,* $+ $getiphost2($1-) $+ *) == $null) {
  487.     sockopen s4chk $+ $r(0,9999999) $getiphost2($1-)
  488.     did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
  489.   }
  490.   :END
  491. }
  492. on *:sockopen:s5chk*:{
  493.   hinc -m proxyset total
  494.   did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  495.   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 }
  496.   hinc -m proxyset total
  497.   did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  498.   hinc -u120 proxyset open
  499.   did -a proxystudio 11 Open: $hget(proxyset,open)
  500.  
  501.   .bset &bvar5 1 5 1 0
  502.   .sockwrite -n $sockname &bvar5
  503.   .bunset &bvar5
  504. }
  505. on *:sockread:s5chk*:{
  506.   if ($sockbr) { return }
  507.   .sockread &bsocks5
  508.   if ($bvar(&bsocks5,1,2) != 5 0) { return }
  509.   if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {
  510.  
  511.     sockmark $sockname $ticks
  512.     bset &socks5  1 5 1 0 1 $replace($def.s,.,$chr(32)) $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46)
  513.     .sockwrite -n $sockname &socks5
  514.     .bunset &socks5
  515.     hinc proxyset work
  516.     did -a proxystudio 48 Total Valid Proxys: $hget(proxyset,work)
  517.     did -a proxystudio 12 Working Proxys: $hget(proxyset,work)
  518.     did -a proxystudio 26 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
  519.     sox $sockname
  520.     suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port Lag: $calc($ticks - $sock($sockname).mark) $+ ms
  521.  
  522.   }
  523. }
  524. on *:sockread:idle*:{
  525.   sockread %idle
  526.   if ($gettok(%idle,1,32) == PING) { sockwrite -nt $sockname PONG $gettok(%idle,2,32) | sox $sockname }
  527.   if (*nospoof* iswm $gettok(%idle,1,32)) { sockwrite -n $sockname NOTICE $remove($gettok($1,1,33),:) :NOSPOOF | sox $sockname }
  528.   if ($gettok(%idle,2,32) == 451) { sockwrite -nt $sockname PONG $gettok(%idle,2,32) | sox $sockname }
  529. }
  530. alias sox {
  531.   sockwrite -nt $sockname CAPS LS
  532.   hadd -mu30 socket $1 true
  533.   sockwrite -n $1 NICK pxy $+ $r(0,99999999)
  534.   sockwrite -n $1 USER PxY 0 0 :x " $+ $sock($1).ip $sock($1).port "
  535.   sockwrite -n $1 JOIN %def.c
  536.   sockrename $1 idle $+ $r(0,999999999999999999)
  537. }
  538. on 1:SOCKREAD:chks5*:{
  539.   sockread %socks5
  540.   if ($chr(5) isin $gettok(%socks5,1-3,32)) {
  541.  
  542.   }
  543. }
  544. alias suces4 { did -a proxystudio 19 *work $1- $crlf | sk4 }
  545. alias suces5 { did -a proxystudio 19 *work $1- $crlf | sk5 }
  546. alias sk4 {
  547.   set -u3 %rady $read(sock4.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  548.   if (!%rady) write sock4.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
  549.  
  550. }
  551. alias sk5 {
  552.   set -u3 %redy $read(sock5.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  553.   if (!%redy) write sock5.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
  554. }
  555. on *:sockopen:s4chk*:{  
  556.   hinc -m proxyset total
  557.   did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  558.   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 }
  559.   hinc -u120 proxyset open
  560.   did -a proxystudio 11 Open: $hget(proxyset,open)
  561.  
  562.   sockmark $sockname $ticks
  563.   .bset &bvar4 1 4 1 $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46) $replace($def.s,.,$chr(32)) 0
  564.   .sockwrite $sockname &bvar4
  565.   .bunset &bvar4
  566. }
  567. ON *:SOCKREAD:s4chk*:{
  568.   .sockread &bsocks4
  569.   if ($bvar(&bsocks4,2) != 90) { echo 4 @sock4 Bad $sock($sockname).ip $+ : $+ $sock($sockname).port return $bvar(&bsocks4,2-) | return }
  570.   if ($bvar(&bsocks4,2) == 90) {
  571.     did -a proxystudio 25 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
  572.     hinc proxyset work
  573.     did -a proxystudio 12 Working Proxys: $hget(proxyset,work)
  574.     did -a proxystudio 48 Total Valid Proxys: $hget(proxyset,work)
  575.     sox $sockname
  576.     suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - $sock($sockname).mark)) $+ ms
  577.  
  578.  
  579.   }
  580. }
  581. 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 }
  582. 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 }
  583. alias scans4file { s4.scan $getiphost2($1-) }
  584. alias s4file {
  585.   if ($1 != temp.s4) .timer -o 1 6 play -a scans4file @sock4 $1-
  586.   else {
  587.     did -a proxystudio 19  Scanning $hfind(socks4,*,0,w) Socks4 with %interval $+ ms interval to %def.s $crlf
  588.     .timerSCANs4 -om $hfind(socks4,*,0,w) %interval scann s4
  589.   }
  590. }
  591. alias scans5file { s5.scan $getiphost2($1-) }
  592. alias s5file {
  593.   if ($1 != temp.s5) .timer -o 1 6 play -a scans5file @sock5 $1-
  594.   else {
  595.     did -a proxystudio 19 Scanning $hfind(socks5,*,0,w) Socks5 with %interval $+ ms interval to %def.s $crlf
  596.     .timerSCANs5 -om $hfind(socks5,*,0,w) %interval scann s5
  597.   }
  598. }
  599. alias resolve {
  600.   hadd -m resolve ip $1
  601.   sockopen resolve.ip_ $+ $r(0,89999) ipinfo.io 80
  602. }
  603. on *:sockopen:resolve.ip*:{
  604.   var %a = sockwrite -n $sockname
  605.   var %b = / $+ $hget(resolve,ip)
  606.   %a GET %b HTTP/1.0
  607.   %a Host: ipinfo.io
  608.   %a User-Agent: ProxyStudio by independent
  609.   %a Accept: application/json, text/javascript, */*; q=0.01
  610.   %a Connection: keep-alive
  611.   %a Referer: http://www.iplocation.net/
  612.   %a Origin: http://www.iplocation.net/
  613.   %a $crlf
  614.  
  615. }
  616. on *:sockread:resolve.ip*:{
  617.   :read
  618.   sockread %sockread
  619.   if (!$sockbr) return
  620.   if (*Hostname*:* iswm %sockread) did -a proxystudio 80 %sockread $crlf
  621.   if (*ISP*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
  622.   if (*Country*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
  623.   if (*City*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
  624.   if (*org*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
  625.   if (*loc*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
  626.   if (*region*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
  627.   if (*postal*:* iswm %sockread) { did -a proxystudio 80 %sockread $crlf }
  628.   goto read
  629. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!