DNSBL Check by [85]

About this snippet
Overview

This source code was written originally by "Patje", but with a few DNSBL bases, some was outdated. I added new DNSBL bases who are on my Eggdrop to watch which one DNSBL base Gzline innocent ppls with real IPs.

If you have better bases come and tell me on: /server -m irc.DBase.in.rs:6667 -j #IRC

Popups:
DNSBL:/proxycheck $$?="• IP?"
dnsbl
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 dnsbl.tornevall.org 
  .timer 1 3 opm.tornevall.org 
  .timer 1 4 dnsbl.dronebl.org
  .timer 1 5 rbl.efnet.org
  .timer 1 6 rbl.efnetrbl.org
  .timer 1 7 dnsbl.cyberlogic.net
  .timer 1 8 all.s5h.net
  .timer 1 9 socks.dnsbl.sorbs.net
  .timer 1 10 tor.dan.me.uk
  .timer 1 11 dnsbl-1.uceprotect.net
  .timer 1 12 dnsbl-2.uceprotect.net
  .timer 1 13 dnsbl-3.uceprotect.net
  .timer 1 14 dnsbl.rizon.net
  .timer 1 15 virbl.dnsbl.bit.nl
  .timer 1 16 rbl.faynticrbl.org
  .timer 1 17 dnsbl.ipocalypse.net
  .timer 1 18 bl.spamcannibal.org
  .timer 1 19 drone.abuse.ch
  .timer 1 20 tor.dnsbl.sectoor.de
}

alias -l dnsbl.tornevall.org {
  set %dbl dnsbl.tornevall.org
  dns $revip(%checkip) $+ .dnsbl.tornevall.org
}
alias -l opm.tornevall.org {
  set %dbl opm.tornevall.org
  dns $revip(%checkip) $+ .opm.tornevall.org
}
alias -l dnsbl.dronebl.org {
  set %dbl dnsbl.dronebl.org
  dns $revip(%checkip) $+ .dnsbl.dronebl.org
}
alias -l rbl.efnet.org {
  set %dbl rbl.efnet.org
  dns $revip(%checkip) $+ .rbl.efnet.org
}
alias -l rbl.efnetrbl.org {
  set %dbl rbl.efnetrbl.org
  dns $revip(%checkip) $+ .rbl.efnetrbl.org
}
alias -l dnsbl.cyberlogic.net {
  set %dbl dnsbl.cyberlogic.net
  dns $revip(%checkip) $+ .dnsbl.cyberlogic.net
}
alias -l all.s5h.net {
  set %dbl all.s5h.net
  dns $revip(%checkip) $+ .all.s5h.net
}
alias -l socks.dnsbl.sorbs.net {
  set %dbl socks.dnsbl.sorbs.net
  dns $revip(%checkip) $+ .socks.dnsbl.sorbs.net
}
alias -l tor.dan.me.uk {
  set %dbl tor.dan.me.uk
  dns $revip(%checkip) $+ .tor.dan.me.uk
}
alias -l dnsbl-1.uceprotect.net {
  set %dbl dnsbl-1.uceprotect.net
  dns $revip(%checkip) $+ .dnsbl-1.uceprotect.net
}
alias -l dnsbl-2.uceprotect.net {
  set %dbl dnsbl-2.uceprotect.net
  dns $revip(%checkip) $+ .dnsbl-2.uceprotect.net
}
alias -l dnsbl-3.uceprotect.net {
  set %dbl dnsbl-3.uceprotect.net
  dns $revip(%checkip) $+ .dnsbl-3.uceprotect.net
}
alias -l tor.dnsbl.sectoor.de {
  set %dbl tor.dnsbl.sectoor.de
  dns $revip(%checkip) $+ .tor.dnsbl.sectoor.de
}
alias -l dnsbl.rizon.net {
  set %dbl dnsbl.rizon.net
  dns $revip(%checkip) $+ .dnsbl.rizon.net
}
alias -l virbl.dnsbl.bit.nl {
  set %dbl virbl.dnsbl.bit.nl
  dns $revip(%checkip) $+ .virbl.dnsbl.bit.nl
}
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 bl.spamcannibal.org {
  set %dbl bl.spamcannibal.org
  dns $revip(%checkip) $+ .bl.spamcannibal.org
}
alias -l drone.abuse.ch {
  set %dbl drone.abuse.ch
  dns $revip(%checkip) $+ .drone.abuse.ch
}
alias -l tor.dnsbl.sectoor.de {
  set %dbl tor.dnsbl.sectoor.de
  dns $revip(%checkip) $+ .tor.dnsbl.sectoor.de
}

on *:DNS:{ 
  if (%dbl == dnsbl.tornevall.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 == opm.tornevall.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.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 == 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 == rbl.efnetrbl.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.cyberlogic.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 == all.s5h.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 == socks.dnsbl.sorbs.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 == 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-1.uceprotect.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-2.uceprotect.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-3.uceprotect.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 == 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 == 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 == bl.spamcannibal.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 == drone.abuse.ch) {   
    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.de) {   
    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 }

  }
}

alias revip { tokenize 46 $1 | return $+($4, ., $3, ., $2, ., $1) }
Overview

mIRC script

Comments
