egghelp.org community :: View topic - AntiDrone by sKy

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

AntiDrone by sKy - need some fix [Solved]

egghelp.org community Forum Index -> Script Support & Releases

View previous topic :: View next topic

Author

Message

chandra Sha
Voice

Joined: 31 Oct 2006
Posts: 12
Location: South Borneo

Posted: Fri Dec 22, 2006 8:06 am Post subject: AntiDrone by sKy - need some fix [Solved]

Code:

# -+--+--+--+--+--+
# copyright:
# -+--+--+--+--+--+
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
#
# -+--+--+--+--+--+
# end copyright:
# -+--+--+--+--+--+

###################################################################################################################################
# antidrone.tcl
###################################################################################################################################

# antidrone.tcl by sKy\
# Version 1.1
#
# This script is desinged to kickban those bots with $nickname and 2 digits at the end of the nickname.
# Those bots are really anoying. Them try to send you dcc files, weblinks to infected websites or advertisements.
# The script will be active in all channels the bot is op. It won`t just kick all users which match nicknameDigitDigit.
# Them need to be added to the dronenicklist. (This is because there are a couple of users with regular nicknames in that style.)
#
# Commands (important: nick = the nickname of the drone _without_ digits):
# on dcc chat:
# .+drone nick || .-drone nick || .+list
# or in channel:
# +drone nick || -drone nick || +list
#
# To add someone to the extempt list add him userflag mnofv or I
# .+user handle
# .+host handle hostmask
# .chattr handle +I
#
# Installation:
# - make a file in your eggdrop main dir (eggdrop/dronenicklist.txt)
# - write in that file some nicknames with dronenicks; or let it empty and add them later via pubik or dcc command
# - make a file in your scripts dir (eggdrop/scripts/antidrone.tcl)
# - put this code inside
# - open your eggdrop.conf and add 'source scripts/antidrone.tcl'
# - rehash your bot; script should work

###################################################################################################################################
# config
###################################################################################################################################

# here you can set the kickmsg
set antidrone(reason) "Dronenick."

# set here which flag is needed to add new drones, remove them or to show the actual list of trojannicknames
set antidrone(neededflag) "mno|mno"

###################################################################################################################################
###################################################################################################################################
###################################################################################################################################
# Do not edit anything below this line.
###################################################################################################################################
###################################################################################################################################
###################################################################################################################################

###################################################################################################################################
# drone join
###################################################################################################################################

bind join - * antidrone_join

proc antidrone_join { nickname hostname handle channel } {
if { ! [info exists ::antidrone(trojan_nicklist)] } { antidrone_read }
if { ! [onchan $nickname $channel] } { return 1 }
if { ! [botisop $channel] } { return 2 }
if { [isbotnick $nickname] } { return 3 }
set nickname [string tolower $nickname]
if { [matchattr handle mnofvI|mnofvI $channel] } { return 4 }
if { [string match -nocase "*.quakenet.org" $hostname] } { return 5 }
if { [string match -nocase "*.undernet.org" $hostname] } { return 5 }
if { [string match -nocase "*.user.gamesurge" $hostname] } { return 5 }
set fullhost "$nickname!$hostname"
if { ! [validchan $channel] } { return 5 }
if { [info command nofloodbot] != "" } {
if { [nofloodbot $fullhost] != 0 } { return 6 }
}
if { [info command validauth] != "" } {
if { [validauth $nickname] } { return 7 }
}
set check [regsub -all {[0-9]} $nickname "" shortnick]
if { $check <= 1 || $check >= 3 } {
# the nickname consits only 1 digit or more then 3 (so it can`t be that type for drone)
return 8
}
set string_length [string length $nickname]
set prelast [expr {$string_length - 2}]
set prelast [lindex [split $nickname ""] $prelast]
set last [expr {$string_length - 1}]
set last [lindex [split $nickname ""] $last]
set valid 0
if { [isnumber $last] && [isnumber $prelast] } {
set valid 1
}
if { $valid != 1 } {
# if the last 2 letters of the nickname aren`t digtits then it can`t be that type of drone)
return 9
}
if { ! [isdronenick $nickname] } { return 13 }
if { [info command punish] == "punish" } {
punish $nickname [get:ban:mask antidrone!$hostname] $handle $channel "antidronescript" 0 $::antidrone(reason) "kickban"
return 10
} else {
set hostname [string map {~ ""} $hostname]
pushmode $channel +b "*!*$hostname"
flushmode $channel
putkick $channel $nickname $::antidrone(reason)
return 11
}
putlog "antidrone_join: $nickname | $fullhost | $channel | /whois $nickname | suggest: .+drone $shortnick"
return 12
}

