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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - eggdrop koruma botu ayarlama (https://www.ircforumlari.net/eggdrop-neostats-bnc/27528-eggdrop-koruma-botu-ayarlama.html)

eggdrop koruma botu ayarlama

arkadaşlar şimdi bot benim attıgım bana karışıyor kendi atıyor. ben banı atıyorum kanalda eggdrop attı gözüküyor kanaldakilerin attıkları banlara karışmasını istemiyorum..

birde admini kanaldan banladıgım zaman admin kanala geri dönüyor hemen eggdrop tekrar atıyor ve admin yine geliyor hemen eggdrop atıyor.. bu böyleee gidiyor.. ellemezsen sonsuza kadar eggdrop atacak admin girecek şeklinde oluyor bunu nasıl engelleye bilirim.. yardımcı olurmusunuz..

benim istegim eggdrop küfür - reklamda join saldırısında flood saldırılarına karşılık vermesi başka birşeye karışmasın bunun tcl nelerdir arkadaşlar...

yardımlarınız için şimdiden teşekkurler... kolay gelsin..

Yanıt: eggdrop koruma botu ayarlama

TaaRuZ sanırım mc_ban_flooders.tcl yi kullanıyorsun ... eğer onu kullanıyorsan

Kod:

# If a user is found flooding, how long (in min.s) do you want to ban the user?

#   -2 = Permanent ban (no expiration in bot records).

#   -1 = Will not ban (no ban, disable banning).

#    0 = Performs a server ban, but doesn't store the ban in the bot's banlist.

#   Any number greater than 0 will be the time in which the ban will expire.

#   All ban's will be channel ban's, if you want it to be global then put a '@'

#   in front of the time.

#     Example: set mc_bf(bantime) @0

#   Also, if you want the ban to be 'sticky' (read '.help stick' in the bot's

#   dcc console), then append the time with a '!'.

#     Example: set mc_bf(bantime) 0!

#     Example: set mc_bf(bantime) @0!

set mc_bf(bantime) "@0"

şeklinde başlarda yazı var orada benim ki gibi 0 yaparsan ban atmaz botun. sadece kick atar. tabii bahsettiğim tcl değilse tcllerinle alakalı sorunun. tcllerini bilmemiz lazım .

Yanıt: eggdrop koruma botu ayarlama

cycle bot ne oluyor bu arada arkadaşlar bilgisi olan varmı... acemiyimde konusan eggdrop botmu ...

Yanıt: eggdrop koruma botu ayarlama

Kod:

#

#

#

#   *****************************************

#   ****         AutoExpire              ****

#   *****************************************

#

# v0.5 -- 15Juln97

# v1.0 -- 10Dec98  [fixed it up for 1.3 multi-channel]

#

#

# automatic erasing useless ban-entry everydays! 

# Don't need to invoke weed so much. Go to journey or enjoy beatiful life

# much more! =D                                   

#                                     MrKubo (On undernet) =)

#

#

#  IGNITION -- When do first QUEUE.

#

#

proc exe_timersequence { } {

    set IGNITION 2

    putlog "Okay queue will be done when it re-submitted."

    timer $IGNITION bcheck

    timer $IGNITION ulcheck

    dccbroadcast "Engineering: Finally! systems are online! :D"

    putlog "** SUBMIT QUEUE DONE **"

}

exe_timersequence
 

#

#

#    ****** Automatic ban-tuner *******

#

#

#    CK_INTERBAL1 -- time interval of banlist-check (720 --> 12hrs) 

#    CK_INTERBAL2 -- when do userlist-check after CK_INTERBAL1 (360 --> 6hrs)

#

proc bcheck {} {

    set CK_INTERBAL1 720

    set CK_INTERBAL2 360

    foreach j [timers] {

        if {[string compare [lindex $j 1] bcheck] == 0} {

            killtimer [lindex $j 2]

        }

    }

    putlog "******* Full Automatic tuner of banlist.   "

    blistcheck GLOBAL

    foreach channame [channels] {

 putlog  "******* Channel ban check. ($channame)  "

 blistcheck $channame

 putlog  "*******    O.K" 

    }

    backup

    save

    dccbroadcast "******* Banlist check finished.(^^)  "

    timer $CK_INTERBAL1 bcheck

    timer $CK_INTERBAL2 ulcheck

}
 

proc blistcheck {watchchannel} {

    set CGLOBAL GLOBAL

    if {[string compare $watchchannel $CGLOBAL] == 0 } {

 foreach bansentry [banlist] {

     set watchchannel #japan

     delban $watchchannel $bansentry

 }

    } else {

 foreach bansentry [banlist $watchchannel] {

     delban $watchchannel $bansentry

 }

    }

    

}

#

#

# diagnose banlist

#

# EXPIRE_LIMIT --- term of ineffective (150 is enough, 100 is probably good)

#     NV_LIMIT --- term of ineffective (40 is enough, 30 is probably good)

#    NV_LIMIT2 --- term of ineffective (50 is enough, 30 is probably good)

#                                        note: unit is "day"

proc delban {watchchannel bansentry} {

    set EXPIRE_LIMIT 150

    set NV_LIMIT  40

    set NV_LIMIT2 50

    set createdday [lindex $bansentry 3]

    set usedday [lindex $bansentry 4]

    set currnttime [unixtime]

    set daylength 86400

    set createdday [expr ($currnttime - $createdday)/$daylength]

    set bannedperson [lindex $bansentry 0]

    set bywho [lindex $bansentry 5]

    set breason [lindex $bansentry 1]

    if { $usedday == 0} {

 if { $createdday > $NV_LIMIT } {

     putlog "** Useless entry is detected."

     putlog "Entry $bannedperson , Created by $bywho "

     putlog "Reason: $breason"

     putlog "The entry has never been used since created."

     if {[isban $bannedperson] == 0} {

  killchanban $watchchannel $bannedperson

  putlog "Okay Expired."

     } else {

  killban $bannedperson

  putlog "Okay Expired."

     }

     dccbroadcast "Shipyard controller:  This time, *please* be more careful, okay?"

 }

    } else {

        set usedday [expr ($currnttime - $usedday)/$daylength]

        if {$usedday > $EXPIRE_LIMIT } {

     putlog "** Dead-Entry is detected."

     putlog "Entry $bannedperson, Created by $bywho"

     putlog "Reason: $breason"

     putlog "Last used $usedday days ago"

     if {[isban $bannedperson] == 0} {

  killchanban $watchchannel $bannedperson

  putlog "Okay Expired."

     } else {

  killban $bannedperson

  putlog "Okay Expired."

     }

     dccbroadcast "Shipyard controller:  This time, *please* be more careful, okay?"

 } elseif { ($usedday == $createdday) &&  ($createdday > $NV_LIMIT2 ) } { 

     putlog "** Dead-Entry is detected."

     putlog "Entry $bannedperson, Created by $bywho"

     putlog "Reason: $breason"

     putlog "Last used $usedday days ago"

     putlog "The entry was only effective at created time."

     if {[isban $bannedperson] == 0} {

  killchanban $watchchannel $bannedperson

  putlog "Okay Expired."

     } else {

  killban $bannedperson

  putlog "Okay Expired."

     }

     dccbroadcast "Shipyard controller:  This time, *please* be more careful, okay?"

 }

    }

}
 

#

#

#    ****** Automatic userlist maintainer *******

#

proc ulcheck {} {

    foreach j [timers] {

        if { [string compare [lindex $j 1] ulcheck] == 0} {

            killtimer [lindex $j 2]

        }

    }

    putlog "******* userlist-checker is invoked automatically. "

    ulistcheck

    backup

    save

    dccbroadcast "******* User list -- checked  "

    putlog "******* Okay done. "

}

#

# User Entry_checker

#

# LIMITOFEMPTY --- threshhold value of empty time. (365 is enough)

#

proc ulistcheck { } {

    set LIMITOFEMPTY 365

    set currnttime [unixtime]

    set daylength 86400

    set wcount 0

    set mcount 0

    foreach person [userlist] {

 if { [matchattr $person "m"] != 1 } {

     set lastinform [getuser $person LASTON]

     set whenseen [lindex  $lastinform 0]

     if {$whenseen == "" } {

  set  whenseen 0

     }

     set theday [ctime $whenseen] 

     if { $whenseen != 0} {

  set whenseen [expr ($currnttime - $whenseen)/$daylength]

  if { $whenseen > $LIMITOFEMPTY } {

      set userlocation [getuser $person HOSTS]

      set usersinform "User: $person"

      set addrinform "($userlocation)"

      set lastinform "$whenseen days ago ($theday)"

      putlog "**Entry - $usersinform"

      putlog "          LAST: $lastinform"

      putlog "          ADDR: $addrinform"

      deluser $person

      putlog "** $person was removed from database."

      dccbroadcast "I hope $person is hapy in real life. byebye $person :~( "

  }

     } else {

  set wcount [expr $wcount + 1]

  putlog "**Warning: I've never seen $person. (probably, ineffective)"

  set userlocation [getuser $person HOSTS]

  set addrinform "($userlocation)"

  putlog "          ADDR: $addrinform"

     }

 } else {

     set mcount [expr $mcount +1]

 }

    }

    putlog "** W-mesg: $wcount lines"

    putlog "$mcount bot-operators exist on database."

}

putlog "** Auto-Expire INITIATED **"

arkadaşlar böyle bir kod buldum otamatik toplu ban açma komutu galiba bu komutu nasıl ayarlayacam bilmiyorum 30 dakka arayla toplu ban açmasını istiyorum nasıl ayarları yazarsanız sevinirim .. ek olarak bana join/part saldırısı için tcl lazım yardımcı olursanız sevnirim.kolay gelsin

Yanıt: eggdrop koruma botu ayarlama

Kod:

proc bcheck {} {

    set CK_INTERBAL1 720

    set CK_INTERBAL2 360

    foreach j [timers] {

tam emin deilim ama bu sayıları isteğine göre değiştirerek yapabilirsin istediğini. diğer sorun join-part tcl

Kod:

#--------------------------------------------------------------------------------------------------------------------#

#                                 ANTI MASS JOIN / JOIN FLOOD PROTECTION SCRIPT BY RANA USMAN                        #

#--------------------------------------------------------------------------------------------------------------------#

#  AUTHOR :  RANA USMAN

## EMAIL  :  [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] , [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

## URL    :  [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] , [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

# VERSION :  1

# If you have any suggesstion about my script kindly let me know i will be glad to look forward :)

###############

# DESCRIPTION #

###############

#Assalam O Aleikum n Hiya :) again ok i have written this script cuz i havent found any good mass join protection yet.There 

#are different join/part protection available but not a sinlge MASSJOIN / JOIN FLOOD protection.Simply what this script do

#is it will stop the heavy amout of clones joining your channel for flood n for more protection it changes the modes of the 

#channel to the Modes specified by you in configuration section.More it will gonna ban the flooding clone's IP n you have 

#both options for banning stick ban n Simple chan ban :))

########################

# HOW TO ENABLE SCRIPT #

########################

#PartyLine : (While Your in DCC chat with bot the place where you give commands like .+chan #chan is called partyline)

#In Bots Partline simple give the following command --> .chanset #channelname flood-join joins:seconds 

#Example : .chanset #yourchannel flood-join 4:6 <-- bot will detect if 4 clone joins in 6 seconds ::) ( 0:0 to disable )

###########################

#= CONFIGURATION SECTION =#

###########################

## Set the Lock Modes 

# Bot will change channel mode to the modes you will specify below in case the bot will detect join flood

# To Disable Mode change set it to "" 

set joinlockmodes "mr"

## Set the banmask type to use in banning the join floods

# Currently BAN Type is set to 1 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),

# BAN Types are given below;

# 1 - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 

# 2 - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

# 3 - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

# 4 - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

# 5 - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

# 6 - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

# 7 - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

# 8 - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

# 9 - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

set bantype "1"

## Set the time in seconds to Unlock Modes 

# The Bot will Unlock the channel after the specified time you will set below

set unlocktime "15"

## Set The Punish Type

# Set it to '1' if you want to add the Ban for joinflood in bots list.By doing it Bot will ban the IP everytime when the 

# clone will join the channel even if it is unbanned from channel OR Simply a stick ban

# Set it to '2' for a simple channel Ban :) :: RECOMMENDED ::

set joinpunish "2"

## Set the reason you want to give while kicking 

set jreason "Mass Join Flood"

###########################

# CONFIGURATION ENDS HERE #

###########################

#--------------------------------------------------------------------------------------------------------------------#

#  SCRIPT STARTS FROM HERE.YOU CAN MAKE MODIFICATIONS AT UR OWN RISK, I DONT RESTRICT YOU TO NOT TO TOUCH THE CODE!  #

#--------------------------------------------------------------------------------------------------------------------#

bind flud - join joinflood:RanaUsman

proc joinflood:RanaUsman {nick uhost hand type chan} {

global joinlockmodes banmask unlocktime joinpunish jreason botnick

if {![botisop $chan] || [matchattr $hand of]} { return 0 }

set banmask [joinpart:banmask $uhost $nick]

if {($joinpunish == 1)} { 

putquick "MODE $chan +$joinlockmodes"

newchanban $chan $banmask $botnick $jreason

putquick "KICK $chan $nick :$jreason"

utimer $unlocktime[list putquick "MODE $chan -$joinlockmodes"]

}

if {($joinpunish == 2)} { 

putquick "MODE $chan +$joinlockmodes"

putquick "MODE $chan +b $banmask"

putquick "KICK $chan $nick :$jreason"

utimer $unlocktime[list putquick "MODE $chan -$joinlockmodes"]

 }

}

proc joinpart:banmask {uhost nick} {

 global bantype

  switch -- $bantype {

   1 { set banmask "*!*@[lindex [split $uhost @] 1]" }

   2 { set banmask "*!*@[lindex [split [maskhost $uhost] "@"] 1]" }

   3 { set banmask "*!*$uhost" }

   4 { set banmask "*!*[lindex [split [maskhost $uhost] "!"] 1]" }

   5 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }

   6 { set banmask "*$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }

   7 { set banmask "*$nick*!*@[lindex [split $uhost "@"] 1]" }

   8 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split $uhost @] 1]" }

   9 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }

   default { set banmask "*!*@[lindex [split $uhost @] 1]" }

   return $banmask

  }

}

#-------------------------------------------------------------------------------------------------------------------------#

putlog "=- \002ANTI MASS JOIN/JOIN FLOOD PROTECTION BY RANA USMAN ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) HAS BEEN  LOADED SUCCESSFULLY \002 -="

#-------------------------------------------------------------------------------------------------------------------------#

Cyle bot ile alakalı forumda çok yazı var cycle bot yazarsan araştıtırsan sanırım yeterince bilgi edinebilirsin.

Yanıt: eggdrop koruma botu ayarlama

Cycle bot hakkında:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]