begin process at 2010 02 10 01:22:06
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

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

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


 Information sur la source

Note :
1,67 / 10 - par 3 personnes
1,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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 414 / 831

Auteur : SatanCorporation

Ecrire un message privé
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

CALCUL DU TEMPS RESTANT
Source avec Zip Source avec une capture DICO GENERATOR (GÉNÉRATEUR DE DICTIONNAIRE )
Source avec Zip Source avec une capture GESTION DES PROXY
Source avec Zip SOURIS QUI TREMBLE : PEUT ETRE EST-CE UN FAUX VIRUS ?
Source avec Zip Source avec une capture RADIO ONLINE ( MAJ )

 Sources de la même categorie

Source avec Zip Source avec une capture UPLOAD FTP VB 6 par Onin42
Source avec Zip Source avec une capture Source .NET (Dotnet) FAVORIS URL par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) DEVSSH CLIENT SFTP/SSH par iblsysteme
Source avec Zip Source avec une capture CONNEXION RÉSEAU par ABUMAI
Source avec Zip CSOCKET - REMPLACEZ WINSOCK PAR LA VERSION 2 DES API par Renfield

Commentaires et avis

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

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

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 ;-)

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

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

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

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

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

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...

Comparez les prix


HTC Hero

Entre 550€ et 550€

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,640 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales