Auto Kicker for MoGLO
Moderator: Moderators
Auto Kicker for MoGLO
is there a auto-kicker for this bot anywhere?
-
- Posts: 210
- Joined: 2003-01-23 17:24
- Location: Nevada
- Contact:
Mos++ and GloSearch both have a built-in bypass function. All you need to do is to add a single character 160 at the end your hub's description field. It doesn't mess up your description with funny characters, because it looks like a space, but is not.
The best way to add it is to set the description directly in the Main Sub of one of your scripts :
You will need to give it a bit time to propagate because these clients typically download several hublists, so you won't notice anything until you randomly appear on the neomodus hublist with your new description, then get your description field updated on the dreamland list and other lists as well...
Finally you also need to wait until each search client re-downloads the hublists now including your new description. Give the whole thing at least about 2 days before seing any noticable results, but it's the best way to prevent them from searching your hub, because even if you register the nicknames, you still get some of your hub's bandwidth used for the $lock/$key and $validatenick/$getpass dialogs.
Note that it doesn't work with (some version of) the Ptokax hub, because (some version of) it adds a .px at the end of your description field... so chr(160) will never be the last character of your description field (instead, x will be the last character).
You will probably want to register the following nicknames as well, until your new description propagates, and even after that, since a few clients will connect no matter what... That's however not the fault of glosearch/mos, it's that of rude people feeding them modifed hublists =/
The nicknames :
The best way to add it is to set the description directly in the Main Sub of one of your scripts :
Code: Select all
frmHub.txtDescription.Text = "the description of your hub" &Chr(160)
Finally you also need to wait until each search client re-downloads the hublists now including your new description. Give the whole thing at least about 2 days before seing any noticable results, but it's the best way to prevent them from searching your hub, because even if you register the nicknames, you still get some of your hub's bandwidth used for the $lock/$key and $validatenick/$getpass dialogs.
Note that it doesn't work with (some version of) the Ptokax hub, because (some version of) it adds a .px at the end of your description field... so chr(160) will never be the last character of your description field (instead, x will be the last character).
You will probably want to register the following nicknames as well, until your new description propagates, and even after that, since a few clients will connect no matter what... That's however not the fault of glosearch/mos, it's that of rude people feeding them modifed hublists =/
The nicknames :
- zSearch[MoGLO] (GloSearch versions 0.5 and 0.6 // Mos++)
zNickSearch[MoGlo] (Mos++)
7www.glosearch.tk (GloSearch version 0.3)
GLO-SearchUser (GloSearch version 0.2)
Dim SearchBot
Sub Main()
SearchBot = array("Google","glo","search","Security","Mass","Message","DCuser","beta")
End Sub
Sub NewUserConnected(curUser)
Dim sb
For sb = 0 To UBound(SearchBot)
If InStr(1,cstr(curUser.sName), cstr(SearchBot(sb)), VBTextCompare) > 0 Then
curUser.Kick()
Exit Sub
End If
Next
End Sub
or to kick and auto-ban users IP use this one
Dim SearchBot
Sub Main()
SearchBot = array("Google","glo","search","Security","Mass","Message","DCuser","beta")
End Sub
Sub NewUserConnected(curUser)
Dim sb
For sb = 0 To UBound(SearchBot)
If InStr(1,cstr(curUser.sName), cstr(SearchBot(sb)), VBTextCompare) > 0 Then
frmHub.lstPermBan.AddItem(curUser.IP)
frmHub.DoEventsForMe
curUser.Kick()
Exit Sub
End If
Next
End Sub
Sub Main()
SearchBot = array("Google","glo","search","Security","Mass","Message","DCuser","beta")
End Sub
Sub NewUserConnected(curUser)
Dim sb
For sb = 0 To UBound(SearchBot)
If InStr(1,cstr(curUser.sName), cstr(SearchBot(sb)), VBTextCompare) > 0 Then
curUser.Kick()
Exit Sub
End If
Next
End Sub
or to kick and auto-ban users IP use this one
Dim SearchBot
Sub Main()
SearchBot = array("Google","glo","search","Security","Mass","Message","DCuser","beta")
End Sub
Sub NewUserConnected(curUser)
Dim sb
For sb = 0 To UBound(SearchBot)
If InStr(1,cstr(curUser.sName), cstr(SearchBot(sb)), VBTextCompare) > 0 Then
frmHub.lstPermBan.AddItem(curUser.IP)
frmHub.DoEventsForMe
curUser.Kick()
Exit Sub
End If
Next
End Sub
hm.. I don't think banning users who use a search tool is a good idea.
sometimes there are obscure things you can't find in your regular hub or by visiting a couple more. these search tools are necessary.
furthermore, your script will perman (e.g.) "Gloria" when she enters the hub.
sometimes there are obscure things you can't find in your regular hub or by visiting a couple more. these search tools are necessary.
furthermore, your script will perman (e.g.) "Gloria" when she enters the hub.
http://dc.selwerd.nl/hublist.xml.bz2
http://www.b.ali.btinternet.co.uk/DCPlusPlus/index.html (TheParanoidOne's DC++ Guide)
http://www.dslreports.com/faq/dc (BSOD2600's Direct Connect FAQ)
http://www.b.ali.btinternet.co.uk/DCPlusPlus/index.html (TheParanoidOne's DC++ Guide)
http://www.dslreports.com/faq/dc (BSOD2600's Direct Connect FAQ)
-
- Posts: 210
- Joined: 2003-01-23 17:24
- Location: Nevada
- Contact:
That's a bit the core of the question about allowing or not allowing GloSearch (and other) search clients in your hub. While it's definitely useful for the case you mentioned, you can't ignore the fact many people (ab)use these tools for mainstream searches, which is not what they were designed for.sometimes there are obscure things you can't find in your regular hub or by visiting a couple more. these search tools are necessary.
Also, because the DC community isn't Kazaa, you also need to take into consideration that it is of a limited interest for hub owners to have people come to their hub just for the time of 1 single download they found using these tool and then leave right after. DC is community based, and most hub owners try to build a community rather than a download supermarket.
These search tools are probably a win/win situation if you are running a specialised/thematic hub because in this case you will probably attract searchers who will meet other people with similar interests, and probably also more similar rarities; however for a generalist hub, it is not neccesarly a bad choice to disalow these clients.
Yes, that specific script is a bit baning much more than it should =)furthermore, your script will perman (e.g.) "Gloria" when she enters the hub.
If you're really looking to block automated searchers, I would suggest instead to use Gadget's hub mod to disable searches at the hub level, and have them handled by your script instead. If the user has been connected for less than 30 seconds, don't forward the search request. No need to ban them on top of it, if they're not spam-searching =)
-
- Posts: 1
- Joined: 2003-03-09 17:48
IS KICKING MOGLO REALLY THIS EASY?????
* I am asking this in behalf of all pc dummies like me...
If the following text will help block those annoying search bots that keep going in and out of the hubs....how to I implement it??????
:: listening for snickers ::
Wenchie*
Dim SearchBot
Sub Main()
SearchBot = array("Google","glo","search","Security","Mass","Message","DCuser","beta")
End Sub
Sub NewUserConnected(curUser)
Dim sb
For sb = 0 To UBound(SearchBot)
If InStr(1,cstr(curUser.sName), cstr(SearchBot(sb)), VBTextCompare) > 0 Then
curUser.Kick()
Exit Sub
End If
Next
End Sub
If the following text will help block those annoying search bots that keep going in and out of the hubs....how to I implement it??????
:: listening for snickers ::
Wenchie*
Dim SearchBot
Sub Main()
SearchBot = array("Google","glo","search","Security","Mass","Message","DCuser","beta")
End Sub
Sub NewUserConnected(curUser)
Dim sb
For sb = 0 To UBound(SearchBot)
If InStr(1,cstr(curUser.sName), cstr(SearchBot(sb)), VBTextCompare) > 0 Then
curUser.Kick()
Exit Sub
End If
Next
End Sub