Code:
# open proxy checker for eggdrop# (c) James Seward 2003/4# version 1.0# http://www.jamesoff.net/projects/eggdrop# james@jamesoff.net# Released under the GPL## INSTRUCTIONS################################################################################ This script will check the hosts of people joining channels against one or# RBLs. Choose your RBLs wisely, some of them list DIALUP SPACE and that would# be a bad thing to be matching your IRC users against :P## Enable the 'proxycheck' flag for channels you want the script active on# --> .chanset #somechannel +proxycheck## Users who are +o, +v, or +f in your bot (local or global) won't be checked.## Turn on console level d on the partyline to see some debug from the script# --> .console +d (to enable)# --> .console -d (to disable)## CONFIG################################################################################ space-separated list of RBLs to look inset proxycheck_rbls { "cbl.abuseat.org" "opm.blitzed.org" "dnsbl.ahbl.org" }# time in minutes to ban forset proxycheck_bantime 15# stop editing here unless you're TCL-proof## CODE################################################################################add our channel flagsetudef flag proxycheck#bind our eventsbind join - *!*@* proxycheck_join#swing your pants# catch joinsproc proxycheck_join { nick host handle channel } { #check we're active if {![channel get $channel proxycheck]} { return 0 } #don't apply to friends, voices, ops if {[matchattr $handle fov|fov $channel]} { return 0 } #get the actual host regexp ".+@(.+)" $host matches newhost if [regexp {[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} $newhost] { #it's a numeric host, skip the lookup proxycheck_check2 $newhost $newhost 1 $nick $newhost $channel } else { putloglev d * "proxycheck: doing dns lookup on $newhost to get IP" dnslookup $newhost proxycheck_check2 $nick $newhost $channel }}# first callback (runs RBL checks)proc proxycheck_check2 { ip host status nick orighost channel } { global proxycheck_rbls if {$status} { putloglev d * "proxycheck: $host resolves to $ip" # reverse the IP regexp {([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3})} $ip matches a b c d set newip "$d.$c.$b.$a" # look it up in the rbls foreach rbl $proxycheck_rbls { putloglev d * "proxycheck: looking up $newip.$rbl" dnslookup "$newip.$rbl" proxycheck_check3 $nick $host $channel $rbl } } else { putlog "proxycheck: Couldn't resolve $host. (No further action taken.)" }}# second callback (catches RBL results)proc proxycheck_check3 { ip host status nick orighost channel rbl } { global proxycheck_bantime if {$status} { putlog "proxycheck: got host $host = ip $ip from RBL $rbl ... banning" newchanban $channel "*@$orighost" "proxychk" "proxycheck: $rbl" $proxycheck_bantime } #if we didn't get a host, they're not in RBL}putlog "proxycheck 1.0 by JamesOff loaded"
will this work with windrop?
i tried running bopm previously but its not compatible with our servers snotices(which we cant change)
a script that simply checks with a good dnsbl would be sufficient, though i couldnt seem to get this to work
no errors, just the reverse dns never seemed to work
edit: got it working.
still though, does this seem like a good script?
how do u find it callisto?Statistics: Posted by minted — Fri Apr 21, 2006 8:33 pm
]]>