###################################################################################################################################
# isdronenick $nickname
###################################################################################################################################

proc isdronenick { nickname } {
if { ! [info exists ::antidrone(trojan_nicklist)] } { antidrone_read }
set nickname [string tolower $nickname]
foreach trojannick $::antidrone(trojan_nicklist) {
set pattern [string2pattern $trojannick]
set pattern "$pattern??"
if { [string match $pattern $nickname] } {
return 1
}
}
return 0
}

###################################################################################################################################
# add nickname
###################################################################################################################################

bind dcc $antidrone(neededflag) +drone antidrone_add_dcc

proc antidrone_add_dcc { handle idx text } {
set nickname [hand2nick $handle]
set hostname [getchanhost $nickname]
set channel "dcc"
antidrone_add_pub $nickname $hostname $handle $channel $text
}

bind pub $antidrone(neededflag) +drone antidrone_add_pub

proc antidrone_add_pub { nickname hostname handle channel text } {
antidrone_read
if { [llength [split $text]] > 1 || [llength [split $text]] == 0 } {
antidrone_out $channel $nickname "Wrong syntax. Should be $::lastbind +drone <nick_of_drone_without_digits>"
return
}
set nick [join [lrange [split $text] 0 0]]
set nick [string tolower $nick]
set allready_added 0
foreach nick_added $::antidrone(trojan_nicklist) {
if { [string equal -nocase $nick $nick_added] } {
set allready_added 1
break
}
}
if { $allready_added == 1 } {
antidrone_out $channel $nickname "$nick was allready added."
antidrone_refresh
return
}
if { [regsub -all {[0-9]} $nick "" shortnick] > 0 } {
antidrone_out $channel $nickname "$nick has not been added to the dronenicklist. The nick should not consits digits."
return
}
lappend ::antidrone(trojan_nicklist) $nick
# call proc to save the new list
antidrone_save
antidrone_out $channel $nickname "OK, done! $nick has been added to the dronenicklist."
antidrone_refresh
}

###################################################################################################################################
# antidrone_refresh
###################################################################################################################################

proc antidrone_refresh { } {
foreach channel [channels] {
if { ! [validchan $channel] } { continue }
if { ! [botisop $channel] } { continue }
foreach nickname [chanlist $channel] {
set hostname [getchanhost $nickname]
set handle [nick2hand $nickname]
antidrone_join $nickname $hostname $handle $channel
}
}
}

###################################################################################################################################
# antidrone_out
###################################################################################################################################

proc antidrone_out { channel nickname text } {
if { $channel == "dcc" } {
putlog "$nickname : $text"
} else {
puthelp "PRIVMSG $channel :$text"
}
}

###################################################################################################################################
# antidrone_del
###################################################################################################################################

bind dcc $antidrone(neededflag) -drone antidrone_del_dcc

proc antidrone_del_dcc { handle idx text } {
set nickname [hand2nick $handle]
set hostname [getchanhost $nickname]
set channel "dcc"
antidrone_del_pub $nickname $hostname $handle $channel $text
}

bind pub $antidrone(neededflag) -drone antidrone_del_pub

proc antidrone_del_pub { nickname hostname handle channel text } {
antidrone_read
if { [llength [split $text]] > 1 || [llength [split $text]] == 0 } {
antidrone_out $channel $nickname "Wrong syntax. Should be $::lastbind -drone <nick_of_drone_without_digits>"
return
}
set nick [join [lrange [split $text] 0 0]]
set nick [string tolower $nick]
set ::antidrone(trojan_nicklist) [lremove $::antidrone(trojan_nicklist) $nick]
antidrone_out $channel $nickname "OK, done! $nick has been deleted from the dronenicklist."
# call proc to save the new list
antidrone_save
}

###################################################################################################################################
# antidrone_list
###################################################################################################################################

bind dcc $antidrone(neededflag) +list antidrone_list_dcc

proc antidrone_list_dcc { handle idx text } {
set nickname [hand2nick $handle]
set hostname [getchanhost $nickname]
set channel "dcc"
antidrone_list_pub $nickname $hostname $handle $channel $text
}

bind pub $antidrone(neededflag) +list antidrone_list_pub

proc antidrone_list_pub { nickname hostname handle channel text } {
antidrone_read
set out [join $::antidrone(trojan_nicklist)]
antidrone_out $channel $nickname "Dronenicklist: $out"
}

###################################################################################################################################
# antidrone_save
###################################################################################################################################

proc antidrone_save { } {
# if no file exists create a new one
if { ! [file exists dronenicklist.txt] } {
set file [open dronenicklist.txt a]
close $file
}
# delete old save file
file delete dronenicklist_save.txt
# rename the old nicklist file to a new one (to prevent lost of all data incase of a botcrash...)
file rename dronenicklist.txt dronenicklist_save.txt
# create the original file new
set file [open dronenicklist.txt a]
set ::antidrone(trojan_nicklist) [string tolower $::antidrone(trojan_nicklist)]
set ::antidrone(trojan_nicklist) [lsort -unique $::antidrone(trojan_nicklist)]
set ::antidrone(trojan_nicklist) [lsort $::antidrone(trojan_nicklist)]
foreach nick $::antidrone(trojan_nicklist) {
puts $file $nick
}
close $file
antidrone_read
}

###################################################################################################################################
# antidrone_read
###################################################################################################################################

proc antidrone_read { } {
set ::antidrone(trojan_nicklist) [list]
# if no file exists create a new one
if { ! [file exists dronenicklist.txt] } {
set file [open dronenicklist.txt a]
close $file
}
set file [open dronenicklist.txt r]
set data [read $file]
foreach nick $data {
lappend ::antidrone(trojan_nicklist) $nick
}
set ::antidrone(trojan_nicklist) [string tolower $::antidrone(trojan_nicklist)]
set ::antidrone(trojan_nicklist) [lsort -unique $::antidrone(trojan_nicklist)]
set ::antidrone(trojan_nicklist) [lsort $::antidrone(trojan_nicklist)]
return $::antidrone(trojan_nicklist)
}

###################################################################################################################################
# procs from mytools.tcl
###################################################################################################################################
# string2pattern; lremove

proc lremove { list what } {
while { [set pos [lsearch -exact $list $what]] != -1 } {
set list [lreplace $list $pos $pos]
}
return $list
}

proc string2pattern { text } {
regsub -all -- {(\\|\[|\]|\{|\}|\.|\+|\?|$|$|\||\*)} $text {\\\1} text
return $text
}

###################################################################################################################################
# putlog/copyright
###################################################################################################################################

putlog "*** antidrone.tcl by sKy\\ loaded. ***"
# This script is under GNU General Public License! For more infos see the script header!

* Joins: alysia22 (ClarissaYk@125.191.246.45)
* MyBot sets mode: +b *!*ClarissaY@125.191.246.45
* alysia22 was kicked by MyBot (Dronenick.)

MyBot kick, but with wrong host to banned. It sould be +b *!*ClarissaYk@125.191.246.45 or +b *!*larissaYk@125.191.246.45

The script read ident 9 character from left to right and only banned 9 character instant, so on that case alysia22 still can join.

to ban alysia22, i need the script read ident from right to left.
_________________
If you tired can't resolve, get rest for a while,
Refresh body and mind

Last edited by chandra Sha on Sun Dec 24, 2006 12:54 am; edited 1 time in total

Sir_Fz
Revered One

Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

Posted: Fri Dec 22, 2006 12:46 pm Post subject:

The problem is probably in the get:ban:mask proc which isn't in your code. I guess it's in a different script which is being used by this script, you have to paste that proc and any related proc as well. _________________ Follow me on GitHub - Opposing Public Tcl scripts

chandra Sha
Voice

Joined: 31 Oct 2006
Posts: 12
Location: South Borneo

Posted: Sat Dec 23, 2006 6:04 am Post subject:

I dunno, that all i found on this tread I like the ban mask (!ident@host) it just wrong only when the drone have more than 9 ident digit (9 digit with ~ but if they have ident respond, there's 10 without ~), and the script only read that 9 digit ident (with or without ~). Should the script banned full ident (!ClarissaYk@) or nine ident digit read from right to left (!larissaYk@) _________________ If you tired can't resolve, get rest for a while, Refresh body and mind

Alchera
Revered One

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

Posted: Sat Dec 23, 2006 6:08 am Post subject:

@ chandra Sha: Another search of the Tcl Archive would certainly result in a better choice of scripts of the type you're looking to use. _________________ Add [SOLVED] to the thread title if your issue has been. Search \| FAQ \| RTM

chandra Sha
Voice

Joined: 31 Oct 2006
Posts: 12
Location: South Borneo

Posted: Sun Dec 24, 2006 1:00 am Post subject:

Edit by self. Thx for all respond _________________ If you tired can't resolve, get rest for a while, Refresh body and mind

Display posts from previous:

	egghelp.org community Forum Index -> Script Support & Releases	All times are GMT - 4 Hours
Page 1 of 1

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