Port Scanner

This code has been declared by its author to be Public Domain code.

Port Scanner by Xzider

2007

Very simple...Maybe add a log file to make it easier to read.

Port% = Input("Port to start checking with - ")

Print "Port starting at - " + Port% + " - "
Print "Press any key to start"

WaitKey

While Not KeyHit(1)

stream% = CreateTCPServer(Port%)

 If stream%

		Print "Port - " + Port% + " - open"
		
  Else

		Print "Port - " + Port% + " - was closed"
		Print "Press any key to continue"
		WaitKey
		
  End If

		Port% = Port% + 1
Wend

Comments

slenkar

2007

thanks, do you know how to open a port?

Code Archives Forum