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 ... 87, 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
Casey952
Voice


Joined: 24 Jun 2008
Posts: 15

PostPosted: Wed Aug 17, 2016 7:53 am    Post subject: Reply with quote

All Protection regular expressions does not detect and does nothing.

Random Drones and Caps that use regular expressions are not detecting and does nothing, does not warn, kick, ban.

Do we need to install a regex package for regular expressions to work? (Debian)


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


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Wed Aug 17, 2016 12:34 pm    Post subject: Reply with quote

Casey952 wrote:
All Protection regular expressions does not detect and does nothing.

Random Drones and Caps that use regular expressions are not detecting and does nothing, does not warn, kick, ban.

Do we need to install a regex package for regular expressions to work? (Debian)


Many Thanks.

No need to install anything extra AFAIK. Could you elaborate a bit? Give a few examples and the reason you think the script should react?
_________________
Follow me on GitHub

- Opposing

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


Joined: 24 Jun 2008
Posts: 15

PostPosted: Wed Aug 17, 2016 4:47 pm    Post subject: Reply with quote

4.7 running on Debian.

I was having a look at Random Drones testing it out with random nicks which it did not kick.

I noticed the setting did not have kb

Code:
lappend ap:udefs {ap:drones "+ 180 45 2"}


I put in kb (+ 180 kb 2) which did not work.

I tried a copy and paste of some of the regex letters in the script with both kb and 45 which did not work.

I saw a forum post on here with Random Drones with a nick that got kicked but did not work on my one.

I had a look for another regular expressions on Caps and tested that but did not work doing all caps.

Code:
lappend ap:udefs {ap:caps "60:90 120 w:k:kb 2"}


repeat - flood - etc work fine.

Was thinking I might need a regex package installed for it to work.
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Thu Aug 18, 2016 9:39 am    Post subject: Reply with quote

Regarding the ap:drones default settings, it's explained in the setting's documentation
Code:
# Use .chanset #channel ap:drones + <btime> <pmeth> <btype> (in DCC to enable)
# Set default value here: (+ enabled, - disabled)
# If you set <pmeth> to a positive-integer then the bot will only kick the drone once.
# So if the drone rejoins within this amount of seconds it won't be kicked again.
lappend ap:udefs {ap:drones "+ 180 45 2"}

So 45 would still make the bot kick an offender after it joins for the first time.

Also note that modifying the settings inside the script won't work as these are only the default settings when you load the script for the first time. You need to use .chanset to make any changes to AP's settings for each channel:

Code:
# * All settings are enabled via .chanset DCC command. Example: .chanset #channel ap:textl 5:2 15 w:k:kb 2
# this will enable the text flood (lines) protection on #channel (punish on 5 lines or more in 2 seconds)
# 1st warn - 2nd kick - 3rd kickban. ban is 15 minutes and ban type is 2.


I can't really help you if you don't give us an example nickname that you expect the script to catch. The script's drone detector is pretty limited so don't expect it to be super effective.

If you want to manually test regular expressions you can just run tclsh in your terminal and try it out. Example:

Quote:
% regexp {^[^aeiou]{4}|[aeiou]{4}|q[^ua]|[^aeioux]x[^aeiouyx]|[^aeiouy]{5}} "aasdsds" dronm
1
% puts $dronm
sdsds

1 means there was a match, otherwise the output is 0.
_________________
Follow me on GitHub

- Opposing

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


Joined: 24 Jun 2008
Posts: 15

PostPosted: Thu Aug 18, 2016 6:48 pm    Post subject: Reply with quote

In the terminal I did tclsh which said command not found

seems like I do not have something installed for regex to work.


The packages I have installed:

apt-get install ntp build-essential git bison flex openssl libssl-dev oidentd nano tcl8.6-dev


tclsh I also tried:

tclsh regexp {^[^aeiou]{4}|[aeiou]{4}|q[^ua]|[^aeioux]x[^aeiouyx]|[^aeiouy]{5}} "aasdsds" dronm

