egghelp/eggheads community

CloneScanner Showing Too Many results

2020-09-24T20:46:32-04:00

That worked great caesar, cheers

Statistics: Posted by ComputerTech — Thu Sep 24, 2020 8:46 pm

CloneScanner Showing Too Many results

2020-08-18T11:15:53-04:00

Oh, forgot about this post heh, i'll try the fixed version and report back

Cheers in advanced caesar

Statistics: Posted by ComputerTech — Tue Aug 18, 2020 11:15 am

CloneScanner Showing Too Many results

2020-05-26T08:53:06-04:00

Simple typo.
Look for where the variable is set.
See the difference in: kicklist and kickList .

Statistics: Posted by willyw — Tue May 26, 2020 8:53 am

CloneScanner Showing Too Many results

2020-05-26T07:45:09-04:00

getting this error

Code:

Tcl error [::clonescan::clonescan]: can't read "skip": no such variable

also not sure if this helps but..

http://paste.tclhelp.net/?id=6jeu

would that error cause a problem?

Statistics: Posted by ComputerTech — Tue May 26, 2020 7:45 am

CloneScanner Showing Too Many results

2020-05-26T10:49:39-04:00

Untested code:

Code:

namespace eval clonescan {set trigger "!"set ghz "1"     set skip { "S" "Q" }bind pub -|- "${trigger}clones" [namespace current]::clonescanproc checknick {nick} {variable skipset test [expr {[lsearch -nocase $skip $nick] > -1 ? "1" : "0"}]}   proc clonescan {nick uhost hand chan text} {global ghzputhelp "NOTICE $nick :Starting clonescan for $chan..."foreach user [chanlist $chan] {if {[checknick $user] || [isbotnick $user]} continueset host [lindex [split [getchanhost $user $chan] @] 1]lappend clones($host) $user}switch -- $ghz {0 {foreach host [array names clones] {set len [llength $clones($host)]if {$len > 1} {set nickList [join [join $clones($host)] ", "]puthelp "NOTICE $nick :\($host\) Nick list: $nickList - Clones: [expr $len - 1]"incr count $len}}}1 {set kickList {}set banList {}foreach host [array names clones] {set len [llength $clones($host)]if {$len > 1} {lappend kickList [join $clones($host)]lappend banList "*!*@$host"}}stackBans $chan $banListstackKicks $chan $kicklist "We don't like clones."}default { return }}}proc stackBans {chan banlist} {set max 25set count [llength $banlist]while {$count > 0} {if {$count> $max} {set mode [string repeat "b" $max]set masks [join [lrange $banlist 0 [expr {$max - 1}]]]set banlist [lrange $banlist $max end]incr count -$maxincr total $max } else {set mode [string repeat "b" $count]set masks [join $banlist]incr total $countset count 0}puthelp "MODE $chan +$mode $masks"}   }      proc stackKicks {chan kicklist reason} {set max 25set count [llength $kicklist]while {$count > 0} {if {$count > $max} {set users [join [lrange $kicklist 0 [expr {$max - 1}]] ","]set kicklist [lrange $kicklist $max end]incr count -$max} else {set users [join $kicklist ","]set count 0}puthelp "KICK $chan $users :$reason"}}}

Typo fixed.

Statistics: Posted by caesar — Tue May 26, 2020 5:57 am

CloneScanner Showing Too Many results

2020-05-25T22:05:32-04:00

now i tried to edit the clonescanner you gave me and here's as far as i got so far

Code:

       set trigger "!"              set ghz "1"              bind pub -|- "${trigger}clones" [namespace current]::clonescan                  proc clonescan {nick uhost hand chan text} {          global ghz          puthelp "NOTICE $nick :Starting clonescan for $chan..."          set start [clock clicks]          foreach user [chanlist $chan] {             if {[checknick $user] || [isbotnick $user]} continue                set host [lindex [split [getchanhost $user $chan] @] 1]                lappend clones($host) $user          }          set total 0          set count 0          if {$ghz == "0"} {           foreach host [array names clones] {             set len [llength $clones($host)]             if {$len > 1} {                set nickList [join [join $clones($host)] ", "]                puthelp "NOTICE $nick :\($host\) Nick list: $nickList - Clones: [expr $len - 1]"              }             if {$ghz == "1"} {            foreach cloneXz $nickList {putnow "kick $chan $cloneXz"}          }                incr count $len             }             incr total $len  }}

not sure if you see what i'm trying to do, but i hope you can help me out what i'm doing wrong

if i set

Code:

set ghz "1"

it privmsg's me of the clones which is good but when i set it to 0 it just stays at

-Techy- Starting clonescan for ###789...

so not sure what i'm doing wrong hehe cheers

and after i get this going i will tidy the script up hehe

Statistics: Posted by ComputerTech — Mon May 25, 2020 10:05 pm

CloneScanner Showing Too Many results

2020-05-25T10:34:58-04:00

yeah i do like the percentage thing thats cool
so i'll keep it

what i want is for me to be able to set two options

to scan for clones and if over set amount privmsg me

and for the other option

to simply kickban all clones if over set amount

and also dont want this script to scan for clones when they join, i want this script to simply only activate on command

Statistics: Posted by ComputerTech — Mon May 25, 2020 10:34 am

