Kick users with usermode +x

Hawara · Post by **Hawara** » Sat Dec 17, 2005 7:03 pm

Can somebody write me a simple script, please?

All i need is that bot kickbans ppl wich has enabled usermode +x (IP encrypting).

Basically - in mirc i can type /who Nick
and server will return:

* Nick Hx nick@N654m.NYMDe.net :0 Nick
Nick End of WHO list.

Where x is that user had enabled +x

The server returns userflags in the seven word of the raw 352 command.

P.S. Sorry for my crappy english. If anyone can help me, please..

demond · Post by **demond** » Sat Dec 17, 2005 9:33 pm

so how did you know N654m.NYMDe.net isn't a legitimate host?

or rather, that it's cloaked host; in other words, what is it that differentiates a +x cloaked host from real hosts?

Hawara · Post by **Hawara** » Sat Dec 17, 2005 11:19 pm

Well, see:

[06:18:39] * Hawara sets mode: +x
-
[06:18:39] -NickServ- Beware, usermode +x has only partial effect now, older servers will show your real host. This warning will be removed as soon as the upgrade finished.
-
* Hawara Hx hawara@N654m.NYMDe.free.net :0 Hawara
Hawara End of WHO list.
-
[06:18:54] * Hawara sets mode: -x
-
* Hawara H hawara@hawara.45.free.net :0 Hawara
Hawara End of WHO list.
-

x - appears only when usermode is activated - so we can guess masked host using who command

demond · Post by **demond** » Sun Dec 18, 2005 12:49 am

Code: Select all

bind pub n !kbx foo
bind raw - 352 bar
proc foo {n u h c t} {putserv "who $c"}
proc bar {f k t} {
   foreach {x c x h x n u} [split $t] {break} 
   if ![regexp x $u] return
   pushmode $c +b *!*@$h
   putkick $c $n 
}

I challenge minimalists to shorten that

Hawara · Post by **Hawara** » Sun Dec 18, 2005 8:31 am

Oh great!!! Wonderful!!! Thank you!!!

Just one little detail... please, tell me how to make it run on user join
(i guess i have to add bind join - * foo ) and to make bot rescan channel each 5 minutes to find if someone enabled +x mode?

Hawara · Post by **Hawara** » Sun Dec 18, 2005 11:47 am

Yeah! I`ve done it myself!

Code: Select all

set chan "#tlk-r"
bind pub n !kbx foo
bind join - * foobar
bind raw - 352 bar
bind time - "?0 * * * *" barfoo

proc barfoo {n u h c y} {
  global chan
  putserv "who $chan"
}
proc foo {n u h c t} {putserv "who $c"}
proc foobar {n u h c} {putserv "who $c"}
proc bar {f k t} {
   foreach {x c x h x n u} [split $t] {break}
   if ![regexp x $u] return
   pushmode $c +b *!*@$h
   putkick $c $n "mode -x or die!"
}

and it works

Yay, my first something in tcl!

demond · Post by **demond** » Sun Dec 18, 2005 12:57 pm

congrats, glad to see your enthusiasm nowadays when fewer folks bother to learn and help themselves

there is one potential glitch however: doing WHO on join won't yield results every time since modern IRC servers impose command pace limits to clients, say one WHO in 2 seconds

Hawara · Post by **Hawara** » Mon Dec 19, 2005 3:07 am

thanks

That`s why i also scan the channel every 10 minutes

And also to find smart ppl who join without +x and then turn it on...