menu * {
-----------
Tray:showmirc -t
dialog:dialog -m p.cloning p.cloning
}
; mIRC Proxy checker by Neo
; Checks the proxy for the mIRC from a txt list.
; To work this shit, just type /proxy.check <file.txt>
; And /stopscan to stop it.
; A window will pop out "@ProxyCheckNeo", and from there u can see all the scan stuff.
; Please, don`t abuse that script in any way, its just a tool for checking active Proxy`s(Not Socks!) for mIRC.
; The socket is trying to connect to the mIRCx server, thrue the given proxy in the file text.
; If it is sucsefull, it is stored in a file called "mircprox.txt" located in your mIRC directory.
; Written by Neo, change whatever u like, but leave this credit. (C) (mIRCx.co.il)
alias ed.wind { echo @ProxyCheckNeo $1- }
alias proxy.check {
stopscan
set %org.proxy $1
window @ProxyCheckNeo
.timerover 0 1 dodacheck
set %proxy.found 0
;sockopen Proxy.check $1 $2 | ;timeridle 1 14 checkproxynow $1
set %daline $lines(%org.proxy)
ed.wind Scan is started for %org.proxy with %daline Lines in it.
%i = 1
while (%i <= %daline) {
sockopen Proxy.check. $+ %i $gettok($read(%org.proxy,%i),1,58) $gettok($read(%org.proxy,%i),2,58)
inc %i
}
}
alias dodacheck {
if (!$sock(Proxy.check.*)) {
.timerover off
ed.wind $chr(3) $+ 10 $+ *Proxy* The scan on %proxy.file is over! $+ $chr(3)
ed.wind $chr(3) $+ 10 $+ *Proxy* Totally found %proxy.found Proxys! $+ $chr(3)
ed.wind $chr(3) $+ 10 $+ *Proxy* //run mircprox.txt - to see them! $+ $chr(3)
halt
}
}
alias checkproxynow {
if ($sock($1)) { ed.wind $chr(3) $+ 4 $+ *Proxy* $sockname is not avalible $+ $chr(3) | sockclose $sockname }
}
on *:sockopen:Proxy.check.*: {
if ($sockerr == 0) {
sockwrite $sockname CONNECT irc.mircx.co.il $+ : $+ 6667 HTTP/1.0 $+ $crlf $+ $crlf
sockwrite $sockname $crlf
ed.wind $chr(3) $+ 4 $+ *Proxy* $sock($sockname).ip Data sent. $+ $chr(3)
}
else { ed.wind $chr(3) $+ 4 $+ *Proxy* $sockname is not responding $+ $chr(3) }
}
on *:sockread:Proxy.check.*: {
sockread %pc.read
if (%pc.read) {
if ($gettok(%pc.read,3-4,32) == Connection established) { ed.wind $chr(3) $+ 12 $+ *Proxy* $sock($sockname).ip $+ : $+ $sock($sockname).port Proxy is ok with mIRC, writing to file and closing. $+ $chr(3) | write mircprox.txt $sock($sockname).ip $sock($sockname).port | inc %proxy.found | sockclose $sockname }
elseif (*400 Bad Request* iswm %pc.read || Connection: Close iswm %pc.read) { ed.wind $chr(3) $+ 4 $+ *Proxy* $sockname is not ok with mIRC $+ $chr(3) | sockclose $sockname }
; echo -a %pc.read
}
}
on *:sockclose:Proxy.check: { ed.wind $chr(3) $+ 4 $+ *Proxy* $sockname is closed.$+ $chr(3) }
alias stopscan { sockclose Proxy.check.* }
; Written by Neo, change whatever u like, but leave this credit. (C) (mIRCx.co.il)