CloneScanner Showing Too Many results

2020-05-25T09:35:13-04:00

In the original topic first was considered "human" and the second one was the clone, hence the numbers says 1 clone.

Anyway, so, basically you want on-command to scan and punish clones if are more than specified amount? I've linked to this old code cos I found the percentage interesting.

Statistics: Posted by caesar — Mon May 25, 2020 9:35 am

CloneScanner Showing Too Many results

2020-05-25T07:26:10-04:00

Alright so i tested the script you provided me and here is the results.

Code:

 Starting clonescan for ##computertech123... (bitcoinshell.mooo.com) Nick list: Kai, BLACK - Clones: 1 (unaffiliated/computertech) Nick list: CT123, ComputerTech - Clones: 1 Clones: 4 (12.1%) | Real users: 29 (87.9%) | Took: 0.427ms.

seems to work pretty good

my not need the percentage info %

but it seems awesome

maybe this would need changed

Code:

 (bitcoinshell.mooo.com) Nick list: Kai, BLACK - Clones: 1

Code:

since there was Two clones the results would need to be Clones: 2

prehaps we could change that to my liking hehe
and add a punishment as you mentioned above

also cheers caesar in advanced appreciate your help

Statistics: Posted by ComputerTech — Mon May 25, 2020 7:26 am

CloneScanner Showing Too Many results

2020-05-25T00:45:57-04:00

See if this taken from another topic (link) works:

Code:

namespace eval clonescan {   variable trigger "."      bind pub m|o "${trigger}clone" [namespace current]::clonescan   bind pub m|o "${trigger}clones" [namespace current]::clonescan      proc checknick {nick} {      set skip [list "S" "Q"]      set test [expr {[lsearch -nocase $skip $nick] > -1 ? "1" : "0"}]   }   proc clonescan {nick uhost hand chan text} {      puthelp "PRIVMSG $chan :Starting clonescan for $chan..."      set start [clock clicks]      foreach user [chanlist $chan] {         if {[checknick $user] || [isbotnick $user]} continue            set host [lindex [split [getchanhost $user $chan] @] 1]            lappend clones($host) $user      }      set total 0      set count 0      foreach host [array names clones] {         set len [llength $clones($host)]         if {$len > 1} {            set nickList [join [join $clones($host)] ", "]            puthelp "PRIVMSG $chan :\($host\) Nick list: $nickList - Clones: [expr $len - 1]"            incr count $len         }         incr total $len      }      set p(c) [expr {$total > 0 ? [format %.1f [expr ($count.0 * 100.0) / $total.0]] : "0.0"}]       set p(u) [expr (100.0 - $p(c))]      set end [clock clicks]      puthelp "PRIVMSG $chan :Clones: $count ($p(c)%) | Real users: [expr ($total - $count)] ($p(u)%) | Took: [expr ($end-$start)/1000.0]ms."   }}

and we can add the punishment later.

Statistics: Posted by caesar — Mon May 25, 2020 12:45 am

CloneScanner Showing Too Many results

2020-05-24T21:19:17-04:00

Hello all me and my friend made this script it's a simple clonescanner that has two options pm/notices the user of what clones there is or simply kickbans the clones so far it's been good, but there is a problem once the clones are kickbanned i remove the ban and make the clone return the bot kicks the clone right away without me typing !clonescan

Geo on freenode #eggdrop told me to put this line

Code:

putlog $cloneslist

before the kick and it gave these results

http://paste.tclhelp.net/?id=6jd6

by the way my two test clones are kai and black

so here is the script

Code:

set sect "1"namespace eval ::CloneScan {bind pub o|o !clonescan ::CloneScan::clonescanproc areClones { user other chan } {if {$user == $other} {return 0}if {[getchanhost $user $chan] == [getchanhost $other $chan]} {return 1}return 0}proc listClones { user chan } {set clones {}foreach other [chanlist $chan] {if {[areClones $user $other $chan]} {lappend clones $other}}if {[llength $clones]} {lappend clones $user}return $clones ;}proc clonescan {nick host hand chan arg} {global sectset userlist [chanlist $chan]set cloneslist {}set banlist {}foreach user $userlist {# if user has been detected as clone before, no need to check again!if {[lsearch -exact $cloneslist $user] != -1} {continue}set clones [listClones $user $chan]foreach clone $clones {lappend cloneslist $clone}lappend banlist [lindex $clones 0]}if {$sect == "1"} {foreach nik $banlist {set uhost [getchanhost $nick $chan]set mask $hostforeach nick $cloneslist {putlog $cloneslist                               pushmode $chan +b $host; after 200 putkick $chan $nick <3                           }}}if {$sect == "0"} {set realusers {}foreach user $userlist {if {[lsearch -exact $cloneslist $user] == -1} {lappend realusers $user}}set numreal [llength $realusers]set numclones [llength $cloneslist]putserv "PRIVMSG $chan :CloneScan: There are $numreal real users on $chan ($numclones clones found)."putserv "PRIVMSG $chan :CloneScan: The clones are: [join $cloneslist]"}}} ;#end namspace CloneScan

cheers all who help me with this in advanced

Statistics: Posted by ComputerTech — Sun May 24, 2020 9:19 pm