Tor/Proxy TCL

[No_FeaR]

################################################## ############################################
## ## dnsbl.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help ## ##
################################################## ############################################
################################################## ############################################
## ____ __ ########################################### ##
## / __/___ _ ___ _ ___/ /____ ___ ___ ########################################### ##
## / _/ / _ `// _ `// _ // __// _ \ / _ \ ########################################### ##
## /___/ \_, / \_, / \_,_//_/ \___// .__/ ########################################### ##
## /___/ /___/ /_/ ########################################### ##
## ########################################### ##
################################################## ############################################
## ## Start Setup. ## ##
################################################## ############################################
namespace eval dnsbl {
## Edit checksite to add or remove dnsbl sites ##
set checksite {"dnsbl.dronebl.org" "recent.spam.dnsbl.sorbs.net" "bl.blocklist.de" "rbl.efnet.org" "tor.dan.me.uk" "virbl.dnsbl.bit.nl" "dnsbl.ahbl.org" "dnsbl-1.uceprotect.net" "dnsbl-2.uceprotect.net" "dnsbl-3.uceprotect.net"}
## Change banmessage to the ban message you want ##
set banmessage "\002IP found it dnsbl blacklist\002"
## Change bantype to the type of ban you want: gzline, zline ##
set bantype "gzline"
## Change bantime to the length of ban you want ##
set bantime "10d"
## Change opernick and operpass to reflect the info from the bots oper block ##
## If you already have a oper script, comment out the bind at the bottom of this script ##
set opernick opernickhere
set operpass operpasshere
################################################## ############################################
## ## End Setup. ## ##
################################################## ############################################
proc connection {host type text} {
if {[string match -nocase {*client connecting*} $text]} {
regexp -- {.*@([^\)]+)} $text null ip
if {[regexp -- {([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})} $ip null a b c d]} {
foreach dnsbl $dnsbl::checksite {
dnslookup "$d.$c.$b.$a.$dnsbl" dnsbl::dronelookup
}
} else {
dnslookup $ip dnsbl::lookup
}
}
}
proc dronelookup {ip host status} {
if {$status == 1} {
regexp -- {([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.} $host null a b c d
putnow "$dnsbl::bantype *@$d.$c.$b.$a $dnsbl::bantime :$dnsbl::banmessage"
} else {
return ""
}
}
proc lookup {ip host status} {
if {$status == 1} {
regexp -- {([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})} $ip null a b c d
foreach dnsbl $dnsbl::checksite {
dnslookup "$d.$c.$b.$a.$dnsbl" dnsbl::dronelookup
}
} else {
return ""
}
}
proc operup {type} {
putserv "OPER $dnsbl::opernick $dnsbl::operpass"
}
}
bind raw - NOTICE dnsbl::connection
## You can comment out the event below if you already have a oper script for this bot.
bind evnt - init-server dnsbl::operup

Proxy Sitelerine Bakarak,Gerekli Düzenlemeleri Yaparak Sunucuya En Az Services Admin Olarak Nickinin Kayıtlı Olması Şartıyla Sunucuya Sokabilirsiniz... ^^