05-30-2020, 07:15 +0200
sedition  04-22-2014, 07:14   | helpme please regex tcl for dcc exploit
Member since 04/2014
2 Posts
someone can help with these regex codes to me
this is for protection anti dcc xploits

regex "\x01DCC (SEND|RESUME)[ ]+\"(.+ ){20}";
regex "\x01DCC (SEND|RESUME).{225}";


bind CTCP - DCC handle:exploit
proc handle:exploit {nick uh hand dest key arg} {
  if {[regexp {(SEND|RESUME).*"(?:[^" ]*\s){32}.*$} $arg]} {
    set banmask *!*@[lindex [split $from @] 1]
    set chan [lindex [split $arg] 0]
    newchanban $chan $banmask Exploit "DCC Exploit" 1d
Advanced options for this topic:

Ignore this topic (Do not list this topic in the "unread topics" search. You are currently not ignoring this topic.)
Hide this topic (Hidden topics are not displayed in the topics list. This topic is currently not hidden.)
Go to forum

Unclassified NewsBoard 1.5.3-d | © 2003-4 by Yves Goergen | Time: 171.3 msec, CPU time: 67.7 msec, 30 Database queries in 126.7 msec | 2.6 kB (8.7 kB) | Timezone: +0200