09-20-2018, 05:07 +0200
Search result (2)
All posts by: sedition
AuthorPost
Topic: helpme please regex tcl for dcc exploit   Forum: eggdrophelp      Goto post
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}";


example;

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
  }
}
Topic: [TCL] Ridiculously complicated regular expressions   Forum: #tclcode snippets      Goto post
sedition  04-22-2014, 06:47 | helpme please
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}";


example;

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
  }
}
Go to forum
Unclassified NewsBoard 1.5.3-d | © 2003-4 by Yves Goergen | Time: 210.7 msec, CPU time: 84.4 msec, 34 Database queries in 157.1 msec | 2.9 kB (11.8 kB) | Timezone: +0200