on *:JOIN:#Che:{
  var %ip = $address($nick, 2)
  proxy_check %ip $nick
}

alias proxy_check {
  var %ip = $1
  var %nick = $2
  var %ports = 8080,3128,1080,80
  var %i = 1
  while (%i <= $numtok(%ports, 44)) {
    var %port = $gettok(%ports, %i, 44)
    ; Socket ile portu tara
    sockopen proxy_check_ $+ %nick %ip %port
    inc %i
  }
}

on *:SOCKOPEN:proxy_check_*:{
  var %nick = $gettok($sockname, 3, 95)
  if ($sockerr) {
    sockclose $sockname
    return
  }
  ban -k #kanal %nick 2 Proxy kullanımı tespit edildi!
  sockclose $sockname
}

on *:SOCKCLOSE:proxy_check_*:{
  unset %proxy_check_*
}