exploit the possibilities
Home Files News &[SERVICES_TAB]About Contact Add New

service_check.tcl

service_check.tcl
Posted Jan 11, 2000
Authored by Phil Ehrens

This is a simple script written in tcl which parses the output of the nmap program to determine whether required services are in fact running on a machine. Output is written as an html formatted log file.

tags | tool, scanner
systems | unix
SHA-256 | e7ffd4cb2568288bd041ca938ab43c887d064dbb920e4b2b0ab6c7a913cd439d

service_check.tcl

Change Mirror Download
#!/ldcg/bin/tclsh
# This is a simple script which parses the output of
# the nmap program to determine whether required services
# are in fact running on a machine. Output is written as
# an html formatted log file with a sensible default name.
# Two arguments are accepted:
#
# service_check [ hostname ] [ polling interval ]
#
# where polling interval is given in seconds.
# Note that there is considerable time overhead when
# running nmap in "Polite mode, so times less than 100 sec
# may be significantly longer than they should be!

;## no checking is done for bad values.
if { [ llength $argv ] == 2 } {
set host [ lindex $argv 0 ]
set interval [ lindex $argv 1 ]
} else {
set host $::env(HOST)
set interval 10
}

;## if a single arg is given, if it is an integer, assume
;## it is an interval, else it is a hostname.
if { [ llength $argv ] == 1 } {
if { [ regexp {^\d+$} [ lindex $argv 0 ] ] } {
set interval [ lindex $argv 0 ]
} else {
set host [ lindex $argv 0 ]
}
}

set log [ file join ${host}_servicelog.html ]

array set services {
7 echo
9 discard
13 daytime
19 chargen
22 ssh
25 smtp
37 time
111 sunrpc
512 exec
514 shell
515 printer
540 uucp
6000 X11
6112 dtspc
7100 font-service
10000 LDAS-manager-operator-port
}

set ports [ join [ lsort -integer [ array names services ] ] , ]
set fid [ open $log a+ ]


proc run {} {
set msg "<b>$::host</b> [ clock format [ clock seconds ] ]<br><ul>\n"
set data [ exec nmap -T Polite -p $::ports $::host ]
foreach port [ array names ::services ] {
set name $::services($port)
if { ! [ regexp "$port\[a-z \]+$name" $data ] } {
append msg "<item><font color=red><b>$name</b></font> not running on $::host port $port<br>\n"
}
}
puts $::fid "$msg<br></ul>\n"
flush $::fid
after [ expr { $::interval * 1000 } ] run
}
run
vwait enter-mainloop


Login or Register to add favorites

File Archive:

July 2024

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Jul 1st
    27 Files
  • 2
    Jul 2nd
    10 Files
  • 3
    Jul 3rd
    35 Files
  • 4
    Jul 4th
    27 Files
  • 5
    Jul 5th
    18 Files
  • 6
    Jul 6th
    0 Files
  • 7
    Jul 7th
    0 Files
  • 8
    Jul 8th
    28 Files
  • 9
    Jul 9th
    44 Files
  • 10
    Jul 10th
    24 Files
  • 11
    Jul 11th
    25 Files
  • 12
    Jul 12th
    0 Files
  • 13
    Jul 13th
    0 Files
  • 14
    Jul 14th
    0 Files
  • 15
    Jul 15th
    0 Files
  • 16
    Jul 16th
    0 Files
  • 17
    Jul 17th
    0 Files
  • 18
    Jul 18th
    0 Files
  • 19
    Jul 19th
    0 Files
  • 20
    Jul 20th
    0 Files
  • 21
    Jul 21st
    0 Files
  • 22
    Jul 22nd
    0 Files
  • 23
    Jul 23rd
    0 Files
  • 24
    Jul 24th
    0 Files
  • 25
    Jul 25th
    0 Files
  • 26
    Jul 26th
    0 Files
  • 27
    Jul 27th
    0 Files
  • 28
    Jul 28th
    0 Files
  • 29
    Jul 29th
    0 Files
  • 30
    Jul 30th
    0 Files
  • 31
    Jul 31st
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2022 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close