egghelp/eggheads community

custom banmask

2022-01-09T13:27:26-04:00

excellent that seems to do perfect thanks gents CC and caesar

Statistics: Posted by simo — Sun Jan 09, 2022 1:27 pm

custom banmask

2022-01-09T13:04:41-04:00

Ok I think I found it.

Works on the host part:

Code:

.tcl set target "host-s?d?d?-net-sd??-???er-c???j.mobilinkinfinity.net.pk".tcl regsub -all -- {([a-z\?]*\?{1,}[a-z\?]*)(-|\.|$)} $target {*\2} target.tcl putlog $target[18:04] host-*-net-*-*-*.mobilinkinfinity.net.pk

Seems to work on full mask too:

Code:

.tcl set target "nick!username@ho?st-s?d?d?-net-sd??-???er-c???j.mobilinkinfinity.net.pk".tcl regsub -all -- {([a-z\?]*\?{1,}[a-z\?]*)(-|\.|$)} $target {*\2} target.tcl putlog $target[18:05] nick!username@*-*-net-*-*-*.mobilinkinfinity.net.pk

I added a ? in the beginning of the host to check if we won't have nick!username@ho?st replaced with *, but it's ok as @ is not in [a-z]

Statistics: Posted by CrazyCat — Sun Jan 09, 2022 1:04 pm

custom banmask

2022-01-09T12:39:28-04:00

As I said: complicated as you have 2 possible separators.
I'm doing some tries with regexp but I won't bet a lot on it

Statistics: Posted by CrazyCat — Sun Jan 09, 2022 12:39 pm

custom banmask

2022-01-09T12:40:02-04:00

String map it?

Code:

% set text "*!*@host-???-net-??-???-???.mobilinkinfinity.net.pk"% string map {? *} $text*!*@host-***-net-**-***-***.mobilinkinfinity.net.pk

Edit: Nvm, doesn't seem to get as you wanted.

Statistics: Posted by caesar — Sun Jan 09, 2022 12:38 pm

custom banmask

2022-01-09T11:54:58-04:00

excellent that seems to work CC
anyway to have this a bit shorter like in regexp perhaps ?

Statistics: Posted by simo — Sun Jan 09, 2022 11:54 am

custom banmask

2022-01-09T11:36:30-04:00

You can easily get the first banmask you want:

Code:

.tcl set target "*!*@host-s?d?d?-net-sd??-???er-c???j.mobilinkinfinity.net.pk".tcl regsub -all -- {\?+} $target {*} target.tcl putlog $target[16:06] *!*@host-s*d*d*-net-sd*-*er-c*j.mobilinkinfinity.net.pk

To replace any part containing ? (or *) with *, it's more difficult as you have 2 separators (- and .), so you'll have to split host on "." and loop on that, then split on - and replace if needed:

Code:

set target "*!*@host-s?d?d?-net-sd??-???er-c???j.mobilinkinfinity.net.pk"lassign [split $target @] u happend u @set th {}foreach m1 [split $h .] {set thd {}foreach m2 [split $m1 -] {if {[string first ? $m2]!=-1} {lappend thd *} else {lappend thd $m2}}lappend th [join $thd -]}append u [join $th .]putlog "U is $u"

Statistics: Posted by CrazyCat — Sun Jan 09, 2022 11:36 am

custom banmask

2022-01-09T10:28:24-04:00

i was wondering if this banmask: [maskhost $uhost 14]

wich replaces all digits in the hosts with a ?
could be converted to replace all ? chars with a single *

for example :

*!*@host-233-net-99-160-119.mobilinkinfinity.net.pk

normally it would output with :

*!*@host-???-net-??-???-???.mobilinkinfinity.net.pk

we wanted to have it like this:

*!*@host-*-net-*-*-*.mobilinkinfinity.net.pk

so the sections with digit in it should be replaced with a single asterix even if the section has alphabetical chars in it as well

sor for example :

*!*@host-s2d3d3-net-sd99-160er-c119j.mobilinkinfinity.net.pk

this would output as :

*!*@host-s?d?d?-net-sd??-???er-c???j.mobilinkinfinity.net.pk

to have it like :

*!*@host-*-net-*-*-*.mobilinkinfinity.net.pk

thanks in advance

Statistics: Posted by simo — Sun Jan 09, 2022 10:28 am