tclsh % regexp {^[^aeiou]{4}|[aeiou]{4}|q[^ua]|[^aeioux]x[^aeiouyx]|[^aeiouy]{5}} "aasdsds" dronm

command not found


The nick I tried for random drones: qhubekela

from the post I saw on here.

Quote:
qhubekela [qhubekela@bombshellz/user/...]
qhubekela was kicked from #bombshellz by BattleStar [Possible random drone detected. (*qh*) :: [Sat Apr 30
11:45:48 2011] - Banned 0 minutes ·43·]


it did not kick using that nick.

I did a copy and paste of some of the regex letters in the script to try but did not kick.

q[bcdfghknpqrstwzxv]|x


Code:
  "drones" {
   variable droneexempts
   if {$off != "+"} {return 0}
   set Nod 0
   if {[info exists droneexempts([set chan [string tolower $chan]])]} { set l $droneexempts($chan) } { set l $droneexempts(global) }
   foreach e $l { if {[string match -nocase $e $nick!$uhost]} {set Nod 1 ; break} }
   if {$Nod} {return 0}
   set id [string trimleft [lindex [split $uhost @] 0] ~]
   if {[follow 2 dr:$chan 3] != -1} {return 0}
   if {[regexp {^[a-z]{4,}![a-z]{4,}$} $nick!$id]} {
    if {(![string match {*[aeiou]*} $nick]) || ([regexp {^[^aeiou]{4}|[aeiou]{4}|q[^ua]|[^aeioux]x[^aeiouyx]|[^aeiouy]{5}} $nick dronm] && ![regexp {a{3}|e{3}|i{3}|o{3}|u{3}} $nick])} {
     if {![info exists dronm]} { set dronm "no vowels" }
     droneb $nick $uhost $chan $btime $pmeth $btype *$dronm*
    } elseif {![string match *$id* $nick] && [regexp {q[bcdfghknpqrstwzxv]|x[dfghkmnqrvz]|z[bcdfhmqrtvx]|v[bfghkmnqxw]|g[zv]|kz|bgb|wj|lx|jwm} $nick dronm]} {
     droneb $nick $uhost $chan $btime $pmeth $btype *$dronm*
    }
   }
  }



