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

Soyez le premier à donner votre avis sur cette source.

Vue 7 015 fois - Téléchargée 993 fois

Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_pdl Messages postés 134 Date d'inscription mardi 20 novembre 2001 Statut Membre Dernière intervention 16 juin 2008
1 juil. 2003 à 08:55
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
SatanCorporation Messages postés 124 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003
30 juin 2003 à 10:20
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
@+
SatanCorporation Messages postés 124 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003
30 juin 2003 à 10:20
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
@+
SatanCorporation Messages postés 124 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003
30 juin 2003 à 10:20
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
@+
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
30 juin 2003 à 09:47
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.