Page MenuHomeDevCentral
Files F3763637

D31.diff
No OneTemporary
Actions

D31.diff
View Options

diff --git a/Core.tcl b/Core.tcl
--- a/Core.tcl
+++ b/Core.tcl
@@ -560,3 +560,89 @@
set path $env(HOME)/bin/
append path $script
}
+
+#
+# IP and host string manipulations
+#
+
+# Gets the host part of a [nick!]user@host string
+proc gethost {uhost} {
+ set pos [string first @ $uhost]
+ if {$pos == -1} {
+ return ""
+ }
+ string range $uhost [expr $pos + 1] end
+}
+
+# Determines if the specified string is a valid IPv4 address
+proc isipv4 {string} {
+ # http://wiki.tcl.tk/989 - Michael A. Cleverly
+ set octet {(?:\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])}
+ regexp -- "^[join [list $octet $octet $octet $octet] {\.}]\$" $string
+
+}
+
+# Determines if the specified string is a valid IPv6 address
+proc isipv6 {string} {
+ #
+ # NOTE: 2001:0db8:0000:0000:0000:0000:1428:57ab
+ # 2001:0db8:0000:0000:0000::1428:57ab
+ # 2001:0db8:0:0:0:0:1428:57ab
+ # 2001:0db8:0:0::1428:57ab
+ # 2001:0db8::1428:57ab
+ # 2001:db8::1428:57ab
+ # 2001:0db8:0000:0000:0000:0000:<IPv4>
+ # ::1
+ # ::
+ #
+ if {$string eq "::"} then {
+ return true
+ }
+
+ if {[string range $string 0 1] == "::"} then {
+ set string [string range $string 1 end]
+ }
+
+ if {[string range $string end-1 end] == "::"} then {
+ set string [string range $string 0 end-1]
+ }
+
+ set octets [split $string :]
+ set llength [llength $octets]
+
+ if {$llength > 0 && $llength <= 8} then {
+ set last [expr {$llength - 1}]
+
+ for {set index 0} {$index < $llength} {incr index} {
+ set octet [lindex $octets $index]
+ set length [string length $octet]
+
+ if {$length == 0} then {
+ if {![info exists null]} then {
+ set null $index; continue
+ } else {
+ return false
+ }
+ }
+
+ if {$length <= 4 && [string is xdigit -strict $octet]} then {
+ continue
+ }
+
+ if {$llength <= 7 && $index == $last && [isipv4 $octet]} then {
+ continue
+ }
+
+ return false
+ }
+
+ return true
+ }
+
+ return false
+}
+
+# Determines if the specified string is a valid IP address
+proc isip {string} {
+ expr [isipv4 $string] || [isipv6 $string]
+}
diff --git a/Daeghrefn/Channel.tcl b/Daeghrefn/Channel.tcl
--- a/Daeghrefn/Channel.tcl
+++ b/Daeghrefn/Channel.tcl
@@ -1,6 +1,7 @@
# #wolfplex
bind pubm - "#wolfplex *" pubm:url
bind pubm - "#fauve *" pubm:url
+bind sign - "#wikipedia-fr *!*@*" sign:excessflood
#
# URL management
@@ -40,3 +41,40 @@
}
}
}
+
+#
+# #wikipedia-fr botnet mitigation
+#
+
+proc isbotnetsuspecthost {host} {
+ if [isip $host] {
+ return 1
+ }
+ foreach domain [registry get protection.botnet.hosts] {
+ if [string match $domain $host] {
+ return 1
+ }
+ }
+ return 0
+}
+
+proc sign:excessflood {nick uhost handle channel reason} {
+ global botname
+
+ # We're interested by unknown users quitting with Excess Flood message.
+ if {$reason != "Excess Flood" || [nick2hand $nick] != "*"} {
+ return
+ }
+
+ # Botnet nicks have 3 to 5 characters
+ set len [strlen $nick]
+ if {$len < 3 || $len > 5} {
+ return
+ }
+
+ # And belong to specific ISPs
+ set host [gethost $uhost]
+ if [isbotnetsuspecthost $host] {
+ newchanban $channel *!*@$host $botname [registry get protection.botnet.banreason] [registry get protection.botnet.banduration] sticky
+ }
+}

File Metadata

Mime Type
text/plain
Expires
Sat, Nov 23, 01:17 (17 h, 22 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2256782
Default Alt Text
D31.diff (3 KB)

Event Timeline

Nasqueron DevCentral · If it had been much bigger the moon would have had a core of ice. · Powered by Phabricator