multi lines max text length within time frame

simo · Post by **simo** » Mon Jun 15, 2020 3:15 pm

i was wondering if this could be modified to count the total text length per line to some up a total within a time frame and set ban if threshold is reached:

Code: Select all

bind pubm - * Text:Bytes

set longline(txt_len) 300

proc Text:Bytes {nick uhost hand chan txt} {
  if {![botisop $chan] || [isbotnick $nick] || [isop $nick $chan] || [matchattr $hand b] || [matchattr $hand f|f $chan] || [matchattr $hand mo|mo $chan]} {
    return
  }
  if {[string length $txt] >= $::longline(txt_len)} {
    putquick "MODE $chan +b [maskhost $uhost 2]" 
  }
}

i found this somewhere not sure where tho wether forum or archives
most tcls available use per line checking text length unlike multiple lines we
look for

like for example 300:3 300 chars within 3 sec

simo · Post by **simo** » Mon Jun 15, 2020 3:24 pm

oh i found author :

Long Text Protection (v1.3) by fyre

simo · Post by **simo** » Tue Jun 16, 2020 8:16 am

i havent found a single tcl that counts text chars and gets a total within a time threshold and chars value threshold

simo · Post by **simo** » Tue Jun 16, 2020 11:06 am

this is an msl variant of it stripped from color/bold/underlined codes:

Code: Select all

ON ^*:text:*:#:{ 
    if ($nick(#,$me,@&~%) && !$nick(#,$nick,@&~%)) { 
      inc -u5 %bytes. [ $+ [ $site ] $+ ] . [ $+ [ $chan ] ]  $calc($regex($1-,/\S/gSu) + 50)
      if (%bytes. [ $+ [ $site ] $+ ] . [ $+ [ $chan ] ] >= 300) {  ban -k $chan $nick 4  Bytes Flood }
  }
}

the added + 50 in calculation part is to counter the evading by staying under the limit in some cases when spamming slow and using view chars

grumpy · Post by **grumpy** » Thu Jun 18, 2020 1:25 pm

Code: Select all

% string bytelength
wrong # args: should be "string bytelength string"
% string bytelength "teststring"
10
%

https://www.tcl.tk/man/tcl8.3/TclCmd/string.htm#M5

Maybe something like the following

dont need to check for isbotnick

Code: Select all

set byte_flood 300

bind pubm - * pubm:byteflood

proc pubm:byteflood {nick host hand chan text} {
 global byte_flood
 # if the bots not opped, we dont do anything
 if {![botisop $chan]} {return}
 # if its a channel op exempt them
 if {[isop $nick $chan]} {return}
 # if its a validuser and they have +b or +fmo|fmo flags exempt them
 if {([validuser $hand]) && ([matchattr $hand bfmo|fmo $chan])} {return}
 if {([string bytelength $string] == $::byte_flood)} {
  putserv "MODE $chan +b [maskhost "$nick!$host" 2]"
  return
 }
}

simo · Post by **simo** » Thu Jun 18, 2020 1:32 pm

thnx grumpy i tried it and it returns this error:

Tcl error [pubm:byteflood]: can't read "string": no such variable

and also this seems to only count in 1 line and not count total sent lines to reach threshold :