Code:
elseif {![string match *$id* $nick] && [regexp {q[bcdfghknpqrstwzxv]|x[dfghkmnqrvz]|z[bcdfhmqrtvx]|v[bfghkmnqxw]|g[zv]|kz|bgb|wj|lx|jwm} $nick dronm]} {



Doing all caps

CAPS CAPS CAPS CAPS CAPS CAPS CAPS
CAPSCAPSCAPSCAPSCAPSCAPSCAPSCAPS

did not warn - kick - ban.
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Fri Aug 19, 2016 7:40 am    Post subject: Reply with quote

Seems you do have a problem with your TCL interpreter (I'm not sure what exactly). Try re-installing TCL and recompile Eggdrop. If you face further problems, try asking in the Eggdrops section as I'm not using Eggdrop at all nowadays so perhaps someone with a better grip can help you if needed.
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts
Back to top
View user's profile Send private message Visit poster's website
caesar
Mint Rubber


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

PostPosted: Fri Aug 19, 2016 9:27 am    Post subject: Reply with quote

If you have tcl8.6-dev as you state then get on the shell and type tclsh then hit Enter. After this you will see a % as your terminal and cop/paste that regexp line in there.

I tested the regexp you mentioned and works fine, meaning returns 1.
Code:

user@blah ~ $ tclsh
% regexp {^[^aeiou]{4}|[aeiou]{4}|q[^ua]|[^aeioux]x[^aeiouyx]|[^aeiouy]{5}} "aasdsds" dronm
1
%

Then to exit just type exit and hit Enter.
_________________
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
Casey952
Voice


Joined: 24 Jun 2008
Posts: 15

PostPosted: Sun Aug 21, 2016 2:26 am    Post subject: Reply with quote

I uninstalled tcl8.6-dev and installed tcl tcl-dev

I only did tcl8.6-dev.

TCLSH worked and those commands work.

tcl8.6-dev -- tclsh <enter> said command not found.

doing all caps worked, was long enough for it to kick, was too short when I was trying before.


Random Drones --

I was doing it in Kiwi IRC using the random nick qhubekela but did not kick.

I tried it in mIRC which worked and did a kick on qhubekela

Kiwi IRC has your ident as your address, which I tried the ident in mIRC and did not kick.

Kiwi IRC ident -- b4b59a4a

qhubekela ! b4b59a4a@* -- does not kick

qhubekela ! casey@* -- kicks


When the ident has certain things in it, it does not kick (nick qhubekela)
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Mon Aug 22, 2016 9:50 am    Post subject: Reply with quote

Casey952 wrote:
qhubekela ! b4b59a4a@* -- does not kick

qhubekela ! casey@* -- kicks


When the ident has certain things in it, it does not kick (nick qhubekela)


The condition for the drones punishment requires that both the nickname and ident are 4 or more lower case alphabets (non-numeric). Since "b4b59a4a" fails this check, it's not considered a drone.

Again, the drone kicker is very primitive so don't expect it be very effective. It may have been decent in 2005, but certainly not in 2016.
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts
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: Thu Sep 15, 2016 11:42 am    Post subject: Reply with quote

Version 4.9b4 with Eggdrop 1.8 support released: https://github.com/sirfz/allprotection.tcl/releases/tag/v4.9b4
_________________
Follow me on GitHub

- Opposing

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


Joined: 24 Jun 2008
Posts: 15

PostPosted: Tue Nov 15, 2016 6:55 pm    Post subject: Reply with quote

I am having some issues with the AntiSpam bot.

In DCC to the bot, it says AntiSpam connecting to server which says it a few times before it gets connected.

Then the AntiSpam bot gets disconnected connection timed out after a minute or so, and then reconnects with a second bot name and then another bot name about 3 of them in the channel.

When you join the channel, and you get the checking for spam message the bot sends you, you get several checking for spam messages from the one bot.

The bots in the channel do not get disconnected from the network being a dead connection. When you .die the bot from DCC, all bots disconnect.
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Fri Nov 18, 2016 4:48 pm    Post subject: Reply with quote

Hey Casey952, I assume you're using the beta release? In addition, could you specify on which network you're testing it so I can try and locally reproduce your issue.
_________________
Follow me on GitHub

- Opposing

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


Joined: 24 Jun 2008
Posts: 15

PostPosted: Sun Nov 20, 2016 6:40 am    Post subject: Reply with quote

AntiSpam on All Protection 4.7 with Eggdrop 1.6.21.

This is on a VPS on the Charybdis IRC Server with AntiSpam.
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Tue Nov 22, 2016 11:41 am    Post subject: Reply with quote

Casey952 wrote:
AntiSpam on All Protection 4.7 with Eggdrop 1.6.21.

This is on a VPS on the Charybdis IRC Server with AntiSpam.

If the bot connects and behaves normally on another IRC network then it's network-specific issue that needs to be handled properly by the bot, can you confirm this?
_________________
Follow me on GitHub

- Opposing

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


Joined: 07 Jul 2012
Posts: 26

PostPosted: Mon Mar 27, 2017 8:11 am    Post subject: rehash Reply with quote

Hi Sir_Fz,

I am one of your fans... I just wondering.. I did some modification in your code just to make the antispam can change their ip, ident and nick every time they cycles. But to do that, so far I am using rehash command, i know its not right or so blatantly. is there anyway to kill the antispam bot with proc and reconnect again ?

Thanks in advance
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 ... 87, 88, 89, 90  Next
Page 88 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