egghelp/eggheads community

Request from caesar for Tsunami.tcl

2003-06-22T16:26:36-04:00

the script just unlocks the channel randomly. heheh I can't explain it, sometimes it unlocks once, other times three times and sometimes 5 times....

Don't know but its good I'll test it more thoroughly

Statistics: Posted by Sir_Fz — Sun Jun 22, 2003 4:26 pm

Request from caesar for Tsunami.tcl

2003-06-22T16:50:50-04:00

Reply Deleted (it wasn't correct) sorry .

Statistics: Posted by Sir_Fz — Sat Jun 21, 2003 6:03 pm

Request from caesar for Tsunami.tcl

2003-06-21T17:54:53-04:00

Well using this proc, the bot doesn't unlock at all.

Statistics: Posted by Sir_Fz — Sat Jun 21, 2003 5:54 pm

Request from caesar for Tsunami.tcl

2003-06-21T17:26:27-04:00

Replace the unlock proc with this one:

Code:

proc tsunlock {args} {  switch -- [lindex $args 0] {    "tlines" {      set cm [getchanmode [strlwr [lindex $args 1]]]       if {([string match {+*\[$::linemds]*\[$::linemds]*} $cm]) && ([llength [split $cm]] >= 1)} {        putquick "MODE [strlwr [lindex $args 1]] -$::linemds"        return      }     }    "tnotc" {      set cm [getchanmode [strlwr [lindex $args 1]]]       if {([string match {+*\[$::notcmds]*\[$::notcmds]*} $cm]) && ([llength [split $cm]] >= 1)} {        putquick "MODE [strlwr [lindex $args 1]] -$::notcmds"        return      }    }  }}

and see if this helps..

Statistics: Posted by caesar — Sat Jun 21, 2003 5:26 pm

Request from caesar for Tsunami.tcl

2003-06-21T17:20:01-04:00

Script:

# tsunami.tcl
# version 0.3
# caesar <cezarica@prietenii.com>

And I'm sure I removed the old one and rehashed+restarted the bot before I tested the script:

· · Joins: h7378 [ ~q1926@80.84.128.143] - Clones from *!*@80.84.128.143 (h7378 q5920 w400[3])
· · Performing custom penalty on h7378 about join.
· · Joins: d8486 [ ~f5209@80.84.128.148] - Clones from *!*@80.84.128.148 (d8486 r648 w336[3])
« h7378 » JaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoT
« r648 » JaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoTJaZNoT
· · ChanMode: @Laged sets mode [ +mR ]
· · Kicks: d8486 was kicked from #web4u by [ @Laged ] : [ Codes/LongLine Tsunami flooder - Banned 5mins. ]
*** Laged sets mode: +b *!*@80.84.128.148
*** q5920 was kicked by Laged (Codes/LongLine Tsunami flooder - Banned 5mins.)
· · Kicks: w400 was kicked from #web4u by [ @Laged ] : [ banned: Codes/LongLine Tsunami flooder - Banned 5mins. ]
· · ChanMode: @Laged sets mode [ -mR ]
· · ChanMode: @Laged sets mode [ -mR ]
· · ChanMode: @Laged sets mode [ -mR ]

and I have also concluded that if the bot locks once, it unlocks 3 times.
If the bot locks twice, it unlocks 4 or six times.

Statistics: Posted by Sir_Fz — Sat Jun 21, 2003 5:20 pm

Request from caesar for Tsunami.tcl

2003-06-21T16:38:10-04:00

Are you absolutly shure you got the latest version (0.3) and replaced and also removed + unloaded the older versions befor loading the new one? Also, if it's possible please do give me an exaple how did he locked and unlocked the channel more than once. In my tests he locked and unlocked it only once..

Statistics: Posted by caesar — Sat Jun 21, 2003 4:38 pm

Request from caesar for Tsunami.tcl

2003-06-21T16:19:59-04:00

Well man, the locking is good (2 time maximum if the flood is big)

But the unlocking is annoying, it unlocks for like 5 or 6 times.
can u make it like, if mode set by bot for tsunami, then bot unlocks once.
or something like that ?

Statistics: Posted by Sir_Fz — Sat Jun 21, 2003 4:19 pm

Request from caesar for Tsunami.tcl

2003-06-21T14:26:00-04:00

The *chanmode* confused me a bit. Anyway, fixed it, added what you've asked for. Get the latest version from here.. Thank you for reporting the bug.

Statistics: Posted by caesar — Sat Jun 21, 2003 2:26 pm

Request from caesar for Tsunami.tcl

2003-06-21T11:12:12-04:00

Well The script is very very good it worked for both Notice Tsunami and longline tsunami floods.
But there's a little problem, the bot makes a mode flood like:

· · ChanMode: @Laged sets mode [ +mR ]
· · ChanMode: @Laged sets mode [ +mR ]
(after unlock time)
· · ChanMode: @Laged sets mode [ -mR ]
· · ChanMode: @Laged sets mode [ -mR ]
· · ChanMode: @Laged sets mode [ -mR ]

can u fix it in a way that it locks the channel once and unlocks once.

or atleast unlock the channel only once please

Thank you again for this good script

Statistics: Posted by Sir_Fz — Sat Jun 21, 2003 11:12 am

Request from caesar for Tsunami.tcl

2003-06-21T06:10:46-04:00

Thanx this version looks nice, I'll try it when I sit on my PC and tell u if there's something wrong ot not working.

Statistics: Posted by Sir_Fz — Sat Jun 21, 2003 6:10 am

Request from caesar for Tsunami.tcl

2003-06-20T14:25:35-04:00

Get the new version of the script from here.. Also, please do tell me if you notice something wrong. Thank you.

Statistics: Posted by caesar — Fri Jun 20, 2003 2:25 pm

Request from caesar for Tsunami.tcl

2003-06-19T04:01:02-04:00

Well I always use Sentinel, its the most important script for botnet floods.
but u must put high numbers for it to trigger (for example 12:20 - the seconds must be in the range of 20-60 so the script woud find the flooders)

I liked Tsunami.tcl cuz u can put low triggers, I just want it to detect on notice too.

thanx

Statistics: Posted by Sir_Fz — Thu Jun 19, 2003 4:01 am

Request from caesar for Tsunami.tcl

2003-06-18T15:43:34-04:00

I may have a hint, anyway, better stick to Sentitel, since is a real protection thing when the tsunami.tcl was practicaly a test, wanted to see if I can do something like that. Never intentioned to make it public.. oh well, Sentinel is more leet than mine so use it.

Statistics: Posted by caesar — Wed Jun 18, 2003 3:43 pm

Request from caesar for Tsunami.tcl

2003-06-18T11:25:46-04:00

Well Sentinel worked but your code didn't do anything.
It didn't give any errors though. can u find an explanation for this ?

Statistics: Posted by Sir_Fz — Wed Jun 18, 2003 11:25 am

Request from caesar for Tsunami.tcl

2003-06-18T09:10:44-04:00

Code:

### "x" notices sent to channel in "y" seconds will lock the channel for "z" minutes"set ntl 5:3:60### What channel modes do you want to be used when locking the channel?set modes "mr"### How the ban reason should sound like?set ntcbreas "Some reason here.."### For how many minutes the flooder should be banned?set ntctime 5######## Done with configurations, do not edit past here unless you know TCL!##### binds #bind notc - * chan:noticebind part - * notice:part# stuff #set blist ""# array fix #foreach dest [channels] {  set ntc([strlwr $dest]) 0}# notice? #proc chan:notice {nick uhost hand text dest} {  global ntc blist  if {[lindex [split $dest "@"] 0] == $::botnick || [lindex [split $dest "@"] 1] != ""} {    return  }  set cm [getchanmode [strlwr $dest]]     if {(([string match {+*[$::modes]*[::modes]*} $cm]) && ([llength [split $::modes]] == 1)) || (([string match {+*[::modes]*[::modes]* *} $cm]) && ([length [split $cm]] > 1))} { return }  if {![info exists ntc([strlwr $dest])]} { set ntc([strlwr $dest]) 0 }  lappend blist [strlwr $nick]  set nonotc [lindex [split $::ntl ":"] 0]  set insec [lindex [split $::ntl ":"] 1]  set unlockin [lindex [split $::ntl ":"] 2]  incr ntc([strlwr $dest])  utimer $insec [list reset [strlwr $dest]]  utimer $insec [list remove [strlwr $uhost]]  if {$ntc([strlwr $dest]) >= $nonotc} {    putquick "MODE [strlwr $dest] +$::modes" -next    foreach luser $blist {      set mask "*!*@[lindex [split [getchanhost $luser [strlwr $dest]] @] 1]"      newchanban [strlwr $dest] $mask $::botnick $::ntcbreas $::ntctime    }    utimer $unlockin [list unlock [strlwr $dest]]  }}# reset #proc reset {dest} {   global ntc  incr ntc([strlwr $dest]) -1  return}# remove #proc remove {nick} {   global blist  set index [lsearch -exact $blist [strlwr $nick]]   set blist [lreplace $blist $index $index]  return}# unlock #proc unlock {dest} {  putquick "MODE [strlwr $dest] -$::modes"  return}# array remove #proc notice:part {nick uhost hand chan msg} {  global ntc  if {$nick != $::botnick} {    return  }  foreach arr_part [array names ntc] {    if {[string match [strlwr $chan] $arr_part]} {      array unset ntc [strlwr $chan]    }  }}

I've tested it and seemed to be working fine. Let me know if something is not working properly.

Statistics: Posted by caesar — Wed Jun 18, 2003 9:10 am