By Jonesy44 on Jan 20, 2010[b]Updated: The website decided to incorporate some sort of useless encoding of URL's to proxies. This script takes care of that using the decode keys (different per page). Report any problems
Jonesy44[/b]
mIRC Script to download a proxy list. Ordered by latest checked working proxys within the last few minutes so they should be A-ok! The list is downloaded to "ProxyList.dat" in your /mIRC folder. Type "//run ProxyList.dat" once downloaded to view it.. or just change the "write" command to do something else with the proxy IP, at this point.
Not really worth uploading any screen shots. But you get a result like this in your ProxyList.dat file;
58.181.37.238:80
208.43.112.5:808
195.250.20.231:8080
187.6.48.35:3128
95.46.120.215:3128
84.14.229.122:3128
95.46.120.206:3128
200.25.201.125:80
190.36.113.126:8080
200.25.201.75:80
210.123.39.103:3124
174.142.24.201:3128
142.103.2.1:3128
216.48.80.14:3124
174.142.104.57:3128
210.125.84.15:3127
76.22.147.166:8085
This is for educational purposes only - I do not condone malicious use of this script
alias ProxyList {
; Syntax: /ProxyList [-pageNo]
; eg. /ProxyList 4
; ----------------
; By Jonesy44
; ----------------
; EDIT THIS NEXT LINE FOR PROXYLIST FILE NAME!
set %ProxyList.FileName ProxyList.dat
; STOP EDITING HERE!
.sockclose ProxyList.1 | .sockclose ProxyList.2 | .sockclose ProxyList.3
.remove %ProxyList.FileName
.timerCompletedCheck 0 1 ProxyList.CompletedCheck
var %n = 1
echo -a 2* ProxyList: Downloading latest proxy list..
while %n <= $iif($1 isnum 1-,$1,3) {
sockopen $+(ProxyList.,%n) samair.ru 80
inc %n
}
}
alias ProxyList.CompletedCheck {
if !$sock(ProxyList.1) || !$sock(ProxyList.2) || !$sock(ProxyList.3) {
echo -a 4Succesfully downloaded $lines(%ProxyList.FileName) proxy addresses. Stored in $qt(%ProxyList.FileName)
.timerCompletedCheck off
unset %ProxyList.*
}
}
alias ProxyList.RemoveHTML return $regsubex($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)|&[^;]+;| /g,$null)
on *:sockopen:ProxyList.*:{
if $sockerr { echo -a Socket error: $sock($sockname).wsmsg }
else {
sockwrite -nt $sockname GET $+(/proxy/time-0,$gettok($sockname,2,46),.htm) HTTP/1.1
sockwrite -nt $sockname Host: samair.ru
sockwrite -nt $sockname $crlf
}
}
on *:sockread:ProxyList.*:{
var %SocketRead
sockread %SocketRead
if !$sockerr {
if $regex(%SocketRead,/(\D=\d)/g) {
var %Index = 1,
while %Index <= $regml(0) {
set %ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ] $+(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],$chr(32),$gettok($regml(%Index),1,61),-,$gettok($regml(%Index),2,61))
inc %Index
}
echo -a 2* ProxyList: Generating decode key for page $gettok($sockname,2,46) -- 3Created key succesfully
}
if $regex(%SocketRead,/<tr><td>.*<\/td><\/tr>/i) {
var %SocketRead = $remove($ProxyList.RemoveHTML(%SocketRead),document.write,$chr(40),+,")
var %Index = 1
while %Index <= $numtok(%SocketRead,41) {
noop $regex($gettok(%SocketRead,%Index,41),/(\d+.\d+.\d+.\d+\:.*)/)
var %Output = $regml(1)
if $regml(1) {
var %SubIndex = 1
while %SubIndex <= $numtok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],32) {
%Output = $replace(%Output,$gettok($gettok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],%SubIndex,32),1,45),$gettok($gettok(%ProxyList.Decode. [ $+ [ $gettok($sockname,2,46) ] ],%SubIndex,32),2,45))
inc %SubIndex
}
write %ProxyList.FileName %Output
}
inc %Index 1
}
}
}
else echo -a Socket error: $sock($sockname).wsmsg
}
Error Code
101.75.53.155:$transparent-89in4tesa269a7aysia182.81.77.111:$5i25-an6ny964s-79in4tesa26India115.157.111.81:$an6ny964s-69in4tesa264nitedStates115.118.70.20:$an6ny964s-49in4tesa264nitedStates177.85.133.70:$transparent-49in4tesa26Brazi7115.157.111.83:$an6ny964s-39in4tesa264nitedStates177.85.122.80:$transparent-29in4tesa26Brazi7110.77.138.113:$transparent-29in4tesa26T5ai7and75.115.38.118:$transparent-19in4tesa2643raine181.71.75.20:$transparent-09in4tesa26India170.81.87.153:$transparent19in4tesa26C5i7e182.102.11.17:$transparent19in4tesa26C5ina50.
? :S
There is something wrong here.
It saves the proxy's like
89.188.141.51:80a6o6ymo911er5er8mi694e1a2oI4aly89.188.136.116:80a6o6ymo913roxy1er5er8mi694e1a2oI4aly198.82.160.238:3127CoDee6/3la6e4Lab?3roxy8mi694e1a2o96i4ed14a4e1198.82.160.239:3124CoDee6/3la6e4Lab?8mi694e1a2o96i4ed14a4e1208.94.63.193:3127CoDee6/3la6e4Lab?1er5er8mi694e1a2o96i4ed14a4e1208.93.153.70:31284ra613are648mi694e1a2o96i4ed14a4e1204.123.28.56:3127CoDee6/3la6e4Lab?1er5er8mi694e1a2o96i4ed14a4e1198.82.160.239:3127CoDee6/3la6e4Lab?8mi694e1a2o96i4ed14a4e1
It's working still.. but the output is coming up all wrong, It's adding certain parts of the page between the IP:PORT when it shouldn't..
I was unable to test a BOPM with it..
{NOTE} I use Proxies ONLY to test out BOPM's that I have made for people, Not for malicious purposes.
I always let the opers on the network know that I'm testing it as well.
Try this https://www.proxy-list.download/SOCKS-Proxies/