Well I was searching the net for a port scanner and you know what! Some of them didn't work, others froze my PC, and others were soooo somplicated with alot of BS! So I decided to make mine and I decided to make a TUT for you my friends!
Usage:-
Well simple, scan an IP for open ports, you can scan your own PC so to see if you have any open ports, if you find any open ports you may be infected from or Virus or trojan and a hacker can connect and can control your PC by connecting to your PC from that port!
Requirements:-
Visual Basic (prefiribly 6.0)
Solution:-
Ok So as usual open VB, and choose Standars EXE, i will not post a picture of this step coz I posted this on other Tuts so if you dont know how see the other tuts!
What you need:-
2 Text boxes ( Text1,Text2 )
1 ListBox ( List1 )
3 Command Buttons ( Command1, Command2, Command3 )
1 Timer ( Timer1 )
1 Winsock Component ( Winsock1 )
If you can't find the Winsock do as below:-

And after a dialog box will be displayed scroll down till you find "Microsoft Winsock Control 6.0 (SP6)"
here is how:-

Ok so now we have everything setup here is the GUI I used, you can make your own, but I will just "inspire' you lol!:-

Ok now that you setup everything its time for the code( I know its a bit long but dont worry I will explain EVERYTHING!):-
Private Sub Form_Load() Timer1.Interval = 1 Timer1.Enabled = False Text2.Text = "0" End Sub Private Sub Timer1_Timer() On Error Resume Next Winsock1.Close Text2.Text = Text2.Text + 1 Winsock1.RemoteHost = Text1.Text Winsock1.RemotePort = Text2.Text Winsock1.Connect End Sub 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 Winsock1_Connect() List1.AddItem Winsock1.RemotePort & " is open!" End Sub
Code Explanation:-
Private Sub Form_Load() Timer1.Interval = 1 Timer1.Enabled = False Text2.Text = "0" End SubHere we are Disabling the timer so when we start our program the it will not start scanning!
and then we are setting Text2 to 0 ( this is the port number to start with )
Private Sub Timer1_Timer() On Error Resume Next Winsock1.Close Text2.Text = Text2.Text + 1 Winsock1.RemoteHost = Text1.Text Winsock1.RemotePort = Text2.Text Winsock1.Connect End SubHere is the main program, when an error is encountered it will still continue,Closes the conenction, increase the port number by 1, and tries to connect!
Private Sub Command1_Click() Timer1.Enabled = True End SubStart Scanning
Private Sub Command2_Click() Timer1.Enabled = False Text2.Text = "0" End SubStop and reset the port number to 0
Private Sub Command3_Click() List1.Clear End SubHere it clears the list of the open ports that were found!
Private Sub Winsock1_Connect() List1.AddItem Winsock1.RemotePort & " is open!" End SubWhen an open port is found it adds the port number to the listbox!
How does this works?
Just enter an IP ( if you want to scan your own PC go on www.whatismyip.com ) and copy the IP and paste it in the Textbox ( text1 ) and hit the command1 button! text2 ( from what port to start scanning )is 0 by default but you can set it to any port number you want!
Complete Source Code:-
Well I included the FULL source code its an attachment, its the complete project just compile and have fun
Ending:-
If you have any questions/problems/feedback pls post here and I will sureley Help you!
So I'm waiting for your feedback
Ow and if you want me to make you some tutorials request what you want and I will see what I can do! I will be happy making some tuts here!
Tcm9669