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 

AllProtection.tcl (Stable: v4.8 / Beta: v4.9b4)
Goto page Previous  1, 2, 3 ... 19, 20, 21 ... 88, 89, 90  Next
 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Support & Releases
View previous topic :: View next topic  
Author Message
i.m.offline
Halfop


Joined: 02 Mar 2006
Posts: 74

PostPosted: Thu Mar 09, 2006 10:03 am    Post subject: Reply with quote

Am sorry for late response sir_fz but suddenly it seems to be working fine and I dont see any error on partyline. Thanks for your response. Take care. Gr8 work.
Back to top
View user's profile Send private message
sharktooth
Voice


Joined: 25 Mar 2006
Posts: 1

PostPosted: Sat Mar 25, 2006 8:23 am    Post subject: Problem when compiling Reply with quote

Thanks for such a nice script. It has almost everything a channel owner might want. There was a little problem when I tried to compile the script:
Quote:

invalid type. Must be one of: flag, int
while executing
"setudef str ap:textl"
(file "scripts/allprotection4.5.tcl" line 1375)
invoked from within
"source scripts/allprotection4.5.tcl"

thats what I get in my cmd window. Since its the code section, I have no clue what needs to be done. So, please reply me with a solution to fix the problem.

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


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Sat Mar 25, 2006 6:04 pm    Post subject: Reply with quote

Upgrade to eggdrop1.6.17.
_________________
Follow me on GitHub

- Opposing

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


Joined: 27 Mar 2006
Posts: 2

PostPosted: Mon Mar 27, 2006 10:36 am    Post subject: Reply with quote

Quote:

[17:31:14] <uMnoTeHTeH> [17:31] All Protection v4.5 by Opposing Loaded...
[17:31:14] <uMnoTeHTeH> [17:31] Userfile loaded, unpacking...
[17:31:20] <ERNEST> .set errorInfo
[17:31:20] <uMnoTeHTeH> [17:31] #ERNEST# set errorInfo
[17:31:20] <uMnoTeHTeH> Currently: no such binding
[17:31:20] <uMnoTeHTeH> Currently: while executing
[17:31:20] <uMnoTeHTeH> Currently: "unbind $foo1 $foo2 $foo3 $foo4 "
[17:31:34] <uMnoTeHTeH> [17:32] Tcl error [caps:kick]: can't read "p": no such variable
[17:31:34] <uMnoTeHTeH> [17:32] Tcl error [text:char]: can't read "o": no such variable
[17:31:34] <uMnoTeHTeH> [17:32] Tcl error [text:line]: can't read "o": no such variable
[17:31:37] <ERNEST> .set errorInfo
[17:31:37] <uMnoTeHTeH> [17:32] #ERNEST# set errorInfo
[17:31:37] <uMnoTeHTeH> Currently: can't read "o": no such variable
[17:31:37] <uMnoTeHTeH> Currently: while executing
[17:31:37] <uMnoTeHTeH> Currently: "invalid:apf $o $s"
[17:31:37] <uMnoTeHTeH> Currently: (procedure "text:line" line 4)
[17:31:37] <uMnoTeHTeH> Currently: invoked from within
[17:31:37] <uMnoTeHTeH> Currently: "text:line $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"
[17:33:48] <uMnoTeHTeH> [17:34] Tcl error [bjoinf:lock]: can't read "o": no such variable
[17:33:49] <uMnoTeHTeH> [17:34] Tcl error [cjoin:kick]: can't read "j": no such variable
[17:34:00] <ERNEST> .set errorInfo
[17:34:00] <uMnoTeHTeH> [17:34] #ERNEST# set errorInfo
[17:34:00] <uMnoTeHTeH> Currently: can't read "j": no such variable
[17:34:00] <uMnoTeHTeH> Currently: while executing
[17:34:00] <uMnoTeHTeH> Currently: "invalid:apf $j $s"
[17:34:00] <uMnoTeHTeH> Currently: (procedure "cjoin:kick" line 6)
[17:34:00] <uMnoTeHTeH> Currently: invoked from within
[17:34:00] <uMnoTeHTeH> Currently: "cjoin:kick $_jp1 $_jp2 $_jp3 $_jp4"

It seems that the tcl cann`t find a variable
Please help Smile
PS: I am uMnoTeHTeH, running eggdrop v1.6.17

Quote:

---------
Welcome to the UniBG Internet Relay Chat Network ERNEST
Your host is irc.telecoms.bg[irc.telecoms.bg/9001], running version ircd-ratbox+UniBG-v2.2
This server was created Wed Jan 11 2006 at 09:34:32 UTC
irc.telecoms.bg ircd-ratbox+UniBG-v2.2 oiwszcerkfydnxbauglZCD biklmnopstveI bkloveI
CHANTYPES=&# EXCEPTS INVEX CHANMODES=eIb,k,l,imnpst CHANLIMIT=&#:20 PREFIX=(ov)@+ MAXLIST=beI:150 NETWORK=UniBG MODES=4 STATUSMSG=@+ KNOCK CALLERID=g are supported by this server
SAFELIST ELIST=U CASEMAPPING=rfc1459 CHARSET=ascii NICKLEN=15 CHANNELLEN=100 TOPICLEN=390 ETRACE CPRIVMSG CNOTICE DEAF=D MONITOR=50 are supported by this server
TARGMAX=NAMES:1,LIST:1,KICK:1,WHOIS:1,PRIVMSG:4,NOTICE:4,ACCEPT:,MONITOR: are supported by this server
-


Last edited by ERNEST on Mon Mar 27, 2006 11:37 am; edited 1 time in total
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Mon Mar 27, 2006 11:06 am    Post subject: Reply with quote

Either .restart or apply .ap:reset <#chan> on all channels. This issue will be fixed in v4.6. (I notice people don't like to .restart Razz )
_________________
Follow me on GitHub

- Opposing

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


Joined: 22 Feb 2006
Posts: 18

PostPosted: Sat May 06, 2006 11:51 am    Post subject: Reply with quote

i have other idea to take only letters fllod now it work..


but i want: "ththththththt" , " shshshshshshs" and other will kicking too!
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Sun May 07, 2006 6:23 am    Post subject: Reply with quote

Craig wrote:
i have other idea to take only letters fllod now it work..


but i want: "ththththththt" , " shshshshshshs" and other will kicking too!

In my opinion that's useless, even the letter repeats protection is not needed that much.
_________________
Follow me on GitHub

- Opposing

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


Joined: 15 Dec 2002
Posts: 1361
Location: Germany

PostPosted: Sun May 07, 2006 6:39 am    Post subject: Reply with quote

I considered making one, but dropped the idea, because even single letter repeatance would be as complex as '(?i)(a{5,}|b{5,}|c{5,}|...|z{5,})'
and therefore be too much CPU time for parsing a single line. Remember, a [a-z]{5,} would not only match "aaaaa" but also "mouse" Very Happy. Alternately you would have to count each letter and say like only x % are allowed per letter and line. A good protection script must also consider CPU time, since excess flood might be used to timeout the bot by just the CPU time it consumes Very Happy. If you run your bot on your own machine, you might not have to worry about it, but many shells have very limited CPU ressources per user.

however, you could consider using looking for repeated vocals like in "loooooooooooooooool".
_________________
De Kus
StarZ|De_Kus, De_Kus or DeKus on IRC
Copyright © 2005-2009 by De Kus - published under The MIT License
Love hurts, love strengthens...
Back to top
View user's profile Send private message MSN Messenger
demond
Revered One


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

PostPosted: Tue May 09, 2006 2:28 am    Post subject: Reply with quote

De Kus wrote:
I considered making one, but dropped the idea, because even single letter repeatance would be as complex as '(?i)(a{5,}|b{5,}|c{5,}|...|z{5,})'
and therefore be too much CPU time for parsing a single line. Remember, a [a-z]{5,} would not only match "aaaaa" but also "mouse" Very Happy. Alternately you would have to count each letter and say like only x % are allowed per letter and line. A good protection script must also consider CPU time, since excess flood might be used to timeout the bot by just the CPU time it consumes Very Happy. If you run your bot on your own machine, you might not have to worry about it, but many shells have very limited CPU ressources per user.

however, you could consider using looking for repeated vocals like in "loooooooooooooooool".


you have considered the wrong idea

it's trivial to detect repeating patterns (with sufficient precision) in a string without using regexps, and without clogging the CPU
_________________
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: Tue May 09, 2006 2:55 am    Post subject: Reply with quote

A for loop and a string repeat will do the job, it's already implemented in AP.
_________________
Follow me on GitHub

- Opposing

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


Joined: 15 Dec 2002
Posts: 1361
Location: Germany

PostPosted: Tue May 09, 2006 10:54 am    Post subject: Reply with quote

demond wrote:
you have considered the wrong idea

it's trivial to detect repeating patterns (with sufficient precision) in a string without using regexps, and without clogging the CPU

Sure that
[string match -nocase *aaaaa* $line] || [string match -nocase *bbbbb* $line] || [string match -nocase *ccccc* $line] || ... || [string match -nocase *zzzzz* $line]
would be significantly faster? Or what were you thinking of?

Though I am still the opionion that these "non critical" spams should be rather a matter of human moderation Smile.
_________________
De Kus
StarZ|De_Kus, De_Kus or DeKus on IRC
Copyright © 2005-2009 by De Kus - published under The MIT License
Love hurts, love strengthens...


Last edited by De Kus on Tue May 09, 2006 12:39 pm; edited 2 times in total
Back to top
View user's profile Send private message MSN Messenger
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Tue May 09, 2006 12:23 pm    Post subject: Reply with quote

I've done it like this:
Code:
set i 30 ; # number of repeated letters
set cl "abcdefghijklmnopqrstuvwxyz0123456789!@#$%^&"
for {set c 0} {$c < [string length $cl]} {incr c} {
 if {[string match -nocase *[string repeat [string index $cl $c] $i]* $arg]} {
  # offense detected.
 }
}

_________________
Follow me on GitHub

- Opposing

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


Joined: 15 Dec 2002
Posts: 1361
Location: Germany

PostPosted: Tue May 09, 2006 12:40 pm    Post subject: Reply with quote

so the string match thing is basicly what Fz already did ^-^.

btw. for some languages like German addional letters like the 3 umlaute (äöü) in German are likely to be used repeatedly. I doubt the ss (ß) would be often used for something like that (and could be trapped by mapping ß -> ss).
_________________
De Kus
StarZ|De_Kus, De_Kus or DeKus on IRC
Copyright © 2005-2009 by De Kus - published under The MIT License
Love hurts, love strengthens...
Back to top
View user's profile Send private message MSN Messenger
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Tue May 09, 2006 6:46 pm    Post subject: Reply with quote

Ok, I've been working on a new version of AllProtection but I'm finding less time to complete it. So I decided to release the beta version of v4.6 (v4.6b4). Some of the new features are:

  • New and improved DCC commands:
    Quote:
    .ap:import <oldchan> <*/newchan> (This sets the AP settings of <oldchan> on <newchan> or all chans if *)
    .ap:reset <*/chan> (This will reset the AP settings of chan or all chans if * to the default settings)
    .ap:disable <*/chan> (This will disable all protections on chan or all chans if *)
    .ap:monitor (displays info about followed punishments)
    .ap:add <list> <chan/global> <elements>
    .ap:rem <list> <chan/global> <elements>
    .ap:list <list> <chan/global>
    ** Available lists: bchans, bnicks, bidents, bwords & adexempts.

  • New botnet flood protection: mass codes flooding (notice/text).
  • Exempted words can be added which will not be considered as advertising (via DCC).
  • Enhanced dynamic chansettings, for example:
    Quote:
    .chanset #chan ap:<type> <value> <btime> <punishment> <btype>
    .chanset #chan ap:textl 5:2 30 w:k:kb 2

  • Namespace implementation to avoid variable collision with other scripts.
  • No .restart required anymore for installation, the script will set everything on load.
  • Bad chan protection (bad chans can be added via DCC for every channel)
  • Remove x bans on full banlist.
  • Queue implementation, you can set a queue (in seconds) which will allow setting several bans in one command (i.e. +bbbbb) very usefull during mass floods. (can be disabled)
  • Code structure very different and a lot, many many, bugs fixed and enhancements done.

Probably there's much more but I've forgotten (progress is slow from a fix to another).

I guarantee that this version is 100% bug-free. It has been loaded on my eggdrop for a while now, and I haven't noticed any Tcl error yet. Enjoy.

AllProtection4.6b4.zip.
_________________
Follow me on GitHub

- Opposing

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


Joined: 09 Feb 2005
Posts: 7

PostPosted: Tue May 23, 2006 6:36 pm    Post subject: some error Reply with quote

made new bot (eggdrop1.6.17) with allprotection4.6b4.tcl
did .+chan #bot2
after doing all channel settings for AFP i did .rehash the bot gives following error. it leaves the channel. (there are no other tcls running excpt with allprotection4.6b4.tcl )

[23:20] <(bot2> Tcl error in file 'bot2.chan':
[23:20] <(bot2> while executing
[23:20] <(bot2> "channel add #bot2 { chanmode +tn idle-kick 0 stopnethack-mode 0 revenge-mode 0 need-op {} need-invite {} need-key {} need-unban {} need-limit {} fl..."
[23:20] <(bot2> (file "bot2.chan" line 3)
[23:20] <(bot2> Creating channel file
[23:20] <(bot2> No longer supporting channel #bot2
[23:20] <(bot2> Ignored masks for channel(s): #bot2
[23:20] <(bot2> Userfile loaded, unpacking...
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Support & Releases All times are GMT - 4 Hours
Goto page Previous  1, 2, 3 ... 19, 20, 21 ... 88, 89, 90  Next
Page 20 of 90

 
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