Konuya cevap cer

Mesaj

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

[QUOTE="Che, post: 96, member: 1"] [CODE]############################################################################################## ## ## 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[/CODE] [/QUOTE]

Adı

İnsan doğrulaması