Proxycheck check. (Check trough 12 BL zones!)

[chain]

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

/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

 

>;- Proxy check;- Written by Aha2Y;- /proxycheck alias proxycheck {   if ($1 == $null) { echo 3* Missing parameters: /proxycheck  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 }   }  unset %dbl};-RevIP script by Patje from SwiftIRC.alias revip { tokenize 46 $1 | return $+($4, ., $3, ., $2, ., $1) }

 

>alias ProxyCheck {   if ($1 == $null) {     echo 4* Missing parameters: /proxycheck  or to check your own ip /proxycheck localhost   }  elseif ($1 == localhost) {     echo -a 3* Checking your ip address, Please wait...    proxycheck:process $ProxyCheck:RevIP($ip)  }  elseif ($longIP($1)) {    echo -a 3* Checking ip address, Please wait...    proxycheck:Process $ProxyCheck:RevIP($1)  }}alias -l ProxyCheck:Revip {  tokenize 46 $1   return $+($4, ., $3, ., $2, ., $1)}alias -l ProxyCheck:BL {  return $&    .dronebl $&    .proxybl $&    .tor.dnsbl.sectoor $&    .tor.dan.me.uk $&    .dnsbl.njabl.org $&    .rbl.efnet.org $&    .virbl.dnsbl.bit.nl $&    .dnsbl.ahbl.org $&    .rbl.faynticrbl.org $&    .dnsbl.ipocalypse.net $&    .dnsbl.rizon.net $&    .dnsbl.swiftbl.org}alias -l ProxyCheck:Process {  var %ip = $1  var %x = 1  tokenize 32 $ProxyCheck:BL  set -e $+(%,ProxyCheck:,%ip) $0  while ($(,$ $+ %x)) {    .dns %ip $+ $v1    inc %x  }}on *:DNS:{  var %ip = $gettok($address,1-4,46)  var %zone = $gettok($address,5-,46)    if (%zone && $($+(%,ProxyCheck:,%ip),2)) {    $iif($v1 == 1,unset,dec) $+(%,ProxyCheck:,%ip)    echo $iif($iaddress,3,4) -a * The IP $ProxyCheck:RevIP(%ip) has $iif(!$iaddress,not) been found in BL zone %zone    halt  }}

 

>################## Original credits goes to: Aha2Y# This version is modified with 4 bl checks only (its plenty)# This version is made to be used on a bot # When loaded, type this in the channels where you want to use the tool# --> .chanset #Chan +dronebl# Then use:  !bl ip.ip.ip.ip# New Credits: Sebastien @ Undernet (seblemery@facebook.com)#################alias revip { tokenize 46 $1 | return $+($4, ., $3, ., $2, ., $1) }on *:text:.chanset *:#:{  if ($nick !isop $chan) { msg # you need @ to use .chanset | halt }  if (!$3) { msg # [4Error] type .chanset   | halt }  if ($chan == $2) && ($3 == +dronebl) { set %blchans $addtok(%blchans,$2,44) | msg # Performed +dronebl on # | halt }  if ($chan == $2) && ($3 == -dronebl) { set %blchans $remtok(%blchans,$2,1,44) | msg # Performed -dronebl on # | halt } }on *:text:!bl *:%blchans:{  if (!$2) { msg # its !bl  | halt }  if ($nick isreg $chan) { halt }  msg # Looking up, one moment..  set %hit::1 3Clear | set %hit::2 3Clear | set %hit::3 3Clear | set %hit::4 3Clear  set %bl.chan #   proxycheck $2}alias proxycheck {   if ($1 == $null) { echo $color(notice) * Missing parameters: /proxycheck  or to check your own ip /proxycheck localhost }  else {    if ($1 == localhost) { set %dnscheckproxy 1 | set %checkip $ip | proxycheck.progress | halt }    else { set %dnscheckproxy 1 | set %checkip $1 | proxycheck.progress }  }}alias -l proxycheck.progress {  .timer 1 1 dronebl | .timer 1 2 proxybl   .timer 1 4 rbl.efnet.org | .timer 1 5 dnsbl.swiftbl.org  .timer 1 6 saybl}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 rbl.efnet.org { set %dbl rbl.efnet.org | dns $revip(%checkip) $+ .rbl.efnet.org }alias -l dnsbl.swiftbl.org { set %dbl dnsbl.swiftbl.org | dns $revip(%checkip) $+ .dnsbl.swiftbl.org }alias -l saybl {  msg %bl.chan DroneBl Result $+([dronebl.org: %hit::1, ]) $+([proxybl.org: %hit::2, ]) $+([rbl.efnet.org: %hit::3, ]) $+([dnsbl.swiftbl.org: %hit::4, ])}on *:DNS:{  if (%dnscheckproxy == 1) {     if (%dbl == dnsbl.dronebl.org) { if ($iaddress != $null) { set %hit::1 4Found }        else { set %hit::1 3Clear }     }    if (%dbl == dnsbl.proxybl.org) { if ($iaddress != $null) { set %hit::2 4Found }        else { set %hit::2 3Clear }    }    if (%dbl == rbl.efnet.org) { if ($iaddress != $null) { set %hit::3 4Found }      else { set %hit::3 3Clear }    }    if (%dbl == dnsbl.swiftbl.org) { if ($iaddress != $null) { set %hit::4 4Found }      else { set %hit::4 3Clear }     }      unset %dbl | unset %dnsproxycheck   }}

 

Placed 3 versions here!! :tp