This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.

For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

AntiDrone by sKy - need some fix [Solved]

Support & discussion of released scripts, and announcements of new releases.
Post Reply
User avatar
chandra Sha
Voice
Posts: 12
Joined: Tue Oct 31, 2006 1:27 am
Location: South Borneo

AntiDrone by sKy - need some fix [Solved]

Post by chandra Sha »

Code: Select all

# -+--+--+--+--+--+ 
# 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.
Last edited by chandra Sha on Sun Dec 24, 2006 12:54 am, edited 1 time in total.
If you tired can't resolve, get rest for a while,
Refresh body and mind
Top
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:
Contact Sir_Fz

Post by Sir_Fz »

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.
Top
User avatar
chandra Sha
Voice
Posts: 12
Joined: Tue Oct 31, 2006 1:27 am
Location: South Borneo

Post by chandra Sha »

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
Top
User avatar
Alchera
Revered One
Posts: 3344
Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:
Contact Alchera

Post by Alchera »

@ 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
Top
User avatar
chandra Sha
Voice
Posts: 12
Joined: Tue Oct 31, 2006 1:27 am
Location: South Borneo

Post by chandra Sha »

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

Return to “Script Support & Releases”