Page 1 sur 1
[..] Afficher les ports ouvert?
Posté : jeu. 18 déc. 2008 17:13
par ethneldryt
Bonsoir y a t'il une fonction pour afficher les ports ouvert et si oui une autre fonction pour en fermer un? Merci
Re: [..] Afficher les ports ouvert?
Posté : jeu. 18 déc. 2008 20:42
par Yogui
Bonsoir,
Pour scanner les ports ouverts un petit tour sur le forum anglais :
http://www.autoitscript.com/forum/index ... =scan+port
Pour fermer un port je n'utiliserai pas un script mais un logiciel du genre : OpenFirewall
sinon toujours après une petite recherche sur le forum Angalis j'ai trouvé celui ci
► Afficher le texte
Code : Tout sélectionner
TcpStartup()
$blockingPort = 23
While 1
$ConnectedSocket = -1
$MainSocket = -1
$MainSocket = TcpListen(@IPAddress1, $blockingPort)
If $MainSocket = -1 Then Exit
Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1
TCPSend($ConnectedSocket,'Port '&$blockingPort&' is blocked.')
While 1
$RogueSocket = TCPAccept( $MainSocket)
If $RogueSocket > 0 Then
TCPSend( $RogueSocket, 'Port '&$blockingPort&' is blocked.' )
EndIf
$recv = TCPRecv($ConnectedSocket,1000)
If @error Then
;connection closed.
TCPCloseSocket($ConnectedSocket)
$ConnectedSocket = -1
$MainSocket = -1
EndIf
WEnd
WEnd
ici
http://www.autoitscript.com/forum/index ... block+port
j'espère avoir répondu à vos questions
Re: [..] Afficher les ports ouvert?
Posté : jeu. 18 déc. 2008 22:48
par sylvanie
Bonsoir,
s'agit il d'établir les ports ouverts d'une machine locale sur laquelle on fait tourné le script ?
(si oui il suffit de rediriger la sortie de netstat -oan | find "LISTENING" et de fermer l'appli qui a ouvert le port
sinon, effectivement il faut passer par un scanner (à ne faire que sur un LAN où on est admin ou en WAN si on est propriétaire de la machine remote), mais pour la fermeture de pot, ça va être plus délicat
Re: [..] Afficher les ports ouvert?
Posté : ven. 19 déc. 2008 11:41
par ethneldryt
oui sur la machine ou est le script