/ScriptServ

;Port Scanner v1.4 by NoSupra
dialog ps {
  title "Port Scanner v1.4"
  size 177 114 164 191
  option dbu
  list 1, 4 16 76 104, size
  list 2, 84 16 76 104, size
  edit "", 3, 24 136 60 10, multi, return
  button "Scan", 5, 36 164 40 12
  button "OK", 6, 88 164 40 12,ok
  text "Scanned Ports", 7, 4 4 44 8
  text "Open Ports", 8, 84 4 44 8
  text "Ready", 9, 4 152 44 8
  text "", 10, 49 152 116 8
  text "Range of Ports", 4, 4 124 48 8
  text "From", 11, 4 136 20 8
  text "To", 12, 88 136 8 8
  edit "", 13, 100 136 60 10, multi, return
  text "", 14, 4 180 156 8
}

on *:dialog:ps:init:0:{
  did -a ps 14 Port Scanner v1.4 By NoSupra           Copyright © 2004
}

on *:dialog:ps:sclick:*:{
  if ($did == 5) { 
    set %ttr $time(H:nn:ss) 
    set %i 1 
    start
  }
  if (%i == %d) && ($did == 5)  {
    did -a ps 9 Finished  Scanned 
    dialog -t ps Scan started at %ttr and finished at $time(H:nn:ss)
  }
}

on *:dialog:ps:edit:*:{
  if ($did == 3) set %ps $did(3)
  if ($did == 13) set %pd $did(13)
}

alias conf {
  set %t $portfree(%i) 
  if (%t == $true) did -a ps 1 Port %i Closed 
  if (%t == $false) did -a ps 1 Port %i Open 
  if (%t == $false) did -a ps 2 Port %i Open 
  did -a ps 9 Scanning... 
  did -a ps 10 Port %i of %pd 
  dialog -t ps Scan started at %ttr 
  inc %i 1
}

alias start {
  .timerstart $calc(%pd - %ps + 1) 0 conf
  set %i %ps
}

menu * {
  Port Scanner v1.4
  .Open:/dialog -m ps ps
  .Update:/run http://irczkorpion.zapto.org/portscanner.zip
  .Talk to Scripter:/run irc://irczkorpion.zapto.org/irczkorpion
  .-
  .Unload:/unload -rs ps.mrc
}