Coders-IRC

; Auto Op/Voice Script v1.0.7 - By entropy 2018

on @voice:text:?voice:#:{ mode # +v $nick }
on @voice:text:?devoice:#:{ mode # -v $nick }
on @op:text:?op:#:{ mode # +o $nick }
on @op:text:?deop:#:{ mode # -o $nick }

on @op:join:#:{ mode # +o $nick }
on @voice:join:#:{ mode # +v $nick }

on me:*:join:#:{ who # }
raw 352:*:{ halt }
raw 315:*:{ halt }

menu nicklist {
  -
  User Levels
  .$iif($level($address($1,5)),Remove)
  ..$iif($level($address($1,5)) == voice,Remove Auto Voice) { ruser voice $1 3 | if ($me isop #) { mode # -v $1 } }
  ..$iif($level($address($1,5)) == op,Remove Auto Op) { ruser op $1 3 | if ($me isop #) { mode # -o $1 } }
  .-
  .$iif($level($address($1,5)),Add)
  ..$iif($level($address($1,5)) != voice,Add Auto Voice) { guser voice $1 3 | if ($me isop #) { mode # +v $1 } }
  ..$iif($level($address($1,5)) != op,Add Auto Op) { guser op $1 3 | if ($me isop #) { mode # +o $1 } }
  -
}

Expand

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 localhostTo 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.

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

Expand

This is some very basic code that translates the confusing WHOIS outputs into a simpler format.

It should work for all RAW WHOIS outputs from Rizon, (nag me if I've missed any!) and most unmodified Unreal (including custom SwiftIRC IRCd) and InspIRCd servers.

Note: I've included the +g and +G modes, but to show them in a WHOIS output you'll most likely need to do /whois to reveal that information.

Code below goes into Remotes obviously, Alt+R and copy+paste.

raw 311:*: {
  set %whois 1
  echo -a 4 $+ $2 $+  Address: $3 $+ $chr(64) $+ $4
  echo -a 4 $+ $2 $+  Realname: $6
  haltdef
}

raw 378:*is connecting*: {
  echo -a 4 $+ $2 $+  Host: $6
  echo -a 4 $+ $2 $+  IP: $7
  haltdef
}

raw 338:*is actually*: {
  echo -a 4 $+ $2 $+  Host: $5
  echo -a 4 $+ $2 $+  IP: $remove($6,$chr(91),$chr(93))
  haltdef
}

raw 307:*: {
  echo -a 4 $+ $2 $+  is a registered nick
  haltdef
}

raw 319:*: {
  echo -a 4 $+ $2 $+  Channels: $3-
  haltdef
}

raw 312:*: {
  echo -a 4 $+ $2 $+  Server: $3 $4-
  haltdef
}

raw 716:*server side ignore*: {
  if ($5 === +G) {
    echo -a 4 $+ $2 $+  $5 $+ : Soft server side ignore
    haltdef
  }
  elseif ($5 === +g) {
    echo -a 4 $+ $2 $+  $5 $+ : Server side ignore
    haltdef
  }
}

raw 310:*is using modes*: {
  echo -a 4 $+ $2 $+  Modes: $6-
  haltdef
}

raw 313:*is a*: {
  if (service isin $3-) {
    echo -a 4 $+ $2 $+  is a network service
    haltdef
  }
  elseif (bot isin $3-) {
    echo -a 4 $+ $2 $+  is a network service
    haltdef
  }
  elseif ($5 == IRC) && ($6 == Operator) && ($7) && ($network == Rizon) {
    echo -a 4 $+ $2 $+  IRCOp: ( $+ $8- $+ )
    haltdef
  }
  elseif (!$7) && ($network == Rizon) {
    echo -a 4 $+ $2 $+  IRCOp: ( $+ IRC Operator $+ )
    haltdef
  }
  else {
    echo -a 4 $+ $2 $+  IRCOp: ( $+ $5- $+ )
    haltdef
  }
}

raw 310:*is available for help.: {
  echo -a 4 $+ $2 $+  is available for help
  haltdef
}

raw 335:*: {
  echo -a 4 $+ $2 $+  is a bot on $network
  haltdef
}

raw 671:*secure connection*: {
  echo -a 4 $+ $2 $+  is using a secure connection
  haltdef
}

raw 672:*cgi*irc*: {
  echo -a 4 $+ $2 $+  is a CGI:IRC client
  haltdef
}

raw 317:*seconds idle*signon time*: {
  echo -a 4 $+ $2 $+  Idle: $duration($3)
  echo -a 4 $+ $2 $+  On IRC: $asctime($4)
  haltdef
}


raw 330:*is logged in as*: {
  echo -a 4 $+ $2 $+  is logged in as $3
  haltdef
}

raw 320:*is using a secure connection: {
  echo -a 4 $+ $2 $+  is using a secure connection
  haltdef
}

raw 379:*is using modes*: {
  echo -a 4 $+ $2 $+  Modes: $6-
  haltdef
}

raw 301:*: {
  echo -a 4 $+ $2 $+  Away: $3-
  haltdef
}

raw 537:*is currently immune to filtering*: {
  echo -a 4 $+ $2 $+  is immune to filtering
  haltdef
}

raw 401:*no such nick*channel*: {
  echo -a 4 $+ $2 $+  No such nickname.
  haltdef
}

raw 318:*end of*: {
  echo -a 4 $+ $2 $+  End of WHOIS.
  echo -a -
  unset %whois
  haltdef
}

Expand