~ubuntu-branches/ubuntu/oneiric/eggdrop/oneiric

# sentinel.tcl v2.70 (15 April 2002)

# Copyright 1998-2002 by slennox

#       - Ban mechanism now checks if flooders are coming from the same

#       - Added tsunami detection to the avalanche flood detection system.

#       - Variables are now cleared after removing a channel.

#       - Removed unnecessary botonchan checks throughout components where

#       - Removed all unnecessary use of parentheses.

#       - Added sl_wideban option to make domain/ident bans optional.

#       - Fixed typos in various ban-related functions.

#       - Unused procs are now unloaded.

#       - Wildcard bans covering domains/idents were not doing proper

# v2.70 - Fixed "allbans" error which could occur when sl_wideban is

#         disabled.

#       - Added sl_masktype option, currently offering three different

#         ban/ignore mask types.

#       - Merged unsets in sl_unsetarray.

#       - Changed use of "split" in timers to the less ugly "list".

# - There is a trade-off between convenience and security. The more

#   automation you enable, the more stress the bot will be under during a

#   flood and the more stuff it will be sending to the server.

#   automated and convenience features, there is a potential for

# Select the type of hostmask to use when banning and/or ignoring flooders.

# There are three to choose from:

#   0 - *!*@machine.domain.com / *!*@555.555.555.555

#   1 - *!*ident@machine.domain.com / *!*ident@555.555.555.555

#   2 - *!*ident@*.domain.com / *!*ident@555.555.555.*

# The default option, 0, is strongly recommended for most situations, and

# provides the best level of protection. The other two options are provided

# mainly for special cases.

set sl_masktype 0

# Valid settings: 0, 1, or 2, depending on the hostmask type you wish to use.

 

      utimer [lindex $sl_ccflood 1] [list sl_ccbanqueue $chan]

    utimer [lindex $sl_ccflood 1] [list sl_ccqueuereset $chan]

    utimer [lindex $sl_bcflood 1] {incr sl_bcqueue -1}

      utimer [lindex $sl_bcflood 1] {set sl_bflooded 0}

  set sl_bxonestack 1 ; utimer 2 {set sl_bxonestack 0}

  utimer [lindex $sl_bmflood 1] {incr sl_bmqueue -1}

    utimer [lindex $sl_bmflood 1] {set sl_bflooded 0}

      utimer [lindex $sl_avflood 1] [list sl_avbanqueue $chan]

    utimer [lindex $sl_avflood 1] [list sl_avqueuereset $chan]

    utimer [lindex $sl_nkflood 1] [list sl_nkbanqueue $chan]

      set bhost [string tolower [sl_masktype $uhost]]

    utimer [expr [rand 2] + 3] {set sl_nickkick 0}

  utimer [lindex $sl_nkflood 1] [list sl_nkqueuereset $chan]

    set ihost [string tolower [sl_masktype $uhost]]

        set bhost [string tolower [sl_masktype $uhost]]

          utimer [lindex $sl_boflood 1] [list sl_bobanqueue $chan]

        utimer [lindex $sl_boflood 1] [list sl_boqueuereset $chan]

        utimer [lindex $sl_jflood 1] [list sl_jbanqueue $chan]

      utimer [lindex $sl_jflood 1] [list sl_jqueuereset $chan]

      timer 5 [list sl_unsetarray $chan]

    utimer [lindex $sl_jflood 1] [list sl_pbanqueue $chan]

  utimer [lindex $sl_jflood 1] [list sl_pqueuereset $chan]

  utimer [lindex $sl_jflood 1] [list sl_pqueuereset $chan]

  if {[string tolower $detected] == [string tolower ${botnet-nick}]} {

        utimer $sl_mlocktime [list sl_unlock $chan m]

        utimer $sl_ilocktime [list sl_unlock $chan i]

      utimer 120 {set sl_bflooded 0}

      utimer 120 {set sl_bflooded 0}

        if {[string tolower $detected] == [string tolower ${botnet-nick}]} {

    utimer $sl_mlocktime [list sl_unlock $chan m] ; utimer $sl_ilocktime [list sl_unlock $chan i]

    utimer 120 {set sl_bflooded 0}

    utimer 5 [list set sl_bfull($chan) 0]

      utimer 7 [list sl_dokicks $chan] ; utimer 16 [list sl_setbans $chan]

  set allbans [sl_dfilter [concat $sl_ccbanhost($chan) $sl_avbanhost($chan) $sl_nkbanhost($chan) $sl_bobanhost($chan) $blist]]

    utimer 10 [list sl_unlock $chan mi]

    set baddr [lindex [split [maskhost $bhost] "@"] 1]

    set bident [string trimleft [lindex [split $bhost "@"] 0] "~"]

  }

          set bhost [sl_masktype $bhost]

        if {[llength [banlist]] >= $sl_banmax} {continue}

          set bhost [sl_masktype $bhost]

        if {[llength [banlist $chan]] >= $sl_banmax} {continue}

  if {![string match *!* $ihost]} {

      if {[string match [string tolower [lindex $ignore 0]] $ihost]} {

    set ihost [sl_masktype $ihost]

# queuereset procs allow all queue timers to be killed easily

  global sl_avflood sl_ban sl_banmax sl_bcflood sl_boban sl_boflood sl_bmflood sl_bxsimul sl_bfmaxbans sl_ccflood sl_detectquits sl_globalban sl_igtime sl_jflood sl_kicks sl_lockcmds sl_lockflags sl_ilocktime sl_mlocktime sl_nkflood sl_note sl_shortlock sl_tsunami sl_txflood

  if {$sl_detectquits} {

    set detectquits "quit detection ON"

  } else {

    set detectquits "quit detection OFF"

  }

    putidx $idx "- Channel JOIN-PART flood:  [lindex $sl_jflood 0] in [lindex $sl_jflood 1] secs ($detectquits)"

      putidx $idx "- Ban type:                 Global [sl_masktype nick@host.domain]"

      putidx $idx "- Ban type:                 Channel-specific [sl_masktype nick@host.domain]"

    unset sl_flooded($chan) sl_locked($chan) sl_unlocked($chan) sl_nkflooding($chan) sl_ccqueue($chan) sl_ccbanhost($chan) sl_ccbannick($chan) sl_avqueue($chan) sl_avbanhost($chan) sl_avbannick($chan) sl_txqueue($chan) sl_nkqueue($chan) sl_nkbanhost($chan) sl_boqueue($chan) sl_bobanhost($chan) sl_bobannick($chan) sl_jqueue($chan) sl_jbanhost($chan) sl_jbannick($chan) sl_pqueue($chan) sl_pbanhost($chan) sl_pbannick($chan) sl_bfull($chan)

proc sl_masktype {uhost} {

  global sl_masktype

  switch -exact -- $sl_masktype {

    0 {return *!*[string range $uhost [string first @ $uhost] end]}

    1 {return *!*$uhost}

    2 {return *!*[lindex [split [maskhost $uhost] "!"] 1]}

  }

  return

}

 

  unbind pub $sl_lockflags|$sl_lockflags uc sl_uc

bind sign - * sl_pflood

if {![info exists sl_detectquits]} {

  set sl_detectquits 0

}

if {!$sl_detectquits} {

  unbind sign - * sl_pflood

}

putlog "Loaded sentinel.tcl v2.70 by slennox"