if {([string bytelength $string] == $::byte_flood)} {

simo · Post by **simo** » Thu Jun 18, 2020 1:46 pm

this works but it doesnt count total used chars from multiple lines to get end result and compare against threshold for example 300:5 300 or more chars used within 5 secs

Code: Select all

set byte_flood 300

bind pubm - * pubm:byteflood

proc pubm:byteflood {nick host hand chan text} {
 global byte_flood
 # if the bots not opped, we dont do anything
 if {![botisop $chan]} {return}
 # if its a channel op exempt them
 if {[isop $nick $chan]} {return}
 # if its a validuser and they have +b or +fmo|fmo flags exempt them
 if {([validuser $hand]) && ([matchattr $hand bfmo|fmo $chan])} {return}
 if {([string bytelength $text] >= $::byte_flood)} { 
 if {[isvoice $nick $chan]} {  pushmode $chan -v $nick }
  pushmode $chan +b [maskhost "$nick!$host" 2] 
 }
}

this is somewhat the same as i posted in the first post

grumpy · Post by **grumpy** » Thu Jun 18, 2020 8:37 pm

Not really sure about the error, I kind of just wrote an example of using string bytelength while replying

Maybe add a utimer unset for 5 seconds? and keep a byte count against the hostmask, so when they go over the limit they get banned.

Code: Select all

set byteflood(count) 300
set byteflood(time) 5

bind pub - * pubm:byteflood

proc pubm:byteflood {nick host hand chan text} {
 global byteflood
 if {(![botisop $chan]) || ([isop $nick $chan]) || ([validuser $hand]) && ([matchattr $hand +bfmo|fmo $chan])} {return}
 set bytes [string bytelength $text]
 set mask [maskhost "$nick!$host" 2]
 if {[info exists ::byteflood($mask)]} {
  set ::byteflood($mask) [expr {$::byteflood($mask) + $bytes}]
  if {($::byteflood($mask) > $::byteflood(count))} {
   putquick "MODE $chan +b $mask"
   unset ::byteflood($mask)
   return
  }
  utimer $::byteflood(time) "unset ::byteflood($mask)"
  return
 } else {
  set ::byteflood($mask) $bytes
  utimer $::byteflood(time) "unset ::byteflood($mask)"
  return
 }
}

simo · Post by **simo** » Fri Jun 19, 2020 7:33 am

tested it grumpy it doesnt seem to work as nothing happens and i dont get anhy errors in PL

also im not sure about that variable what would happen if 2 or more users with different IPS type text whos would it count ?

perhaps it should have channel and nick!user@host atached to the variable so it counts for each nick seperate just like the one i posted for msl

and after reading about bytes in docs it seems different from text length perhaps in this case we should use text length rather than bytes

grumpy · Post by **grumpy** » Fri Jun 19, 2020 8:27 am

Yeah, i don't think bytelength is what your looking for

Code: Select all

[13:21:00] <+afk-dead> this is going to be over 200 lines of text hopefully? thought am not sure how long the line needs to be to trigger a bytes flood or not. Maybe just keep typing and see what happends? thats usually the best way?
[13:21:01] <@eggie> Bytes Count. 210
[13:21:23] <+afk-dead> thisisgoingtobeover200linesoftexthopefully?thoughtamnotsurehowlongthelineneedstobetotriggerabytesfloodornot.Maybejustkeeptypingandsee whathappends?thatsusuallythebestway?
         [ didn't trigger without spaces ]
         [ note i set it trigger on over 200 bytes ]
[13:21:37] <+afk-dead> thisisgoingtobeover200linesoftexthopefully?thoughtamnotsurehowlongthelineneedstobetotriggerabytesfloodornot.Maybejustkeeptypingandsee whathappends?thatsusuallythebestway?thisisgoingtobeover200linesoftexthopefully?thoughtamnotsurehowlongthelineneedstobetotriggerabytesfloodornot.Maybejustkeeptypingandsee whathappends?thatsusuallythebestway?
[13:21:38] <@eggie> Bytes Count. 340

[13:24:21] <+afk-dead> .tcl info patchlevel
[13:24:21] <@eggie> OK: 8.6.9 - 0.115 ms

grumpy · Post by **grumpy** » Fri Jun 19, 2020 8:42 am

Code: Select all

set bflood(maxlength) 300
set bflood(unsettime) 5

bind pub - * pubm:byteflood

proc pubm:byteflood {nick host hand chan text} {
 global bflood

 # ignore if bot not opped, ignore if its a chanop, ignore if the user has +bfmo globally or +fmo for the channel
 if {(![botisop $chan]) || ([isop $nick $chan]) || ([validuser $hand]) && ([matchattr $hand +bfmo|fmo $chan])} {return}

 # get the length of the text
 set length [llength $text]

 # ban mask
 set bmask [maskhost "$nick!$host" 2]

 # look up if we have them already
 set nick [string tolower $nick]
 set chan [string tolower $chan]
 if {[info exists ::bflood($chan:$nick)]} {

  # increase the count by current length of text
  set ::bflood($chan:$nick) [expr {$::bflood($chan:$nick) + $length}]

  # check they haven't gone over the limit
  if {($::bflood($chan:$nick) > $::bflood(maxlength))} {

   # they have gone over the 'maxlength'
   # devoice them if they are +v
   if {[isvoice $nick $chan]} {pushmode $chan -v $nick}

   # set the ban
   putquick "MODE $chan +b $bmask"

   # unset from array
   unset ::bflood($chan:$nick)

   # finished
   return
  }

  # they haven't gone over the limit, lets set a timer
  utimer $::bflood(unsettime) "unset ::bflood($chan:$nick)"

  # finished
  return

 # they are within the time limit
 # we start again
 } else {
  # add them
  set ::bflood($chan:$nick) $length

  # set a time limit on them
  utimer $::bflood(unsettime) "unset ::bflood($chan:$nick)"

  # finished
  return
 }
}

This will keep a line count going for them per channel against each nickname,
if they go over 'bflood(maxlength)' total text length in 'bflood(unsettime)' seconds.

They will be banned/an devoiced if they are +v

i put comments on for you,

you should really play around it with and find out what works for you

simo · Post by **simo** » Fri Jun 19, 2020 9:19 am

tnx again grumpy for the reply i tried your last posted code and nothing seems to happen and no errors in PL

Post by **CrazyCat** » Fri Jun 19, 2020 10:01 am

I'm affraid you don't use utimer as you must:

Code: Select all

utimer $::bflood(unsettime) [list unset ::bflood($chan:$nick)]

Another point: why do you do "global bflood" if you use "::bflood" in proc ?

simo · Post by **simo** » Fri Jun 19, 2020 11:25 am

ive tried this but still nothing happens and no errors in PL:

Code: Select all

set bflood(maxlength) 300
set bflood(unsettime) 5

bind pub - * pubm:byteflood

proc pubm:byteflood {nick host hand chan text} {
 global bflood

 # ignore if bot not opped, ignore if its a chanop, ignore if the user has +bfmo globally or +fmo for the channel
 if {(![botisop $chan]) || ([isop $nick $chan]) || ([validuser $hand]) && ([matchattr $hand +bfmo|fmo $chan])} {return}

 # get the length of the text
 set length [llength $text]

 # ban mask
 set bmask [maskhost "$nick!$host" 2]

 # look up if we have them already
 set nick [string tolower $nick]
 set chan [string tolower $chan]
 if {[info exists bflood($chan:$nick)]} {

  # increase the count by current length of text
  set bflood($chan:$nick) [expr {$bflood($chan:$nick) + $length}]

  # check they haven't gone over the limit
  if {($bflood($chan:$nick) > $::bflood(maxlength))} {

   # they have gone over the 'maxlength'
   # devoice them if they are +v
   if {[isvoice $nick $chan]} {pushmode $chan -v $nick}

   # set the ban
   putquick "MODE $chan +b $bmask"

   # unset from array
   unset bflood($chan:$nick)

   # finished
   return
  }

  # they haven't gone over the limit, lets set a timer
  utimer $::bflood(unsettime) [list unset bflood($chan:$nick)]
  # finished
  return

 # they are within the time limit
 # we start again
 } else {
  # add them
  set bflood($chan:$nick) $length

  # set a time limit on them
  utimer $::bflood(unsettime) [list unset bflood($chan:$nick)]
  # finished
  return
 }
}

simo · Post by **simo** » Fri Jun 19, 2020 4:01 pm

i tried again and been gettin this error:

Tcl error in script for 'timer104056':
can't unset "bflood(#test:knowles)": no such element in array

using this so far:

Code: Select all

set bflood(maxlength) 300
set bflood(unsettime) 5

bind pubm - * pubm:byteflood

proc pubm:byteflood {nick host hand chan text} {
 global bflood

 if {(![botisop $chan]) || ([isop $nick $chan]) || ([validuser $hand]) && ([matchattr $hand +bfmo|fmo $chan])} {return}

 set length [llength $text]

 set bmask [maskhost "$nick!$host" 2]

 set nick [string tolower $nick]
 set chan [string tolower $chan]
 if {[info exists bflood($chan:$nick)]} {

  set bflood($chan:$nick) [expr {$bflood($chan:$nick) + $length}]

  if {($bflood($chan:$nick) > $::bflood(maxlength))} {


   if {[isvoice $nick $chan]} {pushmode $chan -v $nick}

   putquick "MODE $chan +b $bmask"

   unset bflood($chan:$nick)

  }

  utimer $::bflood(unsettime) "unset bflood($chan:$nick)"

 } else {
  set bflood($chan:$nick) $length

  utimer $::bflood(unsettime) [list unset bflood($chan:$nick)]
 }
}