VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



A very simple port scan

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

Rate 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



Download this snippet    Add to My Saved Code

A very simple port scan Comments

No comments have been posted about A very simple port scan. Why not be the first to post a comment about A very simple port scan.

Post your comment

Subject:
Message:
0/1000 characters