IP scanner

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

IP scanner by schilcote

2008

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

schilcote

2008

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