AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 08:15:21
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SCANNEUR DE PORTS TRES RAPIDE (10 000 PORTS EN MOINS DE 13 SEC )


Information sur la source

Catégorie :Réseau & Internet Niveau : Débutant Date de création : 28/06/2003 Date de mise à jour : 28/06/2003 16:34:12 Vu / téléchargé: 5 058 / 772
Auteur : SatanCorporation Ecrire un message privé
Note :
1,67 / 10 - par 3 personnes
1,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Ce petit programme est un Scanneur de ports qui scanne 10 000 ports en moins de 13 secondes.Il me semble que c'est un des plus rapides du site(je ne suis pas sur )
Je sais que cette source est deja tres repandu sur ce site mais quelqu'un a dit qu'il aimait voir ce genre de programmes.

Ce programme est constitué d'une partie résumé qui affiche certaines informations comme le nombre de porrts ouverts et le temps mis pour scanner les ports.
Il y a également une fonction qui sert a exporter dans un fichier texte les numeros des ports ouverts.



 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de kllmm le 28/06/2003 19:00:07

heu j'ai bien voulu le tester sur qq (sur mon pc y n'y a aucuns ports d'ouverts)
alors avec le tien , je n'ai decouvert aucuns port open sur qq (pas meme le 139) .........
par acquis de conscience, ai essayé avec un autre scan , plus lent certe mais qui a lui.... trouvé des ports ouverts
oki le tient est plus rapide , ca oui, mais le resultat n'est pas pareil
...........
qui va lentement va surement :-)
desolé de mon mon cynisme

et puis les Scans TCP/IP et Windows ne vs pas bien ensemble,
trop lents .. pas meme le NMAP wind arrive a la hauteur de la version Linux

signaler à un administrateur
Commentaire de legion91 le 28/06/2003 19:20:34

petit truc pour stopper le scan en cours

Dim scan As String

Private Sub Command1_Click()
Select Case Command1.Caption
Case "Scanner"
scan = "oui"
Command1.Caption = "Stop"
List1.Clear
scann1
Case "Stop"
scan = "non"
Command1.Caption = "Scanner"
End Select
End Sub

Private Function scann1()
Dim a, b, c

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

For i = Text1 To Text2
  If scan = "non" Then Exit Function
  w.Close
  w.RemotePort = i
  w.Connect
  Label1 = i & " / " & Text2.Text
    

  
  
  
  DoEvents
  
  p.Value = i / Text2.Text * 10000
Next i
b = GetTickCount

Label5.Caption = "Temps écoulé : " & (b - a) / 1000  ' & " Secondes "
Label6.Caption = "Nombre de ports ouverts : " & List1.ListCount
Command1.Caption = "Scanner"
End Function

voilou

signaler à un administrateur
Commentaire de legion91 le 28/06/2003 19:27:02

a aussi For i = 0 parck sinon tu sauvegarde pas le 1er port ouvert dans le txt ;-)

signaler à un administrateur
Commentaire de shivan le 29/06/2003 19:26:39

enleve la possibilité d'editer les textes pendant le scann... tu fé un scann a 10000, et pendant le scan tu met une valeur plus petite que celle ou il en est... ca va planter

signaler à un administrateur
Commentaire de EBArtSoft le 30/06/2003 09:47:11 administrateur CS

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

signaler à un administrateur
Commentaire de SatanCorporation le 30/06/2003 10:20:02

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
@+

signaler à un administrateur
Commentaire de SatanCorporation le 30/06/2003 10:20: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
@+

signaler à un administrateur
Commentaire de SatanCorporation le 30/06/2003 10:20:22

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
@+

signaler à un administrateur
Commentaire de pdl le 01/07/2003 08:55:07

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

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,312 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.