egghelp/eggheads community

detect bad word hidden in long nicks

2022-09-11T06:59:53-04:00

for those that might need this as well not sure if its properly constructed but it seems to work well.

Code:

# to enable on channel via partyline Syntax: .chanset #channel +badnickchecker# or to enable in channel !badnick on / offbind PUB -|- !badnick badnick:checker  bind PUB n !badnick badnick:checker proc badnick:checker {nick uhost hand chan arg} {  switch -nocase -- [lindex [split $arg] 0] {    on {      if {[channel get $chan badnickchecker]} {        putserv "NOTICE $nick :badnickchecker is already enabled on $chan."      } else {        channel set $chan +badnickchecker        putserv "NOTICE $nick :badnickchecker is now enabled."}    }    off {      if {![channel get $chan badnickchecker]} {        putserv "NOTICE $nick :badnickchecker is already disabled on $chan."      } else {        channel set $chan -badnickchecker        putserv "NOTICE $nick :badnickchecker is now disabled."     }    }     }}setudef flag badnickchecker set bnick {    "SomeVeryLongBadNick"    "SomeVeryLongBadNick"    "SomeVeryLongBadNick"    "SomeVeryLongBadNick"    "SomeVeryLongBadNick"    "SomeVeryLongBadNick"    "SomeVeryLongBadNick" }bind join - * join:badnickbind nick - * nick:badnickproc nick:badnick {nick uhost hand chan newnick} {   join:badnick $newnick $uhost $hand $chan}proc join:badnick {nick uhost hand chan} {    if {![channel get $chan badnickchecker]} { return }   global bnick temp   set temp 0   foreach xix [string tolower $bnick] {   if {[string match "[bn2reg $xix]" [string tolower $nick]]} {         set bdpart [bn2reg $xix]          regsub -all {\*{1,}} $bdpart "*" bdpartxc         set badpart $bdpartxc         set temp 1         break      }   }   if {$temp} {        set chost [getchanhost $nick $chan]        set masxs [maskhost $nick!$chost 2]        pushmode $chan +b $badpart!*@*   }}proc bn2reg {text} {   set sep {*}   set reg $sep   for {set i 0} {$i<=[string length $text]} {incr i} {      append reg [string index $text $i]$sep   }   return $reg}

Statistics: Posted by simo — Sun Sep 11, 2022 6:59 am

detect bad word hidden in long nicks

2022-09-11T04:36:28-04:00

Thanks ceasar

Statistics: Posted by simo — Sun Sep 11, 2022 4:36 am

detect bad word hidden in long nicks

2022-09-11T03:56:48-04:00

Would be a good idea to stop the loop once you found a match, cos that's the intended purpose, right? I mean after:

Code:

set temp 1

just add a 'break' to stop the loop. Also you don't need the if .. else part in this:

Code:

 if {!$temp} { return } {      pushmode $chan +b *$badpart*!*@*   }

just go directly with if:

Code:

 if {$temp} {      pushmode $chan +b *$badpart*!*@*   }

Oh, and you could optimize this and add a 'reahsh' bind where you build the regexp only once into a different variable and use it from there, no point on building it every time a user joins the channel. This should save you some time/resources.

Statistics: Posted by caesar — Sun Sep 11, 2022 3:56 am

detect bad word hidden in long nicks

2022-09-10T13:16:28-04:00

thanks CrazyCat i got it to work as i wanted to

Apreciated.

Statistics: Posted by simo — Sat Sep 10, 2022 1:16 pm

detect bad word hidden in long nicks

2022-09-10T13:02:29-04:00

Try to explain simply what you want to do if you really want help. I'm fed up with reading between lines or wait for another post to decrypt what you try to do.

You now have all the leads you need to do your script.

Statistics: Posted by CrazyCat — Sat Sep 10, 2022 1:02 pm

detect bad word hidden in long nicks

2022-09-10T11:14:27-04:00

this is what i have so far

Code:

set bnick {     "badnick"   "someverylongbadword"   "somewordthatsbad"   "veryabussivelongword"}bind join - * join:badnickbind nick - * nick:badnickproc nick:badnick {nick uhost hand chan newnick} {   join:badnick $newnick $uhost $hand $chan}proc join:badnick {nick uhost hand chan} {   global bnick temp   regsub -all -- {(.)\1+} $nick {\1} nick2x2   set temp 0   foreach i [string tolower $bnick] {      if {[regexp -- {[bn2reg $i]} [string tolower $nick2x2]]} {         set badpart $i         set temp 1      }   }   if {!$temp} { return } {      pushmode $chan +b *$badpart*!*@*   }}proc bn2reg {text} {   set sep {[^\s]*}   set reg $sep   for {set i 0} {$i<=[string length $text]} {incr i} {      append reg [string index $text $i]$sep   }   return $reg}

Statistics: Posted by simo — Sat Sep 10, 2022 11:14 am

detect bad word hidden in long nicks

2022-09-10T11:26:32-04:00

ive changed to :

if {[regexp -- {[bn2reg $i]} [string tolower $nick2x2]]} {

but now it sets weird bans

17:13:25 Joins : sfbdfadnicksdjh [ident: Mibbit] *!*@32.158.124.74
17:13:25 @Hawk Sets Mode on #test to: +b *veryabussivelongword*!*@*

i guess what we were looking is +b *b*a*d*n*i*c*k*!*@*

to set wild mask ban on the detected bad part of nick

Statistics: Posted by simo — Sat Sep 10, 2022 11:09 am

detect bad word hidden in long nicks

2022-09-10T11:07:34-04:00

after trial i get :

couldn't compile regular expression pattern: quantifier operand invalid

i used :

Code:

      if {[regexp [bn2reg $i] [string tolower $nick2x2]]} {

Statistics: Posted by simo — Sat Sep 10, 2022 11:07 am

detect bad word hidden in long nicks

2022-09-10T11:00:43-04:00

thanks CrazyCat

Statistics: Posted by simo — Sat Sep 10, 2022 11:00 am

detect bad word hidden in long nicks

2022-09-10T09:20:49-04:00

Just replace

Code:

if {[string match *$i* [string tolower $nick2x2]]}

with

Code:

if {[regexp [bn2reg $i] [string tolower $nick2x2]]}

Statistics: Posted by CrazyCat — Sat Sep 10, 2022 9:20 am

detect bad word hidden in long nicks

2022-09-10T05:32:29-04:00

Sorry for the late reply, i wanted to try your last posted code crazycat but im not sure how to test it with the current badnick checker i have in use the one i posted above

Statistics: Posted by simo — Sat Sep 10, 2022 5:32 am

detect bad word hidden in long nicks

2022-08-31T04:10:05-04:00

thanks CrazyCat let me try that

Statistics: Posted by simo — Wed Aug 31, 2022 4:10 am

detect bad word hidden in long nicks

2022-08-30T18:43:59-04:00

...
I said you that you can create a proc to transform your badnicks into regexp:

Code:

proc bn2reg {text} {   set sep {[^\s]*}   set reg $sep   for {set i 0} {$i<=[string length $text]} {incr i} {      append reg [string index $text $i]$sep   }   return $reg}

Test in tclsh:

Code:

% proc bn2reg {text} {   set sep {[^\s]*}   set reg $sep   for {set i 0} {$i<=[string length $text]} {incr i} {      append reg [string index $text $i]$sep   }   return $reg}% bn2reg badnick[^\s]*b[^\s]*a[^\s]*d[^\s]*n[^\s]*i[^\s]*c[^\s]*k[^\s]*

Statistics: Posted by CrazyCat — Tue Aug 30, 2022 6:43 pm

detect bad word hidden in long nicks

2022-08-30T17:59:40-04:00

Thanks crazycat Yes i checked it it has a lot of * i wanted to prevent that to add a zillion * for each bad word to check for

Statistics: Posted by simo — Tue Aug 30, 2022 5:59 pm

detect bad word hidden in long nicks

2022-08-29T18:33:20-04:00

Did you check my regex101.com link before answering ?

Statistics: Posted by CrazyCat — Mon Aug 29, 2022 6:33 pm