PORT SCANNER IN VB

View previous topic View next topic Go down

PORT SCANNER IN VB

Post  Admin on Sat Aug 08, 2009 11:49 am



A small but effective tool (if you know the right way to use it..you might do wonders..)

——————–
*You need:

2 textboxes
1 listbox
3 commandbuttons
1 timer
1 winsock control

*Here's the code:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Text2.Text = "0"
End Sub

Private Sub Command3_Click()
List1.Clear
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Winsock1.Close
Text2.Text = Int(Text2.Text) + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()
List1.AddItem Winsock1.RemotePort & " is open!"
End Sub


*Explanation:

text1 = IP to scan
text2 = starting port
list1 = list where all open ports are shown
command1 = start
command2 = stop and reset
command3 = clear port list
timer1 = will make the winsock control to try ports



-This article can also be considered as a hacking article:

http://hackingarticles.com/port-scanner/

Admin
Admin

Posts : 408
Join date : 2009-04-25

http://xd627.forumotion.net

Back to top Go down

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum