IP scanner

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

IP scanner by schilcote (Posted 18 years ago)
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

IP scanner by schilcote

(Posted 18 years ago)

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

(Posted 18 years ago)

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