Proxycheck check. (Check trough 12 BL zones!)

With this script you can check which ip is in the blacklists and which not.

What do the colors mean?
Green = Clear
Red = Found

How do it works?
/Proxycheck <ip>
/Proxycheck localhost To check your own ip

Example

* The IP 127.0.0.1 has not been found in BL zone dnsbl.dronebl.org
* The IP 127.0.0.1 has not been found in BL zone dnsbl.proxybl.org
* The IP 127.0.0.1 has not been found in BL zone tor.dnsbl.sectoor
* The IP 127.0.0.1 has not been found in BL zone tor.dan.me.uk
* The IP 127.0.0.1 has not been found in BL zone dnsbl.njabl.org
* The IP 127.0.0.1 has not been found in BL zone rbl.efnet.org
* The IP 127.0.0.1 has not been found in BL zone virbl.dnsbl.bit.nl
* The IP 127.0.0.1 has not been found in BL zone dnsbl.ahbl.org
* The IP 127.0.0.1 has not been found in BL zone rbl.faynticrbl.org
* The IP 127.0.0.1 has not been found in BL zone dnsbl.ipocalypse.net
* The IP 127.0.0.1 has not been found in BL zone dnsbl.rizon.net
* The IP 127.0.0.1 has not been found in BL zone dnsbl.swiftbl.org


BL zones included in the script
dnsbl.dronebl.org
dnsbl.proxybl.org
tor.dnsbl.sectoor
tor.dan.me.uk
rbl.efnet.org
virbl.dnsbl.bit.nl
dnsbl.ahbl.org
rbl.faynticrbl.org
dnsbl.ipocalypse.net
dnsbl.rizon.net
dnsbl.swiftbl.org

Thanks to patje from SwiftIRC for the RevIP alias.

Code:

---

;- Proxy check
;- Written by Aha2Y
;- /proxycheck <ip>

alias proxycheck {
  if ($1 == $null) { echo 3* Missing parameters: /proxycheck <ip> or to check your own ip /proxycheck localhost }
  else {
    if ($1 == localhost) {
      echo -a 3* Checking your ip address, Please wait...
      set %checkip $ip
      /proxycheck.progress
      halt
    }
    else {
      echo -a 3* Checking ip address, Please wait...
      set %checkip $1
      /proxycheck.progress
    }
  }
}

alias -l proxycheck.progress {
  .timer 1 1 dronebl
  .timer 1 3 proxybl
  .timer 1 4 tor.dnsbl.sectoor
  .timer 1 5 tor.dan.me.uk
  .timer 1 6 dnsbl.njabl.org
  .timer 1 7 rbl.efnet.org
  .timer 1 8 virbl.dnsbl.bit.nl
  .timer 1 9 dnsbl.ahbl.org
  .timer 1 10 rbl.faynticrbl.org
  .timer 1 11 dnsbl.ipocalypse.net
  .timer 1 12 dnsbl.rizon.net
  .timer 1 13 dnsbl.swiftbl.org
}


alias -l dronebl {
  set %dbl dnsbl.dronebl.org
  dns $revip(%checkip) $+ .dnsbl.dronebl.org
}
alias -l proxybl {
  set %dbl dnsbl.proxybl.org
  dns $revip(%checkip) $+ .dnsbl.proxybl.org
}
alias -l tor.dnsbl.sectoor {
  set %dbl tor.dnsbl.sectoor
  dns $revip(%checkip) $+ .tor.dnsbl.sectoor.de
}
alias -l tor.dan.me.uk {
  set %dbl tor.dan.me.uk
  dns $revip(%checkip) $+ .tor.dan.me.uk
}
alias -l dnsbl.njabl.org {
  set %dbl dnsbl.njabl.org
  dns $revip(%checkip) $+ .dnsbl.njabl.org
}
alias -l rbl.efnet.org {
  set %dbl rbl.efnet.org
  dns $revip(%checkip) $+ .rbl.efnet.org
}
alias -l virbl.dnsbl.bit.nl {
  set %dbl virbl.dnsbl.bit.nl
  dns $revip(%checkip) $+ .virbl.dnsbl.bit.nl
}
alias -l dnsbl.ahbl.org {
  set %dbl dnsbl.ahbl.org
  dns $revip(%checkip) $+ .dnsbl.ahbl.org
}
alias -l rbl.faynticrbl.org {
  set %dbl rbl.faynticrbl.org
  dns $revip(%checkip) $+ .rbl.faynticrbl.org
}
alias -l rbl.faynticrbl.org {
  set %dbl rbl.faynticrbl.org
  dns $revip(%checkip) $+ .rbl.faynticrbl.org
}
alias -l dnsbl.ipocalypse.net {
  set %dbl dnsbl.ipocalypse.net
  dns $revip(%checkip) $+ .dnsbl.ipocalypse.net
}
alias -l dnsbl.rizon.net {
  set %dbl dnsbl.rizon.net
  dns $revip(%checkip) $+ .dnsbl.rizon.net
}
alias -l dnsbl.swiftbl.org {
  set %dbl dnsbl.swiftbl.org
  dns $revip(%checkip) $+ .dnsbl.swiftbl.org
}

on *:DNS:{
  if (%dbl == dnsbl.dronebl.org) {
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == dnsbl.proxybl.org) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == tor.dnsbl.sectoor) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == tor.dan.me.uk) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == dnsbl.njabl.org) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == rbl.efnet.org) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == virbl.dnsbl.bit.nl) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == dnsbl.ahbl.org) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == rbl.faynticrbl.org) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == dnsbl.ipocalypse.net) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == dnsbl.rizon.net) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == dnsbl.swiftbl.org) { 
    if ($iaddress != $null) {
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else {
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
}


;-RevIP script by Patje from SwiftIRC.
alias revip { tokenize 46 $1 | return $+($4, ., $3, ., $2, ., $1) }

---