Copy and paste it into your remote window alt+r press ok

Right click on channel, then click on ''Port Scanner''

Put the ip you want to scan, and press Scan

This script will scan the critical ports
like Open proxies ports and telnet ports

You can specify an Specific Port to scan

Bugs? Report

dialog Ports {
  title "Port Scanner"
  size -1 -1 217 117
  option dbu
  edit "", 1, 7 19 66 10
  box "Port Scanner", 2, 2 1 211 114
  text "Put the IP you want to scan the ports:", 3, 8 10 134 8
  button "Scan ports", 4, 82 18 37 12
  list 5, 8 40 200 52, sort size hsbar vsbar
  text "", 6, 8 31 147 8
  text "This script will analize the critical ports, like open Proxies ports and connections ports ", 7, 45 94 134 17, center
  check "Scan specific port:", 8, 151 9 57 10
  edit "", 9, 151 19 41 10, disable limit 5
}

alias ports { 
  if (!$dialog(ports)) {
    dialog -m ports ports
  }
  else { 
    dialog -v ports ports
  }
}
menu channel {
  Port Scanner:{
    /Ports
  }
}
on *:dialog:ports:init:*:{
  did -ar ports 1 $ip
}
on *:dialog:ports:sclick:*:{
  if (($did == 4) && ($did(1) != $null) && ($did(1).text != $ip) && ($did(9) == $null)) {
    did -ar ports 6 Verifying ports from ip: $did(1).text
    did -r ports 5
    set %scanport $did(1).text | scanport
    .timer 1 25 sockclose sock* 
    .timer 1 26 did -ar ports 6 All ports verified from ip: %scanport 
  }
  if (($did == 4) && ($did(1) != $null) && ($did(1).text == $ip) && ($did(9) == $null)) {
    did -ar ports 6 Verifying ports from ip: $did(1).text
    did -r ports 5
    scanports
    .timer 1 25 sockclose sock*
    .timer 1 25 did -ar ports 6 All ports verified from ip : $ip
  }
  if (($did == 4) && ($did(1) != $null) && ($did(1).text != $ip) && ($did(9) != $null) && ($did(9) isnum)) {
    did -ar ports 6 Verifying specific port from ip: $did(1).text
    did -r ports 5
    set -u10 %scanportsf $did(1).text  
    set -u10 %Scanportf $did(9).text
    scanportsf
  }
  if (($did == 4) && ($did(1) != $null) && ($did(1).text == $ip) && ($did(9) != $null) && ($did(9) isnum)) {
    did -ar ports 6 Verifying specific port from ip: $did(1).text
    did -r ports 5
    set -u10 %scanportsf $did(1).text
    set -u10 %Scanportf $did(9).text
    scanportsf
  }
  if (($did == 4) && ($did(1) != $null) && ($did(1).text != $ip) && ($did(9) != $null) && ($did(9) !isnum)) {
    did -ar ports 6 Please specify only numbers for ports
  }
  if (($did == 4) && ($did(1) != $null) && ($did(1).text == $ip) && ($did(9) != $null) && ($did(9) !isnum)) {
    did -ar ports 6 Please specify only numbers for ports
  }
  if (($did == 8) && ($did(8).state == 0)) {
    did -b ports 9 | did -ar ports 9 
  }
  if (($did == 8) && ($did(8).state == 1)) {
    did -e ports 9
  }
} 

alias scanports {  
  sockopen $+(Sock. $+ $ip) $ip 23
  sockopen $+(Sock1 $+ $ip) $ip 1080
  sockopen $+(Sock2 $+ $ip) $ip 22
  sockopen $+(Sock3 $+ $ip) $ip 3128
  sockopen $+(Sock4 $+ $ip) $ip 8080
  sockopen $+(Sock5 $+ $ip) $ip 139
  sockopen $+(Sock6 $+ $ip) $ip 445
  sockopen $+(Sock7 $+ $ip) $ip 413
  sockopen $+(Sock8 $+ $ip) $ip 9415
  sockopen $+(Sock9 $+ $ip) $ip 80
  sockopen $+(Sock10 $+ $ip) $ip 137
  sockopen $+(Sock11 $+ $ip) $ip 8000
  sockopen $+(Sock12 $+ $ip) $ip 8008
} 

alias scanport {  
  sockopen $+(Sock. $+ 0) %scanport 23
  sockopen $+(Sock1 $+ 1) %scanport 1080
  sockopen $+(Sock2 $+ 2) %scanport 22
  sockopen $+(Sock3 $+ 3) %scanport 3128
  sockopen $+(Sock4 $+ 4) %scanport 8080
  sockopen $+(Sock5 $+ 5) %scanport 139
  sockopen $+(Sock6 $+ 6) %scanport 445
  sockopen $+(Sock7 $+ 7) %scanport 413
  sockopen $+(Sock8 $+ 8) %scanport 9415
  sockopen $+(Sock9 $+ 9) %scanport 80
  sockopen $+(Sock10 $+ 10) %scanport 137
  sockopen $+(Sock11 $+ $ip) %scanport 8000
  sockopen $+(Sock12 $+ $ip) %scanport 8008
} 

alias scanportsf {  
  sockopen $+(Sock. $+ 0) %scanportsf %scanportf
}

on 1:SOCKOPEN:Sock*:{  
  if ( $sockerr > 0 ) {
    did -a ports 5 Port $sock($sockname).port From IP $sock($sockname).ip >>>> Closed 
    return 
  } 
  else { 
    did -a ports 5 Port $sock($sockname).port From IP $sock($sockname).ip >>>> Open     
    sockclose $sockname 
  } 
}