Code archives/Miscellaneous/Port Scanner
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
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
| ||
thanks, do you know how to open a port? |
Code Archives Forum