Port Scanner

[vladiii]

Un mic Port Scanner rapid facut de mine in Visual Basic.

Download It:

http://rapidshare.com/files/32199866/portscanner.exe.html

[avkhackteam]

god job dar ai putea sa miscorezi umpic textbox-urile si sa aliniezi vertical butoanele scz da yo sunt crtitic mare cand e vorba de design , iti postez imediat un user control ca sa adaugi butoane frumoase w8 umpic

LE : uite aici un user control (nu este facut de mine )

http://rapidshare.com/files/32201217/cmdOsenXP.ctl.html

sper sa iti fie de folos adik iti va fi . in rest ce sa mai zic programul este bun functional .se zice ca nu conteaza designul si conteaza ce stie sa faca dar totusi dc sa nu fie de nota 10 succes in continuare

[vladiii]

multam' avkhackteam... sunt incepator in visual basic, dar sper sa incep sa ma descurc...

mai astept pareri

[Ras]

uitati cum se face un port scanner in maxim 5 min

Intra in VB fa un proiect nou.

Adauga Winsock Control (apesti CTRL + T si selectezi acolo).

Creeaza 2 textboxes, 2 buttons, 1 timer, 1 listbox, 1 winsock

Primul Textbox este pt IP, al doilea pt port, primul buton pt start, al doilea pt stop.

Pune timerul False si pune intervalu 1.

In primul buton scrii:
Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
Timer1.Enabled = True
End Sub


In timer scrii:
Private Sub Timer1_Timer()
Winsock1.Close ' closes the last connection
Text2.Text = Int(Text2.Text) + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
End Sub


In winsock scrii:
Private Sub Winsock1_Connect()
List1.AddItem "Port " & Winsock1.RemotePort & " is having a yard sale."
End Sub


In al doilea buton scrii:
Private Sub Command2_Click()
Timer1.Enabled = False ' stops the scanning timer
Winsock1.Close ' closes any open winsock connection that was still open.
End Sub

Acest tutorial l-am gasit pe helbound hackers [sau cum e] si l-am tradus in romana