portscanner.vbs
 

hey leutz

ich habe ein kleines problem bei einem meiner scripts

versteht jemand was von vbscript?


ich schreibe gerade einen portscanner, keine bange, nicht zum cracken oder so,
sondern um sicherheitslücken zu entdecken usw.

das ist mein bisheriger script:



Dim i As Integer
Private Sub Command1_Click()
For i = 1 To 65535
Winsock1.RemotePort = i
Text1.Text = i
Winsock1.Connect
Next i

Private Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1"
End Sub

Private Sub Winsock1_Connect()
Winsock1.Close
MsgBox "Port :" & i
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
Text1.Text = "Error"
End Sub

aber er beinhaltet fehler
kann mir jemand sagen was ich falsch gemacht habe


Danke im voraus

C-C

was fuer sicherheitsluecken willst du denn entdecken ?
wenn du schon selber scripts schreibst kann man wohl von ausgehen das du schon diverse Portscanner genutzt hast ! reichten die nicht ?

bisschen fadenscheinig denkst du nicht ?

Plz

dftt

nein ich hab selber noch keine portscanner benutzt

darum will ich einen selber machen.
dann weiss ich wenigstens was drin ist
und was der portscanner macht


offene ports sind sicherheitslücken, wie du wahrscheinlich weisst, haze
also kann ich user darauf aufmerksam machen, wenn en port offen ist.