IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
##############################################################################################

##  ##     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