Mine

alias portscan {
  set %x 1
  set %open 0
  echo beginning scan of $1
  while (%x <= $2) {
    sockopen $+(omg@,$1,@,%x) $1 %x
    inc %x
  }
}

on *:SOCKOPEN:omg@*:{
  sockwrite -nt $sockname SYN
  if ($sockerr == 0) { echo -a port $gettok($sockname,3,64) is open | inc %open  } 
  elseif ($sockerr > 0) { sockclose $sockname }
}


alias udpscan {
  set %y 1
  set %opend 0
  echo beginning scan of $1
  while (%y <= $2) {
    sockudp $+(omg@,$1,@,%y) $1 %y
    inc %y
  }
}