egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

drone script not kicking drones
Goto page 1, 2  Next
 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help
View previous topic :: View next topic  
Author Message
Xeon
Voice


Joined: 25 Nov 2005
Posts: 9

PostPosted: Tue Dec 20, 2005 6:32 pm    Post subject: drone script not kicking drones Reply with quote

Hello,

I've been working on a drone script which was originally created by awyeah called dronenick.tcl. So far this script has only kicked one drone despite the fact that I have lowered the thresholds within the script to try and detect these drones, hundreds of drones have gotten past it.

Has anyone had any experience with this script that could help me determine how to set it for our particular drones or if you've developed a better regexp to be used with this script could you pass along the information you've gleaned?

Here is a partial list of some of the drones we are encountering. Hopefully someone here can help me develop a better regexp or something similiar that will help make this script work more effectively.

List of drone /whois:

fqjtgldl is fqjtgldl!wyspqet@54A8D473.F65DEAB9.C52F060.IP
fqjtgldl's real name: ltwuw

lzrhck is lzrhck!zltcvxd@23F59026.BB089248.FD48FE29.IP
lzrhck's real name: yxjoseke

ozirknliw is ozirknliw!rmbr@7DD740F1.EA80AF5A.F4C40CD8.IP
ozirknliw's real name: nbvemcjpj

Any and all help here would be greatly appreciated.

BTW, this particular script can be found right here at egghelp.org within their tcl archive.
Back to top
View user's profile Send private message
demond
Revered One


Joined: 12 Jun 2004
Posts: 3073
Location: San Francisco, CA

PostPosted: Tue Dec 20, 2005 11:25 pm    Post subject: Reply with quote

try out xchannel

it has an effective (I think) anti-drone fuzzy logic, play with score threshold to suit your needs; of course, it will never be 100% effective, but if you can achieve like 80% you can call it success
_________________
connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use [code] tag when posting logs, code
Back to top
View user's profile Send private message Visit poster's website
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Wed Dec 21, 2005 7:05 am    Post subject: Reply with quote

Check out the method used in allprotection perfect for the example nicks you gave. (will improve in 4.6)
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts
Back to top
View user's profile Send private message Visit poster's website
Xeon
Voice


Joined: 25 Nov 2005
Posts: 9

PostPosted: Wed Dec 21, 2005 4:26 pm    Post subject: Reply with quote

Ok I'll give them both a try, I've been modifying the dronenick.tcl by awyeah to try and get results but it's missing 99% of all these drones. These drone producers are getting trickier with their bots and modifying them so that these scripts stop working.

When is your 4.6 version going to be out Sir_Fz?

Thanks for both these suggestions, I appreciate it a lot.

BTW Sir_Fz, the link to allprotections you have above is timing out.

Thanks,

Xeon
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Wed Dec 21, 2005 5:11 pm    Post subject: Reply with quote

4.6 is being tested right now but is looking good, should be released by the year 2006 (which is very soon Razz) as for the link, I noticed that people are not being able to access it (although I can Confused) so use this instead.
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts
Back to top
View user's profile Send private message Visit poster's website
Xeon
Voice


Joined: 25 Nov 2005
Posts: 9

PostPosted: Thu Dec 22, 2005 6:15 am    Post subject: Reply with quote

After taking a look at the allprotections script, it appears that the regexp used there for drone detection won't work in the case of the drones we are seeing.

Correct me if I'm wrong but it looks like you are relying on the drones not having any vowels and that just won't work here since they all DO have vowels.

I'm also not interested in having this huge script with all the other things in it. I only want a script that does the drone detection. I'll try and test the script against the drones we are seeing but I'm pretty sure that it's not going to work against them.

Thanks,
Back to top
View user's profile Send private message
Xeon
Voice


Joined: 25 Nov 2005
Posts: 9

PostPosted: Thu Dec 22, 2005 7:52 am    Post subject: Reply with quote

I'm seeing massive tcl errors with the allprotection.tcl script. They are as follows:

[03:50] Tcl error [btext:chars]: can't read "o": no such variable
[03:50] Tcl error [btext:line]: can't read "o": no such variable
[03:50] Tcl error [repeat:kick]: can't read "o": no such variable
[03:50] Tcl error [caps:kick]: can't read "p": no such variable
[03:50] Tcl error [text:char]: can't read "o": no such variable
[03:50] Tcl error [text:line]: can't read "o": no such variable
[03:50] Tcl error [caps:action]: can't read "p": no such variable
[03:50] Tcl error [char:action]: can't read "o": no such variable
[03:50] Tcl error [text:action]: can't read "o": no such variable

Suggestions?
Back to top
View user's profile Send private message
nANDu
Voice


Joined: 22 May 2005
Posts: 15

PostPosted: Thu Dec 22, 2005 8:24 am    Post subject: Reply with quote

Code:


