by Cyber God (1 Submission)
Category: Internet/HTML
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 7th March 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A very simple port scan
If Command1.Caption = "SCAN" Then
Command1.Caption = "STOP"
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2 - 1
Timer1.Enabled = True
If Text1.Text Or Text2.Text Or Text3.Text = "" Then
MsgBox ("Complet the informations")
End If
ElseIf Command1.Caption = "STOP" Then
Command1.Caption = "SCAN"
Timer1.Enabled = False
Exit Sub
End If
End Sub
Private Sub Timer1_Timer()
Winsock1.Close
Winsock1.RemotePort = Winsock1.RemotePort + 1
Winsock1.Connect
If Winsock1.RemotePort = Text3.Text Then
MsgBox ("End of scan")
Timer1.Enabled = False
Command1.Caption = "SCAN"
End If
End Sub
Private Sub Winsock1_Connect()
List1.AddItem "Found " & Winsock1.RemotePort & " Port"
End Sub