egghelp.org community

[gamble27]

basically what i want this tcl do is simple,i want it to kick the user when found on dnsbl but DO NOT ban them,which allows them to rejoin(if they are user).When they rejoin they will not get kicked for say abt 10 mins(exempt for this period).tats all,as DNSBL are not very accurate what we can do is we allow genuine users to rejoin if they are found in dnsbl wrongly.im sure many of us will enjoy such tcl.. TCL is pasted below.. waiting to hear soon thanks

# 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
#
# 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 in
set proxycheck_rbls { "rbl.efnetrbl.org" }

# time in minutes to ban for
set proxycheck_bantime 60

# stop editing here unless you're TCL-proof



## CODE
###############################################################################

#add our channel flag
setudef flag proxycheck

#bind our events
bind join - *!*@* proxycheck_join

#swing your pants

# catch joins
proc 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" "SPAM." $proxycheck_bantime
}
#if we didn't get a host, they're not in RBL
}

putlog "proxycheck 1.0 by JamesOff loaded"

[TCL_no_TK]

just change

[gamble27]

thank you for assisting,but reason why i want it to exempt the user after it being kicked is i don want to create any kick flood,imagine if a real user gets kicked he/she will rejoin the channel and eggdrop will kick it again and he/she will rejoin again,and same will follow and it create kick flood.so that is why its very important to exempt a user for certain period of time in order to allow a genuine user to join the channel after he/she being kicked.Hope to hear from u all soon,this tcl will be very useful for anyone who are fighting spam in their channels

[TCL_no_TK]

Ok, thank you that helps. Its not really tested but you can try using the following:

Change

[gamble27]

thanks again for assisting i did what u told me to and changed what ever was there to be changed and i receive the following error after loading the tcl

[13:21] <eggdrop> [13:24] proxycheck: 219.94.71.157 resolves to 219.94.71.157
[13:21] <eggdrop> [13:24] proxycheck: looking up 157.71.94.219.dnsbl-3.uceprotect.net
[13:21] <eggdrop> [13:24] DNS resolve failed for 157.71.94.219.dnsbl-3.uceprotect.net
[13:21] <eggdrop> [13:24] Tcl error [proxycheck_check3]: invalid command name " adduser"

The one in bold is the error,the rest lines are normal but in the bold is the error.the eggdrop didnt kick even after detecting RBL.

Thank u again.

[TCL_no_TK]

[gamble27]

sure mate,plz let me know the result.. if this tcl works it will be VERY useful thanks again

[Sir_Fz]

gamble27, you're the one who's supposed to check the script in your shell and not TCL_no_TK. Probably the editor you used when pasting the script added some weird characters that are causing this error.
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts

[gamble27]

after trying on my shell countless time the same prob still persist:< what could possibly the error/ problem : <

[sk-4]

im using this edited tcl.any it look gr8..so far np..just want to ask is this script lookup for scan from this site
set proxycheck_rbls { "cbl.abuseat.org" "opm.blitzed.org" "dnsbl.ahbl.org" "tor.ahbl.org" }
... seem im getting kick only for cbl.abuseat.org

[TCL_no_TK]

try

[gamble27]

sk-4 dont mind can u please paste the exact tcl that you are using here,i dont know why the same error persist still,ill ask my shell company,also i wanna compare yours and mine.. so plz if you dont mind thanks

[sk-4]

# 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
#
# 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 in
set proxycheck_rbls { "dnsbl.ahbl.org" "tor.ahbl.org" "cbl.abuseat.org " }

# time in minutes to ban for
#set proxycheck_bantime 15

# stop editing here unless you're TCL-proof



## CODE
###############################################################################

#add our channel flag
setudef flag proxycheck

#bind our events
bind join - *!*@* proxycheck_join

#swing your pants

# catch joins
proc proxycheck_join { nick host handle channel } {
# allow 10 seconds for chanserv to op users on the channel access list
utimer 5 [list proxycheck_join_delay $nick $host $handle $channel]

}

proc proxycheck_join_delay { nick host handle channel } {
#check we're active
if {![channel get $channel proxycheck]} {
return 0
}

#don't apply to friends, voices, ops
if {[isop $nick $channel] || [isvoice $nick $channel] || [matchattr $handle fov|Pfov $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 {![validuser "proxychk"]} {
adduser "proxychk"
setuser "proxychk" COMMENT "Added to prevent multi-RBL lookups of users"
putlog "proxycheck: created new user 'proxychk' to prevent mult-RBL lookups of users"
}
if {$status} {
putlog "proxycheck:4 $nick 1 $host = ip4 $ip from RBL14 $rbl ... kicking"
putserv "KICK $channel $nick :14Possible spam/advertize/invite bot or drone 4LISTED14 in1 $rbl"
puthelp "PRIVMSG $nick :This is an automated response. You've been kicked from $channel because your host $host is listed at $rbl"
puthelp "PRIVMSG $nick :You will need to fix whatever caused you to be listed and get removed from $rbl before you're able to rejoin $channel ."
chattr proxychk +|+P $channel
setuser "proxychk" HOSTS "*!*@$orighost"
putlog "proxycheck:1Exempting4 $orighost 1for 10min to prevent4 mult-RBL lookup"
timer 10 [list delhost "proxychk" "*!*@$orighost"]
}
#if we didn't get a host, they're not in RBL
}

putlog "proxycheck 1.0 by JamesOff loaded"




TCL_no_TK i tried as u say,and it seem nothing happend..

[gamble27]

its great going,its working nicely,i was jus wondering how can we ignore scanning for certain mask like *!*@121.121.* or *!*@203.82.* can we exempt scanning for such mask?? thanks

[TCL_no_TK]