proc checkdrone {n u h c} {
  global droneip
  if {(![botisop $c]) || ([matchattr $h of|of])} {return}
  scan $u %\[^@\]@%s u host
  set u [string trimleft $u ~]
  if {([info exists droneip($n)]) || ([string length $n] < 5) || ([string length $n] > 11) || ([string length $u] < 4)} {return}
  if {([string is alpha $n]) && ([string is alpha $u])} {
     if {([check:drone $n] == 1) && ([check:drone $u] == 1)} {
        putquick "KICK $c $n :DRONE!!" -next
     }
     if {![info exists droneip($n)]} {set droneip($n) 0}
     timer 300 [list unset droneip($n)]
  }
}
proc check:drone {d} {
  set l2 [string length $d] ; set l3 [expr [expr $l2/2]-1]
  set part1 [string range $d 0 2] ; set part2 [string range $d end-2 end] 
  set part3 [string range $d $l3 [expr $l3+2]]
  if {([c:d $part1] == 1)||([c:d $part2] == 1)||([c:d $part3] == 1)} {return 1}
  return 0
}
proc c:d {d} {
  set ln [string length $d]
    if {[llength [regexp -all -inline \[aeiou\] $d]] >= 1} {return 0}
    if {[llength [regexp -all -inline (aaa|bbb|ccc|ddd|eee|fff|ggg|hhh|iii|jjj|kkk|lll|mmm|nnn|ooo|ppp|qqq|rrr|sss|ttt|uuu|vvv|www|xxx|yyy|zzz) $d]] >= 2} {return 0}
    return 1
}

It checks for nick!ident.
ex: nicks is split to nic, cks & ick. If any one has no vowel, it will proceed.
If u want to check for nick OR ident
Code:

    if {([check:drone $n] == 1) || ([check:drone $trimud] == 1)} {

It also remembers drone nick for 300 mins. (i.e) Nicks which rejoin doesn't get kicked.


Last edited by nANDu on Mon Dec 26, 2005 1:04 pm; edited 2 times in total
Back to top
View user's profile Send private message
Xeon
Voice


Joined: 25 Nov 2005
Posts: 9

PostPosted: Thu Dec 22, 2005 10:03 am    Post subject: Reply with quote

Great nANDu, I'll give this a try.

Thanks a lot,

BTW Sir_Fz, your script does a good job of detecting the drones we are seeing. I just wish you had yours in just a drone script without all the other stuff.

Thanks to you as well for putting the effort into the one you have, it looks like a really good script.

Take care,

Xeon
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Thu Dec 22, 2005 12:43 pm    Post subject: Reply with quote

You need to .restart, not just .rehash, after loading allprotection. If you don't want the other protections then just disable them.
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts
Back to top
View user's profile Send private message Visit poster's website
awyeah
Revered One


Joined: 26 Apr 2004
Posts: 1580
Location: Switzerland

PostPosted: Fri Dec 23, 2005 12:32 am    Post subject: Reply with quote

Actually my script incorporates all types of drone nick detection mechanisms I had found through the past months making a couple of my own, getting some from other people which I had seen and so. Using complex matching, regexp and normal matching and detecting drones based on "nick!ident" scores and so.

I've used it on DALnet like on very happening channels such as #india and so and to my surprise the accuracy of the script was 90%-95% with only a few innocent users being kicked.

My bots still use the same script and detect and remove all types of random nicks encountered.
_________________
·­awyeah·

==================================
Facebook: jawad@idsia.ch (Jay Dee)
PS: Guys, I don't accept script helps or requests personally anymore.
==================================
Back to top
View user's profile Send private message Send e-mail Visit poster's website Yahoo Messenger MSN Messenger
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory

PostPosted: Fri Dec 23, 2005 4:34 pm    Post subject: Reply with quote

Could you guys just send the users to the TCL Archive without competing and recommanding your script as beeing *the best* .. just let the user decide upon what tcl script to stick.
_________________
Once the game is over, the king and the pawn go back in the same box.
Back to top
View user's profile Send private message
metroid
Owner


Joined: 16 Jun 2004
Posts: 771

PostPosted: Fri Dec 23, 2005 5:41 pm    Post subject: Reply with quote

I agree, it's abit crappy to see xchannel/allprotection get recommended in just about every post made in this section of the forum Razz
Back to top
View user's profile Send private message
Alchera
Revered One


Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia

PostPosted: Fri Dec 23, 2005 6:36 pm    Post subject: Reply with quote

MeTroiD wrote:
I agree, it's abit crappy to see xchannel/allprotection get recommended in just about every post made in this section of the forum Razz

In just about every section; not just this.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM
Back to top
View user's profile Send private message Visit poster's website
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Fri Dec 23, 2005 9:18 pm    Post subject: Reply with quote

I don't see xchannel/allprotection being recommended in this post though, he asked for drone checking techniques and he was directed to that. Very sad you feel that way heh Laughing
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help All times are GMT - 4 Hours
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber