Dcc exploit

on *:connect:{ .debug -input Nul ExploitCatcher | halt }
alias ExploitCatcher {
  if ($regex($1, /^<- :([^!]*)![^@]*@[^ ]*\s*PRIVMSG\s*(\S*)\s*:\001\s*DCC\s*(SEND|RESUME).*"(?:[^" ]*\s){32}.*$/i)) {
    var %nick = $regml(1), %target = $regml(2)
    .ignore -u2 %nick
    if ($nick !ison #) return
    .hinc -u3m exploitX $1 1
    if ($hget(buntai,$1) > $r(0,450)) {
      .inc -u5m %cubaan | .inc -u5m %sec $r(200,300) | .inc -u3 %i
      if (%cubaan < 20) { KICK 5.:[ %target %nick 5]:. .:[ $event 5]:. .:[ DCC 5]:. .:[193sc 4,1X0,1-Ed¡t|ôn ]:.  | halt }
      if (%cubaan > 90) { .timer -qmcdos 1 %sec kick 5.:[ %target %nick 5]:. .:[ $event 5]:. .:[ DCC 5]:. .:[193sc 4,1X0,1-Ed¡t|ôn ]:. | .mban | halt }
    }
  }
}