Page 1 sur 1
[R] Sniffing de packet et action en consequence
Posté : sam. 05 juil. 2008 21:42
par hck
Salutations,
J'aimerais savoir si c'est possible en Autoit d'attendre un packet pour démarrer une action
De plus, j'aimerais savoir si c'est possible d'en envoyer des prémodifier
Merci d'avance,
Au plaisir.
Re: [..] Sniffing de packet et action en consequence
Posté : dim. 06 juil. 2008 22:34
par arrkhan
Bonjour hck, tout depend ce que tu veux faire, donne plus de detail sur l'utilite de ton script que nous puissions te donner la voie a suivre
Re: [..] Sniffing de packet et action en consequence
Posté : dim. 06 juil. 2008 23:24
par hck
à l'aide d'un programme pour sniffer les packets, j'ai vu qu'une appli recevait réguilièrement un packet commencant toujours par la chaine RR034 suivi de 3 caractères aléatoires puis deux points,
J'aimerais qu'à ce moment, ça soit le point de départ de mon script.
serais-ce possible ?
Re: [..] Sniffing de packet et action en consequence
Posté : jeu. 10 juil. 2008 18:56
par hck
Up ... c'est pour un logiciel de gestion de mail fait maison
Re: [..] Sniffing de packet et action en consequence
Posté : jeu. 10 juil. 2008 19:22
par timmalos
Pour ma part, je n'ai aucune connaissance sur le sujet et j'ai fait quelques recherches sur ce forum mais je n'ai pas vu l'ombre d'une solution.
Donc je ne peux vous conseiller que ce
lien.
Si la solution existe, elle y sera. Sinon , bonne chance
Re: [..] Sniffing de packet et action en consequence
Posté : jeu. 10 juil. 2008 22:37
par hck
Il y a des fonctions TCPconnect TCPsend et tout mais je ne les comprend pas
Re: [..] Sniffing de packet et action en consequence
Posté : sam. 12 juil. 2008 12:46
par Voodoo
C'est possible. La gestion des protocoles Tcp /Udp est plutôt complète dans autoit3.
Voila un petit exemple d'application, il faut mettre ces deux script dans des fichiers séparés. Le serveur se lance en premier.
Serveur
Code : Tout sélectionner
TCPStartUp()
$MainSocket = TCPListen("127.0.0.1", 65000 )
If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket = TCPAccept( $MainSocket)
If $ConnectedSocket >= 0 Then
msgbox(0,"","Client connecté")
while 1
$msg=TCPRecv($ConnectedSocket,1024)
if $msg <> "" then msgbox(0,"Data:",$msg)
if @error then exitloop
wend
TCPShutdown()
exit
EndIf
Wend
Client
Code : Tout sélectionner
TCPStartUp()
$MainSocket = TCPConnect("127.0.0.1", 65000 )
while 1
tcpsend($MainSocket,"Un message...")
sleep(2000)
wend
TCPShutdown()
Pour comprendre en détail comment fonctionne le protocole Tcp (listen>connect/accept>send/recv), tu trouveras facilement de la documentation sur internet.