Code archives/Miscellaneous/IP scanner
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
This program was written by me when I was messing around with Nmap. It tries to connect to whatever.you.enter.0-255 and sees if it can. If it gets a connection, it writes it to the screen. It's incredibly slow. | |||||
firstthree$=Input$("What is the IP? (-the last section): ") port=Input("What port to scan on?: ") For t=0 To 255 ip$=firstthree$+t stream=OpenTCPStream(ip$,port) If stream Then DebugLog "Found a computer: "+ip$ Print ip$ Else DebugLog "Nothing found on "+ip$ EndIf Next WaitKey End |
Comments
| ||
Oh yeah, DISCLAMER: I, Schilcote am NOT RESPONSIBLE for whatever anybody does with this code. If you break into somebody's computer using this code, and you get caught, it's your own problem. I cannot be held responcible for your actions! |
Code Archives Forum