Scanneur de ports tres rapide (10 000 ports en moins de 13 sec )

Soyez le premier à donner votre avis sur cette source.

Vue 6 823 fois - Téléchargée 971 fois

Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
134
Date d'inscription
mardi 20 novembre 2001
Statut
Membre
Dernière intervention
16 juin 2008

La fonction scann1 de légion91 est presque correcte. Voici les modifs que j'ai fait pour que l'arrêt du scan fonctionne !

Private Function scann1()
Dim a, b, c

w.Close
w.RemoteHost = Text3.Text
a = GetTickCount

i = 0
While (i <Val(Text2.Text) And scan "oui")
'For i = Text1 To Text2
' If scan = "non" Then
' Exit Function
' End If
w.Close
w.RemotePort = i
w.Connect
Label1 = i & " / " & Text2.Text
DoEvents
p.Value = i / Text2.Text * 10000
i = i + 1
'Next i
Wend
b = GetTickCount

Label5.Caption = "Temps écoulé : " & (b - a) / 1000 ' & " Secondes "
Label6.Caption = "Nombre de ports ouverts : " & List1.ListCount
Command1.Caption = "Scanner"
End Function
Messages postés
124
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
13 septembre 2003

Ok je suis désoler d'avoir fais tant d'erreur et je vous prie de pas TROP m'en vouloir
Sur ce Bonne Prog a tous
@+
Messages postés
124
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
13 septembre 2003

Ok je suis désoler d'avoir fais tant d'erreur et je vous prie de pas TROP m'en vouloir
Sur ce Bonne Prog a tous
@+
Messages postés
124
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
13 septembre 2003

Ok je suis désoler d'avoir fais tans d'erreur et je vous prie de pas TROP m'en vouloir
Sur ce Bonne Prog a tous
@+
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
C'est carrement n'importe quoi !

Tu n'attend meme pas que la connexion soit etabli donc tu trouvera pas grand chose sur une machine distante et je doute meme que tu trouve qlq chose sur ta machine !

en plus comme le dit si bien shivan on peut changer les textbox en cour d'utilisation, tu prend un mauvais interval dans ta routine de sauvegarde :
For i = 1 To List1.ListCount
au lieu de :
For i = 0 To (List1.ListCount-1)

avec ta methode on peu meme generer une erreur de division par zero : p.Value i / Text2.Text * 10000 si text2 0 !!

s'il on met l'appli directement a la racine C: l'enregistreùent du log plante : App.Path & "Log des ports ouverts" (C:\Log...)

et tu devrais Fermer le socket une fois la connexion etabli et pas avant sinons tu n'aura pas de timeout donc forcement tu trouve ça rapide !

Private Sub w_Connect()
List1.AddItem i
w.close
End Sub

bref fait un petit effort stp, tu sait qu'il existe deja bcp de source comme celci et la tu nous pond un truc vite fait mal fait ....

B@nne prog
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.