DNSBL Check

By [85] on May 18, 2017

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?"

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) }

Hope this help you to check IPs. PEACE!

Comments

Sign in to comment.
kangbin   -  Jun 01, 2017

Way cool! Some very valid points! I appreciate you writing thius post plus the rest of the ssite is extremelyy good.
http://geometrydash.co/

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.