/ScriptServ

[script]
n0=dialog Ports {
n1=  title "Port Scanner"
n2=  size -1 -1 217 117
n3=  option dbu
n4=  edit "", 1, 7 19 66 10
n5=  box "Port Scanner", 2, 2 1 211 114
n6=  text "Put the IP you want to scan the ports:", 3, 8 10 134 8
n7=  button "Scan ports", 4, 82 18 37 12
n8=  list 5, 8 40 200 52, sort size hsbar vsbar
n9=  text "", 6, 8 31 147 8
n10=  text "This script will analize the critical ports, like open Proxies ports and connections ports ", 7, 45 94 134 17, center
n11=  check "Scan specific port:", 8, 151 9 57 10
n12=  edit "", 9, 151 19 41 10, disable limit 5
n13=}
n14=
n15=alias ports { 
n16=  if (!$dialog(ports)) {
n17=    dialog -m ports ports
n18=  }
n19=  else { 
n20=    dialog -v ports ports
n21=  }
n22=}
n23=menu channel {
n24=  Port Scanner:{
n25=    /Ports
n26=  }
n27=}
n28=on *:dialog:ports:init:*:{
n29=  did -ar ports 1 $ip
n30=}
n31=on *:dialog:ports:sclick:*:{
n32=  if (($did == 4) && ($did(1) != $null) && ($did(1).text != $ip) && ($did(9) == $null)) {
n33=    did -ar ports 6 Verifying ports from ip: $did(1).text
n34=    did -r ports 5
n35=    set %scanport $did(1).text | scanport
n36=    .timer 1 25 sockclose sock* 
n37=    .timer 1 26 did -ar ports 6 All ports verified from ip: %scanport 
n38=  }
n39=  if (($did == 4) && ($did(1) != $null) && ($did(1).text == $ip) && ($did(9) == $null)) {
n40=    did -ar ports 6 Verifying ports from ip: $did(1).text
n41=    did -r ports 5
n42=    scanports
n43=    .timer 1 25 sockclose sock*
n44=    .timer 1 25 did -ar ports 6 All ports verified from ip : $ip
n45=  }
n46=  if (($did == 4) && ($did(1) != $null) && ($did(1).text != $ip) && ($did(9) != $null) && ($did(9) isnum)) {
n47=    did -ar ports 6 Verifying specific port from ip: $did(1).text
n48=    did -r ports 5
n49=    set -u10 %scanportsf $did(1).text  
n50=    set -u10 %Scanportf $did(9).text
n51=    scanportsf
n52=  }
n53=  if (($did == 4) && ($did(1) != $null) && ($did(1).text == $ip) && ($did(9) != $null) && ($did(9) isnum)) {
n54=    did -ar ports 6 Verifying specific port from ip: $did(1).text
n55=    did -r ports 5
n56=    set -u10 %scanportsf $did(1).text
n57=    set -u10 %Scanportf $did(9).text
n58=    scanportsf
n59=  }
n60=  if (($did == 4) && ($did(1) != $null) && ($did(1).text != $ip) && ($did(9) != $null) && ($did(9) !isnum)) {
n61=    did -ar ports 6 Please specify only numbers for ports
n62=  }
n63=  if (($did == 4) && ($did(1) != $null) && ($did(1).text == $ip) && ($did(9) != $null) && ($did(9) !isnum)) {
n64=    did -ar ports 6 Please specify only numbers for ports
n65=  }
n66=  if (($did == 8) && ($did(8).state == 0)) {
n67=    did -b ports 9 | did -ar ports 9 
n68=  }
n69=  if (($did == 8) && ($did(8).state == 1)) {
n70=    did -e ports 9
n71=  }
n72=} 
n73=
n74=
n75=alias scanports {  
n76=  sockopen $+(Sock. $+ $ip) $ip 23
n77=  sockopen $+(Sock1 $+ $ip) $ip 1080
n78=  sockopen $+(Sock2 $+ $ip) $ip 22
n79=  sockopen $+(Sock3 $+ $ip) $ip 3128
n80=  sockopen $+(Sock4 $+ $ip) $ip 8080
n81=  sockopen $+(Sock5 $+ $ip) $ip 139
n82=  sockopen $+(Sock6 $+ $ip) $ip 445
n83=  sockopen $+(Sock7 $+ $ip) $ip 413
n84=  sockopen $+(Sock8 $+ $ip) $ip 9415
n85=  sockopen $+(Sock9 $+ $ip) $ip 80
n86=  sockopen $+(Sock10 $+ $ip) $ip 137
n87=  sockopen $+(Sock11 $+ $ip) $ip 8000
n88=  sockopen $+(Sock12 $+ $ip) $ip 8008
n89=  sockopen $+(Sock13 $+ $ip) $ip 6667
n90=  sockopen $+(Sock14 $+ $ip) $ip 6697
n91=  sockopen $+(Sock15 $+ $ip) $ip 6679
n92=  sockopen $+(Sock16 $+ $ip) $ip 7000
n93=  sockopen $+(Sock17 $+ $ip) $ip 21
n94=  sockopen $+(Sock18 $+ $ip) $ip 25
n95=} 
n96=
n97=alias scanport {  
n98=  sockopen $+(Sock. $+ 0) %scanport 23
n99=  sockopen $+(Sock1 $+ 1) %scanport 1080
n100=  sockopen $+(Sock2 $+ 2) %scanport 22
n101=  sockopen $+(Sock3 $+ 3) %scanport 3128
n102=  sockopen $+(Sock4 $+ 4) %scanport 8080
n103=  sockopen $+(Sock5 $+ 5) %scanport 139
n104=  sockopen $+(Sock6 $+ 6) %scanport 445
n105=  sockopen $+(Sock7 $+ 7) %scanport 413
n106=  sockopen $+(Sock8 $+ 8) %scanport 9415
n107=  sockopen $+(Sock9 $+ 9) %scanport 80
n108=  sockopen $+(Sock10 $+ 10) %scanport 137
n109=  sockopen $+(Sock11 $+ $ip) %scanport 8000
n110=  sockopen $+(Sock12 $+ $ip) %scanport 8008
n111=  sockopen $+(Sock13 $+ $ip) %scanport 6667
n112=  sockopen $+(Sock14 $+ $ip) %scanport 6697
n113=  sockopen $+(Sock15 $+ $ip) %scanport 6679
n114=  sockopen $+(Sock16 $+ $ip) %scanport 7000
n115=  sockopen $+(Sock17 $+ $ip) %scanport 21
n116=  sockopen $+(Sock18 $+ $ip) %scanport 25
n117=} 
n118=
n119=alias scanportsf {  
n120=  sockopen $+(Sock. $+ 0) %scanportsf %scanportf
n121=}
n122=
n123=on 1:SOCKOPEN:Sock*:{  
n124=  if ( $sockerr > 0 ) {
n125=    did -a ports 5 Port $sock($sockname).port From IP $sock($sockname).ip >>>> Closed 
n126=    return 
n127=  } 
n128=  else { 
n129=    did -a ports 5 Port $sock($sockname).port From IP $sock($sockname).ip >>>> Open     
n130=    sockclose $sockname 
n131=  } 
n132=}